GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-10-01 17:16:39 +02:00
Code Issues Projects Releases Wiki Activity

Add -info standard option to show cmdline information

Browse Source
This commit is contained in:
Pragmatic Software 2015-01-15 22:00:20 -08:00
parent 45e403b51f
commit 16dce2c484
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
modules/compiler_vm/languages/_default.pm
View File

@ -14,7 +14,7 @@ use LWP::UserAgent;
use Time::HiRes qw/gettimeofday/;
use Text::Balanced qw/extract_delimited/;
my $EXECUTE_PORT = '6333';
my $EXECUTE_PORT = '3333';
sub new {
my ($class, %conf) = @_;
@ -109,7 +109,7 @@ sub show_output {
$output =~ s/\s+$//;
$pretty_code .= "\n/************* OUTPUT *************\n$output\n************** OUTPUT *************/\n";
my $uri = paste_sprunge($pretty_code);
my $uri = $self->paste_sprunge($pretty_code);
print "$self->{nick}: $uri\n";
exit 0;
@ -278,6 +278,19 @@ sub process_standard_options {
my $self = shift;
my $code = $self->{code};
if ($code =~ s/(?:^|(?<=\s))-info\s*//i) {
my $cmdline = $self->{cmdline};
if (length $self->{default_options}) {
$cmdline =~ s/\$options/$self->{default_options}/;
} else {
$cmdline =~ s/\$options\s+//;
}
$cmdline =~ s/\$sourcefile/$self->{sourcefile}/g;
$cmdline =~ s/\$execfile/$self->{execfile}/g;
print "$self->{nick}: $self->{lang} cmdline: $cmdline\n";
exit;
}
if ($code =~ s/-(?:input|stdin)=(.*)$//i) {
$self->add_option("-input", $1);
}