[Netpass-devel] NetPass/lib/NetPass Config.pm,1.37,1.38 DB.pm,1.39,1.40

[jeff m. <jef...@us...>]

Update of /cvsroot/netpass/NetPass/lib/NetPass
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1361/lib/NetPass

Modified Files:
	Config.pm DB.pm 
Log Message:
more work on network cfg UI, removed some unused code

Index: Config.pm
===================================================================
RCS file: /cvsroot/netpass/NetPass/lib/NetPass/Config.pm,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -d -r1.37 -r1.38
--- Config.pm	6 May 2005 03:09:32 -0000	1.37
+++ Config.pm	8 May 2005 02:35:46 -0000	1.38
@@ -65,22 +65,6 @@
 
 my $errstr;
 
-sub xxAUTOLOAD {
-        no strict;
-        return if($AUTOLOAD =~ /::DESTROY$/);
-        if ($AUTOLOAD=~/(\w+)$/) {
-                my $field = $1;
-                *{$field} = sub {
-                                my $self = shift;
-                                @_ ? $self->{"_$field"} = shift
-                                   : $self->{"_$field"};
-                                };
-                &$field(@_);
-        } else {
-                Carp::confess("Cannot figure out field name from '$AUTOLOAD'");
-        }
-}
-
 sub debug {
     my $self = shift;
     my $val  = shift;
@@ -1829,61 +1813,6 @@
 	return $etl;
 }
 
-=head2 B<$np->cfg->nessusBaseDir()>
-
-
-=cut
-
-sub nessusBaseDir {
-	my $self = shift;
-	$self->reloadIfChanged();
-	return $self->{'cfg'}->obj('nessus')->value('BASE_DIR');
-}
-
-=head2 B<$np->cfg->nessusUsername()>
-
-
-=cut
-
-sub nessusUsername {
-	my $self = shift;
-	$self->reloadIfChanged();
-	return $self->{'cfg'}->obj('nessus')->value('username');
-}
-
-=head2 B<$np->cfg->nessusPassword()>
-
-
-=cut
-
-sub nessusPassword {
-	my $self = shift;
-	$self->reloadIfChanged();
-	return $self->{'cfg'}->obj('nessus')->value('password');
-}
-
-=head2 B<$np->cfg->nessusHost()>
-
-
-=cut
-
-sub nessusHost {
-	my $self = shift;
-	$self->reloadIfChanged();
-	return $self->{'cfg'}->obj('nessus')->value('host');
-}
-
-=head2 B<$np->cfg->nessusPort()>
-
-
-=cut
-
-sub nessusPort {
-	my $self = shift;
-	$self->reloadIfChanged();
-	return $self->{'cfg'}->obj('nessus')->value('port');
-}
-
 =head2 B<$np->cfg->nessus(-key => key, -val => val)>
 
 Given a <nessus> config variable, return the value. If -val is given,

Index: DB.pm
===================================================================
RCS file: /cvsroot/netpass/NetPass/lib/NetPass/DB.pm,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -d -r1.39 -r1.40
--- DB.pm	4 May 2005 20:22:17 -0000	1.39
+++ DB.pm	8 May 2005 02:35:46 -0000	1.40
@@ -20,11 +20,6 @@
     $self->{'dbh'}->disconnect if defined $self->{'dbh'};
 }
 
-sub disconnect {
-	my $self = shift;
-	$self->{'dbh'}->disconnect  if defined $self->{'dbh'};
-}
-
 sub D {
     my $self = shift;