mirror of
https://github.com/pragma-/pbot.git
synced 2024-12-23 03:02:47 +01:00
73b793295b
todo! multi-channel support pathetic (note 12/08/09, fixed multi-channel for anti-flood and for ignore)
todo! most of this crap needs to be refactored (note 11/23/09, refactored execute_module)
0.4.1 (12/08/09): improved anti-flood system to be significantly more accurate and per-channel
added per-nick-per-channel message history using %flood_watch
add per-channel support to ignore system
automatically remove message history for nicks that haven't spoken in one day (run once per hour)
do not ignore !login command
0.3.16(11/23/09): refactored module execution to execute_module() subroutine
added trigger to execute get_title.pl module when URL is
detected in regular untriggered chat
0.3.15(11/20/09): replace 'me' with '$nick' in arguments
24 lines
363 B
Perl
Executable File
24 lines
363 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
# Quick and dirty by :pragma
|
|
|
|
|
|
my ($arguments, $response);
|
|
|
|
if ($#ARGV < 0)
|
|
{
|
|
print "Dumbass.\n";
|
|
die;
|
|
}
|
|
|
|
$arguments = join(" ", @ARGV);
|
|
|
|
if($arguments =~ m/[\$a-z]/i)
|
|
{
|
|
print("Illegal characters, please only use numbers and valid operators (+, -, /, *, etc).");
|
|
die();
|
|
}
|
|
|
|
$response = eval($arguments);
|
|
print "$arguments = $response";
|