diff options
author | Peter Palfrader <peter@palfrader.org> | 2004-04-24 10:35:54 +0000 |
---|---|---|
committer | Peter Palfrader <peter@palfrader.org> | 2004-04-24 10:35:54 +0000 |
commit | 54452b9931d8bc255b5706dbeade6432dd28e317 (patch) | |
tree | 86e3349517304b325bb3d7c454b476b538a32336 /pingd | |
parent | b77e9231dedf5db58e9428314a7fe836becc00c9 (diff) |
Accept show=, ping=, and fetchit= in addition to their real names in set
Diffstat (limited to 'pingd')
-rwxr-xr-x | pingd | 11 |
1 files changed, 9 insertions, 2 deletions
@@ -405,8 +405,15 @@ sub command_set(@) { my @argv = @_; my @settings; - while (scalar @argv && $argv[0] =~ /^(showit|pingit|fetch)=(on|off)$/) { - push @settings, $argv[0]; + while (scalar @argv && $argv[0] =~ /^(show(?:it)?|ping(?:it)?|fetch(?:it))=(on|off)$/) { + $name = $1; + $value = $2; + + $name = 'showit' if ($name eq 'show'); + $name = 'pingit' if ($name eq 'ping'); + $name = 'fetch' if ($name eq 'fetchit'); + + push @settings, "$name=$value"; shift @argv; }; |