diff --git a/plugins/deposit b/plugins/deposit index 1ac613a..5e08846 100644 --- a/plugins/deposit +++ b/plugins/deposit @@ -1,3 +1,5 @@ +#!perl + # This plugin must at the end in the plugins file. HELP "deposit []" => "[Create and] deposit into an account"; diff --git a/plugins/give b/plugins/give index fd162ed..784c82a 100644 --- a/plugins/give +++ b/plugins/give @@ -1,3 +1,5 @@ +#!perl + HELP "give [ []]" => "Transfer money to user's account"; sub command :Tab(give) { diff --git a/plugins/help b/plugins/help index 4ddc48c..ed95ffe 100644 --- a/plugins/help +++ b/plugins/help @@ -1,3 +1,5 @@ +#!perl + HELP "help" => "The stuff you're looking at right now :)"; use List::Util qw(max); diff --git a/plugins/log b/plugins/log index 043eb4f..57d8a45 100644 --- a/plugins/log +++ b/plugins/log @@ -1,3 +1,5 @@ +#!perl + sub command { NEXT } my $filename = ".revbank.log"; diff --git a/plugins/products b/plugins/products index 1c5df66..0b6d96a 100644 --- a/plugins/products +++ b/plugins/products @@ -1,3 +1,5 @@ +#!perl + HELP "" => "Look up products from database"; HELP "edit" => "Edit product list"; diff --git a/plugins/restart b/plugins/restart index 0ec00d4..63f0b72 100644 --- a/plugins/restart +++ b/plugins/restart @@ -1,3 +1,5 @@ +#!perl + HELP "restart" => "Attempt to restart the RevBank shell"; sub command :Tab(restart) { diff --git a/plugins/sigint b/plugins/sigint index ee704f5..e6ce669 100644 --- a/plugins/sigint +++ b/plugins/sigint @@ -1,3 +1,5 @@ +#!perl + sub command { NEXT } $SIG{INT} = 'IGNORE'; diff --git a/plugins/take b/plugins/take index efccbd3..0aff29c 100644 --- a/plugins/take +++ b/plugins/take @@ -1,3 +1,5 @@ +#!perl + HELP "take [ []]" => "Take money from users (equal parts)"; sub command :Tab(take,steal) { diff --git a/plugins/undo b/plugins/undo index 0120917..0b01c5c 100644 --- a/plugins/undo +++ b/plugins/undo @@ -1,3 +1,5 @@ +#!perl + HELP "undo []" => "Undo a certain transaction"; my $filename = ".revbank.undo"; diff --git a/plugins/users b/plugins/users index f4d5485..4cf978d 100644 --- a/plugins/users +++ b/plugins/users @@ -1,3 +1,5 @@ +#!perl + HELP "" => "[Pay with your account and] show balance"; HELP "list" => "List accounts and balances"; HELP "shame" => "Display Hall of Shame (negative balances)"; diff --git a/plugins/withdraw b/plugins/withdraw index 822d68f..40cbb42 100644 --- a/plugins/withdraw +++ b/plugins/withdraw @@ -1,3 +1,5 @@ +#!perl + HELP "" => "Withdraw or enter price manually"; sub command {