GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-26 22:09:26 +01:00
Code Issues Projects Releases Wiki Activity

Teasing out interactive editing -- will need to refactor heavily!

Browse Source
This commit is contained in:
Pragmatic Software 2010-05-14 21:49:34 +00:00
parent 818e1e8695
commit 8529d79f49
1 changed files with 69 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
modules/ideone.pl
View File

@ -96,6 +96,75 @@ if($#ARGV <= 0) {
my $nick = shift @ARGV; my $nick = shift @ARGV;
my $code = join ' ', @ARGV; my $code = join ' ', @ARGV;
my @last_code;
if(open FILE, "< ideone_last_code.txt") {
while(my $line = <FILE>) {
chomp $line;
push @last_code, $line;
}
close FILE;
}
if($code =~ m/^\s*show\s*$/i) {
if(defined $last_code[0]) {
print "$nick: $last_code[0]\n";
} else {
print "$nick: No recent code to show.\n"
}
exit 0;
}
if($code =~ m/^\s*s\/(.*)\/(.*)\s*$/) {
my ($inner_regex, $suffix) = ($1, $2);
if(length $suffix and $suffix =~ m/[^gi]/) {
print "$nick: Bad regex modifier '$suffix'. Only 'i' and 'g' are allowed.\n";
exit 0;
}
if($inner_regex =~ m/(.*)\/(.*)/) {
my ($regex, $to) = ($1, $2);
if(defined $last_code[0]) {
$code = $last_code[0];
} else {
print "$nick: No recent code to change.\n";
exit 0;
}
my $ret = eval {
return $code =~ s|$regex|$to| if(not length $suffix);
return $code =~ s|$regex|$to|i if($suffix =~ /^i$/);
return $code =~ s|$regex|$to|g if($suffix =~ /^g$/);
return $code =~ s|$regex|$to|gi if($suffix =~ /^ig$/ or $suffix =~ /^gi$/);
};
if($@) {
print "$nick: $@\n";
exit 0;
}
if(not $ret) {
print "$nick: No changes made.\n";
exit 0;
}
} else {
print "$nick: Unbalanced slashes. Usage: !cc s/regex/substitution/[gi]\n";
exit 0;
}
}
open FILE, "> ideone_last_code.txt";
unshift @last_code, $code;
my $i = 0;
foreach my $line (@last_code) {
last if(++$i > 10);
print FILE "$line\n";
}
close FILE;
open FILE, ">> ideone_log.txt"; open FILE, ">> ideone_log.txt";
print FILE "$nick: $code\n"; print FILE "$nick: $code\n";