Fellow monks,
i am in dire need of your assistance. I have a mysql database which has names and a default value for ip addresses. I have other code , a cgi app that uses a form to add/search the database and also view all current items in the database which still seems to be working. i am trying to write a script that will take the names, look them up and populate the database with the correct ip address. When i run my script i get a really wierd error.
DBD::mysql::st fetchrow_hashref failed: fetch() without execute() at lookup.pl line 34.
If anyone can offer some advice as too why my code is failing, i would greatly appreciate it.
Thank you
Ray
#!/usr/bin/perl -w
# lookup.pl - This will take the name from the database and lookup the
+ ip address and populate it in the database.
# Ray Espinoza
# version 1.0 9/26/02
##########################################################
use strict;
use DBI;
# Create database handle
########################
my $dbh = &connect;
get_name_and_lookup ($dbh);
# Close connection to the database and end html
###############################################
$dbh->disconnect();
# Subs ###############################################################
+############
sub get_name_and_lookup {
my $dbh = shift;
my ($sth, $stmt, $hostname, $id, $addr, $ipaddr);
$stmt = qq {SELECT * from nt_machines ORDER BY name};
$sth = $dbh->prepare ($stmt);
$sth->execute();
while (my $row = $sth->fetchrow_hashref()) {
$row->{name} = $hostname;
$row->{id} = $id;
$addr = (gethostbyname($hostname))[4];
if ($addr) {
$ipaddr = join(".", unpack("C4", $addr));
update_item($ipaddr,$id)
}
$sth->finish();
}
}
######################################################################
+#####
sub update_item {
my ($dbh, $ipaddr, $id) = @_;
$ipaddr =~ s/^\s+//;
$ipaddr =~ s/\s+$//;
$dbh->do (qq{ UPDATE nt_machines SET ipaddr = ? WHERE id = ? }
+, undef, $ipaddr, $id) or warn "Can't update database: $!\n";
}
######################################################################
+#####
sub connect {
use DBI;
my ($dbh, $sth, $count);
$dbh= DBI->connect("DBI:mysql:host=localhost;database=testsites","qaus
+er","blah",{PrintError => 0, RaiseError => 1});
return $dbh;
}
######################
# Ray Espinoza 9.26.02#
######################