webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-09 18:45:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

samba.cgi: Use the new service status widget

Browse Source 
Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>
This commit is contained in:
Michael Tremer
2024-08-21 15:20:51 +02:00
parent 9984ed3d5a
commit 0a8800657d
1 changed files with 19 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

80
html/cgi-bin/samba.cgi
View File

@@ -180,35 +180,23 @@ $selected{'MAPTOGUEST'}{$sambasettings{'MAPTOGUEST'}} = "selected='selected'";
############################################################################################################################
################################### Aufbau der HTML Seite fr globale Sambaeinstellungen ###################################
&Header::openbox('100%', 'center', $Lang::tr{'samba'});
&Header::opensection();
my %servicenames = (
"nmbd" => $Lang::tr{'netbios nameserver daemon'},
"smbd" => $Lang::tr{'smb daemon'},
"winbindd" => $Lang::tr{'winbind daemon'},
);
&Header::ServiceStatus({
$Lang::tr{'netbios nameserver daemon'} => {
"process" => "nmbd",
},
$Lang::tr{'smb daemon'} => {
"process" => "smbd",
},
$Lang::tr{'winbind daemon'} => {
"process" => "winbindd",
},
});
print <<END;
<table class="tbl" width='100%' cellspacing='0'>
<tr bgcolor='$color{'color20'}'>
<td colspan='2' align='left'><b>$Lang::tr{'all services'}</b></td>
</tr>
END
foreach my $service (sort keys %servicenames) {
my $status = &isrunning($service);
print <<END;
<tr>
<td align='left' width='40%'>$servicenames{$service}</td>
$status
</tr>
END
}
print <<END
</table>
<br>
<table width="100%">
@@ -233,9 +221,13 @@ print <<END
</form>
</td>
</table>
END
<br>
&Header::closesection();
&Header::openbox('100%', 'center', $Lang::tr{'samba'});
print <<END
<form method='post' action='$ENV{'SCRIPT_NAME'}'>
<table class="tbl" width='100%' cellspacing='0'>
<tr bgcolor='$color{'color20'}'>
@@ -738,40 +730,6 @@ close FILE;
&General::system("/usr/local/bin/sambactrl", "smbreload");
}
sub isrunning
{
my $cmd = $_[0];
my $status = "<td align='center' bgcolor='${Header::colourred}'><font color='white'><b>$Lang::tr{'stopped'}</b></font></td>";
my $pid = '';
my $testcmd = '';
my $exename;
$cmd =~ /(^[a-z]+)/;
$exename = $1;
if (open(FILE, "/var/run/${cmd}.pid"))
{
$pid = <FILE>; chomp $pid;
close FILE;
if (open(FILE, "/proc/${pid}/status"))
{
while (<FILE>)
{
if (/^Name:\W+(.*)/)
{
$testcmd = $1;
}
}
close FILE;
if ($testcmd =~ /$exename/)
{
$status = "<td align='center' bgcolor='${Header::colourgreen}'><font color='white'><b>$Lang::tr{'running'}</b></font></td>";
}
}
}
return $status;
}
sub writeconfiguration() {
open (FILE, ">${General::swroot}/samba/global") or die "Can't save the global settings: $!";
flock (FILE, 2);