Re: [SLUG] Perl & MySQL script not working

[Mehmet Yousouf <mehmety@xxxxxxxxxxxxx>]

On Sat, 2 Dec 2000, Terry Collins wrote:
I think it says you don't have msql -- different to MySQL (no y)


Regards, Mehmet 

> Gidday Sluggers
> 
> This perl script tells me that I don't have a MySQL server on my box
> (localhost), when I do (The Kmysql stuff confirms it is running - I can
> 
> 
> 
> #!/usr/bin/perl -w
> 
> use strict;
> 
> use CGI qw(:standard);
> use CGI::Carp;
> 
> use DBI;
> CGI::use_named_parameters(1);
> 
> my ($server, $sock, $host);
> 
> my $output = new CGI;
> $server = param('server') or $server = '';
> 
> my $driver = DBI->install_driver('mysql');
> 
> my @databases = $driver->func($server, '_ListDBs');
> 
> if (not @databases) {
>         print header, start_html('title'=>"Information on $host",
>         'BGCOLOR'=>'white');
>         print <<END_OF_HTML;
> <H1>$server</h1>
> $server does not appear to have a running >>>>>> mSQL server.<<<<<<<<