+use MyDB;
+
+use CmdLine;
+use Utils;
+
+my %cmds = (
+ adduser => {
+ help => 'Add a user to MAPS',
+ description => 'Usage: adduser <userid> <name> <email> <password>',
+ },
+ add2whitelist => {
+ help => 'Add sender to whitelist',
+ description => 'Usage: add2whitelist <sender> <retention>',
+ },
+ cleanlog => {
+ help => 'Cleans out old log entries',
+ description => 'Usage; cleanlog [timestamp]'
+ },
+ log => {
+ help => 'Logs a message',
+ description => 'Usage: log <message>',
+ },
+ loadlist => {
+ help => 'Load a list file',
+ description => 'Usage: loadlist <listfile>',
+ },
+ cleanemail => {
+ help => 'Cleans out old email entries',
+ description => 'Usage: cleanemail [timestamp]',
+ },
+ deliver => {
+ help => 'Delivers a message',
+ description => 'Usage: deliver <message>',
+ },
+ loademail => {
+ help => 'Load an mbox file',
+ description => 'Usage: loademail <mbox>',
+ },
+ dumpemail => {
+ help => 'Dump email from DB to mbox file',
+ description => 'Usage: ',
+ },
+ decrypt => {
+ help => 'Decrypt a password',
+ description => 'Usage: decrypt <password>',
+ },
+ switchuser => {
+ help => 'Switch to user',
+ description => 'Usage: switchuser <userid>',
+ },
+ setpassword => {
+ help => "Set a user's password",
+ description => 'Usage: setpassword',
+ },
+ showuser => {
+ help => 'Show current user',
+ description => 'Usage: showuser',
+ },
+ showusers => {
+ help => 'Shows users in the DB',
+ description => 'Usage: showusers',
+ },
+ showemail => {
+ help => 'Displays email',
+ description => 'Usage: showemail',
+ },
+ showlog => {
+ help => 'Displays <nbr> log entires',
+ description => 'Usage: showlog <nbr>',
+ },
+ space => {
+ help => 'Display space usage',
+ description => 'Usage: space',
+ },
+ showlist => {
+ help => 'Show list by <type>',
+ description => 'Usage: showlist <type>',
+ },
+ encrypt => {
+ help => 'Encrypt a password',
+ description => 'Usage: encrypt <password>',
+ },
+ resequence => {
+ help => 'Resequences a <list>',
+ description => 'Usage: resequence <list>',
+ },
+);
+
+my $userid = GetContext;