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