| # | Line 107 | Line 107 | sub include_users() { | |
|---|---|---|
| 107 | ||
| 108 | # Find out all users on this machine. | |
| 109 | my($users) = `$usersbin`; | |
| 110 | < | my(@users) = split(/\s+/, $users); |
| 111 | < | |
| 112 | < | my($users_count) = $#users + 1; |
| 110 | > | $users = "\n" unless defined $users; |
| 111 | > | chop $users; |
| 112 | > | my($users_count) = 0; |
| 113 | > | $users_count++ while $users =~ /\w+/g; |
| 114 | my($users_list) = $users; | |
| 115 | ||
| 116 | &print_pair(1, "packet.users.count", $users_count); | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |