[siesta-commit] siesta/lib/Siesta Config.pm,1.7,1.8

[prev] [thread] [next] [lurker] [Date index for 2002/09/05]

Update of /cvsroot/siesta/siesta/lib/Siesta
In directory usw-pr-cvs1:/tmp/cvs-serv30175/lib/Siesta

Modified Files:
	Config.pm 
Log Message:
Remove cruft.


Index: Config.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Config.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- Config.pm	2 Sep 2002 15:16:07 -0000	1.7
+++ Config.pm	5 Sep 2002 13:19:24 -0000	1.8
@@ -10,64 +10,5 @@
 $ARCHIVE_PATH = '/home/richardc/lab/siesta/archive';
 
 
-sub new  {} # nop
-
-
-=pod
-
-=head1 NAME
-
-Siesta::Config - base class for config management
-
-=head1 USAGE
-
-Shouldn't be used directly. Subclass in the Siesta::Config:: namespace.
-
-=head1 SEE ALSO
-
-L<Siesta::Config::User>, L<Siesta::Config::List>
-
-=cut
-
-# get a value from the the config data base
-sub get
-{
-	my ($self, $namespace, $key) = @_;
-	my $sth = $self->sql_get;
-
-	my @vals = ($self->{id}, $namespace, $key);
-	$sth->execute(@vals);
-
-	my $values = $sth->fetch;
-	$sth->finish;
-	return $values->[0] if (defined $values);
-}
-
-
-# set a value in the the config data base
-sub set 
-{
-	my ($self, $namespace, $key, $value) = @_;
-	
-	# are we inserting or updating?
-	my $sth;
-	my $current = $self->get($namespace, $key);
-	unless ($current) {
-		$sth = $self->sql_insert();
-		return undef unless defined $sth;
-		my @values = ($self->{id}, $namespace, $key, $value);
-		return $sth->execute(@values);
-
-	} else {
-		$sth = $self->sql_update();
-		return undef unless defined $sth;
-		my @values = ($value, $self->{id}, $namespace, $key);
-		return $sth->execute(@values);
-
-	}
-
-
-}
-
 
 1;

• [siesta-commit] siesta/lib/Siesta Config.pm,1.7,1.8 muttley 14:19 on 05 Sep 2002

Generated at 13:57 on 01 Jul 2004 by mariachi 0.52