- = ( $line =~ /^\s*(\w+) : TTY=(\S+) ; PWD=(.*?) ; USER=(\w+) ;
COMMAND=(.*)/)) {
+ = ( $line =~ /^\s*(\w+) : TTY=(\S+) ; PWD=(.*?) ; USER=([-\w]+) ;
COMMAND=(.*)/)) {
I'll change it to USER=([^\s]+), because there are other chars not included by \w. "." for example.
thanks for the report.
Willi
-- To UNSUBSCRIBE, email to [EMAIL PROTECTED] with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
