DumpVars2

[infobot.git] / blootbot / src / Modules / UserDCC.pl

diff --git a/blootbot/src/Modules/UserDCC.pl b/blootbot/src/Modules/UserDCC.pl
index 22c244809f582f1def712a2a62a139ebf36ff0d0..86812df4c14b921e50cca5218ec8497e67a99d07 100644 (file)
--- a/blootbot/src/Modules/UserDCC.pl
+++ b/blootbot/src/Modules/UserDCC.pl
@@ -115,7 +115,7 @@ sub userDCC {
     # dump variables.
     if ($message =~ /^dumpvars$/i) {
        return unless (&hasFlag("o"));
-       return unless (&IsParam("dumpvars"));
+       return unless (&IsParam("DumpVars"));
 
        &status("Dumping all variables...");
        &dumpallvars();
@@ -125,8 +125,8 @@ sub userDCC {
 
     # dump variables ][.
     if ($message =~ /^symdump$/i) {
-       return unless (&hasFlag("o"));
-       return unless (&IsParam("symdump"));
+       return unless (&hasFlag('o'));
+       return unless (&IsParam('DumpVars2'));
 
        &status("Dumping all variables...");
        &symdumpAllFile();
@@ -585,7 +585,7 @@ sub userDCC {
            }
 
            foreach (keys %vals) {
-               &pSReply("  $what = $_(" . scalar(keys %{$vals{$_}}) . "): ".join(' ', keys %{ $vals{$_} } ) );
+               &pSReply("  $what = $_(" . scalar(keys %{$vals{$_}}) . "): ".join(' ', sort keys %{ $vals{$_} } ) );
            }
 
            &pSReply("End of list.");