sybperl-l Archive

From: Michael Peppler <mpeppler at MBAY dot NET>
Subject: (no subject)
Date: Dec 17 1998 12:46AM

>>>>> "David" == David Hajoglou  writes:

David> My question is about the dbsetluser and dbsetlpw functions.
David> Where would I run these functions so as to avoid putting plain
David> text user and passwds in the script.

Actually DBSETLUSER and DBSETLPW aren't implemented in
Sybase::DBlib. You pass the username and password to the dblogin() or
new() calls.

One technique is to store this information in a file that is readable
only by the user running the script. In this case, assuming the web
server runs as user 'webuser' you would create a file that is readable 
only by 'webuser' and which has two lines

the_user
the_password

(with appropriate values for these two lines, of course) and then your 
code would do something like

#!/usr/local/bin/perl -w
use strict;
use Sybase::DBlib;
my @data;
open(IN, ".the_password_file") || die "ohlala!: $!";
while() {
    chomp;
    push(@data, $_);
}
my $dbh = new Sybase::DBlib $data[0], $data[1];
etc...

This is of course only one of several ways that this can be
implemented.

Michael
-- 
Michael Peppler         -||-  Data Migrations Inc.
mpeppler@mbay.net       -||-  http://www.mbay.net/~mpeppler
Int. Sybase User Group  -||-  http://www.isug.com
Sybase on Linux mailing list: ase-linux-list@isug.com