Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: warn for !/m(e|sg) in CB?

by tcf22 (Priest)
on Aug 20, 2003 at 14:36 UTC ( [id://285207]=note: print w/replies, xml ) Need Help??


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 
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;
}

[download]

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

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://285207]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others imbibing at the Monastery: (4)
As of 2024-04-18 02:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found