[no subject]

First of all, it is amazing how much knowledge you gain when you have to fix
systems you didn't design. :)

Well, my question for today is why this code snippet doesn't work.  It's in
a program I'm trying to utilize but I'm not getting the while loop to
activate.

# Open a ForkManager handle limiting the number of children
# to MAX_FORKS
$pm = new Parallel::ForkManager($scanq);

#Select scheduled scans to run.
$sth = $dbh->prepare(qq{
	SELECT scan.host, scan.sched_id, sched.sid, sched.timeout,
sched.username, sched.next_scan
	FROM nessus_scan scan, nessus_schedule sched
	WHERE scan.status = "S"
	AND scan.server_id=$serverid
	AND scan.sched_id=sched.id
	AND sched.next_scan > 0
	} );
$sth->execute;

while(($host, $schedid, $sid, $timeout, $username,
$scantime)=$sth->fetchrow_array){
	$pm->start and next; # Do the fork
	my $dbhf;

	$dbhf =
DBI->connect("$CONFIG{'DATABASEDSN'}:$CONFIG{'DATABASENAME'}:$CONFIG{'DATABA
SEHOST'}","$CONFIG{'DATABASEUSER'}","$CONFIG{'DATABASEPASSWORD'}", {
		PrintError => 0,
		RaiseError => 1,
		AutoCommit => 1 } ) or die("Failed to connect :
$DBI::errstr\n");


If I do a:
print $sth->fetchrow_array;
After the $sth->execute; I get the output from the db as requested.

I don't see how any of the variables in the while loop are being measured.
All that exists is a:
my ($host, $schedid, ...) at the very beginning of this perl script.

Any ideas anyone?

Thanks,
John Cole


This email and any files transmitted with it are solely intended for the use of the
addressee(s) and may contain information that is confidential and privileged. If 
you receive this email in error, please advise us by return email immediately. 
Please also disregard the contents of the email, delete it and destroy any copies 
immediately. 


</pre>
<!--X-Body-of-Message-End-->
<!--X-MsgBody-End-->
<!--X-Follow-Ups-->
<hr>
<ul><li><strong>Follow-Ups</strong>:
<ul>
<li><strong><a name="00539" href="msg00539.html">[ale] Slightly ot: perl question.</a></strong>
<ul><li><em>From:</em> Robert.L.Harris at rdlg.net (Robert L. Harris)</li></ul></li>
<li><strong><a name="00540" href="msg00540.html">[ale] Slightly ot: perl question.</a></strong>
<ul><li><em>From:</em> cfowler at outpostsentinel.com (Christopher Fowler)</li></ul></li>
<li><strong><a name="00542" href="msg00542.html">[ale] Slightly ot: perl question.</a></strong>
<ul><li><em>From:</em> sonali at vijedi.net (Sonali Parikh)</li></ul></li>
</ul></li></ul>
<!--X-Follow-Ups-End-->
<!--X-References-->
<!--X-References-End-->
<!--X-BotPNI-->
<ul>
<li>Prev by Date:
<strong><a href="msg00536.html">[ale] Easy to use CMS?</a></strong>
</li>
<li>Next by Date:
<strong><a href="msg00538.html">[ale] Easy to use CMS?</a></strong>
</li>
<li>Previous by thread:
<strong><a href="msg00543.html">[ale] Easy to use CMS?</a></strong>
</li>
<li>Next by thread:
<strong><a href="msg00539.html">[ale] Slightly ot: perl question.</a></strong>
</li>
<li>Index(es):
<ul>
<li><a href="maillist.html#00537"><strong>Date</strong></a></li>
<li><a href="threads.html#00537"><strong>Thread</strong></a></li>
</ul>
</li>
</ul>

<!--X-BotPNI-End-->
<!--X-User-Footer-->
<!--X-User-Footer-End-->
</body>
</html>