| … | |
… | |
| 122 | sub members_list { |
122 | sub members_list { |
| 123 | my ($guild, $age) = @_; |
123 | my ($guild, $age) = @_; |
| 124 | init; |
124 | init; |
| 125 | |
125 | |
| 126 | if ($guild) { |
126 | if ($guild) { |
| 127 | print STDERR "Members for guild " . $slaying{$guild} . ":\n"; |
127 | print STDERR "Members for guild " . $slaying{$guild} . ($age ? " with mtime < $age" : "") . ":\n"; |
| 128 | print STDERR "-" x 31 . "\n"; |
128 | print STDERR "-" x 31 . "\n"; |
| 129 | |
129 | |
| 130 | if ($age) { |
130 | if ($age) { |
| 131 | for my $member (@{ $members{$guild} }) { |
131 | for my $member (@{ $members{$guild} }) { |
| 132 | if ($NOW - (stat $member)[9] < $age * 24 * 3600) { |
132 | if ($NOW - (stat $member)[9] < $age * 24 * 3600) { |
