in reply to warn for !/m(e|sg) in CB?
I hate when it happens to me, but love when it happens to someone else. So how about something like this
Ok, now my serious response.
I agree with liz. Perhaps we could make it a user option that could be turned on/off.
if(($line =~ /^\s*\/m(\w*)/) && ($1 !~ /^e|sg/) && ($username eq 'tcf22')){ print "Don't know how to '/m$1', maybe you meant /me or /msg?\n"; }else{ &post_message; }
Ok, now my serious response.
I agree with liz. Perhaps we could make it a user option that could be turned on/off.
|
---|
In Section
Perl Monks Discussion