68 lines
1.6 KiB
Perl
68 lines
1.6 KiB
Perl
package RevBank::Messages;
|
|
use RevBank::Global;
|
|
use base 'RevBank::Plugin';
|
|
|
|
# Don't edit this file just to change the messages. Instead, RTFM and define
|
|
# your own hooks.
|
|
|
|
BEGIN {
|
|
RevBank::Plugins::register("RevBank::Messages");
|
|
}
|
|
|
|
sub command { return NEXT; }
|
|
sub id { 'built in messages' }
|
|
|
|
sub hook_startup {
|
|
say "\e[0m\n\n\nWelcome to the RevBank Shell, version $::VERSION\n";
|
|
}
|
|
|
|
sub hook_plugin_fail {
|
|
my ($class, $plugin, $error) = @_;
|
|
warn "Plugin '$plugin' failed: $error\n";
|
|
}
|
|
|
|
sub hook_cart_changed {
|
|
my ($class, $cart) = @_;
|
|
$cart->size or return;
|
|
say "Pending:";
|
|
$cart->display;
|
|
|
|
if (not $cart->entries('refuse_checkout')) {
|
|
my $sum = $cart->sum;
|
|
my $what = $sum > 0 ? "add" : "pay";
|
|
my $abs = $sum->abs;
|
|
say "Enter username to $what $abs; type 'abort' to abort.";
|
|
}
|
|
}
|
|
|
|
sub hook_abort {
|
|
my ($class, $cart) = @_;
|
|
say "\e[1;4mABORTING TRANSACTION.\e[0m";
|
|
}
|
|
|
|
sub hook_invalid_input {
|
|
my ($class, $cart, $word) = @_;
|
|
say "$word: No such product, user, or command.";
|
|
}
|
|
|
|
sub hook_reject {
|
|
my ($class, $plugin, $reason, $abort) = @_;
|
|
say $abort ? $reason : "$reason Enter 'abort' to abort.";
|
|
}
|
|
|
|
sub hook_user_balance {
|
|
my ($class, $username, $old, $delta, $new) = @_;
|
|
my $sign = $delta >= 0 ? '+' : '-';
|
|
my $rood = $new < 0 ? '31;' : '';
|
|
my $abs = abs($delta);
|
|
my $warn = $new < -13.37 ? " \e[5;1m(!!)\e[0m" : "";
|
|
$_ = $_->string("+") for $old, $new;
|
|
printf "New balance for $username: $old $sign $abs = \e[${rood}1m$new\e[0m$warn\n",
|
|
}
|
|
|
|
sub hook_user_created {
|
|
my ($class, $username) = @_;
|
|
say "New account '$username' created.";
|
|
}
|
|
|
|
1;
|