]>
git.ipfire.org Git - people/mfischer/ipfire-2.x.git/blob - html/cgi-bin/samba.cgi
b8ea188575cbccc151c6d1079022417941ff1e33
2 ###############################################################################
4 # IPFire.org - A linux based firewall #
5 # Copyright (C) 2005-2013 IPFire Team <info@ipfire.org> #
7 # This program is free software: you can redistribute it and/or modify #
8 # it under the terms of the GNU General Public License as published by #
9 # the Free Software Foundation, either version 3 of the License, or #
10 # (at your option) any later version. #
12 # This program is distributed in the hope that it will be useful, #
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of #
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
15 # GNU General Public License for more details. #
17 # You should have received a copy of the GNU General Public License #
18 # along with this program. If not, see <http://www.gnu.org/licenses/>. #
20 ###############################################################################
23 # enable only the following on debugging purpose
25 #use CGI::Carp 'fatalsToBrowser';
27 require '/var/ipfire/general-functions.pl';
28 require "${General::swroot}/lang.pl";
29 require "${General::swroot}/header.pl";
31 my %sambasettings = ();
36 my %mainsettings = ();
38 my $errormessage = "";
40 my $Status = qx(/usr/local/bin/sambactrl smbstatus
);
41 $Status = &Header
::cleanhtml
($Status);
46 my $userfile = "${General::swroot}/samba/private/smbpasswd";
49 my $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";
52 &General
::readhash
("${General::swroot}/ethernet/settings", \
%netsettings);
53 &General
::readhash
("${General::swroot}/main/settings", \
%mainsettings);
54 &General
::readhash
("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \
%color);
56 ############################################################################################################################
57 ############################################# Samba Dienste fr Statusberprfung ##########################################
59 my %servicenames = ('SMB Daemon' => 'smbd', 'NetBIOS Nameserver' => 'nmbd', 'Winbind Daemon' => 'winbindd');
61 &Header
::showhttpheaders
();
63 ############################################################################################################################
64 #################################### Initialisierung von Samba Variablen fr global Settings ###############################
66 $sambasettings{'WORKGRP'} = 'homeip.net';
67 $sambasettings{'INTERFACES'} = '';
68 $sambasettings{'SECURITY'} = 'user';
69 $sambasettings{'REMOTEANNOUNCE'} = '';
70 $sambasettings{'REMOTESYNC'} = '';
71 $sambasettings{'GUESTACCOUNT'} = 'samba';
72 $sambasettings{'MAPTOGUEST'} = 'Bad User';
73 $sambasettings{'WIDELINKS'} = 'on';
74 $sambasettings{'UNIXEXTENSION'} = 'off';
75 $sambasettings{'ENCRYPTION'} = 'optional';
76 ### Values that have to be initialized
77 $sambasettings{'ACTION'} = '';
80 ############################################################################################################################
82 &General
::readhash
("${General::swroot}/samba/settings", \
%sambasettings);
83 &Header
::getcgihash
(\
%sambasettings);
85 sub refreshpage
{&Header
::openbox
( 'Waiting', 1, "<meta http-equiv='refresh' content='1;'>" );print "<center><img src='/images/clock.gif' alt='' /><br/><font color='red'>$Lang::tr{'pagerefresh'}</font></center>";&Header
::closebox
();}
87 if (($sambasettings{'WIDELINKS'} eq 'on') & ($sambasettings{'UNIXEXTENSION'} eq 'on'))
88 {$errormessage = "$errormessage<br />Don't enable 'Wide links' and 'Unix extension' at the same time"; }
90 &Header
::openpage
('Samba', 1, '');
91 &Header
::openbigbox
('100%', 'left', '', $errormessage);
93 ############################################################################################################################
94 ############################################# Samba Rootskript aufrufe fr SU-Actions #######################################
96 if ($sambasettings{'ACTION'} eq 'smbuserdisable'){system("/usr/local/bin/sambactrl smbuserdisable $sambasettings{'NAME'}");refreshpage
();}
97 if ($sambasettings{'ACTION'} eq 'smbuserenable'){system("/usr/local/bin/sambactrl smbuserenable $sambasettings{'NAME'}");refreshpage
();}
98 if ($sambasettings{'ACTION'} eq 'smbuseradd'){system("/usr/local/bin/sambactrl smbuseradd $sambasettings{'USERNAME'} $sambasettings{'PASSWORD'} $sambasettings{'GROUP'} $sambasettings{'SHELL'}");refreshpage
();}
99 if ($sambasettings{'ACTION'} eq 'smbpcadd'){system("/usr/local/bin/sambactrl smbpcadd $sambasettings{'PCNAME'} $sambasettings{'GROUP'} $sambasettings{'SHELL'}");refreshpage
();}
100 if ($sambasettings{'ACTION'} eq 'smbchangepw'){system("/usr/local/bin/sambactrl smbchangepw $sambasettings{'USERNAME'} $sambasettings{'PASSWORD'}");refreshpage
();}
101 if ($sambasettings{'ACTION'} eq 'smbrestart'){system("/usr/local/bin/sambactrl smbrestart");refreshpage
();}
102 if ($sambasettings{'ACTION'} eq 'smbstart'){system("/usr/local/bin/sambactrl smbstart");refreshpage
();}
103 if ($sambasettings{'ACTION'} eq 'smbstop'){system("/usr/local/bin/sambactrl smbstop");refreshpage
();}
104 if ($sambasettings{'ACTION'} eq 'smbreload'){system("/usr/local/bin/sambactrl smbreload");refreshpage
();}
105 if ($sambasettings{'ACTION'} eq 'join') {
106 $message .= &joindomain
($sambasettings{'USERNAME'}, $sambasettings{'PASSWORD'});
109 ############################################################################################################################
110 ########################################### Samba Benutzer oder PC l�chen #################################################
112 if ($sambasettings{'ACTION'} eq 'userdelete'){system("/usr/local/bin/sambactrl smbuserdelete $sambasettings{'NAME'}");refreshpage
();}
114 ############################################################################################################################
115 ##################################### Umsetzen der Werte von Checkboxen und Dropdowns ######################################
117 if ($sambasettings{'ACTION'} eq $Lang::tr
{'save'})
119 ############################################################################################################################
120 ##################################### Schreiben settings und bersetzen fr smb.conf #######################################
122 delete $sambasettings{'__CGI__'};delete $sambasettings{'x'};delete $sambasettings{'y'};
123 &General
::writehash
("${General::swroot}/samba/settings", \
%sambasettings);
125 if ($sambasettings{'WIDELINKS'} eq 'on'){ $sambasettings{'WIDELINKS'} = "yes";} else { $sambasettings{'WIDELINKS'} = "no";}
126 if ($sambasettings{'UNIXEXTENSION'} eq 'on'){ $sambasettings{'UNIXEXTENSION'} = "yes";} else { $sambasettings{'UNIXEXTENSION'} = "no";}
128 ############################################################################################################################
129 ############################################# Schreiben der Samba globals ##################################################
131 open (FILE
, ">${General::swroot}/samba/global") or die "Can't save the global settings: $!";
135 # global.settings by IPFire Project
138 server string = Samba on IPFire
140 workgroup = $sambasettings{'WORKGRP'}
141 realm = $mainsettings{'DOMAINNAME'}
142 passdb backend = smbpasswd
144 wide links = $sambasettings{'WIDELINKS'}
145 unix extensions = $sambasettings{'UNIXEXTENSION'}
147 map to guest = $sambasettings{'MAPTOGUEST'}
149 security = $sambasettings{'SECURITY'}
150 guest account = $sambasettings{'GUESTACCOUNT'}
151 unix password sync = no
153 bind interfaces only = true
154 interfaces = green0 blue0 127.0.0.0/8
155 remote announce = $sambasettings{'REMOTEANNOUNCE'}
156 remote browse sync = $sambasettings{'REMOTESYNC'}
158 winbind separator = +
159 winbind uid = 10000-20000
160 winbind gid = 10000-20000
161 winbind use default domain = yes
169 if ($sambasettings{'ENCRYPTION'} =~ m/(desired|required)/) {
170 print FILE
"smb encrypt = $1\n";
174 # Export all printers
176 path = /var/spool/samba/
182 system("/usr/local/bin/sambactrl smbsafeconf");
183 system("/usr/local/bin/sambactrl smbreload");
186 &General
::readhash
("${General::swroot}/samba/settings", \
%sambasettings);
191 &Header
::openbox
('100%', 'left', $Lang::tr
{'error messages'});
192 print "<class name='base'>$errormessage\n";
193 print " </class>\n";
198 $message = &Header
::cleanhtml
($message);
199 $message =~ s/\n/<br>/g;
201 &Header
::openbox
('100%', 'left', $Lang::tr
{'messages'});
206 ############################################################################################################################
207 ########################################## Aktivieren von Checkboxen und Dropdowns #########################################
209 $checked{'WIDELINKS'}{'off'} = '';
210 $checked{'WIDELINKS'}{'on'} = '';
211 $checked{'WIDELINKS'}{$sambasettings{'WIDELINKS'}} = "checked='checked'";
212 $checked{'UNIXEXTENSION'}{'off'} = '';
213 $checked{'UNIXEXTENSION'}{'on'} = '';
214 $checked{'UNIXEXTENSION'}{$sambasettings{'UNIXEXTENSION'}} = "checked='checked'";
215 $selected{'ENCRYPTION'}{'optional'} = '';
216 $selected{'ENCRYPTION'}{'desired'} = '';
217 $selected{'ENCRYPTION'}{'required'} = '';
218 $selected{'ENCRYPTION'}{$sambasettings{'ENCRYPTION'}} = "selected='selected'";
220 if ( $sambasettings{'MAPTOGUEST'} eq "Never" ) {
221 $sambasettings{'MAPTOGUEST'}="Bad User";
223 $selected{'MAPTOGUEST'}{$sambasettings{'MAPTOGUEST'}} = "selected='selected'";
224 $selected{'SECURITY'}{$sambasettings{'SECURITY'}} = "selected='selected'";
226 ############################################################################################################################
227 ################################### Aufbau der HTML Seite fr globale Sambaeinstellungen ###################################
229 &Header
::openbox
('100%', 'center', $Lang::tr
{'samba'});
232 <table width='95%' cellspacing='0'>
233 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'all services'}</b></td></tr>
234 </table><table width='95%' cellspacing='0'>
239 foreach $key (sort keys %servicenames)
241 print "<tr><td align='left' width='40%'>$key</td>";
242 my $shortname = $servicenames{$key};
243 my $status = &isrunning
($shortname);
244 print "$status</tr>";
250 <table width='95%' cellspacing='0'>
251 <tr><td align='left' width='40%' />
252 <td align='center' ><form method='post' action='$ENV{'SCRIPT_NAME'}'><input type='hidden' name='ACTION' value='smbstart' /><input type='image' alt='$Lang::tr{'smbstart'}' title='$Lang::tr{'smbstart'}' src='/images/go-up.png' /></form></td>
253 <td align='center' ><form method='post' action='$ENV{'SCRIPT_NAME'}'><input type='hidden' name='ACTION' value='smbstop' /><input type='image' alt='$Lang::tr{'smbstop'}' title='$Lang::tr{'smbstop'}' src='/images/go-down.png' /></form></td>
254 <td align='center' ><form method='post' action='$ENV{'SCRIPT_NAME'}'><input type='hidden' name='ACTION' value='smbrestart' /><input type='image' alt='$Lang::tr{'smbrestart'}' title='$Lang::tr{'smbrestart'}' src='/images/view-refresh.png' /></form></td></tr>
257 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
258 <table width='95%' cellspacing='0'>
259 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'basic options'}</b></td></tr>
260 <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>
261 <tr><td align='left'><br /></td><td></td></tr>
262 <tr><td align='left' width='40%'>Wide links</td><td align='left'>on <input type='radio' name='WIDELINKS' value='on' $checked{'WIDELINKS'}{'on'} />/
263 <input type='radio' name='WIDELINKS' value='off' $checked{'WIDELINKS'}{'off'} /> off</td></tr>
264 <tr><td align='left' width='40%'>Unix extension</td><td align='left'>on <input type='radio' name='UNIXEXTENSION' value='on' $checked{'UNIXEXTENSION'}{'on'} />/
265 <input type='radio' name='UNIXEXTENSION' value='off' $checked{'UNIXEXTENSION'}{'off'} /> off</td></tr>
266 <tr><td align='left'><br /></td><td></td></tr>
267 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'security options'}</b></td></tr>
268 <tr><td align='left' width='40%'>$Lang::tr{'security'}</td><td align='left'><select name='SECURITY' style="width: 165px">
269 <option value='user' $selected{'SECURITY'}{'user'}>User</option>
270 <option value='ADS' $selected{'SECURITY'}{'ADS'}>ADS</option>
271 <option value='server' $selected{'SECURITY'}{'server'}>Server</option>
273 <tr><td align='left' width='40%'>$Lang::tr{'encryption'}</td><td align='left'><select name='ENCRYPTION' style="width: 165px">
274 <option value='optional' $selected{'ENCRYPTION'}{'optional'}>$Lang::tr{'optional'}</option>
275 <option value='desired' $selected{'ENCRYPTION'}{'desired'}>$Lang::tr{'desired'}</option>
276 <option value='required' $selected{'ENCRYPTION'}{'required'}>$Lang::tr{'required'}</option>
278 <tr><td align='left' width='40%'>$Lang::tr{'map to guest'}</td><td align='left'><select name='MAPTOGUEST' style="width: 165px">
279 <option value='Bad User' $selected{'MAPTOGUEST'}{'Bad User'}>Bad User</option>
280 <option value='Bad Password' $selected{'MAPTOGUEST'}{'Bad Password'}>Bad Password</option>
282 <tr><td align='left'><br /></td><td /></tr>
283 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'network options'}</b></td></tr>
284 <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>
285 <tr><td align='left' width='40%'>$Lang::tr{'remote browse sync'}</td><td align='left'><input type='text' name='REMOTESYNC' value='$sambasettings{'REMOTESYNC'}' size="30" /></td></tr>
288 <table width='10%' cellspacing='0'>
289 <tr><td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
290 <input type='hidden' name='ACTION' value=$Lang::tr{'save'} />
291 <input type='image' alt='$Lang::tr{'save'}' title='$Lang::tr{'save'}' src='/images/media-floppy.png' /></form></td>
292 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
293 <input type='hidden' name='ACTION' value='globalcaption' />
294 <input type='image' alt='$Lang::tr{'caption'}' title='$Lang::tr{'caption'}' src='/images/help-browser.png' /></form></td></tr>
299 if ($sambasettings{'ACTION'} eq 'globalcaption')
303 <table width='95%' cellspacing='0'>
304 <tr><td align='center' colspan='2'><b>$Lang::tr{'caption'}</b></td></tr>
305 <tr><td align='right' width='33%'><img src='/images/media-floppy.png' /></td><td align='left'>$Lang::tr{'save settings'}</td></tr>
306 <tr><td align='right' width='33%'><img src='/images/reload.gif' /></td><td align='left'>$Lang::tr{'restore settings'}</td></tr>
314 ############################################################################################################################
315 ########################################## Benutzerverwaltung fr Usersecurity #############################################
317 if ($sambasettings{'SECURITY'} eq 'user')
319 &Header
::openbox
('100%', 'center', $Lang::tr
{'user management'});
321 <a name="$Lang::tr{'accounting'}"></a>
323 <table width='95%' cellspacing='0'>
324 <tr><td colspan='6' align='left'></td></tr>
325 <tr><td bgcolor='$color{'color20'}' colspan='7' align='left'><b>$Lang::tr{'accounting'}</b></td></tr>
326 <tr><td align='left'><u>$Lang::tr{'username'}</u></td><td align='left'><u>$Lang::tr{'password'}</u></td>
331 print "<td align='left'><u>$Lang::tr{'status'}</u></td><td colspan='3' width='5%' align='center'><u>$Lang::tr{'options'}</u></td></tr>";
332 system('/usr/local/bin/sambactrl readsmbpasswd');
333 open(FILE
, "<${General::swroot}/samba/private/smbpasswd") or die "Can't read user file: $!";
336 system('/usr/local/bin/sambactrl locksmbpasswd');
340 foreach $userentry (sort @user)
342 @userline = split( /\:/, $userentry );
343 if ($lines % 2) {print "<tr bgcolor='$color{'color20'}'>";} else {print "<tr bgcolor='$color{'color22'}'>";}
344 print "<td align='left'>$userline[0]</td><td align='left'>";
345 if ($userline[4] =~ /N/)
347 print "$Lang::tr{'not set'}</td><td align='left'>";
351 print "$Lang::tr{'set'}</td><td align='left'>";
354 print "</td><td align='left'>";
356 if ($userline[4] =~ /D/)
359 $Lang::tr{'inactive'}</td>
360 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
361 <input type='hidden' name='NAME' value='$userline[0]' />
362 <input type='hidden' name='ACTION' value='smbuserenable' />
363 <input type='image' alt='$Lang::tr{'activate'}' title='$Lang::tr{'activate'}' src='/images/off.gif' />
371 $Lang::tr{'active'}</td>
372 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
373 <input type='hidden' name='NAME' value='$userline[0]' />
374 <input type='hidden' name='ACTION' value='smbuserdisable' />
375 <input type='image' alt='$Lang::tr{'deactivate'}' title='$Lang::tr{'deactivate'}' src='/images/on.gif' />
381 if ($userline[0] =~ /\$/)
388 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
389 <input type='hidden' name='NAME' value='$userline[0]' />
390 <input type='hidden' name='ACTION' value='userchangepw' />
391 <input type='image' alt='$Lang::tr{'edit'}' title='$Lang::tr{'edit'}' src='/images/edit.gif' />
398 <td><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
399 <input type='hidden' name='NAME' value='$userline[0]' />
400 <input type='hidden' name='ACTION' value='userdelete' />
401 <input type='image' alt='$Lang::tr{'delete'}' title='$Lang::tr{'delete'}' src='/images/user-option-remove.png' />
410 <table width='10%' cellspacing='0'>
411 <tr><td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
412 <input type='hidden' name='ACTION' value='useradd' />
413 <input type='image' alt='$Lang::tr{'add user'}' title='$Lang::tr{'add user'}' src='/images/user-option-add.png' /></form></td>
418 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
419 <input type='hidden' name='ACTION' value='usercaption' />
420 <input type='image' alt='$Lang::tr{'caption'}' title='$Lang::tr{'caption'}' src='/images/help-browser.png' /></form>
426 if ($sambasettings{'ACTION'} eq 'usercaption')
430 <table width='95%' cellspacing='0'>
431 <tr><td align='center' colspan='2'><b>$Lang::tr{'caption'}</b></td></tr>
432 <tr><td align='right' width='33%'><img src='/images/user-option-add.png' /></td><td align='left'>$Lang::tr{'add user'}</td></tr>
433 <tr><td align='right' width='33%'><img src='/images/network.png' /></td><td align='left'>$Lang::tr{'pc add'}</td></tr>
434 <tr><td align='right' width='33%'><img src='/images/user-option-remove.png' /></td><td align='left'>$Lang::tr{'delete user'}</td></tr>
435 <tr><td align='right' width='33%'><img src='/images/network-error.png' /></td><td align='left'>$Lang::tr{'delete pc'}</td></tr>
436 <tr><td align='right' width='33%'><img src='/images/off.gif' /></td><td align='left'>$Lang::tr{'activate user'}</td></tr>
437 <tr><td align='right' width='33%'><img src='/images/on.gif' /></td><td align='left'>$Lang::tr{'deactivate user'}</td></tr>
438 <tr><td align='right' width='33%'><img src='/images/edit.gif' /></td><td align='left'>$Lang::tr{'change passwords'}</td></tr>
439 <tr><td align='right' width='33%'><img src='/images/media-floppy.png' /></td><td align='left'>$Lang::tr{'save config'}</td></tr>
445 if ($sambasettings{'ACTION'} eq 'userchangepw')
447 my $username = "$sambasettings{'NAME'}";
448 my $password = 'samba';
451 <form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
452 <table width='95%' cellspacing='0'>
453 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'change passwords'}</b></td></tr>
454 <tr><td align='left'>$Lang::tr{'username'}</td><td><input type='text' name='USERNAME' value='$username' size='30' readonly='readonly' /></td></tr>
455 <tr><td align='left'>$Lang::tr{'password'}</td><td><input type='password' name='PASSWORD' value='$password' size='30' /></td></tr>
456 <tr><td colspan='2' align='center'><input type='hidden' name='ACTION' value='smbchangepw' />
457 <input type='image' alt='$Lang::tr{'save'}' title='$Lang::tr{'save'}' src='/images/media-floppy.png' /></td></tr>
464 if ($sambasettings{'ACTION'} eq 'useradd')
466 my $username = "user";
467 my $password = "samba";
474 <form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
475 <table width='95%' cellspacing='0'>
476 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'add user'}</b></td></tr>
477 <tr><td align='left'>$Lang::tr{'username'}</td><td><input type='text' name='USERNAME' value='$username' size='30' /></td></tr>
478 <tr><td align='left'>$Lang::tr{'password'}</td><td><input type='password' name='PASSWORD' value='$password' size='30' /></td></tr>
479 <tr><td align='left'>$Lang::tr{'unix group'}</td><td><input type='text' name='GROUP' value='sambauser' size='30' /></td></tr>
480 <tr><td align='left'>$Lang::tr{'unix shell'}</td><td><input type='text' name='SHELL' value='/bin/false' size='30' /></td></tr>
481 <tr><td colspan='2' align='center'><input type='hidden' name='ACTION' value='smbuseradd' />
482 <input type='image' alt='$Lang::tr{'save'}' title='$Lang::tr{'save'}' src='/images/media-floppy.png' /></td></tr>
489 if ($sambasettings{'ACTION'} eq 'pcadd')
491 my $pcname = "client\$";
496 <form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
497 <table width='95%' cellspacing='0'>
498 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'pc add'}</b></td></tr>
499 <tr><td align='left'>$Lang::tr{'client'}</td><td><input type='text' name='PCNAME' value='$pcname' size='30' /></td></tr>
500 <tr><td align='left'>$Lang::tr{'unix group'}</td><td><input type='text' name='GROUP' value='sambawks' size='30' /></td></tr>
501 <tr><td align='left'>$Lang::tr{'unix shell'}</td><td><input type='text' name='SHELL' value='/bin/false' size='30' /></td></tr>
502 <tr><td colspan='2' align='center'><input type='hidden' name='ACTION' value='smbpcadd' />
503 <input type='image' alt='$Lang::tr{'save'}' title='$Lang::tr{'save'}' src='/images/media-floppy.png' /></td></tr>
513 if ($sambasettings{'SECURITY'} eq "ADS") {
514 &Header
::openbox
('100%', 'center', $Lang::tr
{'samba join a domain'});
516 my $AD_DOMAINNAME = uc($mainsettings{'DOMAINNAME'});
519 <form method="POST" action="$ENV{'SCRIPT_NAME'}">
520 <input type="hidden" name="ACTION" value="join">
534 $Lang::tr{'administrator username'}
537 <input type="text" name="USERNAME" size="30">
542 $Lang::tr{'administrator password'}
545 <input type="password" name="PASSWORD" size="30">
551 <input type="submit" value="$Lang::tr{'samba join domain'}">
562 ############################################################################################################################
563 ############################################### Verwalten von Freigaben ####################################################
565 &Header
::openbox
('100%', 'center', $Lang::tr
{'shares'});
567 my %shares = config
("${General::swroot}/samba/shares");
571 <a name="$Lang::tr{'manage shares'}"></a>
573 <table width='95%' cellspacing='0' class='tbl'>
574 <tr><th bgcolor='$color{'color20'}' colspan='3' align='left'><b>$Lang::tr{'manage shares'}</b></th></tr>
575 <tr><th align='left'><u>$Lang::tr{'sharename'}</u></th><th colspan='2' width="5%" align='center'><u>$Lang::tr{'options'}</u></th></tr>
579 my @Shares = keys(%shares);
582 foreach my $shareentry (sort @Shares)
587 $col="bgcolor='$color{'color20'}'";
590 $col="bgcolor='$color{'color22'}'";
593 <td align='left' $col>$shareentry</td>
594 <td $col><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage shares'}'>
595 <input type='hidden' name='NAME' value='$shareentry' />
596 <input type='hidden' name='ACTION' value='sharechange' />
597 <input type='image' alt='$Lang::tr{'edit'}' title='$Lang::tr{'edit'}' src='/images/edit.gif' />
599 <td $col><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage shares'}'>
600 <input type='hidden' name='NAME' value='$shareentry' />
601 <input type='hidden' name='ACTION' value='smbsharedel' />
602 <input type='image' alt='$Lang::tr{'delete'}' title='$Lang::tr{'delete'}' src='/images/user-trash.png' />
612 <table width='10%' cellspacing='0'>
613 <tr><td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage shares'}'>
614 <input type='hidden' name='ACTION' value='shareadd' />
615 <input type='image' alt='$Lang::tr{'add share'}' title='$Lang::tr{'add share'}' src='/images/list-add.png' />
617 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage shares'}'>
618 <input type='hidden' name='ACTION' value='sharecaption' />
619 <input type='image' alt='$Lang::tr{'caption'}' title='$Lang::tr{'caption'}' src='/images/help-browser.png' />
626 if ($sambasettings{'ACTION'} eq 'sharecaption')
630 <table width='95%' cellspacing='0'>
631 <tr><td align='center' colspan='2'><b>$Lang::tr{'caption'}</b></td></tr>
632 <tr><td align='right' width='33%'><img src='/images/list-add.png' /></td><td align='left'>$Lang::tr{'add share'}</td></tr>
633 <tr><td align='right' width='33%'><img src='/images/edit.gif' /></td><td align='left'>$Lang::tr{'edit share'}</td></tr>
634 <tr><td align='right' width='33%'><img src='/images/media-floppy.png' /></td><td align='left'>$Lang::tr{'save config'}</td></tr>
635 <tr><td align='right' width='33%'><img src='/images/user-trash.png' /></td><td align='left'>$Lang::tr{'delete share'}</td></tr>
641 if ($sambasettings{'ACTION'} eq 'shareadd' || $sambasettings{'ACTION'} eq 'optioncaption' )
645 <table width='95%' cellspacing='0'>
646 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'add share'}</b></td></tr>
647 <tr><td colspan='2' align='center'></td></tr>
648 <form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage shares'}'><tr><td colspan='2' align='center'><textarea name="SHAREOPTION" cols="50" rows="15" Wrap="off">$defaultoption</textarea></td></tr>
651 <table width='10%' cellspacing='0'>
652 <tr><td align='center'><input type='hidden' name='ACTION' value='smbshareadd' />
653 <input type='image' alt='$Lang::tr{'add share'}' title='$Lang::tr{'add share'}' src='/images/media-floppy.png' /></td></tr></form>
659 if ($sambasettings{'ACTION'} eq 'sharechange' || $sambasettings{'ACTION'} eq 'optioncaption2' )
661 my $shareoption = $shares{$sambasettings{'NAME'}};
664 <table width='95%' cellspacing='0'>
665 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'edit share'}</b></td></tr>
666 <tr><td colspan='2' align='center'></td></tr>
667 <tr><td colspan='2' align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage shares'}'><textarea name="SHAREOPTION" cols="50" rows="15" Wrap="off">$shareoption</textarea></td></tr>
670 <table width='10%' cellspacing='0'>
671 <tr><td align='center'><input type='hidden' name='NAME' value='$sambasettings{'NAME'}' />
672 <input type='image' alt='$Lang::tr{'change share'}' title='$Lang::tr{'change share'}' src='/images/media-floppy.png' />
673 <input type='hidden' name='ACTION' value='smbsharechange' /></form></td></tr>
679 if ($sambasettings{'ACTION'} eq 'smbshareadd')
681 $shares{'xvx'}= "$sambasettings{'SHAREOPTION'}";
683 my $shares = config
("${General::swroot}/samba/shares");
685 if ($sambasettings{'ACTION'} eq 'smbsharedel')
687 delete $shares{$sambasettings{'NAME'}};
689 my %shares = config
("${General::swroot}/samba/shares");
691 if ($sambasettings{'ACTION'} eq 'smbsharechange')
693 $shares{$sambasettings{'NAME'}} = $sambasettings{'SHAREOPTION'};
695 my %shares = config
("${General::swroot}/samba/shares");
700 ############################################################################################################################
701 ############################################### Anzeige des Sambastatus ####################################################
703 &Header
::openbox
('100%', 'center', 'Status');
707 <table width='95%' cellspacing='0'>
708 <tr><td bgcolor='$color{'color20'}' colspan='3' align='left'><b>$Lang::tr{'samba status'}</b></td></tr>
709 <tr><td align='left'><small><pre>$Status</pre></small></td></tr>
715 &Header
::closebigbox
();
716 &Header
::closepage
();
718 ############################################################################################################################
719 ############################################ Subfunktion fr Sambadienste ###################################################
724 my @allarray = `grep -n '^\\[' $file`;
729 my $EOF = qx(cat
$file | wc
-l
);
730 foreach my $allarrayentry (@allarray)
732 my @allarrayline = split( /\:/, $allarrayentry );
733 push(@linesarray,$allarrayline[0]);$allarrayline[1]=~s/\[//g;$allarrayline[1]=~s/\]//g;push(@namearray,$allarrayline[1]);
735 for(my $i = 0; $i <= $#namearray; $i++)
737 chomp $namearray[$i];
738 $namearray[$i]=~s/\[//g;$namearray[$i]=~s/\]//g;
739 if ( $i eq $#namearray )
741 my $lineend = $EOF-$linesarray[$i]+1;
742 $options=qx(tail
-$lineend $file);
746 my $linestart = $EOF-$linesarray[$i]+1;
747 my $lineend = $linesarray[$i+1]-$linesarray[$i];
748 $options=qx(tail
-$linestart $file | head
-$lineend);
750 $hash{$namearray[$i]} = "$options";
751 #print"<pre>$namearray[$i]\n$options\n</pre>"; # enable only for debuging
759 open (FILE
, ">${General::swroot}/samba/$smb") or die "Can't $smb settings $!";
762 if ( $smb eq 'shares')
763 {while (my ($name, $option) = each %shares){chomp $option;$option =~ s/\r\n/\n/gi;$option =~ s/^\n//gi;$option =~ s/^\r//gi;$option =~ s/^.\n//gi;$option =~ s/^.\r//gi;print FILE
"$option\n";} }
767 system("/usr/local/bin/sambactrl smbsafeconf");
768 system("/usr/local/bin/sambactrl smbreload");
775 my $status = "<td align='center' bgcolor='${Header::colourred}'><font color='white'><b>$Lang::tr{'stopped'}</b></font></td>";
783 if (open(FILE
, "/var/run/${cmd}.pid"))
785 $pid = <FILE
>; chomp $pid;
787 if (open(FILE
, "/proc/${pid}/status"))
797 if ($testcmd =~ /$exename/)
799 $status = "<td align='center' bgcolor='${Header::colourgreen}'><font color='white'><b>$Lang::tr{'running'}</b></font></td>";
807 my $username = shift;
808 my $password = shift;
810 my @options = ("/usr/local/bin/sambactrl", "join", $username, $password);
811 my $output = qx(@options);