64 lines
1.5 KiB
Perl
64 lines
1.5 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;
|
|
|
|
my $sum = $cart->sum;
|
|
my $what = $sum > 0 ? "add %.2f" : "pay %.2f";
|
|
say sprintf "Enter username to $what; type 'abort' to abort.", abs $sum;
|
|
}
|
|
|
|
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;' : '';
|
|
printf "New balance for %s: %+.2f %s %.2f = \e[${rood}1m%+.2f\e[0m %s\n",
|
|
$username, $old, $sign, abs($delta), $new,
|
|
($new < -13.37 ? "\e[5;1m(!!)\e[0m" : "");
|
|
}
|
|
|
|
sub hook_user_created {
|
|
my ($class, $username) = @_;
|
|
say "New account '$username' created.";
|
|
}
|
|
|
|
1;
|