Code: Select all
# ===========================================
# = Console command that runs a batch file =
# ===========================================
package runbat;
use strict;
use plugins;
Plugins::register("runbat","Runs a batch file",\&Unload,\&Reload);
my $commands = Commands::register(['runbat','run a batch file',\&cmdRunbat]);
sub Reload {
}
sub Unload {
}
sub cmdRunbat {
system('start teste.bat');
}
1;