Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    
    ...
    unlink '/home/www/dbitrace.log6a' if -e '/home/www/dbitrace.log6a';
    DBI->trace(2,'/home/www/dbitrace.log6a');
    $dbh=DBI->connect($dsn,$username,$password) or die print "error connec
    +ting to database ", $DBI::errstr, "\n";
    
  2. or download this
    #! /usr/bin/perl -Tw
    ##use strict;
    ...
    $username=~s/^\s+//;
    $password=~s/^\s+//;
    $dbh_list=DBI->connect($dsn,$username,$password) or die print "ACCESS 
    +DENIED";