]> 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
Tripwire Gui integrierto>
[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'};
92004c61 27my $defaultoption= "[Share]\npath = /var/ipfire/samba/share1\ncomment = Share - Public Access\nbrowseable = yes\nwriteable = yes\ncreate mask = 0777\ndirectory mask = 0777\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
92004c61 177 <br />
fa7be659 178 <table width='95%' cellspacing='0'>
92004c61 179 <tr><td bgcolor='${Header::table1colour}' colspan='3' align='center'><b>$Lang::tr{'resetglobals'}</b>
fa7be659 180 <tr><td align='right' width='50%'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
92004c61 181 $Lang::tr{'yes'} <input type='image' alt='$Lang::tr{'yes'}' src='/images/edit-redo.png' />
fa7be659
CS		 182 <input type='hidden' name='ACTION' value='globalresetyes' /></form></td>
183 <td align='left' width='50%'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
92004c61 184 <input type='image' alt='$Lang::tr{'no'}' src='/images/dialog-error.png' /> $Lang::tr{'no'}
fa7be659
CS		 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
92004c61 195 <br />
fa7be659 196 <table width='95%' cellspacing='0'>
92004c61 197 <tr><td bgcolor='${Header::table1colour}' colspan='3' align='center'><b>$Lang::tr{'resetshares'}</b>
fa7be659 198 <tr><td align='right' width='50%'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
92004c61 199 $Lang::tr{'yes'} <input type='image' alt='$Lang::tr{'yes'}' src='/images/edit-redo.png' />
fa7be659
CS		 200 <input type='hidden' name='ACTION' value='sharesresetyes' /></form></td>
201 <td align='left' width='50%'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
92004c61 202 <input type='image' alt='$Lang::tr{'no'}' src='/images/dialog-error.png' /> $Lang::tr{'no'}
fa7be659
CS		 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 512 <hr />
92004c61 513 <br />
32f77a0b
CS		 514 <table width='95%' cellspacing='0'>
515END
516;
517if ( $message ne "" )
518 {
c9e1c143 519 print "<tr><td colspan='3' align='left'><font color='red'>$message</font>";
32f77a0b
CS		 520 }
521
522print <<END
c9e1c143 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>
92004c61 539<br />
60124059 540<table width='95%' cellspacing='0'>
60124059
CS		 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>
92004c61 546<br />
32f77a0b
CS		 547<form method='post' action='$ENV{'SCRIPT_NAME'}'>
548<table width='95%' cellspacing='0'>
c9e1c143
CS		 549<tr bgcolor='${Header::table1colour}'><td colspan='2' align='left'><b>$Lang::tr{'basic options'}</b></td></tr>
550<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>
551<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>
552<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>
553<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>
554<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		 555 <input type='radio' name='VPN' value='off' $checked{'VPN'}{'off'} /> off |
556 <font size='2' color='$Header::colourovpn'><b> OpenVpn - $ovpnsettings{'DDEVICE'}</b></font></td></tr>
fa7be659 557<tr><td align='left' width='40%'></td><td align='left'>on <input type='radio' name='GREEN' value='on' $checked{'GREEN'}{'on'} />/
32f77a0b
CS		 558 <input type='radio' name='GREEN' value='off' $checked{'GREEN'}{'off'} /> off |
559 <font size='2' color='$Header::colourgreen'><b> $Lang::tr{'green'} - $netsettings{'GREEN_DEV'}</b></font></td></tr>
560END
561;
562
563if (&Header::blue_used())
564 {
565 print <<END
fa7be659 566 <tr><td align='left' width='40%'></td><td align='left'>on <input type='radio' name='BLUE' value='on' $checked{'BLUE'}{'on'} />/
32f77a0b
CS		 567 <input type='radio' name='BLUE' value='off' $checked{'BLUE'}{'off'} /> off |
568 <font size='2' color='$Header::colourblue'><b> $Lang::tr{'wireless'} - $netsettings{'BLUE_DEV'}</b></font></td></tr>
569END
570;
571 }
572
573if (&Header::orange_used())
574 {
575 print <<END
fa7be659 576 <tr><td align='left' width='40%'></td><td align='left'>on <input type='radio' name='ORANGE' value='on' $checked{'ORANGE'}{'on'} />/
32f77a0b
CS		 577 <input type='radio' name='ORANGE' value='off' $checked{'ORANGE'}{'off'} /> off |
578 <font size='2' color='$Header::colourorange'><b> $Lang::tr{'dmz'} - $netsettings{'ORANGE_DEV'}</b></font></td></tr>
579END
580;
581 }
582
583print <<END
c9e1c143 584<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 585<tr><td align='left'><br /></td><td></td></tr>
c9e1c143
CS		 586<tr bgcolor='${Header::table1colour}'><td colspan='2' align='left'><b>$Lang::tr{'security options'}</b></td></tr>
587<tr><td align='left' width='40%'>$Lang::tr{'security'}</td><td align='left'><select name='SECURITY' style="width: 165px">
32f77a0b
CS		 588 <option value='share' $selected{'SECURITY'}{'share'}>Share</option>
589 <option value='user' $selected{'SECURITY'}{'user'}>User</option>
590 <option value='domain' $selected{'SECURITY'}{'domain'}>Domain</option>
591 <option value='ADS' $selected{'SECURITY'}{'ADS'}>ADS</option>
592 <option value='server' $selected{'SECURITY'}{'server'}>Server</option>
593 </select></td></tr>
c9e1c143 594<tr><td align='left' width='40%'>$Lang::tr{'map to guest'}</td><td align='left'><select name='MAPTOGUEST' style="width: 165px">
32f77a0b
CS		 595 <option value='Never' $selected{'MAPTOGUEST'}{'Never'}>Never</option>
596 <option value='Bad User' $selected{'MAPTOGUEST'}{'Bad User'}>Bad User</option>
597 <option value='Bad Password' $selected{'MAPTOGUEST'}{'Bad Password'}>Bad Password</option>
598 </select></td></tr>
c9e1c143 599<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 600 <input type='radio' name='PASSWORDSYNC' value='off' $checked{'PASSWORDSYNC'}{'off'} /> off</td></tr>
fa7be659 601<tr><td align='left'><br /></td><td /></tr>
c9e1c143
CS		 602<tr bgcolor='${Header::table1colour}'><td colspan='2' align='left'><b>$Lang::tr{'network options'}</b></td></tr>
603<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>
604<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		 605END
606;
c9e1c143 607if ($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 608 print <<END
c9e1c143 609<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 610 <input type='radio' name='WINSSUPPORT' value='off' $checked{'WINSSUPPORT'}{'off'} /> off</td></tr>
32f77a0b
CS		 611END
612;
613
614if ($sambasettings{'SECURITY'} eq 'user')
615 {
616 print <<END
c9e1c143 617<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 618 <input type='radio' name='LOCALMASTER' value='off' $checked{'LOCALMASTER'}{'off'} /> off</td></tr>
c9e1c143 619<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 620 <input type='radio' name='DOMAINMASTER' value='off' $checked{'DOMAINMASTER'}{'off'} /> off</td></tr>
c9e1c143 621<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		 622 <input type='radio' name='PREFERREDMASTER' value='off' $checked{'PREFERREDMASTER'}{'off'} /> off</td></tr>
623END
624;
625 }
626
627if ($sambasettings{'SECURITY'} eq 'user' && $sambasettings{'DOMAINMASTER'} eq 'on')
628 {
629 print <<END
630 <tr><td align='left'><br /></td><td></td></tr>
c9e1c143 631 <tr bgcolor='${Header::table1colour}'><td colspan='2' align='left'><b>$Lang::tr{'pdc options'}</b></td></tr>
32f77a0b
CS		 632 <tr><td align='left'><br /></td><td></td></tr>
633 <tr><td colspan='2' align='center'><textarea name="PDCOPTIONS" cols="50" rows="15" Wrap="off">$PDCOPTIONS</textarea></td></tr>
634END
635;
636 }
637
638print <<END
639</table>
92004c61 640<br />
32f77a0b 641<table width='10%' cellspacing='0'>
32f77a0b
CS		 642<tr><td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
643 <input type='hidden' name='ACTION' value=$Lang::tr{'save'} />
60124059 644 <input type='image' alt='$Lang::tr{'save'}' src='/images/media-floppy.png' /></form></td>
32f77a0b
CS		 645<td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
646 <input type='hidden' name='ACTION' value='globalreset' />
c9e1c143 647 <input type='image' alt='$Lang::tr{'reset'}' src='/images/reload.gif' /></form></td>
32f77a0b
CS		 648<td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
649 <input type='hidden' name='ACTION' value='globalcaption' />
60124059 650 <input type='image' alt='$Lang::tr{'caption'}' src='/images/help-browser.png' /></form></td></tr>
32f77a0b 651</table>
44254afd
MT		 652END
653;
32f77a0b 654
44254afd 655if ($sambasettings{'ACTION'} eq 'globalcaption')
32f77a0b
CS		 656 {
657 print <<END
92004c61 658 <br />
32f77a0b 659 <table width='95%' cellspacing='0'>
c9e1c143 660 <tr><td align='center' colspan='2'><b>$Lang::tr{'caption'}</b></td></tr>
60124059 661 <tr><td align='right' width='33%'><img src='/images/media-floppy.png' /></td><td align='left'>$Lang::tr{'save settings'}</td></tr>
c9e1c143 662 <tr><td align='right' width='33%'><img src='/images/reload.gif' /></td><td align='left'>$Lang::tr{'restore settings'}</td></tr>
32f77a0b 663 </table>
5e773594
MT		 664END
665;
32f77a0b
CS		 666 }
667
5e773594
MT		 668&Header::closebox();
669
14cc7eac 670############################################################################################################################
32f77a0b 671########################################## Benutzerverwaltung fr Usersecurity #############################################
14cc7eac 672
1ee8bf5d 673if ($sambasettings{'SECURITY'} eq 'user')
32f77a0b
CS		 674 {
675 if ($sambasettings{'DOMAINMASTER'} eq 'off')
676 {
c9e1c143 677 &Header::openbox('100%', 'center', $Lang::tr{'accounting user nonpdc'});
32f77a0b
CS		 678 }
679 else
680 {
c9e1c143 681 &Header::openbox('100%', 'center', $Lang::tr{'accounting user pdc'});
32f77a0b
CS		 682 }
683 print <<END
684 <hr />
92004c61 685 <br />
32f77a0b 686 <table width='95%' cellspacing='0'>
32f77a0b 687 <tr><td colspan='6' align='left'></td></tr>
c9e1c143
CS		 688 <tr><td bgcolor='${Header::table1colour}' colspan='7' align='left'><b>$Lang::tr{'accounting'}</b></td></tr>
689 <tr><td align='left'><u>$Lang::tr{'username'}</u></td><td align='left'><u>$Lang::tr{'password'}</u></td>
32f77a0b
CS		 690END
691;
5e773594 692
32f77a0b
CS		 693 if ($sambasettings{'DOMAINMASTER'} eq 'off')
694 {
695 print "<td></td>";
696 }
697 else
698 {
92004c61 699 print "<td align='left'><u>$Lang::tr{'type'}</u></td>";
32f77a0b
CS		 700 }
701
92004c61 702 print "<td align='left'><u>$Lang::tr{'status'}</u></td><td colspan='3' width='5%' align='center'><u>$Lang::tr{'options'}</u></td></tr>";
32f77a0b
CS		 703 system('/usr/local/bin/sambactrl readsmbpasswd');
704 open(FILE, "</var/ipfire/samba/private/smbpasswd") or die "Can't read user file: $!";
705 @user = <FILE>;
706 close(FILE);
707 system('/usr/local/bin/sambactrl locksmbpasswd');
708 foreach $userentry (sort @user)
709 {
710 @userline = split( /\:/, $userentry );
fa7be659 711 print "<tr><td align='left'>$userline[0]</td><td align='left'>";
32f77a0b
CS		 712 if ($userline[4] =~ /N/)
713 {
c9e1c143 714 print "$Lang::tr{'not set'}</td><td align='left'>";
32f77a0b
CS		 715 }
716 else
717 {
c9e1c143 718 print "$Lang::tr{'set'}</td><td align='left'>";
32f77a0b
CS		 719 }
720
721 if ($sambasettings{'DOMAINMASTER'} eq 'off')
722 {
fa7be659 723 print "</td><td align='left'>";
32f77a0b
CS		 724 }
725 else
726 {
727 if ($userline[0] =~ /\$/)
728 {
c9e1c143 729 print "$Lang::tr{'interfaces'}</td><td align='left'>";
32f77a0b
CS		 730 }
731 else
732 {
c9e1c143 733 print "$Lang::tr{'user'}</td><td align='left'>";
32f77a0b
CS		 734 }
735 }
736
737 if ($userline[4] =~ /D/)
738 {
739 print <<END
92004c61 740 $Lang::tr{'inactive'}</td>
fa7be659 741 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
32f77a0b
CS		 742 <input type='hidden' name='NAME' value='$userline[0]' />
743 <input type='hidden' name='ACTION' value='smbuserenable' />
c9e1c143 744 <input type='image' alt='$Lang::tr{'activate'}' src='/images/on.gif' />
32f77a0b
CS		 745 </form></td>
746END
747;
748 }
749 else
750 {
751 print <<END
92004c61 752 $Lang::tr{'active'}</td>
fa7be659 753 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
32f77a0b
CS		 754 <input type='hidden' name='NAME' value='$userline[0]' />
755 <input type='hidden' name='ACTION' value='smbuserdisable' />
c9e1c143 756 <input type='image' alt='$Lang::tr{'deactivate'}' src='/images/off.gif' />
32f77a0b
CS		 757 </form></td>
758END
759;
760 }
761
762 if ($userline[0] =~ /\$/)
763 {
764 print "<td></td>";
765 }
766 else
767 {
768 print <<END
fa7be659 769 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
32f77a0b
CS		 770 <input type='hidden' name='NAME' value='$userline[0]' />
771 <input type='hidden' name='ACTION' value='userchangepw' />
c9e1c143 772 <input type='image' alt='$Lang::tr{'edit'}' src='/images/edit.gif' />
32f77a0b
CS		 773 </form></td>
774END
775;
776 }
777
fa7be659
CS		 778 if ($sambasettings{'DOMAINMASTER'} eq 'on' && $userline[0] =~ /\$/)
779 {
780 print <<END
781 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
782 <input type='hidden' name='NAME' value='$userline[0]' />
783 <input type='hidden' name='ACTION' value='userdelete' />
c9e1c143 784 <input type='image' alt='$Lang::tr{'delete'}' src='/images/network-error.png' />
fa7be659
CS		 785 </form></td></tr>
786END
787;
788 }
789 else
790 {
791 print <<END
792 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
793 <input type='hidden' name='NAME' value='$userline[0]' />
794 <input type='hidden' name='ACTION' value='userdelete' />
c9e1c143 795 <input type='image' alt='$Lang::tr{'delete'}' src='/images/user-option-remove.png' />
fa7be659 796 </form></td></tr>
32f77a0b
CS		 797END
798;
fa7be659 799 }
32f77a0b
CS		 800 }
801 print <<END
802 </table>
92004c61 803 <br />
32f77a0b 804 <table width='10%' cellspacing='0'>
32f77a0b
CS		 805 <tr><td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
806 <input type='hidden' name='ACTION' value='useradd' />
c9e1c143 807 <input type='image' alt='$Lang::tr{'add user'}' src='/images/user-option-add.png' /></form></td>
5e773594
MT		 808END
809;
1ee8bf5d 810
32f77a0b
CS		 811 if ($sambasettings{'DOMAINMASTER'} eq 'on')
812 {
813 print <<END
814 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
815 <input type='hidden' name='ACTION' value='pcadd' />
c9e1c143 816 <input type='image' alt='$Lang::tr{'add pc'}' src='/images/network.png' /></form>
32f77a0b
CS		 817END
818;
819 }
820 print <<END
821 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
822 <input type='hidden' name='ACTION' value='usercaption' />
60124059 823 <input type='image' alt='$Lang::tr{'caption'}' src='/images/help-browser.png' /></form>
94819213 824 </td></tr>
32f77a0b
CS		 825 </table>
826END
827;
44254afd 828
32f77a0b
CS		 829 if ($sambasettings{'ACTION'} eq 'usercaption')
830 {
831 print <<END
92004c61 832 <br />
32f77a0b 833 <table width='95%' cellspacing='0'>
c9e1c143
CS		 834 <tr><td align='center' colspan='2'><b>$Lang::tr{'caption'}</b></td></tr>
835 <tr><td align='right' width='33%'><img src='/images/user-option-add.png' /></td><td align='left'>$Lang::tr{'add user'}</td></tr>
836 <tr><td align='right' width='33%'><img src='/images/network.png' /></td><td align='left'>$Lang::tr{'add pc'}</td></tr>
837 <tr><td align='right' width='33%'><img src='/images/user-option-remove.png' /></td><td align='left'>$Lang::tr{'delete user'}</td></tr>
838 <tr><td align='right' width='33%'><img src='/images/network-error.png' /></td><td align='left'>$Lang::tr{'delete pc'}</td></tr>
839 <tr><td align='right' width='33%'><img src='/images/on.gif' /></td><td align='left'>$Lang::tr{'activate user'}</td></tr>
840 <tr><td align='right' width='33%'><img src='/images/off.gif' /></td><td align='left'>$Lang::tr{'deactivate user'}</td></tr>
841 <tr><td align='right' width='33%'><img src='/images/edit.gif' /></td><td align='left'>$Lang::tr{'change passwords'}</td></tr>
60124059 842 <tr><td align='right' width='33%'><img src='/images/media-floppy.png' /></td><td align='left'>$Lang::tr{'save config'}</td></tr>
32f77a0b 843 </table>
1ee8bf5d
MT		 844END
845;
32f77a0b
CS		 846 }
847
848 if ($sambasettings{'ACTION'} eq 'userchangepw')
849 {
850 my $username = "$sambasettings{'NAME'}";
851 my $password = 'samba';
852 print <<END
853 <hr />
92004c61 854 <br />
32f77a0b
CS		 855 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
856 <table width='95%' cellspacing='0'>
c9e1c143
CS		 857 <tr bgcolor='${Header::table1colour}'><td colspan='2' align='left'><b>$Lang::tr{'change passwords'}</b></td></tr>
858 <tr><td align='left'>$Lang::tr{'username'}</td><td><input type='text' name='USERNAME' value='$username' size='30' /></td></tr>
859 <tr><td align='left'>$Lang::tr{'password'}</td><td><input type='password' name='PASSWORD' value='$password' size='30' /></td></tr>
32f77a0b 860 <tr><td colspan='2' align='center'><input type='hidden' name='ACTION' value='smbchangepw' />
60124059 861 <input type='image' alt=$Lang::tr{'save'} src='/images/media-floppy.png' /></td></tr>
32f77a0b 862 </table>
94819213 863 </form>
1ee8bf5d
MT		 864END
865;
32f77a0b
CS		 866 }
867
868 if ($sambasettings{'ACTION'} eq 'useradd')
869 {
870 my $username = "user";
871 my $password = "samba";
872 chomp $username;
873 $username=~s/\s//g;
874 chomp $password;
875 $password=~s/\s//g;
876 print <<END
877 <hr />
92004c61 878 <br />
32f77a0b
CS		 879 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
880 <table width='95%' cellspacing='0'>
c9e1c143
CS		 881 <tr bgcolor='${Header::table1colour}'><td colspan='2' align='left'><b>$Lang::tr{'add user'}</b></td></tr>
882 <tr><td align='left'>$Lang::tr{'username'}</td><td><input type='text' name='USERNAME' value='$username' size='30' /></td></tr>
883 <tr><td align='left'>$Lang::tr{'password'}</td><td><input type='password' name='PASSWORD' value='$password' size='30' /></td></tr>
884 <tr><td align='left'>$Lang::tr{'unix group'}</td><td><input type='text' name='GROUP' value='sambauser' size='30' /></td></tr>
885 <tr><td align='left'>$Lang::tr{'unix shell'}</td><td><input type='text' name='SHELL' value='/bin/false' size='30' /></td></tr>
32f77a0b 886 <tr><td colspan='2' align='center'><input type='hidden' name='ACTION' value='smbuseradd' />
60124059 887 <input type='image' alt=$Lang::tr{'save'} src='/images/media-floppy.png' /></td></tr>
32f77a0b 888 </table>
94819213 889 </form>
32f77a0b
CS		 890END
891;
892 }
893
894 if ($sambasettings{'ACTION'} eq 'pcadd')
895 {
896 my $pcname = "client\$";
897 chomp $pcname;
898 $pcname=~s/\s//g;
899 print <<END
900 <hr />
92004c61 901 <br />
32f77a0b
CS		 902 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
903 <table width='95%' cellspacing='0'>
c9e1c143
CS		 904 <tr bgcolor='${Header::table1colour}'><td colspan='2' align='left'><b>$Lang::tr{'pc add'}</b></td></tr>
905 <tr><td align='left'>$Lang::tr{'client'}</td><td><input type='text' name='PCNAME' value='$pcname' size='30' /></td></tr>
906 <tr><td align='left'>$Lang::tr{'unix group'}</td><td><input type='text' name='GROUP' value='sambawks' size='30' /></td></tr>
907 <tr><td align='left'>$Lang::tr{'unix shell'}</td><td><input type='text' name='SHELL' value='/bin/false' size='30' /></td></tr>
32f77a0b 908 <tr><td colspan='2' align='center'><input type='hidden' name='ACTION' value='smbpcadd' />
60124059 909 <input type='image' alt=$Lang::tr{'save'} src='/images/media-floppy.png' /></td></tr>
32f77a0b 910 </table>
94819213 911 </form>
32f77a0b
CS		 912END
913;
914 }
97de2cae
MT		 915
916&Header::closebox();
1ee8bf5d 917}
14cc7eac
MT		 918
919############################################################################################################################
920############################################### Verwalten von Freigaben ####################################################
fa7be659 921
c9e1c143 922&Header::openbox('100%', 'center', $Lang::tr{'shares'});
97de2cae 923
1ee8bf5d 924print <<END
32f77a0b 925<hr />
92004c61 926<br />
32f77a0b 927<table width='95%' cellspacing='0'>
c9e1c143
CS		 928<tr><td bgcolor='${Header::table1colour}' colspan='3' align='left'><b>$Lang::tr{'manage shares'}</b>
929<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		 930END
931;
14cc7eac 932
32f77a0b
CS		 933foreach $shareentry (sort @Shares)
934 {
935 print <<END
936 <tr><td align='left'>$shareentry</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='sharechange' />
c9e1c143 940 <input type='image' alt='$Lang::tr{'edit'}' src='/images/edit.gif' />
32f77a0b
CS		 941 </form></td>
942 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
943 <input type='hidden' name='NAME' value='$shareentry' />
944 <input type='hidden' name='ACTION' value='smbsharedel' />
60124059 945 <input type='image' alt='$Lang::tr{'delete'}' src='/images/user-trash.png' />
94819213 946 </form></td></tr>
32f77a0b
CS		 947END
948;
949 }
950
951print <<END
952</table>
92004c61 953<br />
32f77a0b 954<table width='10%' cellspacing='0'>
32f77a0b 955<tr><td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
94819213 956 <input type='hidden' name='ACTION' value='shareadd' />
60124059 957 <input type='image' alt='$Lang::tr{'add share'}' src='/images/list-add.png' />
32f77a0b
CS		 958 </form></td>
959 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
94819213 960 <input type='hidden' name='ACTION' value='sharesreset' />
c9e1c143 961 <input type='image' alt='$Lang::tr{'reset'}' src='/images/reload.gif' />
32f77a0b
CS		 962 </form></td>
963 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
94819213 964 <input type='hidden' name='ACTION' value='sharecaption' />
60124059 965 <input type='image' alt='$Lang::tr{'caption'}' src='/images/help-browser.png' />
94819213 966 </form></td></tr>
32f77a0b 967</table>
1ee8bf5d
MT		 968END
969;
32f77a0b 970
1ee8bf5d 971if ($sambasettings{'ACTION'} eq 'sharecaption')
32f77a0b
CS		 972 {
973 print <<END
92004c61 974 <br />
32f77a0b 975 <table width='95%' cellspacing='0'>
92004c61 976 <tr><td align='center' colspan='2'><b>$Lang::tr{'caption'}</b></td></tr>
60124059 977 <tr><td align='right' width='33%'><img src='/images/list-add.png' /></td><td align='left'>$Lang::tr{'add share'}</td></tr>
c9e1c143 978 <tr><td align='right' width='33%'><img src='/images/edit.gif' /></td><td align='left'>$Lang::tr{'edit share'}</td></tr>
60124059 979 <tr><td align='right' width='33%'><img src='/images/media-floppy.png' /></td><td align='left'>$Lang::tr{'save config'}</td></tr>
c9e1c143 980 <tr><td align='right' width='33%'><img src='/images/reload.gif' /></td><td align='left'>$Lang::tr{'reset shares'}</td></tr>
60124059 981 <tr><td align='right' width='33%'><img src='/images/user-trash.png' /></td><td align='left'>$Lang::tr{'delete share'}</td></tr>
32f77a0b 982 </table>
1ee8bf5d
MT		 983END
984;
32f77a0b 985 }
97de2cae 986
1ee8bf5d 987if ($sambasettings{'ACTION'} eq 'shareadd' || $sambasettings{'ACTION'} eq 'optioncaption' )
32f77a0b
CS		 988 {
989 print <<END
990 <hr />
92004c61 991 <br />
32f77a0b 992 <table width='95%' cellspacing='0'>
c9e1c143 993 <tr bgcolor='${Header::table1colour}'><td colspan='2' align='left'><b>$Lang::tr{'add share'}</b></td></tr>
32f77a0b 994 <tr><td colspan='2' align='center'></td></tr>
c9e1c143 995 <tr><td colspan='2' align='center'>$Lang::tr{'show share options'}<form method='post' action='$ENV{'SCRIPT_NAME'}'>
94819213 996 <input type='hidden' name='ACTION' value='optioncaption' />
60124059 997 <input type='image' alt='$Lang::tr{'caption'}' src='/images/help-browser.png' />
32f77a0b 998 </form></td></tr>
94819213 999 <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 1000 </table>
92004c61 1001 <br />
32f77a0b 1002 <table width='10%' cellspacing='0'>
94819213 1003 <tr><td align='center'><input type='hidden' name='ACTION' value='smbshareadd' />
60124059 1004 <input type='image' alt='$Lang::tr{'add share'}' src='/images/media-floppy.png' /></td></tr></form>
32f77a0b 1005 </table>
5e773594
MT		 1006END
1007;
32f77a0b 1008 }
5e773594 1009
1ee8bf5d 1010if ($sambasettings{'ACTION'} eq 'sharechange' || $sambasettings{'ACTION'} eq 'optioncaption2' )
32f77a0b
CS		 1011 {
1012 my $sharename = "$sambasettings{'NAME'}";
1013 chomp $sharename;
1014 $sharename=~s/\s//g;
1015
1016 for(my $i = 0; $i <= $#Shares; $i++)
1017 {
1018 chomp $Shares[$i];
1019 $Shares[$i]=~s/\s//g;
1020 if ( "$Shares[$i]" eq "$sharename" )
1021 {
1022 my $Zeilenbegin = $Zeilen[$i+1]-2;
1023 my $Zeilenende = $Zeilen[$i+1]-$Zeilen[$i];
1024 if ( $Zeilen[$i] eq $Zeilen[$#Shares] )
1025 {$Zeilenende = $EOF-$Zeilen[$#Shares]+1;$Zeilenbegin = $EOF-$Zeilen[$#Shares]; $shareoption = qx(tail -$Zeilenende $sharefile | head -$Zeilenbegin);}
1026 else
1027 {$shareoption = qx(head -$Zeilenbegin $sharefile | tail -$Zeilenende);}
1028 }
1029 }
1030 print <<END
1031 <hr />
92004c61 1032 <br />
32f77a0b 1033 <table width='95%' cellspacing='0'>
c9e1c143 1034 <tr bgcolor='${Header::table1colour}'><td colspan='2' align='left'><b>$Lang::tr{'edit share'}</b></td></tr>
32f77a0b 1035 <tr><td colspan='2' align='center'></td></tr>
c9e1c143 1036 <tr><td colspan='2' align='center'>$Lang::tr{'show share options'}<form method='post' action='$ENV{'SCRIPT_NAME'}'>
94819213 1037 <input type='hidden' name='ACTION' value='optioncaption2' />
60124059 1038 <input type='image' alt='$Lang::tr{'caption'}' src='/images/help-browser.png' /></form></td></tr>
32f77a0b
CS		 1039 <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>
1040 </table>
92004c61 1041 <br />
32f77a0b 1042 <table width='10%' cellspacing='0'>
94819213 1043 <tr><td align='center'><input type='hidden' name='NAME' value='$sambasettings{'NAME'}' />
60124059 1044 <input type='image' alt='$Lang::tr{'change share'}' src='/images/media-floppy.png' />
fa7be659 1045 <input type='hidden' name='ACTION' value='smbsharechange' /></form></td></tr>
32f77a0b 1046 </table>
1ee8bf5d
MT		 1047END
1048;
32f77a0b 1049 }
5e773594 1050
1ee8bf5d 1051if ($sambasettings{'ACTION'} eq 'optioncaption' || $sambasettings{'ACTION'} eq 'optioncaption2')
32f77a0b
CS		 1052 {
1053 print <<END
92004c61 1054 <br />
32f77a0b 1055 <table width='95%' cellspacing='0'>
c9e1c143
CS		 1056 <tr><td><b>$Lang::tr{'caption'}</b></td></tr>
1057 <tr><td><u>$Lang::tr{'options'}</u></td><td><u>$Lang::tr{'meaning'}</u> / <u>$Lang::tr{'exampel'}</u></td></tr>
1058 <tr><td>comment</td><td>$Lang::tr{'comment'}</td></tr>
1059 <tr><td></td><td>comment = $Lang::tr{'my new share'}</td></tr>
32f77a0b 1060 <tr><td><br /></td><td></td></tr>
c9e1c143
CS		 1061 <tr><td>path</td><td>$Lang::tr{'path to directory'}</td></tr>
1062 <tr><td></td><td>path = /tmp</td></tr>
32f77a0b 1063 <tr><td><br /></td><td></td></tr>
c9e1c143 1064 <tr><td>writeable</td><td>$Lang::tr{'directory writeable'}</td></tr>
32f77a0b
CS		 1065 <tr><td></td><td>writeable = yes</td></tr>
1066 <tr><td><br /></td><td></td></tr>
1067 <tr><td>browseable</td><td>sichtbar in Verzeichnisliste</td></tr>
1068 <tr><td></td><td>browsable = yes</td></tr>
1069 <tr><td><br /></td><td></td></tr>
1070 <tr><td>user</td><td>Besitzer der Freigabe</td></tr>
1071 <tr><td></td><td>user = samba</td></tr>
1072 <tr><td><br /></td><td></td></tr>
1073 <tr><td>valid users</td><td>Liste der Zugriffsberechtigten</td></tr>
1074 <tr><td></td><td>valid users = samba, user1</td></tr>
1075 <tr><td><br /></td><td></td></tr>
c9e1c143 1076 <tr><td>write list</td><td>$Lang::tr{'visible in browselist'}</td></tr>
32f77a0b
CS		 1077 <tr><td></td><td>write list = samba</td></tr>
1078 <tr><td><br /></td><td></td></tr>
c9e1c143 1079 <tr><td>hosts allow</td><td>$Lang::tr{'host allow'}</td></tr>
32f77a0b
CS		 1080 <tr><td></td><td>hosts allow = localhost 192.168.1.1 192.168.2.0/24</td></tr>
1081 <tr><td><br /></td><td></td></tr>
c9e1c143 1082 <tr><td>hosts deny</td><td>$Lang::tr{'host deny'}</td></tr>
32f77a0b
CS		 1083 <tr><td></td><td>hosts deny = 192.168.1.2 192.168.3.0/24</td></tr>
1084 <tr><td><br /></td><td></td></tr>
c9e1c143 1085 <tr><td>read list</td><td>$Lang::tr{'read list'}</td></tr>
32f77a0b
CS		 1086 <tr><td></td><td>read list = user1</td></tr>
1087 <tr><td><br /></td><td></td></tr>
c9e1c143 1088 <tr><td>admin users</td><td>$Lang::tr{'admin users'}</td></tr>
32f77a0b
CS		 1089 <tr><td></td><td>admin users = user1</td></tr>
1090 <tr><td><br /></td><td></td></tr>
c9e1c143 1091 <tr><td>invalid users</td><td>$Lang::tr{'invalid users'}</td></tr>
32f77a0b
CS		 1092 <tr><td></td><td>invalid users = user2</td></tr>
1093 <tr><td><br /></td><td></td></tr>
c9e1c143 1094 <tr><td>force user</td><td>$Lang::tr{'force user'}</td></tr>
32f77a0b
CS		 1095 <tr><td></td><td>force user = samba</td></tr>
1096 <tr><td><br /></td><td></td></tr>
c9e1c143 1097 <tr><td>directory mask</td><td>$Lang::tr{'directory mask'}</td></tr>
32f77a0b
CS		 1098 <tr><td></td><td>directory mask = 0777</td></tr>
1099 <tr><td><br /></td><td></td></tr>
c9e1c143 1100 <tr><td>create mask</td><td>U$Lang::tr{'create mask'}</td></tr>
32f77a0b
CS		 1101 <tr><td></td><td>create mask = 0777</td></tr>
1102 <tr><td><br /></td><td></td></tr>
c9e1c143 1103 <tr><td>guest ok</td><td>$Lang::tr{'guest ok'}</td></tr>
32f77a0b
CS		 1104 <tr><td></td><td>guest ok = yes</td></tr>
1105 </table>
1ee8bf5d
MT		 1106END
1107;
1108}
1109
32f77a0b
CS		 1110&Header::closebox();
1111
1112############################################################################################################################
1113############################################### Anzeige des Sambastatus ####################################################
1114
1115&Header::openbox('100%', 'center', 'Status');
1116
1117print <<END
1118<hr />
92004c61 1119<br />
32f77a0b 1120<table width='95%' cellspacing='0'>
c9e1c143 1121<tr><td bgcolor='${Header::table1colour}' colspan='3' align='left'><b>$Lang::tr{'samba status'}</b></td></tr>
fa7be659
CS		 1122<tr><td align='left'>$Status</td></tr>
1123</table>
1124END
1125;
1126&Header::closebox();
1127
1128############################################################################################################################
1129############################################### Anzeige des Sambastatus ####################################################
1130
1131
1132if ($sambasettings{'ACTION'} eq 'showlog')
1133{
c9e1c143 1134$Log = qx(tail -n $LOGLINES /var/log/samba/$sambasettings{'LOG'});
fa7be659
CS		 1135$Log=~s/\n/<br \/>/g;
1136}
1137
c9e1c143 1138&Header::openbox('100%', 'center', $Lang::tr{'log'});
fa7be659
CS		 1139
1140print <<END
1141<hr />
92004c61 1142<br />
fa7be659
CS		 1143<form method='post' action='$ENV{'SCRIPT_NAME'}'>
1144<table width='95%' cellspacing='0'>
c9e1c143 1145<tr><td bgcolor='${Header::table1colour}' colspan='3' align='left'><b>$Lang::tr{'log view'}</b></td></tr>
fa7be659
CS		 1146<tr><td colspan='3' align='left'><br /></td></tr>
1147<tr><td align='left'><select name='LOG' style="width: 200px">
1148END
1149;
1150foreach my $log (@Logs) {chomp $log;print"<option value='$log'>$log</option>";}
1151print <<END
1152
c9e1c143 1153</select></td><td align='left'>$Lang::tr{'show last x lines'}<input type='text' name='LOGLINES' value='$LOGLINES' size="3" /></td>
60124059 1154 <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		 1155<tr><td colspan='3' align='left'><br /></td></tr>
1156<tr><td colspan='3' align='left'><font size=2>$Log</font></td></tr>
1157<tr><td colspan='3' align='left'><br /></td></tr>
1158<tr><td colspan='3' align='center'>$sambasettings{'LOG'}</td></tr>
32f77a0b 1159</table>
fa7be659 1160</form>
32f77a0b
CS		 1161END
1162;
1163
1ee8bf5d 1164&Header::closebox();
5e773594
MT		 1165&Header::closebigbox();
1166&Header::closepage();
1167
1168############################################################################################################################
fa7be659 1169############################################ Subfunktion fr Sambadienste ###################################################
5e773594
MT		 1170
1171sub isrunning
32f77a0b
CS		 1172 {
1173 my $cmd = $_[0];
1174 my $status = "<td align='center' bgcolor='${Header::colourred}'><font color='white'><b>$Lang::tr{'stopped'}</b></font></td>";
1175 my $pid = '';
1176 my $testcmd = '';
1177 my $exename;
1178
1179 $cmd =~ /(^[a-z]+)/;
1180 $exename = $1;
1181
1182 if (open(FILE, "/var/run/${cmd}.pid"))
1183 {
1184 $pid = <FILE>; chomp $pid;
1185 close FILE;
1186 if (open(FILE, "/proc/${pid}/status"))
1187 {
1188 while (<FILE>)
1189 {
1190 if (/^Name:\W+(.*)/)
1191 {
1192 $testcmd = $1;
1193 }
1194 }
1195 close FILE;
1196 if ($testcmd =~ /$exename/)
1197 {
1198 $status = "<td align='center' bgcolor='${Header::colourgreen}'><font color='white'><b>$Lang::tr{'running'}</b></font></td>";
1199 }
1200 }
1201 }
1202 return $status;
1203 }
Peter's tree of IPFire 2.x