diff options
author | Peter Palfrader <peter@palfrader.org> | 2004-04-24 12:06:41 +0000 |
---|---|---|
committer | Peter Palfrader <peter@palfrader.org> | 2004-04-24 12:06:41 +0000 |
commit | 82c0bb931633d67a7e60bddb756264edcd4620b6 (patch) | |
tree | b810dfe5ae097f5ed0a8f69fa88cb1e77f21198c /pingd | |
parent | c81ff6b6a0c58e927c61d59b03f142f400e31ef4 (diff) |
And fix a few syntax errors
Diffstat (limited to 'pingd')
-rwxr-xr-x | pingd | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -406,8 +406,8 @@ sub command_set(@) { my @settings; while (scalar @argv && $argv[0] =~ /^(show(?:it)?|ping(?:it)?|fetch(?:it))=(on|off)$/) { - $name = $1; - $value = $2; + my $name = $1; + my $value = $2; $name = 'showit' if ($name eq 'show'); $name = 'pingit' if ($name eq 'ping'); @@ -453,11 +453,11 @@ sub command_enabledisable (@) { my $value; if ($command eq 'enable') { $value='on'; - elsif ($command eq 'disable') { + } elsif ($command eq 'disable') { $value='off'; - else + } else { die ("argument $command is not enable or disable. Shouldn't even be here.\n"); - } + }; my @cmd = ("showit=$value", "pingit=$value", "fetch=$value"); push @cmd, @argv; command_setremailercaps(@argv); |