[ViewVC] Diff of: cvs/PApp-SQL/SQL.pm

Comparing PApp-SQL/SQL.pm (file contents):
Revision 1.10 by root, Mon Feb 5 14:05:08 2001 UTC vs.
Revision 1.14 by root, Sun Mar 11 14:54:21 2001 UTC

 use DBI ();
 BEGIN {
    use base qw(Exporter DynaLoader);
-   $VERSION = 0.12;
+   $VERSION = 0.122;
    @EXPORT = qw(
          sql_exec sql_fetch sql_fetchall sql_exists sql_insertid $sql_exec
    );
    @EXPORT_OK = qw(
          connect_cached
 =item sql_exists "<table> where ...", args...
 Check wether the result of the sql-statement "select xxx from
 $first_argument" would be empty or not (that is, imagine the string
-"select from" were prepended to your statement (it isn't)). Should work
+"select * from" were prepended to your statement (it isn't)). Should work
 with every database but can be quite slow, except on mysql, where this
 should be quite fast.
 Examples:
 =cut
 sub reinitialize {
    cachesize cachesize 0;
    for (values %dbcache) {
-      eval { $_->disconnect };
+      eval { $_->{InactiveDestroy} = 1 };
    }
    undef %dbcache;
 }
 =back
 =item $db->dsn
 Return the DSN (L<DBI>) fo the database object (e.g. for error messages).
+=item $db->login
+Return the login name.
+=item $db->password
+Return the password (emphasizing the fact that the apssword is stored plaintext ;)
 =cut
 sub dsn($) {
    my $self = shift;
    (split /\x00/, $self->[0])[1];
 }
+sub login($) {
+   my $self = shift;
+   (split /\x00/, $self->[0])[2];
+}
+sub password($) {
+   my $self = shift;
+   (split /\x00/, $self->[0])[3];
+}
 =back
 =cut
 1;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines