12 lines
266 B
Text
12 lines
266 B
Text
sub command($self, $cart, $command, @) {
|
|
if ($command eq 'adduser') {
|
|
print <<'END';
|
|
NOTE: This system is insecure by design. Other users can see your transactions,
|
|
or pay using your account. We trust each other not to abuse this power.
|
|
|
|
END
|
|
|
|
}
|
|
return NEXT;
|
|
}
|
|
|