$shareline[0]
| $shareline[2]
|
END
;
if ($shareline[1] eq 'enabled') {
print <
END
;
} elsif ($shareline[1] eq 'disabled') {
print <
END
;
}
print <
|
END
;
}
print <Legende: Freigabe bearbeiten | Freigabe loeschen
END
;
&Header::closebox();
&Header::closebigbox();
&Header::closepage();
############################################################################################################################
############################################################################################################################
sub isrunning
{
my $cmd = $_[0];
my $status = " | $Lang::tr{'stopped'} | ";
my $pid = '';
my $testcmd = '';
my $exename;
$cmd =~ /(^[a-z]+)/;
$exename = $1;
if (open(FILE, "/var/run/${cmd}.pid"))
{
$pid = ; chomp $pid;
close FILE;
if (open(FILE, "/proc/${pid}/status"))
{
while ()
{
if (/^Name:\W+(.*)/) {
$testcmd = $1; }
}
close FILE;
if ($testcmd =~ /$exename/)
{
$status = "$Lang::tr{'running'} | ";
}
}
}
return $status;
}
|