Parse atq(1) output correctly under various (but not all perhaps)
locale settings: allow any date and time separator characters.
This commit is contained in:
parent
0dd4be31b5
commit
55a0e28451
@ -496,7 +496,7 @@ sub invoke_atq {
|
||||
|
||||
while(defined($_ = <ATQ>)) {
|
||||
chomp;
|
||||
if (/^\d\d:\d\d:\d\d\s+\d\d\/\d\d\/\d\d\s+(\S+)\s+\S+\s+(\d+)$/) {
|
||||
if (/^\d\d.\d\d.\d\d\s+\d\d.\d\d.\d\d\s+(\S+)\s+\S+\s+(\d+)$/) {
|
||||
push(@at, $2) if ($1 eq $user);
|
||||
}
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user