$Lang::tr{'wireless'} - $netsettings{'BLUE_DEV'}
+END
+;
+ }
+ print <
+ END ; &Header::closebox(); @@ -148,34 +190,33 @@ END sub isrunning { - my $cmd = $_[0]; - my $status = " $Lang::tr{'stopped'} | ";
- my $pid = '';
- my $testcmd = '';
- my $exename;
+ my $cmd = $_[0];
+ my $status = "$Lang::tr{'stopped'} | ";
+ my $pid = '';
+ my $testcmd = '';
+ my $exename;
- $cmd =~ /(^[a-z]+)/;
- $exename = $1;
+ $cmd =~ /(^[a-z]+)/;
+ $exename = $1;
- if (open(FILE, "/var/run/${cmd}.pid"))
- {
- $pid = $Lang::tr{'running'} | ";
- }
- }
- }
+ if (open(FILE, "/var/run/${cmd}.pid"))
+ {
+ $pid = $Lang::tr{'running'} | ";
+ }
+ }
+ }
- return $status;
+ return $status;
}
-
| |||||||||||||||||||