+ $message = substVars($message);
+ if ($message =~ m/^<action>\s*(.*)/){
+ &status("OnJoin: $nick arrived, performing action");
+ &action($chan, $1);
+ }
+ else{
+ $message =~ s/^<reply>\s*//;
+ &status("OnJoin: $nick arrived, printing message");
+ &msg($chan, $message);
+ }