16 lines
251 B
Perl
Executable file
16 lines
251 B
Perl
Executable file
#!perl
|
|
|
|
sub command { print "@_\n"; NEXT }
|
|
|
|
|
|
sub hook_user_balance {
|
|
my ($class, $username, $old, $delta, $new) = @_;
|
|
|
|
print "c: $class\n";
|
|
print "u: $username\n";
|
|
print "o: $old\n";
|
|
print "d: $delta\n";
|
|
print "n: $new\n";
|
|
}
|
|
|
|
|