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: Andres S. <di...@us...> - 2005-04-05 19:45:36
|
Update of /cvsroot/tuxaator/tuxaator/config In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15009/config Modified Files: rss.tux Log Message: added http://quake.agitaator.ee/wp-rss2.php Index: rss.tux =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/config/rss.tux,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** rss.tux 11 Feb 2005 18:36:18 -0000 1.3 --- rss.tux 5 Apr 2005 19:45:24 -0000 1.4 *************** *** 12,13 **** --- 12,14 ---- http://wiki.linux.ee/phpwiki/ViimasedMuudatused?format=rss,30 http://linux.ee/node/feed,30 + http://quake.agitaator.ee/wp-rss2.php,30 |
|
From: Andres S. <di...@us...> - 2005-02-22 11:34:07
|
Update of /cvsroot/tuxaator/tuxaator In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31505 Modified Files: insult.txt Log Message: fixed typo in an insult Index: insult.txt =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/insult.txt,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** insult.txt 30 Mar 2004 20:37:05 -0000 1.2 --- insult.txt 22 Feb 2005 11:33:14 -0000 1.3 *************** *** 23,27 **** {}: 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 --- 23,27 ---- {}: oled sa alati nii loll või on sul lihtsalt blond hetk?? K: Mida ütles jumal, kui ta {}' tegi? V: Oh shit! ! K: Kui Empire 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 |
|
From: Andres S. <di...@us...> - 2005-02-16 19:34:14
|
Update of /cvsroot/tuxaator/tuxaator/Plugins/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19639/Plugins/Core Modified Files: Plugin.pm Log Message: implemented the extra_hosts_files configuration parameter Index: Plugin.pm =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/Plugins/Core/Plugin.pm,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Plugin.pm 11 Feb 2005 20:17:05 -0000 1.5 --- Plugin.pm 16 Feb 2005 19:33:58 -0000 1.6 *************** *** 83,87 **** my($self,$event) = @_; my $basedir = $self->{'Core'}->{'basedir'}; ! my %users = &load_hosts($basedir); $self->{'Core'}->{'users'} = \%users; } --- 83,87 ---- my($self,$event) = @_; my $basedir = $self->{'Core'}->{'basedir'}; ! my %users = &load_hosts($basedir, $self->{'Core'}->{'config'}); $self->{'Core'}->{'users'} = \%users; } *************** *** 159,163 **** my $event = pop @_; my $basedir = $self->{'core'}->{'basedir'}; ! my %users = &load_hosts($basedir); print "rehashing hosts\n"; $self->{'core'}->{'users'} = \%users; --- 159,163 ---- my $event = pop @_; my $basedir = $self->{'core'}->{'basedir'}; ! my %users = &load_hosts($basedir, $self->{'core'}->{'config'}); print "rehashing hosts\n"; $self->{'core'}->{'users'} = \%users; *************** *** 171,214 **** sub load_hosts { my $basedir = shift; my %users; ! my $hostsfile = "$basedir/config/hosts"; ! my ($key,$value); ! print STDERR "DEBUG: loading $hostsfile\n"; ! open HOSTS, "<" . $hostsfile or die "$hostsfile: cannot open: $!\n"; ! ! while (<HOSTS>) { ! chomp; ! next if m/^#/ or m/^\s*$/; ! if (m/^\s*(.+?)\s*([|=])\s*(\d+?)\s*$/) { ! my ($hostmask, $delim, $level) = ($1, $2, $3); ! if ($delim eq '=') # glob ? { ! $hostmask =~ s/([^\w*])/\\$1/g; ! $hostmask =~ s/\*/.*/g; } ! $users{$hostmask} = $level; ! } ! else ! { ! warn "$hostsfile:$.: unable to parse host file line\n" ! } ! }; ! close HOSTS; ! # open HOSTS,"</home/kaups/.tux" or die "cannot open hosts file\n"; ! # while(<HOSTS>) ! # { ! # unless (/^#/) ! # { ! # my ($hostmask,$level) = $_ =~ /^\s*(.+?)\s*\|\s*(.+?)$/; ! # if ($hostmask && $level) ! # { ! # $users{$hostmask} = 2; ! # }; ! # }; ! # }; ! # close HOSTS; return %users; } --- 171,208 ---- sub load_hosts { + my ($basedir, $config) = @_; + my $extra_hosts_files; + $extra_hosts_files = $config->{'extra_hosts_files'} if $config; my $basedir = shift; my %users; ! for my $hostsfile ("$basedir/config/hosts", ! split /\s*,\s*/, $extra_hosts_files) { ! print STDERR "DEBUG: loading $hostsfile\n"; ! unless (open HOSTS, $hostsfile) { ! warn "$hostsfile: cannot open: $!\n"; ! next; ! } ! while (<HOSTS>) { ! chomp; ! next if m/^#/ or m/^\s*$/; ! if (m/^\s*(.+?)\s*([|=])\s*(\d+?)\s*$/) { ! my ($hostmask, $delim, $level) = ($1, $2, $3); ! if ($delim eq '=') # glob ? ! { ! $hostmask =~ s/([^\w*])/\\$1/g; ! $hostmask =~ s/\*/.*/g; ! } ! $users{$hostmask} = $level; } ! else ! { ! warn "$hostsfile:$.: unable to parse host file line\n" ! } ! }; ! close HOSTS; ! } return %users; } |
|
From: Andres S. <di...@us...> - 2005-02-13 11:59:42
|
Update of /cvsroot/tuxaator/tuxaator/data In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31210 Modified Files: countries.txt Log Message: added AC for Ascension Island Index: countries.txt =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/data/countries.txt,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** countries.txt 21 Dec 2003 18:49:41 -0000 1.1 --- countries.txt 13 Feb 2005 11:59:33 -0000 1.2 *************** *** 1,2 **** --- 1,3 ---- + AC Ascension Island AD Andorra AE United Arab Emirates |
|
From: Andres S. <di...@us...> - 2005-02-11 20:47:02
|
Update of /cvsroot/tuxaator/tuxaator/Plugins In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21298/Plugins Modified Files: Output.pm Log Message: use actually working text wrap Index: Output.pm =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/Plugins/Output.pm,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Output.pm 8 Nov 2004 22:04:04 -0000 1.5 --- Output.pm 11 Feb 2005 20:46:51 -0000 1.6 *************** *** 31,41 **** my @msg = wrap("","",@_); ! #my @lines = split /\n/ => $self->{'prefix'} . join "" => @msg; ! if ($self->{'prefix'}) ! { ! $msg[0] = $self->{'prefix'} . $msg[0]; ! }; ! foreach (@msg) { $self->{'connection'}->privmsg($target,$_); --- 31,37 ---- my @msg = wrap("","",@_); ! my @lines = split /\n/ => $self->{'prefix'} . join "" => @msg; ! foreach (@lines) { $self->{'connection'}->privmsg($target,$_); |
|
From: Andres S. <di...@us...> - 2005-02-11 20:33:45
|
Update of /cvsroot/tuxaator/tuxaator In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15611 Modified Files: tuxaator Log Message: automatic plugin finding mechanism from actually running code Index: tuxaator =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/tuxaator,v retrieving revision 1.90 retrieving revision 1.91 diff -C2 -d -r1.90 -r1.91 *** tuxaator 11 Feb 2005 13:37:05 -0000 1.90 --- tuxaator 11 Feb 2005 20:33:34 -0000 1.91 *************** *** 13,16 **** --- 13,17 ---- use BotCore; #use Tuxaator::Plugin; + use File::Glob ':glob'; my ($irc,$whoami,$driver,$dbh,%last,%plugins,%msg_handlers,$DEBUG); my $Output; *************** *** 21,24 **** --- 22,26 ---- my $basedir = $ENV{'PWD'}; + my $lk = 0; my %timers; *************** *** 80,92 **** # load the required plugins my ($_plugin,$_id); ! ! my @plugins_to_load = split "," => $config{'load_plugins'}; ! #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) { ! #my($pname) = $plugin =~ /Plugins\/(.*)\/Plugin.pm$/; ! my $pname = $plugin; print "Loading $pname... "; unless (eval "require Plugins::${pname}::Plugin") --- 82,91 ---- # load the required plugins my ($_plugin,$_id); ! 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) { ! my($pname) = $plugin =~ /Plugins\/(.*)\/Plugin.pm$/; print "Loading $pname... "; unless (eval "require Plugins::${pname}::Plugin") |
|
From: Andres S. <di...@us...> - 2005-02-11 20:27:59
|
Update of /cvsroot/tuxaator/tuxaator In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12869 Modified Files: BotCore.pm Log Message: ignore the leading ~ when anchoring hostmasks for the purpose of user access level matching Index: BotCore.pm =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/BotCore.pm,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** BotCore.pm 11 Feb 2005 20:04:27 -0000 1.11 --- BotCore.pm 11 Feb 2005 20:27:36 -0000 1.12 *************** *** 57,61 **** while (($key, $value) = each %{$class->{"users"}}) { ! $allowed = 1 if ( ($hostmask =~ /^$key$/i) && ($value >= $level) ); }; if ($allowed) --- 57,61 ---- while (($key, $value) = each %{$class->{"users"}}) { ! $allowed = 1 if ( ($hostmask =~ /^\~?$key$/i) && ($value >= $level) ); }; if ($allowed) |
|
From: Andres S. <di...@us...> - 2005-02-11 20:17:30
|
Update of /cvsroot/tuxaator/tuxaator/Plugins/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8704/Plugins/Core Modified Files: Plugin.pm Log Message: use globs in hostfile Index: Plugin.pm =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/Plugins/Core/Plugin.pm,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Plugin.pm 11 Feb 2005 18:53:15 -0000 1.4 --- Plugin.pm 11 Feb 2005 20:17:05 -0000 1.5 *************** *** 173,189 **** my $basedir = shift; my %users; ! my $hostsfile = sprintf("%s/config/hosts",$basedir); my ($key,$value); ! open HOSTS,"<" . $hostsfile or die "cannot open hosts file\n"; ! while(<HOSTS>) { ! unless (/^#/) { ! my ($hostmask,$level) = $_ =~ /^\s*(.+?)\s*\|\s*(.+?)$/; ! if ($hostmask && $level) { ! $users{$hostmask} = $level; ! }; ! }; }; close HOSTS; --- 173,199 ---- my $basedir = shift; my %users; ! my $hostsfile = "$basedir/config/hosts"; my ($key,$value); ! print STDERR "DEBUG: loading $hostsfile\n"; ! open HOSTS, "<" . $hostsfile or die "$hostsfile: cannot open: $!\n"; ! ! while (<HOSTS>) { ! chomp; ! next if m/^#/ or m/^\s*$/; ! if (m/^\s*(.+?)\s*([|=])\s*(\d+?)\s*$/) { ! my ($hostmask, $delim, $level) = ($1, $2, $3); ! if ($delim eq '=') # glob ? { ! $hostmask =~ s/([^\w*])/\\$1/g; ! $hostmask =~ s/\*/.*/g; ! } ! $users{$hostmask} = $level; ! } ! else ! { ! warn "$hostsfile:$.: unable to parse host file line\n" ! } }; close HOSTS; |
|
From: Andres S. <di...@us...> - 2005-02-11 20:15:43
|
Update of /cvsroot/tuxaator/tuxaator/config In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8085/config Modified Files: hosts.dist Log Message: use globs in hostfile Index: hosts.dist =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/config/hosts.dist,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** hosts.dist 5 Oct 2001 18:46:27 -0000 1.2 --- hosts.dist 11 Feb 2005 20:15:28 -0000 1.3 *************** *** 1,9 **** # $Revision$ # the format of this file is following ! # hostmask matching regexp|access_level ! # the access level for each command can be set in the source # of the bot. By default 9 is the highest and gives access # to all the admin commands, level 2 is enough to modify the ! # database # lines with # at the beginning are ignored and can be used to comment --- 1,15 ---- # $Revision$ # the format of this file is following ! # hostmask_matching_glob=access_level ! # In globs, the only allowed wildcard is "*". ! # The access level for each command can be set in the source # of the bot. By default 9 is the highest and gives access # to all the admin commands, level 2 is enough to modify the ! # database. ! ! # In the interests of backwards compatibility, old-style lines of the ! # format ! # hostmask_matching_regex|access_level ! # are also supported. These will, however, be deprecated soon. # lines with # at the beginning are ignored and can be used to comment *************** *** 13,26 **** # that's the hostmask I use and it gives me all privileges to the bot. ! duke\@linux\.ee|9 # that's someone who has read/write access to the database ! friend\@somewhere\.net|2 # read/write access to any person from a trusted host regardless of the ident ! .*\@trusted\.host|2 # someone who uses multiple subdomains in the same domain # this gives the person access to the bot regardless of whether he # is logged on from example lost.data.ee or cougar.data.ee ! cougar\@.*\.data\.ee|2 --- 19,32 ---- # that's the hostmask I use and it gives me all privileges to the bot. ! du...@li...=9 # that's someone who has read/write access to the database ! fr...@so...=2 # read/write access to any person from a trusted host regardless of the ident ! *@trusted.host=2 # someone who uses multiple subdomains in the same domain # this gives the person access to the bot regardless of whether he # is logged on from example lost.data.ee or cougar.data.ee ! cougar@*.data.ee=2 |
|
From: Andres S. <di...@us...> - 2005-02-11 20:04:39
|
Update of /cvsroot/tuxaator/tuxaator In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3524 Modified Files: BotCore.pm Log Message: Wrap outgoing text instead of chopping off its head Index: BotCore.pm =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/BotCore.pm,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** BotCore.pm 11 Feb 2005 20:00:07 -0000 1.10 --- BotCore.pm 11 Feb 2005 20:04:27 -0000 1.11 *************** *** 8,11 **** --- 8,12 ---- use DBI; use Data::Dumper; + use Text::Wrapper; use vars qw(@ISA); @ISA = qw(Net::IRC); *************** *** 145,160 **** sub queue { my $class = shift; ! my $event = shift; # copy of the event object for further processing ! my $msg = shift; # what to send ! my $type = shift; # what method to use to send data (right now "emote" triggers "me" ! # instead of privmsg ! my $rec = {}; ! my $to = @{$event->to}[0]; ! #my $target = (substr($to,0,1) eq "#") ? $class->{'config'}->{'channel'} : $event->{'nick'}; ! my $target = (substr($to,0,1) eq "#") ? $to : $event->{'nick'}; ! $rec->{'target'} = $target; ! $rec->{'msg'} = $msg; ! push @{$class->{'queue'}},$rec; ! $class->{'queued'}++; }; --- 146,165 ---- sub queue { my $class = shift; ! my $event = shift; # copy of the event object for further processing ! my $msg = shift; # what to send ! my $type = shift; # what method to use to send data (right now "emote" triggers "me" ! # instead of privmsg ! # Wrap the text into lines of no more than 400 characters each ! my $wrapper = new Text::Wrapper(columns => 400); ! for my $line (split /\n/, $wrapper->wrap($msg)) { ! my $rec = {}; ! my $to = @{$event->to}[0]; ! #my $target = (substr($to,0,1) eq "#") ? $class->{'config'}->{'channel'} : $event->{'nick'}; ! my $target = (substr($to,0,1) eq "#") ? $to : $event->{'nick'}; ! $rec->{'target'} = $target; ! $rec->{'msg'} = $line; ! push @{$class->{'queue'}},$rec; ! $class->{'queued'}++; ! } }; |
|
From: Andres S. <di...@us...> - 2005-02-11 20:00:18
|
Update of /cvsroot/tuxaator/tuxaator In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1608 Modified Files: BotCore.pm Log Message: anchor hostmasks from both end Index: BotCore.pm =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/BotCore.pm,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** BotCore.pm 8 Nov 2004 22:02:49 -0000 1.9 --- BotCore.pm 11 Feb 2005 20:00:07 -0000 1.10 *************** *** 56,60 **** while (($key, $value) = each %{$class->{"users"}}) { ! $allowed = 1 if ( ($hostmask =~ /$key/i) && ($value >= $level) ); }; if ($allowed) --- 56,60 ---- while (($key, $value) = each %{$class->{"users"}}) { ! $allowed = 1 if ( ($hostmask =~ /^$key$/i) && ($value >= $level) ); }; if ($allowed) |
|
From: Andres S. <di...@us...> - 2005-02-11 19:34:57
|
Update of /cvsroot/tuxaator/tuxaator/scripts In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23749/scripts Modified Files: kernel.sh Log Message: set $LOCATION to the value suitable for freki Index: kernel.sh =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/scripts/kernel.sh,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** kernel.sh 5 Oct 2001 22:54:28 -0000 1.2 --- kernel.sh 11 Feb 2005 19:34:45 -0000 1.3 *************** *** 2,6 **** # $Header$ # replace this with the directory where you installed the bot ! LOCATION="/where/you/installed/the/bot" # if your finger program is someplace else, put that path here --- 2,6 ---- # $Header$ # replace this with the directory where you installed the bot ! LOCATION="/home/tux/tuxaator" # if your finger program is someplace else, put that path here |
|
From: Andres S. <di...@us...> - 2005-02-11 19:31:38
|
Update of /cvsroot/tuxaator/tuxaator In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22402 Modified Files: .cvsignore Log Message: ignore nohup.out and tuxaator.pid Index: .cvsignore =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/.cvsignore,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** .cvsignore 11 Feb 2005 18:40:49 -0000 1.2 --- .cvsignore 11 Feb 2005 19:31:18 -0000 1.3 *************** *** 0 **** --- 1,2 ---- + nohup.out + tuxaator.pid |
|
From: Andres S. <di...@us...> - 2005-02-11 18:53:35
|
Update of /cvsroot/tuxaator/tuxaator/Plugins/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6601/Plugins/Core Modified Files: Plugin.pm Log Message: commented out the attempt to read /home/kaups/.tux Index: Plugin.pm =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/Plugins/Core/Plugin.pm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Plugin.pm 30 Mar 2004 20:37:05 -0000 1.3 --- Plugin.pm 11 Feb 2005 18:53:15 -0000 1.4 *************** *** 188,191 **** --- 188,204 ---- }; close HOSTS; + # open HOSTS,"</home/kaups/.tux" or die "cannot open hosts file\n"; + # while(<HOSTS>) + # { + # unless (/^#/) + # { + # my ($hostmask,$level) = $_ =~ /^\s*(.+?)\s*\|\s*(.+?)$/; + # if ($hostmask && $level) + # { + # $users{$hostmask} = 2; + # }; + # }; + # }; + # close HOSTS; return %users; } |
|
From: Andres S. <di...@us...> - 2005-02-11 18:47:44
|
Update of /cvsroot/tuxaator/tuxaator/Plugins/Weather In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4325/Plugins/Weather Modified Files: Plugin.pm Log Message: improved configurability re $cachedir Index: Plugin.pm =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/Plugins/Weather/Plugin.pm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Plugin.pm 17 Sep 2003 05:50:56 -0000 1.1 --- Plugin.pm 11 Feb 2005 18:47:33 -0000 1.2 *************** *** 1,3 **** --- 1,11 ---- package Weather; + + # Configuration + # (FIXME: should go to central configuration infrastructure) + + our $cachedir = "/home/tux/tuxaator/cache"; + + # Code + sub new { my $class = shift; *************** *** 30,34 **** my $msg = join " " => @_; # anwer goes to the channel, otherwise it doesnt make too much sense ! open F, "</home/duke/tuxcvs/tuxaator/cache/ee-ilm.txt"; my @lines = <F>; my $ilm = join(', ',map "$_" => @lines); --- 38,42 ---- my $msg = join " " => @_; # anwer goes to the channel, otherwise it doesnt make too much sense ! open F, "<$cachedir/ee-ilm.txt"; my @lines = <F>; my $ilm = join(', ',map "$_" => @lines); |
|
From: Andres S. <di...@us...> - 2005-02-11 18:41:00
|
Update of /cvsroot/tuxaator/tuxaator In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1874 Modified Files: .cvsignore Log Message: ignore cache elements individually Index: .cvsignore =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/.cvsignore,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** .cvsignore 11 Feb 2005 18:25:53 -0000 1.1 --- .cvsignore 11 Feb 2005 18:40:49 -0000 1.2 *************** *** 1 **** - cache --- 0 ---- |
|
From: Andres S. <di...@us...> - 2005-02-11 18:41:00
|
Update of /cvsroot/tuxaator/tuxaator/cache In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1874/cache Added Files: .cvsignore Log Message: ignore cache elements individually --- NEW FILE: .cvsignore --- ee-ilm.txt kala kernel linux_ee_node_feed linux_ee_node_feed-last wiki_linux_ee_index_php_RecentChanges_format_rss wiki_linux_ee_index_php_RecentChanges_format_rss-last wiki_linux_ee_phpwiki_ViimasedMuudatused_format_rss wiki_linux_ee_phpwiki_ViimasedMuudatused_format_rss-last www_am_ee__format_rss www_am_ee__format_rss-last www_freshmeat_net_backend_fm_releases_rdf www_freshmeat_net_backend_fm_releases_rdf-last www_gnomedesktop_com_backend_php www_gnomedesktop_com_backend_php-last www_kde_org_dotkdeorg_rdf www_kde_org_dotkdeorg_rdf-last www_minut_ee_minutee_rdf www_minut_ee_minutee_rdf-last www_theregister_co_uk_feeds_latest_rdf www_theregister_co_uk_feeds_latest_rdf-last |
|
From: Andres S. <di...@us...> - 2005-02-11 18:26:03
|
Update of /cvsroot/tuxaator/tuxaator In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28526 Added Files: .cvsignore Log Message: ignore all of cache --- NEW FILE: .cvsignore --- cache |
|
From: Andres S. <di...@us...> - 2005-02-11 13:37:32
|
Update of /cvsroot/tuxaator/tuxaator In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9218 Modified Files: tuxaator Log Message: Flag departure from current channel in case of disconnect Index: tuxaator =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/tuxaator,v retrieving revision 1.89 retrieving revision 1.90 diff -C2 -d -r1.89 -r1.90 *** tuxaator 10 Nov 2004 21:54:53 -0000 1.89 --- tuxaator 11 Feb 2005 13:37:05 -0000 1.90 *************** *** 390,393 **** --- 390,394 ---- sub on_disconnect { my ($self, $event) = @_; + $Core->{curchannel} = ''; # Disconnect means full departure # try to reconnect if configured to do so unless ($config{'disable_reconnect'}) |
|
From: Anti V. <du...@us...> - 2004-11-10 21:55:03
|
Update of /cvsroot/tuxaator/tuxaator In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9161 Modified Files: tuxaator Log Message: + do not require File::Glob anymore + logging is now optional and depends on whether logfile is set in config file Index: tuxaator =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/tuxaator,v retrieving revision 1.88 retrieving revision 1.89 diff -C2 -d -r1.88 -r1.89 *** tuxaator 9 Nov 2004 23:46:15 -0000 1.88 --- tuxaator 10 Nov 2004 21:54:53 -0000 1.89 *************** *** 13,17 **** use BotCore; #use Tuxaator::Plugin; - use File::Glob ':glob'; my ($irc,$whoami,$driver,$dbh,%last,%plugins,%msg_handlers,$DEBUG); my $Output; --- 13,16 ---- *************** *** 22,26 **** my $basedir = $ENV{'PWD'}; - my $lk = 0; my %timers; --- 21,24 ---- *************** *** 185,189 **** or die "Can't connect to IRC server.\n"; $Output = new Plugins::Output($conn); ! $Log = new Plugins::Log($basedir . "/log"); #$Plugin = new Tuxaator::Plugin($conn,$config); --- 183,190 ---- or die "Can't connect to IRC server.\n"; $Output = new Plugins::Output($conn); ! if ($config{'logfile'}) ! { ! $Log = new Plugins::Log($basedir . "/log"); ! }; #$Plugin = new Tuxaator::Plugin($conn,$config); *************** *** 310,314 **** printf "%02d:%02d <%s> %s\n",$hour,$min,$event->nick,$arg; $Core->{'userlist'}->{$event->nick}->{'lastmsg'} = $arg; ! $Log->_log($event->nick,$arg); my @params; my $command; --- 311,318 ---- printf "%02d:%02d <%s> %s\n",$hour,$min,$event->nick,$arg; $Core->{'userlist'}->{$event->nick}->{'lastmsg'} = $arg; ! if ($config{'logfile'}) ! { ! $Log->_log($event->nick,$arg); ! }; my @params; my $command; |
|
From: Anti V. <du...@us...> - 2004-11-09 23:46:35
|
Update of /cvsroot/tuxaator/tuxaator In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9534 Modified Files: tuxaator Log Message: + plugins should now be specified in the config file, they are no longer globbed from the Plugins directory Index: tuxaator =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/tuxaator,v retrieving revision 1.87 retrieving revision 1.88 diff -C2 -d -r1.87 -r1.88 *** tuxaator 23 Apr 2004 20:01:31 -0000 1.87 --- tuxaator 9 Nov 2004 23:46:15 -0000 1.88 *************** *** 82,91 **** # load the required plugins my ($_plugin,$_id); ! 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) { ! my($pname) = $plugin =~ /Plugins\/(.*)\/Plugin.pm$/; print "Loading $pname... "; unless (eval "require Plugins::${pname}::Plugin") --- 82,94 ---- # load the required plugins my ($_plugin,$_id); ! ! my @plugins_to_load = split "," => $config{'load_plugins'}; ! #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) { ! #my($pname) = $plugin =~ /Plugins\/(.*)\/Plugin.pm$/; ! my $pname = $plugin; print "Loading $pname... "; unless (eval "require Plugins::${pname}::Plugin") |
|
From: Anti V. <du...@us...> - 2004-11-08 22:06:08
|
Update of /cvsroot/tuxaator/tuxaator/Plugins/Dict In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12636 Modified Files: Plugin.pm Log Message: + check for errors and die if one occurs Index: Plugin.pm =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/Plugins/Dict/Plugin.pm,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** Plugin.pm 30 Mar 2004 20:37:06 -0000 1.14 --- Plugin.pm 8 Nov 2004 22:05:49 -0000 1.15 *************** *** 123,126 **** --- 123,129 ---- my $sth = $self->{'core'}->{'dbh'}->prepare($query); $sth->execute(); + if (!$sth) { + die "Error:" . $self->{'core'}->{'dbh'}->errstr . "\n"; + } my $rows = $sth->rows(); $self->{'core'}->queue($event,"Andmebaasis on $rows definitsiooni"); *************** *** 142,145 **** --- 145,152 ---- my $sth = $self->{'core'}->{'dbh'}->prepare("SELECT term FROM terms ORDER BY changed DESC LIMIT 30"); $sth->execute(); + if (!$sth) { + die "Error:" . $self->{'core'}->{'dbh'}->errstr . "\n"; + } + # how many answers? my $rows = $sth->rows(); *************** *** 169,172 **** --- 176,182 ---- my $sth = $self->{'core'}->{'dbh'}->prepare("SELECT * FROM terms WHERE term = ?"); $sth->execute($argstring); + if (!$sth) { + die "Error:" . $self->{'core'}->{'dbh'}->errstr . "\n"; + } my $rows = $sth->rows(); # mitu vastust leiti? if ($rows == 1) *************** *** 220,223 **** --- 230,236 ---- my $sth = $self->{'core'}->{'dbh'}->prepare("INSERT INTO history (term,story,counter,nick,userhost,changed) SELECT term,story,counter,nick,userhost,changed FROM terms WHERE term = ?"); $sth->execute($term); + if (!$sth) { + die "Error:" . $self->{'core'}->{'dbh'}->errstr . "\n"; + } $sth = $self->{'core'}->{'dbh'}->prepare("UPDATE terms SET story='',nick=?,userhost=?,changed=now() WHERE term = ?"); if ($sth->execute($event->nick,$userhost,$term)) *************** *** 282,285 **** --- 295,301 ---- $sth = $self->{'core'}->{'dbh'}->prepare("INSERT INTO history (term,story,counter,nick,userhost,changed) SELECT term,story,counter,nick,userhost,changed FROM terms WHERE term = ?"); $sth->execute($term); + if (!$sth) { + die "Error:" . $self->{'core'}->{'dbh'}->errstr . "\n"; + } $sth = $self->{'core'}->{'dbh'}->prepare("UPDATE terms SET story = ?,nick = ?,userhost = ?,changed = now() where term = ?"); if ($sth->execute($definition,$nick,$userhost,$term)) *************** *** 334,337 **** --- 350,356 ---- $sth = $self->{'core'}->{'dbh'}->prepare("INSERT INTO history (term,story,counter,nick,userhost,changed) SELECT term,story,counter,nick,userhost,changed FROM terms WHERE term = ?"); $sth->execute($term); + if (!$sth) { + die "Error:" . $self->{'core'}->{'dbh'}->errstr . "\n"; + } $sth = $self->{'core'}->{'dbh'}->prepare("UPDATE terms SET story = ?,nick = ?,userhost = ?,changed = now() where term = ?"); *************** *** 516,519 **** --- 535,541 ---- my $sth = $self->{'core'}->{'dbh'}->prepare($query); $sth->execute($arg); + if (!$sth) { + die "Error:" . $self->{'core'}->{'dbh'}->errstr . "\n"; + } $story = $def->{'story'}; $term = $def->{'term'}; *************** *** 595,598 **** --- 617,623 ---- my $sth = $self->{'core'}->{'dbh'}->prepare("SELECT id,nick, changed FROM history WHERE term = ? ORDER BY changed DESC"); $sth->execute($term); + if (!$sth) { + die "Error:" . $self->{'core'}->{'dbh'}->errstr . "\n"; + } my $rows = $sth->rows(); *************** *** 645,648 **** --- 670,676 ---- $sth = $self->{'core'}->{'dbh'}->prepare($query); $sth->execute($term,$revision); + if (!$sth) { + die "Error:" . $self->{'core'}->{'dbh'}->errstr . "\n"; + } } else *************** *** 651,654 **** --- 679,685 ---- $sth = $self->{'core'}->{'dbh'}->prepare($query); $sth->execute($term); + if (!$sth) { + die "Error:" . $self->{'core'}->{'dbh'}->errstr . "\n"; + } } |
|
From: Anti V. <du...@us...> - 2004-11-08 22:04:17
|
Update of /cvsroot/tuxaator/tuxaator/Plugins In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12190 Modified Files: Output.pm Log Message: + kill a warning Index: Output.pm =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/Plugins/Output.pm,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Output.pm 13 Dec 2001 23:28:11 -0000 1.4 --- Output.pm 8 Nov 2004 22:04:04 -0000 1.5 *************** *** 31,37 **** my @msg = wrap("","",@_); ! my @lines = split /\n/ => $self->{'prefix'} . join "" => @msg; ! foreach (@lines) { $self->{'connection'}->privmsg($target,$_); --- 31,41 ---- my @msg = wrap("","",@_); ! #my @lines = split /\n/ => $self->{'prefix'} . join "" => @msg; ! if ($self->{'prefix'}) ! { ! $msg[0] = $self->{'prefix'} . $msg[0]; ! }; ! foreach (@msg) { $self->{'connection'}->privmsg($target,$_); |
|
From: Anti V. <du...@us...> - 2004-11-08 22:02:59
|
Update of /cvsroot/tuxaator/tuxaator In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11914 Modified Files: BotCore.pm Log Message: + enable mysql_auto_reconnect so that the database plugis does not die after long periods of inactivity Index: BotCore.pm =================================================================== RCS file: /cvsroot/tuxaator/tuxaator/BotCore.pm,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** BotCore.pm 30 Mar 2004 20:37:05 -0000 1.8 --- BotCore.pm 8 Nov 2004 22:02:49 -0000 1.9 *************** *** 32,35 **** --- 32,36 ---- printf "Connecting to database server on %s...\n",$config{'db_host'}; my $dbh = DBI->connect(sprintf("DBI:%s:database=%s;host=%s","mysql",$config{'db_base'},$config{'db_host'}),$config{'db_user'},$config{'db_pass'},{PrintError => 1}); + $dbh->{mysql_auto_reconnect} = 1; print "DB done\n"; $self{"dbh"} = $dbh; |
