Select Code to Download

Select or download this

package IssueBot::Channels;
use base 'IssueBot::DBI';
__PACKAGE__->table( "channel_prefs" );
__PACKAGE__->columns( ALL => qw(idno channel channelpass loginon greet
+on active subscriber_ids server_id) );
__PACKAGE__->add_searcher( search  => "Class::DBI::Search::Basic" );

Select or download this

use DBD::SQLite;      
use Class::DBI;
...

my $true='true';
my $channel_it = IssueBot::Channels->search( active => $true, subscrib
+er_ids => '10000' );

Select or download this

DBD::SQLite::db prepare_cached failed: near "FROM": syntax error(1) at
+ dbdimp.c line 271 [for Statement "SELECT 
FROM   channel_prefs
WHERE  active = ? AND subscriber_ids = ?
"] at /usr/local/lib/perl5/site_perl/5.8.8/Ima/DBI.pm line 398.

Select or download this

my @active_channels = IssueBot::Channels->retrieve_from_sql(qq{
    active = 'true' AND
    subscriber_ids like "%10000%"
  });

Select or download this

DBD::SQLite::db prepare_cached failed: near "FROM": syntax error(1) at
+ dbdimp.c line 271 [for Statement "SELECT 
FROM   channel_prefs
...
    subscriber_ids like "%10000%"
  
"] at /usr/local/lib/perl5/site_perl/5.8.8/Ima/DBI.pm line 398.