]> git.ipfire.org Git - people/pmueller/ipfire-2.x.git/blame - html/cgi-bin/samba.cgi
projects / people / pmueller / ipfire-2.x.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
In der Samba.cgi einige Icons ausgetauscht
[people/pmueller/ipfire-2.x.git] / html / cgi-bin / samba.cgi
CommitLineData
5e773594
MT		 1#!/usr/bin/perl
2#
3# IPFire CGIs
4#
5# This code is distributed under the terms of the GPL
6#
7# (c) The IPFire Team
5e773594
MT		 8
9use strict;
10# enable only the following on debugging purpose
11use warnings;
12use CGI::Carp 'fatalsToBrowser';
13
14require '/var/ipfire/general-functions.pl';
15require "${General::swroot}/lang.pl";
16require "${General::swroot}/header.pl";
17
18my %sambasettings = ();
44254afd 19my %cgisettings = ();
5e773594
MT		 20my %checked = ();
21my %netsettings = ();
97de2cae 22my %ovpnsettings = ();
5e773594
MT		 23my $message = "";
24my $errormessage = "";
fa7be659 25my @Logs = qx(ls /var/log/samba/);
c9e1c143 26my $Log =$Lang::tr{'no log selected'};
32f77a0b 27my $defaultoption= "[Share]\npath = /var/samba/share1\ncomment = Share - Public Access\nbrowseable = yes\nwriteable = yes\ncreate mask = 0777\ndirectory mask = 0777\nguest ok = yes\npublic = yes\nforce user = samba";
1ee8bf5d
MT		 28my $userentry = "";
29my @user = ();
30my @userline = ();
5e773594
MT		 31my @proto = ();
32my %selected= () ;
1ee8bf5d 33my $userfile = "/var/ipfire/samba/private/smbpasswd";
5e773594 34&General::readhash("${General::swroot}/ethernet/settings", \%netsettings);
97de2cae 35&General::readhash("${General::swroot}/ovpn/settings", \%ovpnsettings);
5e773594 36
14cc7eac 37############################################################################################################################
32f77a0b 38############################################# Samba Dienste fr Statusberprfung ##########################################
14cc7eac 39
32f77a0b 40my %servicenames = ('SMB Daemon' => 'smbd','NetBIOS Nameserver' => 'nmbd','Winbind Daemon' => 'winbindd');
5e773594
MT		 41
42&Header::showhttpheaders();
43
14cc7eac 44############################################################################################################################
32f77a0b 45#################################### Initialisierung von Samba Sharess fr die Verarbeitung ################################
14cc7eac
MT		 46
47my @Zeilen= ();
48my @Shares= ();
49my $shareentry = "";
44254afd
MT		 50my $shareconfigentry = "";
51my @shareconfigline = ();
52my $shareoption = '';
14cc7eac
MT		 53my @shares = ();
54my @shareline = ();
55my $sharefile = "/var/ipfire/samba/shares";
56my $EOF = qx(cat $sharefile | wc -l);
32f77a0b 57my $Status = qx(/usr/local/bin/sambactrl smbstatus);
fa7be659 58$Status=~s/\n/<br \/>/g;
14cc7eac
MT		 59
60@shares = `grep -n '^\\[' $sharefile`;
61foreach $shareentry (@shares)
62 {
63 @shareline = split( /\:/, $shareentry );
64 push(@Zeilen,$shareline[0]);push(@Shares,$shareline[1]);
65 }
66
67############################################################################################################################
32f77a0b 68#################################### Initialisierung von Samba Variablen fr global Settings ###############################
14cc7eac 69
5e773594 70$sambasettings{'WORKGRP'} = 'homeip.net';
fa7be659
CS		 71$sambasettings{'NETBIOSNAME'} = 'IPFire';
72$sambasettings{'SRVSTRING'} = 'Samba running on IPFire 2.0';
1ee8bf5d 73$sambasettings{'INTERFACES'} = '';
5e773594 74$sambasettings{'SECURITY'} = 'share';
1ee8bf5d 75$sambasettings{'OSLEVEL'} = '65';
97de2cae
MT		 76$sambasettings{'GREEN'} = 'on';
77$sambasettings{'BLUE'} = 'off';
78$sambasettings{'ORANGE'} = 'off';
79$sambasettings{'VPN'} = 'off';
fa7be659
CS		 80$sambasettings{'WINSSRV'} = '';
81$sambasettings{'WINSSUPPORT'} = 'on';
82$sambasettings{'REMOTEANNOUNCE'} = '';
32f77a0b 83$sambasettings{'PASSWORDSYNC'} = 'off';
c9e1c143 84$sambasettings{'OTHERINTERFACES'} = '127.0.0.1';
1ee8bf5d
MT		 85$sambasettings{'GUESTACCOUNT'} = 'samba';
86$sambasettings{'MAPTOGUEST'} = 'Never';
c9e1c143 87$sambasettings{'LOGLEVEL'} = '3 passdb:5 auth:5 winbind:2';
5e773594 88### Values that have to be initialized
fa7be659 89$sambasettings{'ACTION'} = '';
c9e1c143 90my $LOGLINES = '50';
5e773594 91
32f77a0b
CS		 92################################################## Samba PDC Variablen #####################################################
93
94$sambasettings{'LOCALMASTER'} = 'off';
95$sambasettings{'DOMAINMASTER'} = 'off';
96$sambasettings{'PREFERREDMASTER'} = 'off';
97my $PDCOPTIONS = `cat ${General::swroot}/samba/pdc`;
98
99
100############################################################################################################################
101
5e773594
MT		 102&General::readhash("${General::swroot}/samba/settings", \%sambasettings);
103&Header::getcgihash(\%sambasettings);
104
105&Header::openpage('Samba', 1, '');
106&Header::openbigbox('100%', 'left', '', $errormessage);
107
108############################################################################################################################
fa7be659 109############################################# Samba Rootskript aufrufe fr SU-Actions #######################################
14cc7eac 110
44254afd
MT		 111if ($sambasettings{'ACTION'} eq 'smbuserdisable'){system("/usr/local/bin/sambactrl smbuserdisable $sambasettings{'NAME'}");}
112if ($sambasettings{'ACTION'} eq 'smbuserenable'){system("/usr/local/bin/sambactrl smbuserenable $sambasettings{'NAME'}");}
32f77a0b
CS		 113if ($sambasettings{'ACTION'} eq 'smbuseradd'){system("/usr/local/bin/sambactrl smbuseradd $sambasettings{'USERNAME'} $sambasettings{'PASSWORD'} $sambasettings{'GROUP'} $sambasettings{'SHELL'}");}
114if ($sambasettings{'ACTION'} eq 'smbpcadd'){system("/usr/local/bin/sambactrl smbpcadd $sambasettings{'PCNAME'} $sambasettings{'GROUP'} $sambasettings{'SHELL'}");}
44254afd
MT		 115if ($sambasettings{'ACTION'} eq 'smbchangepw'){system("/usr/local/bin/sambactrl smbchangepw $sambasettings{'USERNAME'} $sambasettings{'PASSWORD'}");}
116if ($sambasettings{'ACTION'} eq 'smbrestart'){system("/usr/local/bin/sambactrl smbrestart");}
117if ($sambasettings{'ACTION'} eq 'smbstart'){system("/usr/local/bin/sambactrl smbstart");}
118if ($sambasettings{'ACTION'} eq 'smbstop'){system("/usr/local/bin/sambactrl smbstop");}
c9e1c143 119if ($sambasettings{'ACTION'} eq 'smbreload'){system("/usr/local/bin/sambactrl smbreload");}
fa7be659
CS		 120if ($sambasettings{'ACTION'} eq 'globalresetyes')
121 {
122 system("/usr/local/bin/sambactrl smbglobalreset");
123 $sambasettings{'WORKGRP'} = 'homeip.net';
124 $sambasettings{'NETBIOSNAME'} = 'IPFire';
125 $sambasettings{'SRVSTRING'} = 'Samba running on IPFire 2.0';
126 $sambasettings{'INTERFACES'} = '';
127 $sambasettings{'SECURITY'} = 'share';
128 $sambasettings{'OSLEVEL'} = '65';
129 $sambasettings{'GREEN'} = 'on';
130 $sambasettings{'BLUE'} = 'off';
131 $sambasettings{'ORANGE'} = 'off';
132 $sambasettings{'VPN'} = 'off';
133 $sambasettings{'WINSSRV'} = '';
134 $sambasettings{'WINSSUPPORT'} = 'on';
135 $sambasettings{'REMOTEANNOUNCE'} = '';
136 $sambasettings{'PASSWORDSYNC'} = 'off';
c9e1c143 137 $sambasettings{'OTHERINTERFACES'} = '127.0.0.1';
fa7be659
CS		 138 $sambasettings{'GUESTACCOUNT'} = 'samba';
139 $sambasettings{'MAPTOGUEST'} = 'Never';
c9e1c143 140 $sambasettings{'LOGLEVEL'} = '3 passdb:5 auth:5 winbind:2';
fa7be659
CS		 141### Values that have to be initialized
142 $sambasettings{'ACTION'} = '';
143 $sambasettings{'LOCALMASTER'} = 'off';
144 $sambasettings{'DOMAINMASTER'} = 'off';
145 $sambasettings{'PREFERREDMASTER'} = 'off';
146 $PDCOPTIONS = `cat ${General::swroot}/samba/pdc`;
60124059 147 system("/usr/local/bin/sambactrl smbreload");
fa7be659 148 }
44254afd
MT		 149
150# smbsafeconf is directly called by the if clause
151
fa7be659 152if ($sambasettings{'ACTION'} eq 'sharesresetyes')
44254afd
MT		 153{
154system('/usr/local/bin/sambactrl smbsharesreset');
155 @Zeilen = ();
156 @Shares = ();
157 $shareentry = "";
158 @shares = ();
159 @shareline = ();
160 $EOF = qx(cat $sharefile | wc -l);
161
162 @shares = `grep -n '^\\[' $sharefile`;
163 foreach $shareentry (@shares)
164 {
165 @shareline = split( /\:/, $shareentry );
166 push(@Zeilen,$shareline[0]);push(@Shares,$shareline[1]);
167 }
60124059 168 system("/usr/local/bin/sambactrl smbreload");
44254afd 169}
1ee8bf5d 170
32f77a0b 171############################################################################################################################
fa7be659 172################################################ Sicherheitsabfrage für den Reset ##########################################
32f77a0b 173
fa7be659
CS		 174if ($sambasettings{'ACTION'} eq 'globalreset')
175 {
176 print <<END
177 <table width='95%' cellspacing='0'>
178 <tr><td colspan='2'><br /></td></tr>
179 <tr><td bgcolor='${Header::table1colour}' colspan='3' align='center'><b>Globals zurück setzen?</b>
180 <tr><td align='right' width='50%'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
181 Yes <input type='image' alt='Yes' src='/images/edit-redo.png' />
182 <input type='hidden' name='ACTION' value='globalresetyes' /></form></td>
183 <td align='left' width='50%'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
184 <input type='image' alt='No' src='/images/dialog-error.png' /> No
185 <input type='hidden' name='ACTION' value='cancel' /></form></td>
186 </tr>
187 </table>
188END
189;
32f77a0b
CS		 190}
191
fa7be659
CS		 192if ($sambasettings{'ACTION'} eq 'sharesreset')
193 {
194 print <<END
195 <table width='95%' cellspacing='0'>
196 <tr><td colspan='2'><br /></td></tr>
197 <tr><td bgcolor='${Header::table1colour}' colspan='3' align='center'><b>Shares zurück setzen?</b>
198 <tr><td align='right' width='50%'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
199 Yes <input type='image' alt='Yes' src='/images/edit-redo.png' />
200 <input type='hidden' name='ACTION' value='sharesresetyes' /></form></td>
201 <td align='left' width='50%'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
202 <input type='image' alt='No' src='/images/dialog-error.png' /> No
203 <input type='hidden' name='ACTION' value='cancel' /></form></td>
204 </tr>
205 </table>
206END
207;
208 }
209
210############################################################################################################################
211########################################### Samba Benutzer oder PC l�chen #################################################
212
213if ($sambasettings{'ACTION'} eq 'userdelete'){system("/usr/local/bin/sambactrl smbuserdelete $sambasettings{'NAME'}");}
214
1ee8bf5d
MT		 215############################################################################################################################
216############################################## Samba Share neu anlegen #####################################################
217
218if ($sambasettings{'ACTION'} eq 'smbshareadd')
5e773594 219{
1ee8bf5d 220 my $emptyline= "";
1ee8bf5d
MT		 221 open (FILE, ">>${General::swroot}/samba/shares") or die "Can't save the shares settings: $!";
222 flock (FILE, 2);
223
224print FILE <<END
225$sambasettings{'SHAREOPTION'}
226$emptyline
227END
228;
229close FILE;
44254afd 230system("/usr/local/bin/sambactrl smbsafeconf");
14cc7eac
MT		 231
232 @Zeilen = ();
233 @Shares = ();
44254afd
MT		 234 $shareentry = "";
235 @shares = ();
236 @shareline = ();
237 $EOF = qx(cat $sharefile | wc -l);
238
14cc7eac
MT		 239 @shares = `grep -n '^\\[' $sharefile`;
240 foreach $shareentry (@shares)
241 {
242 @shareline = split( /\:/, $shareentry );
243 push(@Zeilen,$shareline[0]);push(@Shares,$shareline[1]);
244 }
60124059 245system("/usr/local/bin/sambactrl smbreload");
5e773594
MT		 246}
247
1ee8bf5d 248############################################################################################################################
32f77a0b 249################################################## Samba Share l�chen #####################################################
14cc7eac
MT		 250
251if ($sambasettings{'ACTION'} eq 'smbsharedel')
252{
253my $sharebody = '';
254my $sharehead = '';
255my $sharetext = '';
256my $sharename = "$sambasettings{'NAME'}";
257chomp $sharename;
258$sharename=~s/\s//g;
259
260for(my $i = 0; $i <= $#Shares; $i++)
261 {
262 chomp $Shares[$i];
263 $Shares[$i]=~s/\s//g;
264 if ( "$Shares[$i]" eq "$sharename" )
265 {
266 my $Zeilenbegin = $Zeilen[$i]-2;
267 my $Zeilenende = $EOF-$Zeilen[$i+1]+1;
268 my $Zeilenende2 = $Zeilenende-1;
269
270 if ( $Zeilen[$i] eq $Zeilen[$#Shares] )
271 {
272 $sharehead = qx(head -$Zeilenbegin $sharefile);
273 $sharetext = $sharehead;
274 }
275 elsif ($Zeilen[$i] eq 1 )
276 {
277 $sharehead = qx(tail -$Zeilenende $sharefile | head -$Zeilenende2);
278 $sharetext = $sharehead;
279 }
280 else
281 {
282 $sharehead = qx(head -$Zeilenbegin $sharefile);$sharebody = qx(tail -$Zeilenende $sharefile | head -$Zeilenende2);
283 $sharetext = "$sharehead\n$sharebody";
284 }
285 }
286 }
287
288open (FILE, ">${General::swroot}/samba/shares") or die "Can't delete the share settings: $!";
289flock (FILE, 2);
290print FILE <<END
291$sharetext
292END
293;
294close FILE;
44254afd 295system("/usr/local/bin/sambactrl smbsafeconf");
14cc7eac 296
44254afd
MT		 297 @Zeilen = ();
298 @Shares = ();
299 $shareentry = "";
300 @shares = ();
301 @shareline = ();
302 $EOF = qx(cat $sharefile | wc -l);
303
304 @shares = `grep -n '^\\[' $sharefile`;
305 foreach $shareentry (@shares)
14cc7eac
MT		 306 {
307 @shareline = split( /\:/, $shareentry );
308 push(@Zeilen,$shareline[0]);push(@Shares,$shareline[1]);
309 }
60124059 310system("/usr/local/bin/sambactrl smbreload");
14cc7eac 311}
1ee8bf5d 312############################################################################################################################
32f77a0b 313################################################## Sambashare �dern #######################################################
14cc7eac
MT		 314
315if ($sambasettings{'ACTION'} eq 'smbsharechange')
316{
317my $sharebody = '';
318my $sharehead = '';
319my $sharename = "$sambasettings{'NAME'}";
320my $sharetext = '';
14cc7eac
MT		 321$sharename=~s/\s//g;
322
323for(my $i = 0; $i <= $#Shares; $i++)
324 {
325 chomp $Shares[$i];
326 $Shares[$i]=~s/\s//g;
327 if ( "$Shares[$i]" eq "$sharename" )
328 {
329 my $Zeilenbegin = $Zeilen[$i]-2;
330 my $Zeilenende = $EOF-$Zeilen[$i+1]+1;
331 my $Zeilenende2 = $Zeilenende-1;
332
333 if ( $Zeilen[$i] eq $Zeilen[$#Shares] )
334 {
335 $sharehead = qx(head -$Zeilenbegin $sharefile);
336 $sharetext = $sharehead;
337 }
338 elsif ($Zeilen[$i] eq 1 )
339 {
340 $sharehead = qx(tail -$Zeilenende $sharefile | head -$Zeilenende2);
341 $sharetext = $sharehead;
342 }
343 else
344 {
345 $sharehead = qx(head -$Zeilenbegin $sharefile);$sharebody = qx(tail -$Zeilenende $sharefile | head -$Zeilenende2);
346 $sharetext = "$sharehead\n$sharebody";
347 }
348 }
349 }
350
351open (FILE, ">${General::swroot}/samba/shares") or die "Can't delete the share settings: $!";
352flock (FILE, 2);
353print FILE <<END
354$sharetext
355$sambasettings{'SHAREOPTION'}
356END
357;
358close FILE;
44254afd 359system("/usr/local/bin/sambactrl smbsafeconf");
14cc7eac
MT		 360
361 @Zeilen = ();
362 @Shares = ();
363 @shares = `grep -n '^\\[' $sharefile`;
364 foreach $shareentry (@shares)
365 {
366 @shareline = split( /\:/, $shareentry );
367 push(@Zeilen,$shareline[0]);push(@Shares,$shareline[1]);
368 }
60124059 369system("/usr/local/bin/sambactrl smbreload");
14cc7eac
MT		 370}
371
372############################################################################################################################
373##################################### Umsetzen der Werte von Checkboxen und Dropdowns ######################################
1ee8bf5d
MT		 374
375if ($sambasettings{'ACTION'} eq $Lang::tr{'save'})
376{
377$sambasettings{'INTERFACES'} = '';
44254afd
MT		 378if ($sambasettings{'GREEN'} eq 'on'){ $sambasettings{'INTERFACES'} .= " $netsettings{'GREEN_DEV'}";}
379if ($sambasettings{'BLUE'} eq 'on'){ $sambasettings{'INTERFACES'} .= " $netsettings{'BLUE_DEV'}";}
380if ($sambasettings{'ORANGE'} eq 'on'){ $sambasettings{'INTERFACES'} .= " $netsettings{'ORANGE_DEV'}";}
381if ($sambasettings{'VPN'} eq 'on'){ $sambasettings{'INTERFACES'} .= " $ovpnsettings{'DDEVICE'}";}
382if ($sambasettings{'OTHERINTERFACES'} ne ''){ $sambasettings{'INTERFACES'} .= " $sambasettings{'OTHERINTERFACES'}";}
1ee8bf5d
MT		 383
384############################################################################################################################
32f77a0b 385##################################### Schreiben settings und bersetzen fr smb.conf #######################################
1ee8bf5d
MT		 386
387 &General::writehash("${General::swroot}/samba/settings", \%sambasettings);
32f77a0b
CS		 388
389if ($sambasettings{'PASSWORDSYNC'} eq 'on'){ $sambasettings{'PASSWORDSYNC'} = "true";} else { $sambasettings{'PASSWORDSYNC'} = "false";}
fa7be659 390if ($sambasettings{'WINSSUPPORT'} eq 'on'){ $sambasettings{'WINSSUPPORT'} = "true";$sambasettings{'WINSSRV'} = "";} else { $sambasettings{'WINSSUPPORT'} = "false";}
32f77a0b
CS		 391if ($sambasettings{'LOCALMASTER'} eq 'on'){ $sambasettings{'LOCALMASTER'} = "true";} else { $sambasettings{'LOCALMASTER'} = "false";}
392if ($sambasettings{'DOMAINMASTER'} eq 'on'){ $sambasettings{'DOMAINMASTER'} = "true";} else { $sambasettings{'DOMAINMASTER'} = "false";}
393if ($sambasettings{'PREFERREDMASTER'} eq 'on'){ $sambasettings{'PREFERREDMASTER'} = "true";} else { $sambasettings{'PREFERREDMASTER'} = "false";}
32f77a0b
CS		 394
395############################################################################################################################
396############################################# Schreiben der Samba globals ##################################################
1ee8bf5d
MT		 397
398 open (FILE, ">${General::swroot}/samba/global") or die "Can't save the global settings: $!";
399 flock (FILE, 2);
400
401print FILE <<END
32f77a0b
CS		 402# global.settings by IPFire Project
403
404[global]
405netbios name = $sambasettings{'NETBIOSNAME'}
406server string = $sambasettings{'SRVSTRING'}
407workgroup = $sambasettings{'WORKGRP'}
408
409keep alive = 30
410os level = $sambasettings{'OSLEVEL'}
411fstype = NTFS
412
413kernel oplocks = false
414map to guest = $sambasettings{'MAPTOGUEST'}
415smb ports = 445 139
416unix charset = CP850
417
418security = $sambasettings{'SECURITY'}
419encrypt passwords = yes
420guest account = $sambasettings{'GUESTACCOUNT'}
421unix password sync = $sambasettings{'PASSWORDSYNC'}
422null passwords = yes
423
424bind interfaces only = true
425interfaces = $sambasettings{'INTERFACES'}
426socket options = TCP_NODELAY SO_RCVBUF=8192 SO_SNDBUF=8192 SO_KEEPALIVE
fa7be659 427remote announce = $sambasettings{'REMOTEANNOUNCE'}
32f77a0b
CS		 428
429username level = 1
430wins support = $sambasettings{'WINSSUPPORT'}
fa7be659 431wins server = $sambasettings{'WINSSRV'}
32f77a0b
CS		 432
433log file = /var/log/samba/samba-log.%m
434lock directory = /var/lock/samba
435pid directory = /var/run/
fa7be659 436log level = $sambasettings{'LOGLEVEL'}
1ee8bf5d 437
32f77a0b
CS		 438preferred master = $sambasettings{'PREFERREDMASTER'}
439domain master = $sambasettings{'DOMAINMASTER'}
440local master = $sambasettings{'LOCALMASTER'}
1ee8bf5d 441
32f77a0b
CS		 442END
443;
444close FILE;
1ee8bf5d 445
32f77a0b
CS		 446 if ($sambasettings{'SECURITY'} eq 'User' && $sambasettings{'DOMAINMASTER'} eq 'true' )
447 {
448 open (FILE, ">${General::swroot}/samba/pdc") or die "Can't save the pdc settings: $!";
449 flock (FILE, 2);
450 print FILE <<END
451$sambasettings{'PDCOPTIONS'}
1ee8bf5d
MT		 452END
453;
32f77a0b
CS		 454 close FILE;
455 system('/usr/local/bin/sambactrl smbsafeconfpdc');
456 }
457 else
458 {
459 system('/usr/local/bin/sambactrl smbsafeconf');
460 }
60124059 461system("/usr/local/bin/sambactrl smbreload");
1ee8bf5d
MT		 462}
463 &General::readhash("${General::swroot}/samba/settings", \%sambasettings);
fa7be659 464
5e773594
MT		 465
466if ($errormessage) {
97de2cae
MT		 467 &Header::openbox('100%', 'left', $Lang::tr{'error messages'});
468 print "<class name='base'>$errormessage\n";
469 print "&nbsp;</class>\n";
470 &Header::closebox();
1ee8bf5d
MT		 471 }
472
14cc7eac
MT		 473############################################################################################################################
474########################################## Aktivieren von Checkboxen und Dropdowns #########################################
475
44254afd
MT		 476$checked{'WINSSUPPORT'}{'off'} = '';
477$checked{'WINSSUPPORT'}{'on'} = '';
478$checked{'WINSSUPPORT'}{$sambasettings{'WINSSUPPORT'}} = "checked='checked'";
32f77a0b
CS		 479$checked{'PASSWORDSYNC'}{'off'} = '';
480$checked{'PASSWORDSYNC'}{'on'} = '';
481$checked{'PASSWORDSYNC'}{$sambasettings{'PASSWORDSYNC'}} = "checked='checked'";
482$checked{'LOCALMASTER'}{'off'} = '';
483$checked{'LOCALMASTER'}{'on'} = '';
484$checked{'LOCALMASTER'}{$sambasettings{'LOCALMASTER'}} = "checked='checked'";
485$checked{'DOMAINMASTER'}{'off'} = '';
486$checked{'DOMAINMASTER'}{'on'} = '';
487$checked{'DOMAINMASTER'}{$sambasettings{'DOMAINMASTER'}} = "checked='checked'";
488$checked{'PREFERREDMASTER'}{'off'} = '';
489$checked{'PREFERREDMASTER'}{'on'} = '';
490$checked{'PREFERREDMASTER'}{$sambasettings{'PREFERREDMASTER'}} = "checked='checked'";
44254afd
MT		 491$checked{'GREEN'}{'off'} = '';
492$checked{'GREEN'}{'on'} = '';
493$checked{'GREEN'}{$sambasettings{'GREEN'}} = "checked='checked'";
494$checked{'BLUE'}{'off'} = '';
495$checked{'BLUE'}{'on'} = '';
496$checked{'BLUE'}{$sambasettings{'BLUE'}} = "checked='checked'";
497$checked{'ORANGE'}{'off'} = '';
498$checked{'ORANGE'}{'on'} = '';
499$checked{'ORANGE'}{$sambasettings{'ORANGE'}} = "checked='checked'";
500$checked{'VPN'}{'off'} = '';
501$checked{'VPN'}{'on'} = '';
502$checked{'VPN'}{$sambasettings{'VPN'}} = "checked='checked'";
5e773594 503
97de2cae 504$selected{'MAPTOGUEST'}{$sambasettings{'MAPTOGUEST'}} = "selected='selected'";
97de2cae 505$selected{'SECURITY'}{$sambasettings{'SECURITY'}} = "selected='selected'";
5e773594
MT		 506
507############################################################################################################################
32f77a0b 508################################### Aufbau der HTML Seite fr globale Sambaeinstellungen ###################################
5e773594 509
c9e1c143 510&Header::openbox('100%', 'center', $Lang::tr{'samba'});
5e773594 511print <<END
32f77a0b
CS		 512 <hr />
513 <table width='95%' cellspacing='0'>
514END
515;
516if ( $message ne "" )
517 {
c9e1c143 518 print "<tr><td colspan='3' align='left'><font color='red'>$message</font>";
32f77a0b
CS		 519 }
520
521print <<END
c9e1c143
CS		 522<tr><td colspan='3'><br /></td></tr>
523<tr bgcolor='${Header::table1colour}'><td colspan='2' align='left'><b>$Lang::tr{'all services'}</b></td></tr>
32f77a0b
CS		 524</table><table width='95%' cellspacing='0'>
525END
526;
527
528my $key = '';
529foreach $key (sort keys %servicenames)
530 {
c9e1c143 531 print "<tr><td align='left' width='40%'>$key</td>";
32f77a0b
CS		 532 my $shortname = $servicenames{$key};
533 my $status = &isrunning($shortname);
c9e1c143 534 print "$status</tr>";
32f77a0b
CS		 535 }
536
537print <<END
32f77a0b 538</table>
60124059
CS		 539<table width='95%' cellspacing='0'>
540<tr><td colspan='4'><br /></td></tr>
541<tr><td align='left' width='40%' />
542<td align='center' ><form method='post' action='$ENV{'SCRIPT_NAME'}'><input type='hidden' name='ACTION' value='smbstart' /><input type='image' alt='$Lang::tr{'smbstart'}' src='/images/go-up.png' /></form></td>
543<td align='center' ><form method='post' action='$ENV{'SCRIPT_NAME'}'><input type='hidden' name='ACTION' value='smbstop' /><input type='image' alt='$Lang::tr{'smbstop'}' src='/images/go-down.png' /></form></td>
544<td align='center' ><form method='post' action='$ENV{'SCRIPT_NAME'}'><input type='hidden' name='ACTION' value='smbrestart' /><input type='image' alt='$Lang::tr{'smbrestart'}' src='/images/view-refresh.png' /></form></td></tr>
545</table>
32f77a0b
CS		 546
547<form method='post' action='$ENV{'SCRIPT_NAME'}'>
548<table width='95%' cellspacing='0'>
549<tr><td colspan='2'><br /></td></tr>
c9e1c143
CS		 550<tr bgcolor='${Header::table1colour}'><td colspan='2' align='left'><b>$Lang::tr{'basic options'}</b></td></tr>
551<tr><td align='left' width='40%'>$Lang::tr{'workgroup'}</td><td align='left'><input type='text' name='WORKGRP' value='$sambasettings{'WORKGRP'}' size="30" /></td></tr>
552<tr><td align='left' width='40%'>$Lang::tr{'netbios name'}</td><td align='left'><input type='text' name='NETBIOSNAME' value='$sambasettings{'NETBIOSNAME'}' size="30" /></td></tr>
553<tr><td align='left' width='40%'>$Lang::tr{'server string'}</td><td align='left'><input type='text' name='SRVSTRING' value='$sambasettings{'SRVSTRING'}' size="30" /></td></tr>
554<tr><td align='left' width='40%'>$Lang::tr{'log level'}</td><td align='left'><input type='text' name='LOGLEVEL' value='$sambasettings{'LOGLEVEL'}' size="30" /></td></tr>
555<tr><td align='left' width='40%'>$Lang::tr{'interfaces'}</td><td align='left'>on <input type='radio' name='VPN' value='on' $checked{'VPN'}{'on'} />/
32f77a0b
CS		 556 <input type='radio' name='VPN' value='off' $checked{'VPN'}{'off'} /> off |
557 <font size='2' color='$Header::colourovpn'><b> OpenVpn - $ovpnsettings{'DDEVICE'}</b></font></td></tr>
fa7be659 558<tr><td align='left' width='40%'></td><td align='left'>on <input type='radio' name='GREEN' value='on' $checked{'GREEN'}{'on'} />/
32f77a0b
CS		 559 <input type='radio' name='GREEN' value='off' $checked{'GREEN'}{'off'} /> off |
560 <font size='2' color='$Header::colourgreen'><b> $Lang::tr{'green'} - $netsettings{'GREEN_DEV'}</b></font></td></tr>
561END
562;
563
564if (&Header::blue_used())
565 {
566 print <<END
fa7be659 567 <tr><td align='left' width='40%'></td><td align='left'>on <input type='radio' name='BLUE' value='on' $checked{'BLUE'}{'on'} />/
32f77a0b
CS		 568 <input type='radio' name='BLUE' value='off' $checked{'BLUE'}{'off'} /> off |
569 <font size='2' color='$Header::colourblue'><b> $Lang::tr{'wireless'} - $netsettings{'BLUE_DEV'}</b></font></td></tr>
570END
571;
572 }
573
574if (&Header::orange_used())
575 {
576 print <<END
fa7be659 577 <tr><td align='left' width='40%'></td><td align='left'>on <input type='radio' name='ORANGE' value='on' $checked{'ORANGE'}{'on'} />/
32f77a0b
CS		 578 <input type='radio' name='ORANGE' value='off' $checked{'ORANGE'}{'off'} /> off |
579 <font size='2' color='$Header::colourorange'><b> $Lang::tr{'dmz'} - $netsettings{'ORANGE_DEV'}</b></font></td></tr>
580END
581;
582 }
583
584print <<END
c9e1c143 585<tr><td align='center' width='40%'>$Lang::tr{'more'}</td><td align='left'><input type='text' name='OTHERINTERFACES' value='$sambasettings{'OTHERINTERFACES'}' size="30" /></td></tr>
32f77a0b 586<tr><td align='left'><br /></td><td></td></tr>
c9e1c143
CS		 587<tr bgcolor='${Header::table1colour}'><td colspan='2' align='left'><b>$Lang::tr{'security options'}</b></td></tr>
588<tr><td align='left' width='40%'>$Lang::tr{'security'}</td><td align='left'><select name='SECURITY' style="width: 165px">
32f77a0b
CS		 589 <option value='share' $selected{'SECURITY'}{'share'}>Share</option>
590 <option value='user' $selected{'SECURITY'}{'user'}>User</option>
591 <option value='domain' $selected{'SECURITY'}{'domain'}>Domain</option>
592 <option value='ADS' $selected{'SECURITY'}{'ADS'}>ADS</option>
593 <option value='server' $selected{'SECURITY'}{'server'}>Server</option>
594 </select></td></tr>
c9e1c143 595<tr><td align='left' width='40%'>$Lang::tr{'map to guest'}</td><td align='left'><select name='MAPTOGUEST' style="width: 165px">
32f77a0b
CS		 596 <option value='Never' $selected{'MAPTOGUEST'}{'Never'}>Never</option>
597 <option value='Bad User' $selected{'MAPTOGUEST'}{'Bad User'}>Bad User</option>
598 <option value='Bad Password' $selected{'MAPTOGUEST'}{'Bad Password'}>Bad Password</option>
599 </select></td></tr>
c9e1c143 600<tr><td align='left' width='40%'>$Lang::tr{'unix password sync'}</td><td align='left'>on <input type='radio' name='PASSWORDSYNC' value='on' $checked{'PASSWORDSYNC'}{'on'} />/
32f77a0b 601 <input type='radio' name='PASSWORDSYNC' value='off' $checked{'PASSWORDSYNC'}{'off'} /> off</td></tr>
fa7be659 602<tr><td align='left'><br /></td><td /></tr>
c9e1c143
CS		 603<tr bgcolor='${Header::table1colour}'><td colspan='2' align='left'><b>$Lang::tr{'network options'}</b></td></tr>
604<tr><td align='left' width='40%'>$Lang::tr{'os level'}</td><td align='left'><input type='text' name='OSLEVEL' value='$sambasettings{'OSLEVEL'}' size="30" /></td></tr>
605<tr><td align='left' width='40%'>$Lang::tr{'remote announce'}</td><td align='left'><input type='text' name='REMOTEANNOUNCE' value='$sambasettings{'REMOTEANNOUNCE'}' size="30" /></td></tr>
fa7be659
CS		 606END
607;
c9e1c143 608if ($sambasettings{'WINSSUPPORT'} eq 'off') {print"<tr><td align='left' width='40%'>$Lang::tr{'wins server'}</td><td align='left'><input type='text' name='WINSSRV' value='$sambasettings{'WINSSRV'}' size='30' /></td></tr>";}
fa7be659 609 print <<END
c9e1c143 610<tr><td align='left' width='40%'>$Lang::tr{'wins support'}</td><td align='left'>on <input type='radio' name='WINSSUPPORT' value='on' $checked{'WINSSUPPORT'}{'on'} />/
fa7be659 611 <input type='radio' name='WINSSUPPORT' value='off' $checked{'WINSSUPPORT'}{'off'} /> off</td></tr>
32f77a0b
CS		 612END
613;
614
615if ($sambasettings{'SECURITY'} eq 'user')
616 {
617 print <<END
c9e1c143 618<tr><td align='left' width='40%'>$Lang::tr{'local master'}</td><td align='left'>on <input type='radio' name='LOCALMASTER' value='on' $checked{'LOCALMASTER'}{'on'} />/
32f77a0b 619 <input type='radio' name='LOCALMASTER' value='off' $checked{'LOCALMASTER'}{'off'} /> off</td></tr>
c9e1c143 620<tr><td align='left' width='40%'>$Lang::tr{'domain master'}</td><td align='left'>on <input type='radio' name='DOMAINMASTER' value='on' $checked{'DOMAINMASTER'}{'on'} />/
32f77a0b 621 <input type='radio' name='DOMAINMASTER' value='off' $checked{'DOMAINMASTER'}{'off'} /> off</td></tr>
c9e1c143 622<tr><td align='left' width='40%'>$Lang::tr{'prefered master'}</td><td align='left'>on <input type='radio' name='PREFERREDMASTER' value='on' $checked{'PREFERREDMASTER'}{'on'} />/
32f77a0b
CS		 623 <input type='radio' name='PREFERREDMASTER' value='off' $checked{'PREFERREDMASTER'}{'off'} /> off</td></tr>
624END
625;
626 }
627
628if ($sambasettings{'SECURITY'} eq 'user' && $sambasettings{'DOMAINMASTER'} eq 'on')
629 {
630 print <<END
631 <tr><td align='left'><br /></td><td></td></tr>
c9e1c143 632 <tr bgcolor='${Header::table1colour}'><td colspan='2' align='left'><b>$Lang::tr{'pdc options'}</b></td></tr>
32f77a0b
CS		 633 <tr><td align='left'><br /></td><td></td></tr>
634 <tr><td colspan='2' align='center'><textarea name="PDCOPTIONS" cols="50" rows="15" Wrap="off">$PDCOPTIONS</textarea></td></tr>
635END
636;
637 }
638
639print <<END
640</table>
641<table width='10%' cellspacing='0'>
fa7be659 642<tr><td colspan='3'><br /></td></tr>
32f77a0b
CS		 643<tr><td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
644 <input type='hidden' name='ACTION' value=$Lang::tr{'save'} />
60124059 645 <input type='image' alt='$Lang::tr{'save'}' src='/images/media-floppy.png' /></form></td>
32f77a0b
CS		 646<td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
647 <input type='hidden' name='ACTION' value='globalreset' />
c9e1c143 648 <input type='image' alt='$Lang::tr{'reset'}' src='/images/reload.gif' /></form></td>
32f77a0b
CS		 649<td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
650 <input type='hidden' name='ACTION' value='globalcaption' />
60124059 651 <input type='image' alt='$Lang::tr{'caption'}' src='/images/help-browser.png' /></form></td></tr>
32f77a0b 652</table>
44254afd
MT		 653END
654;
32f77a0b 655
44254afd 656if ($sambasettings{'ACTION'} eq 'globalcaption')
32f77a0b
CS		 657 {
658 print <<END
659 <table width='95%' cellspacing='0'>
660 <tr><td colspan='2'><br /></td></tr>
c9e1c143 661 <tr><td align='center' colspan='2'><b>$Lang::tr{'caption'}</b></td></tr>
60124059 662 <tr><td align='right' width='33%'><img src='/images/media-floppy.png' /></td><td align='left'>$Lang::tr{'save settings'}</td></tr>
c9e1c143 663 <tr><td align='right' width='33%'><img src='/images/reload.gif' /></td><td align='left'>$Lang::tr{'restore settings'}</td></tr>
32f77a0b 664 </table>
5e773594
MT		 665END
666;
32f77a0b
CS		 667 }
668
5e773594
MT		 669&Header::closebox();
670
14cc7eac 671############################################################################################################################
32f77a0b 672########################################## Benutzerverwaltung fr Usersecurity #############################################
14cc7eac 673
1ee8bf5d 674if ($sambasettings{'SECURITY'} eq 'user')
32f77a0b
CS		 675 {
676 if ($sambasettings{'DOMAINMASTER'} eq 'off')
677 {
c9e1c143 678 &Header::openbox('100%', 'center', $Lang::tr{'accounting user nonpdc'});
32f77a0b
CS		 679 }
680 else
681 {
c9e1c143 682 &Header::openbox('100%', 'center', $Lang::tr{'accounting user pdc'});
32f77a0b
CS		 683 }
684 print <<END
685 <hr />
686 <table width='95%' cellspacing='0'>
687 <tr><td colspan='6'><br /></td></tr>
688 <tr><td colspan='6' align='left'></td></tr>
c9e1c143
CS		 689 <tr><td bgcolor='${Header::table1colour}' colspan='7' align='left'><b>$Lang::tr{'accounting'}</b></td></tr>
690 <tr><td align='left'><u>$Lang::tr{'username'}</u></td><td align='left'><u>$Lang::tr{'password'}</u></td>
32f77a0b
CS		 691END
692;
5e773594 693
32f77a0b
CS		 694 if ($sambasettings{'DOMAINMASTER'} eq 'off')
695 {
696 print "<td></td>";
697 }
698 else
699 {
fa7be659 700 print "<td align='left'><u>Typ</u></td>";
32f77a0b
CS		 701 }
702
c9e1c143 703 print "<td align='left'><u>$Lang::tr{'interfaces'}</u></td><td colspan='3' width='5%' align='center'><u>$Lang::tr{'options'}</u></td></tr>";
32f77a0b
CS		 704 system('/usr/local/bin/sambactrl readsmbpasswd');
705 open(FILE, "</var/ipfire/samba/private/smbpasswd") or die "Can't read user file: $!";
706 @user = <FILE>;
707 close(FILE);
708 system('/usr/local/bin/sambactrl locksmbpasswd');
709 foreach $userentry (sort @user)
710 {
711 @userline = split( /\:/, $userentry );
fa7be659 712 print "<tr><td align='left'>$userline[0]</td><td align='left'>";
32f77a0b
CS		 713 if ($userline[4] =~ /N/)
714 {
c9e1c143 715 print "$Lang::tr{'not set'}</td><td align='left'>";
32f77a0b
CS		 716 }
717 else
718 {
c9e1c143 719 print "$Lang::tr{'set'}</td><td align='left'>";
32f77a0b
CS		 720 }
721
722 if ($sambasettings{'DOMAINMASTER'} eq 'off')
723 {
fa7be659 724 print "</td><td align='left'>";
32f77a0b
CS		 725 }
726 else
727 {
728 if ($userline[0] =~ /\$/)
729 {
c9e1c143 730 print "$Lang::tr{'interfaces'}</td><td align='left'>";
32f77a0b
CS		 731 }
732 else
733 {
c9e1c143 734 print "$Lang::tr{'user'}</td><td align='left'>";
32f77a0b
CS		 735 }
736 }
737
738 if ($userline[4] =~ /D/)
739 {
740 print <<END
741 inaktiv</td>
fa7be659 742 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
32f77a0b
CS		 743 <input type='hidden' name='NAME' value='$userline[0]' />
744 <input type='hidden' name='ACTION' value='smbuserenable' />
c9e1c143 745 <input type='image' alt='$Lang::tr{'activate'}' src='/images/on.gif' />
32f77a0b
CS		 746 </form></td>
747END
748;
749 }
750 else
751 {
752 print <<END
753 aktiv</td>
fa7be659 754 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
32f77a0b
CS		 755 <input type='hidden' name='NAME' value='$userline[0]' />
756 <input type='hidden' name='ACTION' value='smbuserdisable' />
c9e1c143 757 <input type='image' alt='$Lang::tr{'deactivate'}' src='/images/off.gif' />
32f77a0b
CS		 758 </form></td>
759END
760;
761 }
762
763 if ($userline[0] =~ /\$/)
764 {
765 print "<td></td>";
766 }
767 else
768 {
769 print <<END
fa7be659 770 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
32f77a0b
CS		 771 <input type='hidden' name='NAME' value='$userline[0]' />
772 <input type='hidden' name='ACTION' value='userchangepw' />
c9e1c143 773 <input type='image' alt='$Lang::tr{'edit'}' src='/images/edit.gif' />
32f77a0b
CS		 774 </form></td>
775END
776;
777 }
778
fa7be659
CS		 779 if ($sambasettings{'DOMAINMASTER'} eq 'on' && $userline[0] =~ /\$/)
780 {
781 print <<END
782 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
783 <input type='hidden' name='NAME' value='$userline[0]' />
784 <input type='hidden' name='ACTION' value='userdelete' />
c9e1c143 785 <input type='image' alt='$Lang::tr{'delete'}' src='/images/network-error.png' />
fa7be659
CS		 786 </form></td></tr>
787END
788;
789 }
790 else
791 {
792 print <<END
793 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
794 <input type='hidden' name='NAME' value='$userline[0]' />
795 <input type='hidden' name='ACTION' value='userdelete' />
c9e1c143 796 <input type='image' alt='$Lang::tr{'delete'}' src='/images/user-option-remove.png' />
fa7be659 797 </form></td></tr>
32f77a0b
CS		 798END
799;
fa7be659 800 }
32f77a0b
CS		 801 }
802 print <<END
803 </table>
804 <table width='10%' cellspacing='0'>
805 <tr><td colspan='3'><br /></td></tr>
806 <tr><td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
807 <input type='hidden' name='ACTION' value='useradd' />
c9e1c143 808 <input type='image' alt='$Lang::tr{'add user'}' src='/images/user-option-add.png' /></form></td>
5e773594
MT		 809END
810;
1ee8bf5d 811
32f77a0b
CS		 812 if ($sambasettings{'DOMAINMASTER'} eq 'on')
813 {
814 print <<END
815 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
816 <input type='hidden' name='ACTION' value='pcadd' />
c9e1c143 817 <input type='image' alt='$Lang::tr{'add pc'}' src='/images/network.png' /></form>
32f77a0b
CS		 818END
819;
820 }
821 print <<END
822 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
823 <input type='hidden' name='ACTION' value='usercaption' />
60124059 824 <input type='image' alt='$Lang::tr{'caption'}' src='/images/help-browser.png' /></form>
94819213 825 </td></tr>
32f77a0b
CS		 826 </table>
827END
828;
44254afd 829
32f77a0b
CS		 830 if ($sambasettings{'ACTION'} eq 'usercaption')
831 {
832 print <<END
833 <table width='95%' cellspacing='0'>
fa7be659 834 <tr><td align='center' colspan='2'><br /></td></tr>
c9e1c143
CS		 835 <tr><td align='center' colspan='2'><b>$Lang::tr{'caption'}</b></td></tr>
836 <tr><td align='right' width='33%'><img src='/images/user-option-add.png' /></td><td align='left'>$Lang::tr{'add user'}</td></tr>
837 <tr><td align='right' width='33%'><img src='/images/network.png' /></td><td align='left'>$Lang::tr{'add pc'}</td></tr>
838 <tr><td align='right' width='33%'><img src='/images/user-option-remove.png' /></td><td align='left'>$Lang::tr{'delete user'}</td></tr>
839 <tr><td align='right' width='33%'><img src='/images/network-error.png' /></td><td align='left'>$Lang::tr{'delete pc'}</td></tr>
840 <tr><td align='right' width='33%'><img src='/images/on.gif' /></td><td align='left'>$Lang::tr{'activate user'}</td></tr>
841 <tr><td align='right' width='33%'><img src='/images/off.gif' /></td><td align='left'>$Lang::tr{'deactivate user'}</td></tr>
842 <tr><td align='right' width='33%'><img src='/images/edit.gif' /></td><td align='left'>$Lang::tr{'change passwords'}</td></tr>
60124059 843 <tr><td align='right' width='33%'><img src='/images/media-floppy.png' /></td><td align='left'>$Lang::tr{'save config'}</td></tr>
32f77a0b 844 </table>
1ee8bf5d
MT		 845END
846;
32f77a0b
CS		 847 }
848
849 if ($sambasettings{'ACTION'} eq 'userchangepw')
850 {
851 my $username = "$sambasettings{'NAME'}";
852 my $password = 'samba';
853 print <<END
854 <hr />
855 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
856 <table width='95%' cellspacing='0'>
857 <tr><td colspan='2'><br /></td></tr>
c9e1c143
CS		 858 <tr bgcolor='${Header::table1colour}'><td colspan='2' align='left'><b>$Lang::tr{'change passwords'}</b></td></tr>
859 <tr><td align='left'>$Lang::tr{'username'}</td><td><input type='text' name='USERNAME' value='$username' size='30' /></td></tr>
860 <tr><td align='left'>$Lang::tr{'password'}</td><td><input type='password' name='PASSWORD' value='$password' size='30' /></td></tr>
32f77a0b 861 <tr><td colspan='2' align='center'><input type='hidden' name='ACTION' value='smbchangepw' />
60124059 862 <input type='image' alt=$Lang::tr{'save'} src='/images/media-floppy.png' /></td></tr>
32f77a0b 863 </table>
94819213 864 </form>
1ee8bf5d
MT		 865END
866;
32f77a0b
CS		 867 }
868
869 if ($sambasettings{'ACTION'} eq 'useradd')
870 {
871 my $username = "user";
872 my $password = "samba";
873 chomp $username;
874 $username=~s/\s//g;
875 chomp $password;
876 $password=~s/\s//g;
877 print <<END
878 <hr />
879 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
880 <table width='95%' cellspacing='0'>
881 <tr><td colspan='2'><br /></td></tr>
c9e1c143
CS		 882 <tr bgcolor='${Header::table1colour}'><td colspan='2' align='left'><b>$Lang::tr{'add user'}</b></td></tr>
883 <tr><td align='left'>$Lang::tr{'username'}</td><td><input type='text' name='USERNAME' value='$username' size='30' /></td></tr>
884 <tr><td align='left'>$Lang::tr{'password'}</td><td><input type='password' name='PASSWORD' value='$password' size='30' /></td></tr>
885 <tr><td align='left'>$Lang::tr{'unix group'}</td><td><input type='text' name='GROUP' value='sambauser' size='30' /></td></tr>
886 <tr><td align='left'>$Lang::tr{'unix shell'}</td><td><input type='text' name='SHELL' value='/bin/false' size='30' /></td></tr>
32f77a0b 887 <tr><td colspan='2' align='center'><input type='hidden' name='ACTION' value='smbuseradd' />
60124059 888 <input type='image' alt=$Lang::tr{'save'} src='/images/media-floppy.png' /></td></tr>
32f77a0b 889 </table>
94819213 890 </form>
32f77a0b
CS		 891END
892;
893 }
894
895 if ($sambasettings{'ACTION'} eq 'pcadd')
896 {
897 my $pcname = "client\$";
898 chomp $pcname;
899 $pcname=~s/\s//g;
900 print <<END
901 <hr />
902 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
903 <table width='95%' cellspacing='0'>
904 <tr><td colspan='2'><br /></td></tr>
c9e1c143
CS		 905 <tr bgcolor='${Header::table1colour}'><td colspan='2' align='left'><b>$Lang::tr{'pc add'}</b></td></tr>
906 <tr><td align='left'>$Lang::tr{'client'}</td><td><input type='text' name='PCNAME' value='$pcname' size='30' /></td></tr>
907 <tr><td align='left'>$Lang::tr{'unix group'}</td><td><input type='text' name='GROUP' value='sambawks' size='30' /></td></tr>
908 <tr><td align='left'>$Lang::tr{'unix shell'}</td><td><input type='text' name='SHELL' value='/bin/false' size='30' /></td></tr>
32f77a0b 909 <tr><td colspan='2' align='center'><input type='hidden' name='ACTION' value='smbpcadd' />
60124059 910 <input type='image' alt=$Lang::tr{'save'} src='/images/media-floppy.png' /></td></tr>
32f77a0b 911 </table>
94819213 912 </form>
32f77a0b
CS		 913END
914;
915 }
97de2cae
MT		 916
917&Header::closebox();
1ee8bf5d 918}
14cc7eac
MT		 919
920############################################################################################################################
921############################################### Verwalten von Freigaben ####################################################
fa7be659 922
c9e1c143 923&Header::openbox('100%', 'center', $Lang::tr{'shares'});
97de2cae 924
1ee8bf5d 925print <<END
32f77a0b
CS		 926<hr />
927<table width='95%' cellspacing='0'>
928<tr><td colspan='3'><br /></td></tr>
c9e1c143
CS		 929<tr><td bgcolor='${Header::table1colour}' colspan='3' align='left'><b>$Lang::tr{'manage shares'}</b>
930<tr><td align='left'><u>$Lang::tr{'sharename'}</u></td><td colspan='2' width="5%" align='center'><u>$Lang::tr{'options'}</u></td></tr>
1ee8bf5d
MT		 931END
932;
14cc7eac 933
32f77a0b
CS		 934foreach $shareentry (sort @Shares)
935 {
936 print <<END
937 <tr><td align='left'>$shareentry</td>
938 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
939 <input type='hidden' name='NAME' value='$shareentry' />
940 <input type='hidden' name='ACTION' value='sharechange' />
c9e1c143 941 <input type='image' alt='$Lang::tr{'edit'}' src='/images/edit.gif' />
32f77a0b
CS		 942 </form></td>
943 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
944 <input type='hidden' name='NAME' value='$shareentry' />
945 <input type='hidden' name='ACTION' value='smbsharedel' />
60124059 946 <input type='image' alt='$Lang::tr{'delete'}' src='/images/user-trash.png' />
94819213 947 </form></td></tr>
32f77a0b
CS		 948END
949;
950 }
951
952print <<END
953</table>
954<table width='10%' cellspacing='0'>
955<tr><td colspan='3'><br /></td></tr>
956<tr><td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
94819213 957 <input type='hidden' name='ACTION' value='shareadd' />
60124059 958 <input type='image' alt='$Lang::tr{'add share'}' src='/images/list-add.png' />
32f77a0b
CS		 959 </form></td>
960 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
94819213 961 <input type='hidden' name='ACTION' value='sharesreset' />
c9e1c143 962 <input type='image' alt='$Lang::tr{'reset'}' src='/images/reload.gif' />
32f77a0b
CS		 963 </form></td>
964 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
94819213 965 <input type='hidden' name='ACTION' value='sharecaption' />
60124059 966 <input type='image' alt='$Lang::tr{'caption'}' src='/images/help-browser.png' />
94819213 967 </form></td></tr>
32f77a0b 968</table>
1ee8bf5d
MT		 969END
970;
32f77a0b 971
1ee8bf5d 972if ($sambasettings{'ACTION'} eq 'sharecaption')
32f77a0b
CS		 973 {
974 print <<END
975 <table width='95%' cellspacing='0'>
fa7be659
CS		 976 <tr><td align='center' colspan='2'><br /></td></tr>
977 <tr><td align='center' colspan='2'><b>Legende:</b></td></tr>
60124059 978 <tr><td align='right' width='33%'><img src='/images/list-add.png' /></td><td align='left'>$Lang::tr{'add share'}</td></tr>
c9e1c143 979 <tr><td align='right' width='33%'><img src='/images/edit.gif' /></td><td align='left'>$Lang::tr{'edit share'}</td></tr>
60124059 980 <tr><td align='right' width='33%'><img src='/images/media-floppy.png' /></td><td align='left'>$Lang::tr{'save config'}</td></tr>
c9e1c143 981 <tr><td align='right' width='33%'><img src='/images/reload.gif' /></td><td align='left'>$Lang::tr{'reset shares'}</td></tr>
60124059 982 <tr><td align='right' width='33%'><img src='/images/user-trash.png' /></td><td align='left'>$Lang::tr{'delete share'}</td></tr>
32f77a0b 983 </table>
1ee8bf5d
MT		 984END
985;
32f77a0b 986 }
97de2cae 987
1ee8bf5d 988if ($sambasettings{'ACTION'} eq 'shareadd' || $sambasettings{'ACTION'} eq 'optioncaption' )
32f77a0b
CS		 989 {
990 print <<END
991 <hr />
992 <table width='95%' cellspacing='0'>
993 <tr><td colspan='2'><br /></td></tr>
c9e1c143 994 <tr bgcolor='${Header::table1colour}'><td colspan='2' align='left'><b>$Lang::tr{'add share'}</b></td></tr>
32f77a0b 995 <tr><td colspan='2' align='center'></td></tr>
c9e1c143 996 <tr><td colspan='2' align='center'>$Lang::tr{'show share options'}<form method='post' action='$ENV{'SCRIPT_NAME'}'>
94819213 997 <input type='hidden' name='ACTION' value='optioncaption' />
60124059 998 <input type='image' alt='$Lang::tr{'caption'}' src='/images/help-browser.png' />
32f77a0b 999 </form></td></tr>
94819213 1000 <form method='post' action='$ENV{'SCRIPT_NAME'}'><tr><td colspan='2' align='center'><textarea name="SHAREOPTION" cols="50" rows="15" Wrap="off">$defaultoption</textarea></td></tr>
32f77a0b
CS		 1001 </table>
1002 <table width='10%' cellspacing='0'>
1003 <tr><td><br /></td></tr>
94819213 1004 <tr><td align='center'><input type='hidden' name='ACTION' value='smbshareadd' />
60124059 1005 <input type='image' alt='$Lang::tr{'add share'}' src='/images/media-floppy.png' /></td></tr></form>
32f77a0b 1006 </table>
5e773594
MT		 1007END
1008;
32f77a0b 1009 }
5e773594 1010
1ee8bf5d 1011if ($sambasettings{'ACTION'} eq 'sharechange' || $sambasettings{'ACTION'} eq 'optioncaption2' )
32f77a0b
CS		 1012 {
1013 my $sharename = "$sambasettings{'NAME'}";
1014 chomp $sharename;
1015 $sharename=~s/\s//g;
1016
1017 for(my $i = 0; $i <= $#Shares; $i++)
1018 {
1019 chomp $Shares[$i];
1020 $Shares[$i]=~s/\s//g;
1021 if ( "$Shares[$i]" eq "$sharename" )
1022 {
1023 my $Zeilenbegin = $Zeilen[$i+1]-2;
1024 my $Zeilenende = $Zeilen[$i+1]-$Zeilen[$i];
1025 if ( $Zeilen[$i] eq $Zeilen[$#Shares] )
1026 {$Zeilenende = $EOF-$Zeilen[$#Shares]+1;$Zeilenbegin = $EOF-$Zeilen[$#Shares]; $shareoption = qx(tail -$Zeilenende $sharefile | head -$Zeilenbegin);}
1027 else
1028 {$shareoption = qx(head -$Zeilenbegin $sharefile | tail -$Zeilenende);}
1029 }
1030 }
1031 print <<END
1032 <hr />
1033 <table width='95%' cellspacing='0'>
1034 <tr><td colspan='2'><br /></td></tr>
c9e1c143 1035 <tr bgcolor='${Header::table1colour}'><td colspan='2' align='left'><b>$Lang::tr{'edit share'}</b></td></tr>
32f77a0b 1036 <tr><td colspan='2' align='center'></td></tr>
c9e1c143 1037 <tr><td colspan='2' align='center'>$Lang::tr{'show share options'}<form method='post' action='$ENV{'SCRIPT_NAME'}'>
94819213 1038 <input type='hidden' name='ACTION' value='optioncaption2' />
60124059 1039 <input type='image' alt='$Lang::tr{'caption'}' src='/images/help-browser.png' /></form></td></tr>
32f77a0b
CS		 1040 <tr><td colspan='2' align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'><textarea name="SHAREOPTION" cols="50" rows="15" Wrap="off">$shareoption</textarea></td></tr>
1041 </table>
1042 <table width='10%' cellspacing='0'>
1043 <tr><td><br /></td></tr>
94819213 1044 <tr><td align='center'><input type='hidden' name='NAME' value='$sambasettings{'NAME'}' />
60124059 1045 <input type='image' alt='$Lang::tr{'change share'}' src='/images/media-floppy.png' />
fa7be659 1046 <input type='hidden' name='ACTION' value='smbsharechange' /></form></td></tr>
32f77a0b 1047 </table>
1ee8bf5d
MT		 1048END
1049;
32f77a0b 1050 }
5e773594 1051
1ee8bf5d 1052if ($sambasettings{'ACTION'} eq 'optioncaption' || $sambasettings{'ACTION'} eq 'optioncaption2')
32f77a0b
CS		 1053 {
1054 print <<END
1055 <table width='95%' cellspacing='0'>
1056 <tr><td><br /></td></tr>
c9e1c143
CS		 1057 <tr><td><b>$Lang::tr{'caption'}</b></td></tr>
1058 <tr><td><u>$Lang::tr{'options'}</u></td><td><u>$Lang::tr{'meaning'}</u> / <u>$Lang::tr{'exampel'}</u></td></tr>
1059 <tr><td>comment</td><td>$Lang::tr{'comment'}</td></tr>
1060 <tr><td></td><td>comment = $Lang::tr{'my new share'}</td></tr>
32f77a0b 1061 <tr><td><br /></td><td></td></tr>
c9e1c143
CS		 1062 <tr><td>path</td><td>$Lang::tr{'path to directory'}</td></tr>
1063 <tr><td></td><td>path = /tmp</td></tr>
32f77a0b 1064 <tr><td><br /></td><td></td></tr>
c9e1c143 1065 <tr><td>writeable</td><td>$Lang::tr{'directory writeable'}</td></tr>
32f77a0b
CS		 1066 <tr><td></td><td>writeable = yes</td></tr>
1067 <tr><td><br /></td><td></td></tr>
1068 <tr><td>browseable</td><td>sichtbar in Verzeichnisliste</td></tr>
1069 <tr><td></td><td>browsable = yes</td></tr>
1070 <tr><td><br /></td><td></td></tr>
1071 <tr><td>user</td><td>Besitzer der Freigabe</td></tr>
1072 <tr><td></td><td>user = samba</td></tr>
1073 <tr><td><br /></td><td></td></tr>
1074 <tr><td>valid users</td><td>Liste der Zugriffsberechtigten</td></tr>
1075 <tr><td></td><td>valid users = samba, user1</td></tr>
1076 <tr><td><br /></td><td></td></tr>
c9e1c143 1077 <tr><td>write list</td><td>$Lang::tr{'visible in browselist'}</td></tr>
32f77a0b
CS		 1078 <tr><td></td><td>write list = samba</td></tr>
1079 <tr><td><br /></td><td></td></tr>
c9e1c143 1080 <tr><td>hosts allow</td><td>$Lang::tr{'host allow'}</td></tr>
32f77a0b
CS		 1081 <tr><td></td><td>hosts allow = localhost 192.168.1.1 192.168.2.0/24</td></tr>
1082 <tr><td><br /></td><td></td></tr>
c9e1c143 1083 <tr><td>hosts deny</td><td>$Lang::tr{'host deny'}</td></tr>
32f77a0b
CS		 1084 <tr><td></td><td>hosts deny = 192.168.1.2 192.168.3.0/24</td></tr>
1085 <tr><td><br /></td><td></td></tr>
c9e1c143 1086 <tr><td>read list</td><td>$Lang::tr{'read list'}</td></tr>
32f77a0b
CS		 1087 <tr><td></td><td>read list = user1</td></tr>
1088 <tr><td><br /></td><td></td></tr>
c9e1c143 1089 <tr><td>admin users</td><td>$Lang::tr{'admin users'}</td></tr>
32f77a0b
CS		 1090 <tr><td></td><td>admin users = user1</td></tr>
1091 <tr><td><br /></td><td></td></tr>
c9e1c143 1092 <tr><td>invalid users</td><td>$Lang::tr{'invalid users'}</td></tr>
32f77a0b
CS		 1093 <tr><td></td><td>invalid users = user2</td></tr>
1094 <tr><td><br /></td><td></td></tr>
c9e1c143 1095 <tr><td>force user</td><td>$Lang::tr{'force user'}</td></tr>
32f77a0b
CS		 1096 <tr><td></td><td>force user = samba</td></tr>
1097 <tr><td><br /></td><td></td></tr>
c9e1c143 1098 <tr><td>directory mask</td><td>$Lang::tr{'directory mask'}</td></tr>
32f77a0b
CS		 1099 <tr><td></td><td>directory mask = 0777</td></tr>
1100 <tr><td><br /></td><td></td></tr>
c9e1c143 1101 <tr><td>create mask</td><td>U$Lang::tr{'create mask'}</td></tr>
32f77a0b
CS		 1102 <tr><td></td><td>create mask = 0777</td></tr>
1103 <tr><td><br /></td><td></td></tr>
c9e1c143 1104 <tr><td>guest ok</td><td>$Lang::tr{'guest ok'}</td></tr>
32f77a0b
CS		 1105 <tr><td></td><td>guest ok = yes</td></tr>
1106 </table>
1ee8bf5d
MT		 1107END
1108;
1109}
1110
32f77a0b
CS		 1111&Header::closebox();
1112
1113############################################################################################################################
1114############################################### Anzeige des Sambastatus ####################################################
1115
1116&Header::openbox('100%', 'center', 'Status');
1117
1118print <<END
1119<hr />
1120<table width='95%' cellspacing='0'>
fa7be659 1121<tr><td colspan='4' align='left'><br /></td></tr>
c9e1c143 1122<tr><td bgcolor='${Header::table1colour}' colspan='3' align='left'><b>$Lang::tr{'samba status'}</b></td></tr>
fa7be659
CS		 1123<tr><td align='left'>$Status</td></tr>
1124</table>
1125END
1126;
1127&Header::closebox();
1128
1129############################################################################################################################
1130############################################### Anzeige des Sambastatus ####################################################
1131
1132
1133if ($sambasettings{'ACTION'} eq 'showlog')
1134{
c9e1c143 1135$Log = qx(tail -n $LOGLINES /var/log/samba/$sambasettings{'LOG'});
fa7be659
CS		 1136$Log=~s/\n/<br \/>/g;
1137}
1138
c9e1c143 1139&Header::openbox('100%', 'center', $Lang::tr{'log'});
fa7be659
CS		 1140
1141print <<END
1142<hr />
1143<form method='post' action='$ENV{'SCRIPT_NAME'}'>
1144<table width='95%' cellspacing='0'>
1145<tr><td colspan='3' align='left'><br /></td></tr>
c9e1c143 1146<tr><td bgcolor='${Header::table1colour}' colspan='3' align='left'><b>$Lang::tr{'log view'}</b></td></tr>
fa7be659
CS		 1147<tr><td colspan='3' align='left'><br /></td></tr>
1148<tr><td align='left'><select name='LOG' style="width: 200px">
1149END
1150;
1151foreach my $log (@Logs) {chomp $log;print"<option value='$log'>$log</option>";}
1152print <<END
1153
c9e1c143 1154</select></td><td align='left'>$Lang::tr{'show last x lines'}<input type='text' name='LOGLINES' value='$LOGLINES' size="3" /></td>
60124059 1155 <td align='left'><input type='hidden' name='ACTION' value='showlog' /><input type='image' alt='view Log' src='/images/format-justify-fill.png' /></td></tr>
fa7be659
CS		 1156<tr><td colspan='3' align='left'><br /></td></tr>
1157<tr><td colspan='3' align='left'><font size=2>$Log</font></td></tr>
1158<tr><td colspan='3' align='left'><br /></td></tr>
1159<tr><td colspan='3' align='center'>$sambasettings{'LOG'}</td></tr>
32f77a0b 1160</table>
fa7be659 1161</form>
32f77a0b
CS		 1162END
1163;
1164
1ee8bf5d 1165&Header::closebox();
5e773594
MT		 1166&Header::closebigbox();
1167&Header::closepage();
1168
1169############################################################################################################################
fa7be659 1170############################################ Subfunktion fr Sambadienste ###################################################
5e773594
MT		 1171
1172sub isrunning
32f77a0b
CS		 1173 {
1174 my $cmd = $_[0];
1175 my $status = "<td align='center' bgcolor='${Header::colourred}'><font color='white'><b>$Lang::tr{'stopped'}</b></font></td>";
1176 my $pid = '';
1177 my $testcmd = '';
1178 my $exename;
1179
1180 $cmd =~ /(^[a-z]+)/;
1181 $exename = $1;
1182
1183 if (open(FILE, "/var/run/${cmd}.pid"))
1184 {
1185 $pid = <FILE>; chomp $pid;
1186 close FILE;
1187 if (open(FILE, "/proc/${pid}/status"))
1188 {
1189 while (<FILE>)
1190 {
1191 if (/^Name:\W+(.*)/)
1192 {
1193 $testcmd = $1;
1194 }
1195 }
1196 close FILE;
1197 if ($testcmd =~ /$exename/)
1198 {
1199 $status = "<td align='center' bgcolor='${Header::colourgreen}'><font color='white'><b>$Lang::tr{'running'}</b></font></td>";
1200 }
1201 }
1202 }
1203 return $status;
1204 }
Peter's tree of IPFire 2.x