Mailing List Archive


Back to the month index Back to the list index
J. M. Castagnetto (jcastagnetto@hotmail.com)
Wed, 21 Apr 1999 00:39:14 PDT 

Message-ID: <19990421073915.67336.qmail@hotmail.com>
From: "J. M. Castagnetto" <jcastagnetto@hotmail.com>
Subject: Mirror of files?
Date: Wed, 21 Apr 1999 00:39:14 PDT

Still waiting to see if Bambi gives the OK for me to put the latest
distribution on a machine here in the USA.
If this is not needed at all, then I withdraw my offer.
=====
Jesus M. Castagnetto - jcastagnetto@hotmail.com
Pilot stuff & etc.:
  http://www.geocities.com/ResearchTriangle/Lab/1059/
LAB: http://www.scripps.edu/research/metallo
Metalloprotein DB: http://metallo.scripps.edu/

_______________________________________________________________
Get Free Email and Do More On The Web. Visit http://www.msn.com
From alexsc01@luosto.lapinopisto.fi Wed Apr 21 04:18:12 1999
Received: from smtp.inet.fi (smtp.inet.fi [192.89.123.192])
        by services.bunyip.com (8.8.5/8.8.5) with ESMTP id EAA25981
        for <msql-list@services.bunyip.com>; Wed, 21 Apr 1999 04:18:12 -0400 (EDT)
Received: from [194.251.76.126] ([194.251.76.126]:1890 "HELO joukahainen.sodankyla.fi") by smtp.inet.fi with SMTP id <18998-28628>; Wed, 21 Apr 1999 11:18:02 +0300
Received: from localhost (Received: from localhost (alexsc01@localhost)
        by luosto.lapinopisto.fi (8.8.7/8.8.7) with SMTP id KAA12251
        for <msql-list@services.bunyip.com>; Wed, 21 Apr 1999 10:24:35 +0300
Date: Wed, 21 Apr 1999 10:24:35 +0300 (EEST)
From: Scott Alexander <alexsc01@lapinopisto.fi>
To: Msql Mailing List <msql-list@services.bunyip.com>
Subject: Perl and can't connect
Message-ID: <Pine.LNX.3.96.990421101857.11886C-100000@luosto.lapinopisto.fi>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII

Hi,

I just updated from 2.06 to 2.08. I have one perl script that no longer
works after updating. Below is just a test script.

It says can't connect local host line 12.

In my msql.conf file i have remote_access = false commented out. If a let
it in the perl script complains about it.

Any ideas?

thanks in advance

Scott

#!/usr/bin/perl5.00404

#BEGIN {
#use CGI qw(:standard);
use Msql ;
        
#$query = new CGI;
# UPDATE DATABASE
$hostname = "localhost" ;
$databasename = "humak" ;
$dbh = Msql->connect($hostname,$databasename);
# get the latest document_id and increase it by one
$sth = $dbh->query("SELECT document_id FROM document ORDER BY document_id DESC") ;
$numrows = $sth->numrows;
if ($numrows eq 0){
         $new_id = 0;
}
else{
         @row = $sth->fetchrow;
         $new_id = $row[0];
         $new_id = $new_id + 1;
}
exit;
#}

_____________________________________

Scott Alexander

+358 (0)16 611960 Work
+358 (0)16 611503 Fax
+358 (0)40 7505640 GSM

http://www.lapinopisto.fi/alex