|
Legende: |
Option | Bedeutung / Beispiel |
comment | Kommentar |
| comment = Mein neues Share |
| |
path | Pfad zum Verzeichnis |
| path = /share/neu |
| |
writeable | Verzeichnis schreibbar |
| writeable = yes |
| |
browseable | sichtbar in Verzeichnisliste |
| browsable = yes |
| |
user | Besitzer der Freigabe |
| user = samba |
| |
valid users | Liste der Zugriffsberechtigten |
| valid users = samba, user1 |
| |
write list | Liste der Schreibberechtigten |
| write list = samba |
| |
hosts allow | nur die angegebenen Hosts drfen das Share benutzen |
| hosts allow = localhost 192.168.1.1 192.168.2.0/24 |
| |
hosts deny | jede Maschine ausser diesen darf das Share benutzen |
| hosts deny = 192.168.1.2 192.168.3.0/24 |
| |
read list | Liste der nur Leseberechtigten |
| read list = user1 |
| |
admin users | Liste der Benutzer mit SuperUser Rechten |
| admin users = user1 |
| |
invalid users | Liste der Benutzer denen der Zugriff verweigert wird |
| invalid users = user2 |
| |
force user | Standartbenutzer fuer alle Dateien |
| force user = samba |
| |
directory mask | UNIX Verzeichnisberchtigung beim Erzeugen |
| directory mask = 0777 |
| |
create mask | UNIX Dateiberchtigung beim Erzeugen |
| create mask = 0777 |
| |
guest ok | Annonymer Zugriff |
| guest ok = yes |
END
;
}
&Header::closebox();
############################################################################################################################
############################################### Anzeige des Sambastatus ####################################################
&Header::openbox('100%', 'center', 'Status');
print <
END
;
&Header::closebox();
############################################################################################################################
############################################### Anzeige des Sambastatus ####################################################
if ($sambasettings{'ACTION'} eq 'showlog')
{
$Log = qx(tail -n $sambasettings{'LOGLINES'} /var/log/samba/$sambasettings{'LOG'});
$Log=~s/\n/
/g;
}
&Header::openbox('100%', 'center', 'Logs');
print <
END
;
&Header::closebox();
&Header::closebigbox();
&Header::closepage();
############################################################################################################################
############################################ Subfunktion fr Sambadienste ###################################################
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;
}