[siesta-commit] siesta/lib/Siesta/Config List.pm,NONE,1.1 ListUser.pm,NONE,1.1

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

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

Added Files:
	List.pm ListUser.pm 
Log Message:
Damn CVS trickiness. Or my lameness. These should have been committed before.


--- NEW FILE: List.pm ---
package Siesta::Config::List;

use strict;
use vars qw( $DBFILE $ARCHIVE_PATH );
require Ima::DBI;
use base qw(Siesta::Config Ima::DBI);


# override siesta config 
sub new 
{
	my $class = shift;

	set_db('Main', $DBFILE);

	# set the sql statements 
	set_sql('get', <<"SQL", 'config');
		select value 
		from list_config
		where id = ? and 
		where namespace = ? and
		where key = ?
SQL
	set_sql('insert', <<"SQL", 'config');
		insert into list_config
		(id namespace, key, value)
		values (?, ?, ?, ?)
SQL
	set_sql('update', <<"SQL", 'config');
		update list_config 
		set value
		where id = ? and 
		where namespace = ? and
		where key = ?
SQL

	return bless {}, $class;
}

1;

--- NEW FILE: ListUser.pm ---
package Siesta::Config::ListUser;

use strict;
use vars qw( $DBFILE $ARCHIVE_PATH );
require Ima::DBI;
use base qw(Siesta::Config Ima::DBI);


# override siesta config 
sub new 
{
	my $class = shift;

	set_db('Main', $DBFILE);

	# set the sql statements 
	set_sql('get', <<"SQL", 'config');
		select value 
		from listuser_config
		where id = ? and 
		where namespace = ? and
		where key = ?
SQL
	set_sql('insert', <<"SQL", 'config');
		insert into listuser_config
		(id, namespace, key, value)
		values (?, ?, ?, ?)
SQL
	set_sql('update', <<"SQL", 'config');
		update listuser_config 
		set value
		where id = ? and 
		where namespace = ? and
		where key = ?
SQL

	return bless {}, $class;
}

1;

• [siesta-commit] siesta/lib/Siesta/Config List.pm,NONE,1.1 ListUser.pm,NONE,1.1 muttley 08:41 on 02 Sep 2002

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