[haver-commits] r937 - in trunk: . perl/server/lib/Haver/Server

[haver]

Author: dylan
Date: 2005-11-22 15:02:02 -0500 (Tue, 22 Nov 2005)
New Revision: 937

Modified:
   trunk/
   trunk/perl/server/lib/Haver/Server/Talker.pm
Log:
we now check the validity of commands.


Property changes on: trunk
___________________________________________________________________
Name: svk:merge
   - 1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/havercurs-objc:43089
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk:11166
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk-merge-10131:11178
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/winch/trunk:43192
27e50396-46e3-0310-8b22-ae223a1f35ce:/local:212
e9404bb1-7af0-0310-a7ff-e22194cd388b:/haver/local:1602
edfcd8bd-4ce7-0310-a97e-bb1efd40edf3:/local:238
   + 1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/havercurs-objc:43089
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk:11166
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk-merge-10131:11178
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/winch/trunk:43192
27e50396-46e3-0310-8b22-ae223a1f35ce:/local:212
e9404bb1-7af0-0310-a7ff-e22194cd388b:/haver/local:1606
edfcd8bd-4ce7-0310-a97e-bb1efd40edf3:/local:238

Modified: trunk/perl/server/lib/Haver/Server/Talker.pm
===================================================================
--- trunk/perl/server/lib/Haver/Server/Talker.pm        2005-11-22 19:39:24 UTC 
(rev 936)
+++ trunk/perl/server/lib/Haver/Server/Talker.pm        2005-11-22 20:02:02 UTC 
(rev 937)
@@ -94,6 +94,11 @@
                return;
        }
        my $cmd = shift @$args;
+       unless ($cmd =~ /^[A-Z][A-Z:_-]+$/) {
+               Log('notice', "This is an example of a badly formed command: 
$cmd");
+               call('shutdown', 'bork', "You're not the man I married!");
+               return;
+       }       
        my $event = 'msg_' . $cmd;
        
        Log('info', "Command: '$cmd'");