ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/PApp-SQL/SQL.pm
(Generate patch)

Comparing PApp-SQL/SQL.pm (file contents):
Revision 1.13 by root, Sun Feb 18 04:50:58 2001 UTC vs.
Revision 1.14 by root, Sun Mar 11 14:54:21 2001 UTC

43use DBI (); 43use DBI ();
44 44
45BEGIN { 45BEGIN {
46 use base qw(Exporter DynaLoader); 46 use base qw(Exporter DynaLoader);
47 47
48 $VERSION = 0.121; 48 $VERSION = 0.122;
49 @EXPORT = qw( 49 @EXPORT = qw(
50 sql_exec sql_fetch sql_fetchall sql_exists sql_insertid $sql_exec 50 sql_exec sql_fetch sql_fetchall sql_exists sql_insertid $sql_exec
51 ); 51 );
52 @EXPORT_OK = qw( 52 @EXPORT_OK = qw(
53 connect_cached 53 connect_cached
366 366
367=item $db->dsn 367=item $db->dsn
368 368
369Return the DSN (L<DBI>) fo the database object (e.g. for error messages). 369Return the DSN (L<DBI>) fo the database object (e.g. for error messages).
370 370
371=item $db->login
372
373Return the login name.
374
375=item $db->password
376
377Return the password (emphasizing the fact that the apssword is stored plaintext ;)
378
371=cut 379=cut
372 380
373sub dsn($) { 381sub dsn($) {
374 my $self = shift; 382 my $self = shift;
375 (split /\x00/, $self->[0])[1]; 383 (split /\x00/, $self->[0])[1];
376} 384}
377 385
386sub login($) {
387 my $self = shift;
388 (split /\x00/, $self->[0])[2];
389}
390
391sub password($) {
392 my $self = shift;
393 (split /\x00/, $self->[0])[3];
394}
395
378=back 396=back
379 397
380=cut 398=cut
381 399
3821; 4001;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines