0byt3m1n1

Path: /data/0/0/16/102/16102/user/16456/cgi-bin/ [ Home ]
File: modules.pl
#!/usr/local/bin/perl

use DBI;
use Config;
use File::Find;
#use Mysql;
               

print "Content-type:text/html\n\n";

print "OK\n";

           my @files;

           find sub { push @files, $File::Find::name if -f _ && /\.pm$/ },
                @INC;

               print join "\n", @files;



if ( $Config{ osname } ne 'solaris' || $Config{ osver } < 2.9 )
{
    print "This module needs Solaris 2.9 or higher to run.\n";
    print "$Config{ osname }";
    
}
print "\@INC is @INC\n" ;


#if ($dbh = DBI->connect(205.178.146.15:3306,skybeam,nslt12442,miLMzEAi)){
#    print "ok 1\n";
#}

#my $db_handle = DBI->connect("DBI:mysql:database=skybeam;host=localhost:3306",
#                         "nslt12442", "miLMzEAi",
#                         {'RaiseError' => 1});
$db_handle = DBI->connect("DBI:mysql:database=skybeam;host=205.178.146.15:3306;user=nslt12442;password=miLMzEAi")
    or print "Couldn't connect to database: $DBI::errstr\n";

$sql = "SELECT * FROM customers1";
$statement = $db_handle->prepare($sql)
    or print "Couldn't prepare query '$sql': $DBI::errstr\n";

$statement->execute()
    or print "Couldn't execute query '$sql': $DBI::errstr\n";

   
while ($row_ref = $statement->fetchrow_hashref())
{
    print "OK\n"
#    print "id <b>$row_ref->{customers_id}</b> has name <b>$row_ref->{customers_name}</b>.<br>";
}

$db_handle->disconnect();