Menu
▾
▴
tuxaator-commits — cvs commits
You can subscribe to this list here.
| 2004 |
Jan
|
Feb
|
Mar
(12) |
Apr
(1) |
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(5) |
Dec
|
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2005 |
Jan
|
Feb
(19) |
Mar
|
Apr
(13) |
May
|
Jun
(1) |
Jul
|
Aug
(1) |
Sep
|
Oct
|
Nov
|
Dec
|
| 2006 |
Jan
|
Feb
(3) |
Mar
|
Apr
|
May
|
Jun
(3) |
Jul
(2) |
Aug
|
Sep
(1) |
Oct
|
Nov
|
Dec
(2) |
|
From: Anti V. <du...@us...> - 2004-04-23 20:01:41
|
Update of /cvsroot/tuxaator/tuxaator In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24474 Modified Files: tuxaator Log Message: + do not require "Tuxaator::Plugin" Index: tuxaator =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/tuxaator,v retrieving revision 1.86 retrieving revision 1.87 diff -C2 -d -r1.86 -r1.87 *** tuxaator 30 Mar 2004 20:37:05 -0000 1.86 --- tuxaator 23 Apr 2004 20:01:31 -0000 1.87 *************** *** 12,16 **** use Plugins::Log; use BotCore; ! use Tuxaator::Plugin; use File::Glob ':glob'; my ($irc,$whoami,$driver,$dbh,%last,%plugins,%msg_handlers,$DEBUG); --- 12,16 ---- use Plugins::Log; use BotCore; ! #use Tuxaator::Plugin; use File::Glob ':glob'; my ($irc,$whoami,$driver,$dbh,%last,%plugins,%msg_handlers,$DEBUG); |
|
From: Anti V. <du...@us...> - 2004-03-30 20:49:18
|
Update of /cvsroot/tuxaator/tuxaator In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22387 Modified Files: BotCore.pm HELP insult.txt tux.sql tuxaator Log Message: + assorted fixes Index: tux.sql =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/tux.sql,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** tux.sql 17 Jul 2002 09:33:05 -0000 1.5 --- tux.sql 30 Mar 2004 20:37:05 -0000 1.6 *************** *** 9,38 **** -- ! CREATE TABLE terms ( ! term varchar(60) NOT NULL default '', ! story text, ! counter int(11) default '0', ! nick varchar(12) default NULL, ! userhost varchar(200) default NULL, ! changed datetime default NULL, ! history int(11) default '1', ! operation smallint(6) default '1', ! UNIQUE KEY terms (term,history), ! KEY term (term) ) TYPE=MyISAM; -- ! -- Table structure for table 'users' -- ! CREATE TABLE users ( ! nick char(12) NOT NULL default '', ! timestamp timestamp(14) NOT NULL, ! status tinyint(4) default NULL, ! lastmsg char(255) default NULL, ! UNIQUE KEY nick (nick) ! ) TYPE=MyISAM; -- -- Table structure for table 'wanted' -- --- 9,54 ---- -- ! CREATE TABLE `terms` ( ! `term` varchar(60) NOT NULL default '', ! `story` text, ! `counter` int(10) unsigned default '0', ! `nick` varchar(50) NOT NULL default '', ! `userhost` varchar(200) NOT NULL default '', ! `changed` datetime NOT NULL default '0000-00-00 00:00:00', ! `id` bigint(20) unsigned NOT NULL auto_increment, ! PRIMARY KEY (`id`), ! KEY `term` (`term`) ) TYPE=MyISAM; -- ! -- table structure for table 'history' -- ! CREATE TABLE `history` ( ! `term` varchar(60) NOT NULL default '', ! `story` text, ! `counter` int(10) unsigned default '0', ! `nick` varchar(50) NOT NULL default '', ! `userhost` varchar(200) NOT NULL default '', ! `changed` datetime NOT NULL default '0000-00-00 00:00:00', ! `history` int(11) default '1', ! `operation` smallint(6) default '1', ! `id` bigint(20) unsigned NOT NULL auto_increment, ! PRIMARY KEY (`id`), ! KEY `term` (`term`) ! ) TYPE=MyISAM -- + -- table structure for table 'users' + -- + + CREATE TABLE `users` ( + `nick` char(50) NOT NULL default '', + `timestamp` timestamp(14) NOT NULL, + `status` tinyint(4) NOT NULL default '0', + `lastmsg` char(255) NOT NULL default '', + UNIQUE KEY `nick` (`nick`) + ) TYPE=MyISAM; + -- -- Table structure for table 'wanted' -- *************** *** 44,107 **** ) TYPE=MyISAM; - -- - -- Table structure for table 'xjump' - -- - - CREATE TABLE xjump ( - id bigint(20) unsigned NOT NULL auto_increment, - name char(255) default NULL, - score bigint(20) unsigned default NULL, - host char(255) default NULL, - time bigint(20) default NULL, - wasted_time bigint(20) unsigned default NULL, - PRIMARY KEY (id), - KEY name (name), - KEY score (score) - ) TYPE=MyISAM; - - -- - -- Table structure for table 'xjump_users' - -- - - CREATE TABLE xjump_users ( - id bigint(20) unsigned NOT NULL auto_increment, - name char(255) default NULL, - top bigint(20) unsigned default NULL, - time bigint(20) unsigned default '0', - wasted_time bigint(20) unsigned default '0', - host char(255) default NULL, - PRIMARY KEY (id), - KEY name (name) - ) TYPE=MyISAM; - - -- - -- Table structure for table 'xpipeman' - -- - - CREATE TABLE xpipeman ( - id bigint(20) unsigned NOT NULL auto_increment, - name char(255) default NULL, - score bigint(20) unsigned default NULL, - host char(255) default NULL, - time bigint(20) default NULL, - wasted_time bigint(20) default NULL, - PRIMARY KEY (id), - KEY name (name), - KEY score (score) - ) TYPE=MyISAM; - - -- - -- Table structure for table 'xpipeman_users' - -- - - CREATE TABLE xpipeman_users ( - id bigint(20) unsigned NOT NULL auto_increment, - name char(255) default NULL, - top bigint(20) default NULL, - time bigint(20) default NULL, - wasted_time bigint(20) default NULL, - host char(255) default NULL, - PRIMARY KEY (id), - KEY name (name) - ) TYPE=MyISAM; - --- 60,61 ---- Index: BotCore.pm =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/BotCore.pm,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** BotCore.pm 20 Dec 2003 23:01:21 -0000 1.7 --- BotCore.pm 30 Mar 2004 20:37:05 -0000 1.8 *************** *** 48,51 **** --- 48,56 ---- my $allowed = 0; my ($key,$value); + # since regexps are allowed, there is no other way to + # do this check + + # and just perhaps I should figure out a new way to + # do user acl checks while (($key, $value) = each %{$class->{"users"}}) { *************** *** 85,88 **** --- 90,97 ---- } + sub load_plugin_config { + print "loading plugin config!\n"; + } + sub load_messages { my $basedir = shift; *************** *** 176,183 **** # add a pointer to the module $handlers{$handler}->{'id'} = $id; - #while(my($k1,$v1) = each %{%handlers->{$handler}}) - #{ - # print "k1 = $k1, v1 = $v1\n"; - #}; $self->register_msg_handler($handler,%handlers->{$handler}); }; --- 185,188 ---- *************** *** 208,210 **** --- 213,216 ---- }; + 1; Index: tuxaator =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/tuxaator,v retrieving revision 1.85 retrieving revision 1.86 diff -C2 -d -r1.85 -r1.86 *** tuxaator 21 Dec 2003 18:38:26 -0000 1.85 --- tuxaator 30 Mar 2004 20:37:05 -0000 1.86 *************** *** 12,15 **** --- 12,16 ---- use Plugins::Log; use BotCore; + use Tuxaator::Plugin; use File::Glob ':glob'; my ($irc,$whoami,$driver,$dbh,%last,%plugins,%msg_handlers,$DEBUG); *************** *** 18,21 **** --- 19,23 ---- my $Kernel; my $Log; + my $Plugin; my $basedir = $ENV{'PWD'}; *************** *** 82,85 **** --- 84,88 ---- my @plugins_to_load = bsd_glob('Plugins/*/Plugin.pm'); + # well, dat is no good, I need to way to specify plugins in the ini file foreach my $plugin (@plugins_to_load) { *************** *** 180,183 **** --- 183,187 ---- $Output = new Plugins::Output($conn); $Log = new Plugins::Log($basedir . "/log"); + #$Plugin = new Tuxaator::Plugin($conn,$config); $settings{'nick'} = $config{'nick'}; *************** *** 396,399 **** --- 400,404 ---- } + sub DESTROY { print "teardown!\n"; Index: insult.txt =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/insult.txt,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** insult.txt 17 Jul 2002 09:26:44 -0000 1.1 --- insult.txt 30 Mar 2004 20:37:05 -0000 1.2 *************** *** 2,9 **** {}: sa oled loll nagu lauajalg. Tead {}, mine osta õige üks tükk seepi. - {}: sa oled loll kui leivaauto. Erikuradikinomees sa {} oled, reede 6hta ircus! {}: sa oled yks plekist persega vedruvasikas. {}: k2i jala. {}: kalla end piimaga üle ja pane traktori kõrval põlema. Oh püha perse kiriku laes, kuskohas küll {}'suguseid produtseeritakse. --- 2,9 ---- {}: sa oled loll nagu lauajalg. Tead {}, mine osta õige üks tükk seepi. Erikuradikinomees sa {} oled, reede 6hta ircus! {}: sa oled yks plekist persega vedruvasikas. {}: k2i jala. + {}, sa vana pede, sinu kohta on artikkel: http://www.{}.isgay.com/ {}: kalla end piimaga üle ja pane traktori kõrval põlema. Oh püha perse kiriku laes, kuskohas küll {}'suguseid produtseeritakse. *************** *** 22,39 **** {}: mitu korda ma pean vett tõmbama, et sa ära kaoksid? {}: oled sa alati nii loll või on sul lihtsalt blond hetk?? ! Q: Mida ütles jumal, kui ta {}' lõi? A: Oh shit! ! Q: Kui Emprite State Building'u katuselt kukuvad alla paks neeger ja {}, siis kumb jõuab alla esimesena? A: Pole valge mehe asi. ! Q: Mis on {}' jaoks pikk ja raske? A: Algkool {}: sa pole just karbi kõige kirkam kriit {}: sa oled erakordselt sita väljanägemisega. On see mingi uus trend? ! {}: kumb meist nüüd rohtu peaks võtma? {}: mõni küla on sinu pärast praegu ilma lollita. ! {}: on see kitsehabe või on lind su lõua täis sittunud? {}: palun seisa allatuult. {}: sae pekki. ! Kuule {}, sina kõdunenud kammeljas, sina mädanenud mudakukk, sina solgitud särg, mine osa omale õng. {}: näri muru! ! {}: ime kanni! ! {}: ära plõksi! {}: tead mis, PANE ENNAST PÕLEMA! {}: söö sitta! (miljardid kärbsed ei saa ju ometi valel teel olla) --- 22,38 ---- {}: mitu korda ma pean vett tõmbama, et sa ära kaoksid? {}: oled sa alati nii loll või on sul lihtsalt blond hetk?? ! K: Mida ütles jumal, kui ta {}' tegi? V: Oh shit! ! K: Kui Emprite State Building'u katuselt kukuvad alla paks neeger ja {}, siis kumb jõuab alla esimesena? V: Pole valge mehe asi. ! K: Mis on {}' jaoks pikk ja raske? V: Algkool {}: sa pole just karbi kõige kirkam kriit {}: sa oled erakordselt sita väljanägemisega. On see mingi uus trend? ! {}: kumb meist nüüd mürki peaks võtma? {}: mõni küla on sinu pärast praegu ilma lollita. ! {}: on see kitsehabe või on tuvid su lõua täis sittunud? {}: palun seisa allatuult. {}: sae pekki. ! Kuule {}, sina kõdunenud kammeljas, sina mädanenud mudakukk, sina solgitud särg, mine osta omale õng. {}: näri muru! ! {}: kes sinusugusele kulendile suu andis? {}: tead mis, PANE ENNAST PÕLEMA! {}: söö sitta! (miljardid kärbsed ei saa ju ometi valel teel olla) *************** *** 41,54 **** {}: sa oled meditsiiniline ime {}: sa näed ikka vahva välja! See kleit su seljas on pilapoest, eks? ! {}: milline seitmsest pöialpoisist Sina oled? {}: kao eemale! Sa seisad mu aura peal! . o O ( Kus on geenipolitsei? Siin on mingi jälk {} ) O o . {}: kes ma Sinu arust olen? Kärbsepaber idiootidele? {}: on Sul minut aega? Räägi mulle ära kõik, mida Sa üldse tead. {}: Su jutt kõlab nagu eesti keel, aga ma ei saa mitte halligi aru. {}: kõik mu eelarvamused Sinu suhtes on ajapikku tõeks osutunud. ! {}: see, kui keegi sind ei mõista, ei tähenda veel, et sa oled kunstnik, {}: Sa varud ilmselt alati spetsiaalselt aega, et end avalikus kohas lolliks teha. {}: Kuuldavasti oli sul kunagi yks mõte, aga see suri yksinduse kätte ära. {}: Ma vihkan kõiki. Sina oled järgmine. {}: Ja sinu täiesti mõttetu arvamus on...? --- 40,81 ---- {}: sa oled meditsiiniline ime {}: sa näed ikka vahva välja! See kleit su seljas on pilapoest, eks? ! {}: milline seitsmest pöialpoisist Sina oled? {}: kao eemale! Sa seisad mu aura peal! + {} on mees, kes ei tee palju sõnu. Aga möliseb ikkagi rohkem kui vaja. . o O ( Kus on geenipolitsei? Siin on mingi jälk {} ) O o . + . o O ( Millise kivi alt küll sellised lontrused nagu {} välja ronivad.. ) O o . {}: kes ma Sinu arust olen? Kärbsepaber idiootidele? {}: on Sul minut aega? Räägi mulle ära kõik, mida Sa üldse tead. + {}: sa oled nii loll, et sobiksid ideaalselt Võrno saatesse. {}: Su jutt kõlab nagu eesti keel, aga ma ei saa mitte halligi aru. {}: kõik mu eelarvamused Sinu suhtes on ajapikku tõeks osutunud. ! {}: ilmselgelt on ainuke lahendus sinu probleemile suitsiid. ! {}: see et keegi sind ei mõista, ei tähenda veel et oled kunstnik. {}: Sa varud ilmselt alati spetsiaalselt aega, et end avalikus kohas lolliks teha. {}: Kuuldavasti oli sul kunagi yks mõte, aga see suri yksinduse kätte ära. {}: Ma vihkan kõiki. Sina oled järgmine. {}: Ja sinu täiesti mõttetu arvamus on...? + {}: Pista pea perse ja tee porgandi häält. + {}: Kas sa nüüd taipad, mis juhtub kui sugulased omavahel abielluvad? + {}: Mõistuse poolest on sulle kõige lähemal reha, või äärmisel juhul labidas. + {}: Maakeral ei ole enam ruumi. Mine koju. + {}: Mine hoia oma pead vee all. + Isegi lollide maailmameistrivõistlustel saaks {} teise koha, kuna ta on lihtsalt niivõrd loll.... + {}: mine ära enne kui ma sind ümber lükkan. + Näe, tõmbasin küll vett, aga {} ikka alla ei läinud. + Miskit rõvedat pininat tuleb kusagilt. Aaa, see oled sina, {}! + Tere {}! Kuidas viinaravi edeneb? + Vaene {}, kas sa jäid rongi alla või oledki sellisena sündinud? + {}: Piiblis on kirjas: "Juudas eemaldus ja läks ja poos end üles." Ja veel: "Mine tee sina samuti" + {}, miks sa ei lase oma mõistust teritada? + {}, tee mulle üks teene - ära unusta koduteel vales kohas tänavat ületada. + {}, mängime kodu, Sina oled uks ja mina löön su kinni. + {}, lähme kusagile, kus me saaksime teineteisest lahus olla. + Ma ei unusta kunagi ühtegi nägu, aga {} puhul olen ma valmis erandi tegema. + {}, vaata, rong läheneb! Roni rööbastele! + {}, Sul on väga huvitav nägu, mitu korda Sind sinna löödud on? + {}, mängime hobusdt. Mina olen esimene ots ja sina võid lihtsalt iseennast mängida. + {} nalju tervitab alati suur vaikusepahvak. + Ahv heitis {}'le ühe pilgu ning karjus: "Persse see Darwini teooria - mina endast inimest teha ei lase!" + Peab tunnistama, et {}'i sugused mehed ei kasva puu otsas - nad ripuvad okste küljes. + Kas tõesti on sõnade helge pea ja {} vahel nii suur erinevus? Index: HELP =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/HELP,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** HELP 17 Oct 2001 10:25:24 -0000 1.2 --- HELP 30 Mar 2004 20:37:05 -0000 1.3 *************** *** 27,30 **** --- 27,35 ---- Description: shows all (actuall only first 50) definitions with contain the word Linux + Command: history + Syntax: !history keyword + Example: !history tuxaator + Description: + Command: seen Syntax !seen <user> |
|
From: Anti V. <du...@us...> - 2004-03-30 20:49:17
|
Update of /cvsroot/tuxaator/tuxaator/Plugins/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22387/Plugins/Core Modified Files: Plugin.pm Log Message: + assorted fixes Index: Plugin.pm =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/Plugins/Core/Plugin.pm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Plugin.pm 3 Sep 2002 14:16:21 -0000 1.2 --- Plugin.pm 30 Mar 2004 20:37:05 -0000 1.3 *************** *** 160,165 **** my $basedir = $self->{'core'}->{'basedir'}; my %users = &load_hosts($basedir); $self->{'core'}->{'users'} = \%users; ! $self->{'core'}->queue($event,"Done"); } --- 160,169 ---- my $basedir = $self->{'core'}->{'basedir'}; my %users = &load_hosts($basedir); + print "rehashing hosts\n"; $self->{'core'}->{'users'} = \%users; ! if ($event) ! { ! $self->{'core'}->queue($event,"Done"); ! }; } |
|
From: Anti V. <du...@us...> - 2004-03-30 20:49:16
|
Update of /cvsroot/tuxaator/tuxaator/Plugins/Date In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22387/Plugins/Date Modified Files: Plugin.pm Log Message: + assorted fixes Index: Plugin.pm =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/Plugins/Date/Plugin.pm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Plugin.pm 26 Oct 2003 19:07:57 -0000 1.3 --- Plugin.pm 30 Mar 2004 20:37:05 -0000 1.4 *************** *** 28,31 **** --- 28,36 ---- "restricted" => 0, }, + "!kell" => + { + "action" => "do_kell", + "restricted" => 0, + }, ); *************** *** 45,47 **** --- 50,62 ---- } + sub do_kell + { + my $self = shift; + my $event = pop @_; + my $msg; + ($sec,$min,$hour) = localtime; + $self->{'core'}->queue($event,"$hour:$min"); + + } + 1; |
|
From: Anti V. <du...@us...> - 2004-03-30 20:48:49
|
Update of /cvsroot/tuxaator/tuxaator/scripts In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22387/scripts Modified Files: update_feeds.pl Log Message: + assorted fixes Index: update_feeds.pl =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/scripts/update_feeds.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** update_feeds.pl 21 Dec 2003 21:30:35 -0000 1.2 --- update_feeds.pl 30 Mar 2004 20:37:07 -0000 1.3 *************** *** 20,23 **** --- 20,24 ---- my $data = get($url); my $outfile = dirname($0) . "/../cache/$cachefile"; + $data =~ s/8859-15/8859-1/g; open OUTFILE,">$outfile" or die "$! $cachefile\n"; print OUTFILE $data; |
|
From: Anti V. <du...@us...> - 2004-03-30 20:48:48
|
Update of /cvsroot/tuxaator/tuxaator/config In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22387/config Modified Files: messages.tux.en messages.tux.et rss.tux Log Message: + assorted fixes Index: messages.tux.et =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/config/messages.tux.et,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** messages.tux.et 17 Jul 2002 09:26:46 -0000 1.7 --- messages.tux.et 30 Mar 2004 20:37:07 -0000 1.8 *************** *** 8,12 **** apropos_noresults = Midagi ei leitud apropos_results = Otsitav leiti nendest kirjetest: %s ! status_line1 = |%s| - küsitud %d korda status_line2 = Viimati muutis %s (%s) @ %s learn_error1 = Ei saa aru. Süntaks on !learn võtmesõna = definitsioon --- 8,12 ---- apropos_noresults = Midagi ei leitud apropos_results = Otsitav leiti nendest kirjetest: %s ! status_line1 = |%s| - id = %d, küsitud %d korda status_line2 = Viimati muutis %s (%s) @ %s learn_error1 = Ei saa aru. Süntaks on !learn võtmesõna = definitsioon Index: rss.tux =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/config/rss.tux,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** rss.tux 21 Dec 2003 21:04:26 -0000 1.1 --- rss.tux 30 Mar 2004 20:37:07 -0000 1.2 *************** *** 6,7 **** --- 6,12 ---- http://www.freshmeat.net/backend/fm-releases.rdf,30 http://www.minut.ee/minutee.rdf,30 + http://www.am.ee/?format=rss,30 + http://www.kde.org/dotkdeorg.rdf,30 + http://www.gnomedesktop.com/backend.php,30 + http://www.theregister.co.uk/feeds/latest.rdf,30 + http://wiki.linux.ee/index.php/RecentChanges?format=rss,30 Index: messages.tux.en =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/config/messages.tux.en,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** messages.tux.en 17 Jul 2002 09:26:46 -0000 1.7 --- messages.tux.en 30 Mar 2004 20:37:07 -0000 1.8 *************** *** 8,12 **** apropos_noresults = Didn't find anything apropos_results = Found it in these records: %s ! status_line1 = |%s| - has been asked %d times status_line2 = Last changed by %s (%s) @ %s learn_error1 = I dont understand. The correct syntax would be !learn keyword = definition --- 8,12 ---- apropos_noresults = Didn't find anything apropos_results = Found it in these records: %s ! status_line1 = |%s| - id = %d, has been asked %d times status_line2 = Last changed by %s (%s) @ %s learn_error1 = I dont understand. The correct syntax would be !learn keyword = definition |
|
From: Anti V. <du...@us...> - 2004-03-30 20:48:48
|
Update of /cvsroot/tuxaator/tuxaator/Plugins/Vera In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22387/Plugins/Vera Modified Files: Plugin.pm Log Message: + assorted fixes Index: Plugin.pm =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/Plugins/Vera/Plugin.pm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Plugin.pm 5 Aug 2003 19:08:26 -0000 1.3 --- Plugin.pm 30 Mar 2004 20:37:07 -0000 1.4 *************** *** 5,9 **** # Ask VERA! - # $Header$ --- 5,8 ---- |
|
From: Anti V. <du...@us...> - 2004-03-30 20:48:47
|
Update of /cvsroot/tuxaator/tuxaator/Plugins/Talk In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22387/Plugins/Talk Modified Files: Plugin.pm Log Message: + assorted fixes Index: Plugin.pm =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/Plugins/Talk/Plugin.pm,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** Plugin.pm 21 Dec 2003 18:37:31 -0000 1.7 --- Plugin.pm 30 Mar 2004 20:37:06 -0000 1.8 *************** *** 2,6 **** # Talk plugin, allows trusted users to talk "through" the bots "mouth" package Talk; ! use DBI; sub new { --- 2,7 ---- # Talk plugin, allows trusted users to talk "through" the bots "mouth" package Talk; ! #use base qw(Tuxaator::Plugin); ! use Data::Dumper; sub new { *************** *** 11,14 **** --- 12,27 ---- }; + #my %config = $class->Tuxaator::Plugin::configure_plugin($class); + + + #my %config = configure_plugin($class); + + # see peaks tegelikult dependentsidega toimuma + #my %config = plugincore->configure_plugin($class); + + print "!!!"; + print $config{'kala'}; + print "!!!\n"; + bless $self, $class; } *************** *** 38,48 **** }; ! sub get_scheduled_handlers { ! my $class = shift; ! return ! { ! "60" => \&do_whoa, ! }; ! } # Says something to the channel --- 51,61 ---- }; ! #sub get_scheduled_handlers { ! # my $class = shift; ! # return ! # { ! # "60" => \&do_whoa, ! # }; ! #} # Says something to the channel *************** *** 133,135 **** --- 146,153 ---- } + # now . I need to put the configuration for this module into this directory + # and let only this module access it. So how do I do it? + + # do I need to include some kind of code at the start of this file? + 1; |
|
From: Anti V. <du...@us...> - 2004-03-30 20:48:47
|
Update of /cvsroot/tuxaator/tuxaator/Plugins/Kernel In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22387/Plugins/Kernel Modified Files: Plugin.pm Log Message: + assorted fixes Index: Plugin.pm =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/Plugins/Kernel/Plugin.pm,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** Plugin.pm 10 Mar 2002 22:45:31 -0000 1.12 --- Plugin.pm 30 Mar 2004 20:37:06 -0000 1.13 *************** *** 41,44 **** --- 41,45 ---- foreach (@klines) { s/^\s*//; + $self->{'core'}->{'connection'}->notice($event->nick,$_); $msg .= $_ . "\n"; }; *************** *** 50,54 **** shift @{$event->to}; unshift @{$event->to},$event->nick; ! $self->{'core'}->queue($event,$msg); } --- 51,55 ---- shift @{$event->to}; unshift @{$event->to},$event->nick; ! #$self->{'core'}->queue($event,$msg); } |
|
From: Anti V. <du...@us...> - 2004-03-30 20:48:47
|
Update of /cvsroot/tuxaator/tuxaator/Plugins/Dict In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22387/Plugins/Dict Modified Files: Plugin.pm Log Message: + assorted fixes Index: Plugin.pm =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/Plugins/Dict/Plugin.pm,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** Plugin.pm 15 Mar 2004 08:43:59 -0000 1.13 --- Plugin.pm 30 Mar 2004 20:37:06 -0000 1.14 *************** *** 56,59 **** --- 56,62 ---- "restricted" => 1, "level" => 2, + #"status" => "o" + #"status" => "v" + #"regnick" => 1 }, |
|
From: Anti V. <du...@us...> - 2004-03-30 20:46:36
|
Update of /cvsroot/tuxaator/tuxaator/scripts In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21978 Modified Files: tuxkeeper Log Message: fix Index: tuxkeeper =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/scripts/tuxkeeper,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** tuxkeeper 19 Dec 2003 21:59:23 -0000 1.1 --- tuxkeeper 30 Mar 2004 20:34:56 -0000 1.2 *************** *** 1,3 **** #!/bin/bash ! # replace the paths and run this from cron to keep the bot runnin ! kill -SIGHUP `cat /home/duke/tuxcvs/tuxaator/tuxaator.pid` || cd /home/duke/tuxcvs/tuxaator && /home/duke/tuxcvs/tuxaator/tuxaator & --- 1,2 ---- #!/bin/bash ! kill -SIGHUP `cat /home/duke/tuxcvs/tuxaator/tuxaator.pid` || cd /home/duke/tuxcvs/tuxaator && nohup /home/duke/tuxcvs/tuxaator/tuxaator |
|
From: <du...@us...> - 2004-03-15 08:53:06
|
Update of /cvsroot/tuxaator/tuxaator/Plugins/Dict In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15337 Modified Files: Plugin.pm Log Message: hmm Index: Plugin.pm =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/Plugins/Dict/Plugin.pm,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** Plugin.pm 6 Jan 2004 22:05:44 -0000 1.12 --- Plugin.pm 15 Mar 2004 08:43:59 -0000 1.13 *************** *** 103,106 **** --- 103,111 ---- "level" => 2, }, + + "!random" => + { + "action" => "do_random", + }, ); *************** *** 612,615 **** --- 617,630 ---- }; + sub do_random + { + my ($self,@args) = @_; + my $event = pop @args; + my $sth = $self->{'core'}->{'dbh'}->prepare("SELECT term,story FROM terms ORDER BY RAND() LIMIT 1"); + $sth->execute(); + my $ref = $sth->fetchrow_hashref(); + $self->{'core'}->queue($event, sprintf("%s - %s",$ref->{'term'},$ref->{'story'})); + } + # retrieves a definition from the database sub _get_definition |
|
From: <du...@us...> - 2004-03-02 21:31:56
|
Update of /cvsroot/tuxaator/tuxaator/Plugins/RSS In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3242 Modified Files: Plugin.pm Log Message: + put $rss->parse() inside an eval block, so that it does not crash the bot, if parsing fails for some reason Index: Plugin.pm =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/Plugins/RSS/Plugin.pm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Plugin.pm 21 Dec 2003 21:30:53 -0000 1.2 --- Plugin.pm 2 Mar 2004 21:19:49 -0000 1.3 *************** *** 69,73 **** }; ! $rss->parse($cache_contents); my @to_show; --- 69,76 ---- }; ! unless (eval "\$rss->parse(\$cache_contents)") ! { ! return 0; ! }; my @to_show; *************** *** 99,102 **** --- 102,106 ---- }; }; + close F; # check every half an hour $self->{'Core'}->{'connection'}->schedule(30*60,\&do_headlines); |
