html/cgi-bin/samba.cgi

   1 #!/usr/bin/perl
   2 ###############################################################################
   3 #                                                                             #
   4 # IPFire.org - A linux based firewall                                         #
   5 # Copyright (C) 2005-2013  IPFire Team  <info@ipfire.org>                     #
   6 #                                                                             #
   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.                                         #
  11 #                                                                             #
  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.                                #
  16 #                                                                             #
  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/>.       #
  19 #                                                                             #
  20 ###############################################################################
  21
  22 use strict;
  23 # enable only the following on debugging purpose
  24 #use warnings;
  25 #use CGI::Carp 'fatalsToBrowser';
  26
  27 require '/var/ipfire/general-functions.pl';
  28 require "${General::swroot}/lang.pl";
  29 require "${General::swroot}/header.pl";
  30
  31 my %sambasettings = ();
  32 my %cgisettings = ();
  33 my %checked = ();
  34 my %netsettings = ();
  35 my %color = ();
  36 my %mainsettings = ();
  37 my $message = "";
  38 my $errormessage = "";
  39
  40 my $Status = qx(/usr/local/bin/sambactrl smbstatus);
  41 $Status = &Header::cleanhtml($Status);
  42
  43 my $userentry = "";
  44 my @user = ();
  45 my @userline = ();
  46 my $userfile = "${General::swroot}/samba/private/smbpasswd";
  47 my %selected= () ;
  48
  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";
  50 my %shares = ();
  51
  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);
  55
  56 ############################################################################################################################
  57 ############################################# Samba Dienste fr Statusberprfung ##########################################
  58
  59 my %servicenames = ('SMB Daemon' => 'smbd', 'NetBIOS Nameserver' => 'nmbd', 'Winbind Daemon' => 'winbindd');
  60
  61 &Header::showhttpheaders();
  62
  63 ############################################################################################################################
  64 #################################### Initialisierung von Samba Variablen fr global Settings ###############################
  65
  66 $sambasettings{'WORKGRP'} = 'homeip.net';
  67 $sambasettings{'INTERFACES'} = '';
  68 $sambasettings{'SECURITY'} = 'user';
  69 $sambasettings{'REMOTEANNOUNCE'} = '';
  70 $sambasettings{'REMOTESYNC'} = '';
  71 $sambasettings{'PASSWORDSYNC'} = 'off';
  72 $sambasettings{'GUESTACCOUNT'} = 'samba';
  73 $sambasettings{'MAPTOGUEST'} = 'Bad User';
  74 $sambasettings{'WIDELINKS'} = 'on';
  75 $sambasettings{'UNIXEXTENSION'} = 'off';
  76 $sambasettings{'ENCRYPTION'} = 'optional';
  77 ### Values that have to be initialized
  78 $sambasettings{'ACTION'} = '';
  79 my $LOGLINES = '50';
  80
  81 ############################################################################################################################
  82
  83 &General::readhash("${General::swroot}/samba/settings", \%sambasettings);
  84 &Header::getcgihash(\%sambasettings);
  85
  86 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
  88 if (($sambasettings{'WIDELINKS'} eq 'on') & ($sambasettings{'UNIXEXTENSION'} eq 'on'))
  89   {$errormessage = "$errormessage<br />Don't enable 'Wide links' and 'Unix extension' at the same time"; }
  90
  91 &Header::openpage('Samba', 1, '');
  92 &Header::openbigbox('100%', 'left', '', $errormessage);
  93
  94 ############################################################################################################################
  95 ############################################# Samba Rootskript aufrufe fr SU-Actions #######################################
  96
  97 if ($sambasettings{'ACTION'} eq 'smbuserdisable'){system("/usr/local/bin/sambactrl smbuserdisable $sambasettings{'NAME'}");refreshpage();}
  98 if ($sambasettings{'ACTION'} eq 'smbuserenable'){system("/usr/local/bin/sambactrl smbuserenable $sambasettings{'NAME'}");refreshpage();}
  99 if ($sambasettings{'ACTION'} eq 'smbuseradd'){system("/usr/local/bin/sambactrl smbuseradd $sambasettings{'USERNAME'} $sambasettings{'PASSWORD'} $sambasettings{'GROUP'} $sambasettings{'SHELL'}");refreshpage();}
 100 if ($sambasettings{'ACTION'} eq 'smbpcadd'){system("/usr/local/bin/sambactrl smbpcadd $sambasettings{'PCNAME'} $sambasettings{'GROUP'} $sambasettings{'SHELL'}");refreshpage();}
 101 if ($sambasettings{'ACTION'} eq 'smbchangepw'){system("/usr/local/bin/sambactrl smbchangepw $sambasettings{'USERNAME'} $sambasettings{'PASSWORD'}");refreshpage();}
 102 if ($sambasettings{'ACTION'} eq 'smbrestart'){system("/usr/local/bin/sambactrl smbrestart");refreshpage();}
 103 if ($sambasettings{'ACTION'} eq 'smbstart'){system("/usr/local/bin/sambactrl smbstart");refreshpage();}
 104 if ($sambasettings{'ACTION'} eq 'smbstop'){system("/usr/local/bin/sambactrl smbstop");refreshpage();}
 105 if ($sambasettings{'ACTION'} eq 'smbreload'){system("/usr/local/bin/sambactrl smbreload");refreshpage();}
 106 if ($sambasettings{'ACTION'} eq 'join') {
 107         $message .= &joindomain($sambasettings{'USERNAME'}, $sambasettings{'PASSWORD'});
 108 }
 109
 110 ############################################################################################################################
 111 ########################################### Samba Benutzer oder PC l�chen #################################################
 112
 113 if ($sambasettings{'ACTION'} eq 'userdelete'){system("/usr/local/bin/sambactrl smbuserdelete $sambasettings{'NAME'}");refreshpage();}
 114
 115 ############################################################################################################################
 116 ##################################### Umsetzen der Werte von Checkboxen und Dropdowns ######################################
 117
 118 if ($sambasettings{'ACTION'} eq $Lang::tr{'save'})
 119 {
 120 ############################################################################################################################
 121 ##################################### Schreiben settings und bersetzen fr smb.conf #######################################
 122
 123 delete $sambasettings{'__CGI__'};delete $sambasettings{'x'};delete $sambasettings{'y'};
 124 &General::writehash("${General::swroot}/samba/settings", \%sambasettings);
 125
 126 if ($sambasettings{'PASSWORDSYNC'} eq 'on'){ $sambasettings{'PASSWORDSYNC'} = "true";} else { $sambasettings{'PASSWORDSYNC'} = "false";}
 127 if ($sambasettings{'WIDELINKS'} eq 'on'){ $sambasettings{'WIDELINKS'} = "yes";} else { $sambasettings{'WIDELINKS'} = "no";}
 128 if ($sambasettings{'UNIXEXTENSION'} eq 'on'){ $sambasettings{'UNIXEXTENSION'} = "yes";} else { $sambasettings{'UNIXEXTENSION'} = "no";}
 129
 130 ############################################################################################################################
 131 ############################################# Schreiben der Samba globals ##################################################
 132
 133         open (FILE, ">${General::swroot}/samba/global") or die "Can't save the global settings: $!";
 134         flock (FILE, 2);
 135
 136 print FILE <<END
 137 # global.settings by IPFire Project
 138
 139 [global]
 140 server string = Samba on IPFire
 141
 142 workgroup = $sambasettings{'WORKGRP'}
 143 realm = $mainsettings{'DOMAINNAME'}
 144 passdb backend = smbpasswd
 145
 146 wide links = $sambasettings{'WIDELINKS'}
 147 unix extensions = $sambasettings{'UNIXEXTENSION'}
 148
 149 map to guest = $sambasettings{'MAPTOGUEST'}
 150
 151 security = $sambasettings{'SECURITY'}
 152 guest account = $sambasettings{'GUESTACCOUNT'}
 153 unix password sync = $sambasettings{'PASSWORDSYNC'}
 154
 155 bind interfaces only = true
 156 interfaces = green0 blue0 127.0.0.0/8
 157 remote announce = $sambasettings{'REMOTEANNOUNCE'}
 158 remote browse sync = $sambasettings{'REMOTESYNC'}
 159
 160 winbind separator = +
 161 winbind uid = 10000-20000
 162 winbind gid = 10000-20000
 163 winbind use default domain = yes
 164
 165 # Log to syslog
 166 logging = syslog
 167
 168 END
 169 ;
 170
 171 if ($sambasettings{'ENCRYPTION'} =~ m/(desired|required)/) {
 172         print FILE "smb encrypt = $1\n";
 173 }
 174
 175 print FILE <<END;
 176 # Export all printers
 177 [printers]
 178 path = /var/spool/samba/
 179 printable = yes
 180
 181 END
 182 close FILE;
 183
 184 system("/usr/local/bin/sambactrl smbsafeconf");
 185 system("/usr/local/bin/sambactrl smbreload");
 186 refreshpage();
 187 }
 188   &General::readhash("${General::swroot}/samba/settings", \%sambasettings);
 189
 190
 191 if ($errormessage)
 192         {
 193         &Header::openbox('100%', 'left', $Lang::tr{'error messages'});
 194         print "<class name='base'>$errormessage\n";
 195         print "&nbsp;</class>\n";
 196         &Header::closebox();
 197         }
 198
 199 if ($message) {
 200         $message = &Header::cleanhtml($message);
 201         $message =~ s/\n/<br>/g;
 202
 203         &Header::openbox('100%', 'left', $Lang::tr{'messages'});
 204         print "$message\n";
 205         &Header::closebox();
 206 }
 207
 208 ############################################################################################################################
 209 ########################################## Aktivieren von Checkboxen und Dropdowns #########################################
 210
 211 $checked{'PASSWORDSYNC'}{'off'} = '';
 212 $checked{'PASSWORDSYNC'}{'on'} = '';
 213 $checked{'PASSWORDSYNC'}{$sambasettings{'PASSWORDSYNC'}} = "checked='checked'";
 214 $checked{'WIDELINKS'}{'off'} = '';
 215 $checked{'WIDELINKS'}{'on'} = '';
 216 $checked{'WIDELINKS'}{$sambasettings{'WIDELINKS'}} = "checked='checked'";
 217 $checked{'UNIXEXTENSION'}{'off'} = '';
 218 $checked{'UNIXEXTENSION'}{'on'} = '';
 219 $checked{'UNIXEXTENSION'}{$sambasettings{'UNIXEXTENSION'}} = "checked='checked'";
 220 $selected{'ENCRYPTION'}{'optional'} = '';
 221 $selected{'ENCRYPTION'}{'desired'} = '';
 222 $selected{'ENCRYPTION'}{'required'} = '';
 223 $selected{'ENCRYPTION'}{$sambasettings{'ENCRYPTION'}} = "selected='selected'";
 224
 225 if ( $sambasettings{'MAPTOGUEST'} eq "Never" ) {
 226         $sambasettings{'MAPTOGUEST'}="Bad User";
 227 }
 228 $selected{'MAPTOGUEST'}{$sambasettings{'MAPTOGUEST'}} = "selected='selected'";
 229 $selected{'SECURITY'}{$sambasettings{'SECURITY'}} = "selected='selected'";
 230
 231 ############################################################################################################################
 232 ################################### Aufbau der HTML Seite fr globale Sambaeinstellungen ###################################
 233
 234 &Header::openbox('100%', 'center', $Lang::tr{'samba'});
 235 print <<END
 236 <br />
 237 <table width='95%' cellspacing='0'>
 238 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'all services'}</b></td></tr>
 239 </table><table width='95%' cellspacing='0'>
 240 END
 241 ;
 242
 243 my $key = '';
 244 foreach $key (sort keys %servicenames)
 245         {
 246         print "<tr><td align='left' width='40%'>$key</td>";
 247         my $shortname = $servicenames{$key};
 248         my $status = &isrunning($shortname);
 249         print "$status</tr>";
 250         }
 251
 252 print <<END
 253 </table>
 254 <br />
 255 <table width='95%' cellspacing='0'>
 256 <tr><td align='left' width='40%' />
 257 <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>
 258 <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>
 259 <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>
 260 </table>
 261 <br />
 262 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 263 <table width='95%' cellspacing='0'>
 264 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'basic options'}</b></td></tr>
 265 <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>
 266 <tr><td align='left'><br /></td><td></td></tr>
 267 <tr><td align='left' width='40%'>Wide links</td><td align='left'>on <input type='radio' name='WIDELINKS' value='on' $checked{'WIDELINKS'}{'on'} />/
 268                                                                                                                                                                                         <input type='radio' name='WIDELINKS' value='off' $checked{'WIDELINKS'}{'off'} /> off</td></tr>
 269 <tr><td align='left' width='40%'>Unix extension</td><td align='left'>on <input type='radio' name='UNIXEXTENSION' value='on' $checked{'UNIXEXTENSION'}{'on'} />/
 270                                                                                                                                                                                         <input type='radio' name='UNIXEXTENSION' value='off' $checked{'UNIXEXTENSION'}{'off'} /> off</td></tr>
 271 <tr><td align='left'><br /></td><td></td></tr>
 272 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'security options'}</b></td></tr>
 273 <tr><td align='left' width='40%'>$Lang::tr{'security'}</td><td align='left'><select name='SECURITY' style="width: 165px">
 274                                                                                                                                                                 <option value='user' $selected{'SECURITY'}{'user'}>User</option>
 275                                                                                                                                                                 <option value='ADS' $selected{'SECURITY'}{'ADS'}>ADS</option>
 276                                                                                                                                                                 <option value='server' $selected{'SECURITY'}{'server'}>Server</option>
 277                                                                                                                                                                 </select></td></tr>
 278 <tr><td align='left' width='40%'>$Lang::tr{'encryption'}</td><td align='left'><select name='ENCRYPTION' style="width: 165px">
 279                                                                                                                                                                 <option value='optional' $selected{'ENCRYPTION'}{'optional'}>$Lang::tr{'optional'}</option>
 280                                                                                                                                                                 <option value='desired' $selected{'ENCRYPTION'}{'desired'}>$Lang::tr{'desired'}</option>
 281                                                                                                                                                                 <option value='required' $selected{'ENCRYPTION'}{'required'}>$Lang::tr{'required'}</option>
 282                                                                                                                                                                 </select></td></tr>
 283 <tr><td align='left' width='40%'>$Lang::tr{'map to guest'}</td><td align='left'><select name='MAPTOGUEST' style="width: 165px">
 284                                                                                                                                                                                 <option value='Bad User' $selected{'MAPTOGUEST'}{'Bad User'}>Bad User</option>
 285                                                                                                                                                                                 <option value='Bad Password' $selected{'MAPTOGUEST'}{'Bad Password'}>Bad Password</option>
 286                                                                                                                                                                                 </select></td></tr>
 287 END
 288 ;
 289 #<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'} />/
 290 #                                                                                                                                                                                                               <input type='radio' name='PASSWORDSYNC' value='off' $checked{'PASSWORDSYNC'}{'off'} /> off</td></tr>
 291 print <<END
 292 <tr><td align='left'><br /></td><td /></tr>
 293 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'network options'}</b></td></tr>
 294 <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>
 295 <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>
 296 </table>
 297 <br />
 298 <table width='10%' cellspacing='0'>
 299 <tr><td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
 300                                                                                                 <input type='hidden' name='ACTION' value=$Lang::tr{'save'} />
 301                                                                                                 <input type='image' alt='$Lang::tr{'save'}' title='$Lang::tr{'save'}' src='/images/media-floppy.png' /></form></td>
 302 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
 303                                                                                 <input type='hidden' name='ACTION' value='globalcaption' />
 304                                                                                 <input type='image' alt='$Lang::tr{'caption'}' title='$Lang::tr{'caption'}' src='/images/help-browser.png' /></form></td></tr>
 305 </table>
 306 END
 307 ;
 308
 309 if ($sambasettings{'ACTION'} eq 'globalcaption')
 310         {
 311         print <<END
 312         <br />
 313         <table width='95%' cellspacing='0'>
 314         <tr><td align='center' colspan='2'><b>$Lang::tr{'caption'}</b></td></tr>
 315         <tr><td align='right' width='33%'><img src='/images/media-floppy.png' /></td><td align='left'>$Lang::tr{'save settings'}</td></tr>
 316         <tr><td align='right' width='33%'><img src='/images/reload.gif' /></td><td align='left'>$Lang::tr{'restore settings'}</td></tr>
 317         </table>
 318 END
 319 ;
 320         }
 321
 322 &Header::closebox();
 323
 324 ############################################################################################################################
 325 ########################################## Benutzerverwaltung fr Usersecurity #############################################
 326
 327 if ($sambasettings{'SECURITY'} eq 'user')
 328         {
 329         &Header::openbox('100%', 'center', $Lang::tr{'user management'});
 330         print <<END
 331         <a name="$Lang::tr{'accounting'}"></a>
 332         <br />
 333         <table width='95%' cellspacing='0'>
 334         <tr><td colspan='6' align='left'></td></tr>
 335         <tr><td bgcolor='$color{'color20'}' colspan='7' align='left'><b>$Lang::tr{'accounting'}</b></td></tr>
 336         <tr><td align='left'><u>$Lang::tr{'username'}</u></td><td align='left'><u>$Lang::tr{'password'}</u></td>
 337 END
 338 ;
 339
 340         print "<td></td>";
 341         print "<td align='left'><u>$Lang::tr{'status'}</u></td><td colspan='3' width='5%' align='center'><u>$Lang::tr{'options'}</u></td></tr>";
 342         system('/usr/local/bin/sambactrl readsmbpasswd');
 343         open(FILE, "<${General::swroot}/samba/private/smbpasswd") or die "Can't read user file: $!";
 344         @user = <FILE>;
 345         close(FILE);
 346         system('/usr/local/bin/sambactrl locksmbpasswd');
 347
 348         my $lines = 0;
 349
 350         foreach $userentry (sort @user)
 351                 {
 352                 @userline = split( /\:/, $userentry );
 353     if ($lines % 2) {print "<tr bgcolor='$color{'color20'}'>";} else {print "<tr bgcolor='$color{'color22'}'>";}
 354                 print "<td align='left'>$userline[0]</td><td align='left'>";
 355                 if ($userline[4] =~ /N/)
 356                         {
 357                         print "$Lang::tr{'not set'}</td><td align='left'>";
 358                         }
 359                 else
 360                         {
 361                         print "$Lang::tr{'set'}</td><td align='left'>";
 362                         }
 363
 364                 print "</td><td align='left'>";
 365
 366                 if ($userline[4] =~ /D/)
 367                         {
 368                         print <<END
 369                         $Lang::tr{'inactive'}</td>
 370                         <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
 371                                         <input type='hidden' name='NAME' value='$userline[0]' />
 372                                         <input type='hidden' name='ACTION' value='smbuserenable' />
 373                                         <input type='image' alt='$Lang::tr{'activate'}' title='$Lang::tr{'activate'}' src='/images/off.gif' />
 374                         </form></td>
 375 END
 376 ;
 377                         }
 378                 else
 379                         {
 380                         print <<END
 381                         $Lang::tr{'active'}</td>
 382                         <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
 383                                         <input type='hidden' name='NAME' value='$userline[0]' />
 384                                         <input type='hidden' name='ACTION' value='smbuserdisable' />
 385                                         <input type='image' alt='$Lang::tr{'deactivate'}' title='$Lang::tr{'deactivate'}' src='/images/on.gif' />
 386                         </form></td>
 387 END
 388 ;
 389                         }
 390
 391                 if ($userline[0] =~ /\$/)
 392                         {
 393                         print "<td></td>";
 394                         }
 395                 else
 396                         {
 397                         print <<END
 398                         <td align='center'><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='userchangepw' />
 401                                         <input type='image' alt='$Lang::tr{'edit'}' title='$Lang::tr{'edit'}' src='/images/edit.gif' />
 402                         </form></td>
 403 END
 404 ;
 405                         }
 406
 407                         print <<END
 408                         <td><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
 409                                         <input type='hidden' name='NAME' value='$userline[0]' />
 410                                         <input type='hidden' name='ACTION' value='userdelete' />
 411                                         <input type='image' alt='$Lang::tr{'delete'}' title='$Lang::tr{'delete'}' src='/images/user-option-remove.png' />
 412                         </form></td></tr>
 413 END
 414 ;
 415                 $lines++;
 416                 }
 417         print <<END
 418         </table>
 419         <br />
 420         <table width='10%' cellspacing='0'>
 421         <tr><td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
 422                                                                                                         <input type='hidden' name='ACTION' value='useradd' />
 423                                                                                                         <input type='image' alt='$Lang::tr{'add user'}' title='$Lang::tr{'add user'}' src='/images/user-option-add.png' /></form></td>
 424 END
 425 ;
 426
 427         print <<END
 428         <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
 429                                                                                         <input type='hidden' name='ACTION' value='usercaption' />
 430                                                                                         <input type='image' alt='$Lang::tr{'caption'}' title='$Lang::tr{'caption'}' src='/images/help-browser.png' /></form>
 431         </td></tr>
 432         </table>
 433 END
 434 ;
 435
 436         if ($sambasettings{'ACTION'} eq 'usercaption')
 437                 {
 438                 print <<END
 439                 <br />
 440                 <table width='95%' cellspacing='0'>
 441                 <tr><td align='center' colspan='2'><b>$Lang::tr{'caption'}</b></td></tr>
 442                 <tr><td align='right' width='33%'><img src='/images/user-option-add.png' /></td><td align='left'>$Lang::tr{'add user'}</td></tr>
 443                 <tr><td align='right' width='33%'><img src='/images/network.png' /></td><td align='left'>$Lang::tr{'pc add'}</td></tr>
 444                 <tr><td align='right' width='33%'><img src='/images/user-option-remove.png' /></td><td align='left'>$Lang::tr{'delete user'}</td></tr>
 445                 <tr><td align='right' width='33%'><img src='/images/network-error.png' /></td><td align='left'>$Lang::tr{'delete pc'}</td></tr>
 446                 <tr><td align='right' width='33%'><img src='/images/off.gif' /></td><td align='left'>$Lang::tr{'activate user'}</td></tr>
 447                 <tr><td align='right' width='33%'><img src='/images/on.gif' /></td><td align='left'>$Lang::tr{'deactivate user'}</td></tr>
 448                 <tr><td align='right' width='33%'><img src='/images/edit.gif' /></td><td align='left'>$Lang::tr{'change passwords'}</td></tr>
 449                 <tr><td align='right' width='33%'><img src='/images/media-floppy.png' /></td><td align='left'>$Lang::tr{'save config'}</td></tr>
 450                 </table>
 451 END
 452 ;
 453                 }
 454
 455         if ($sambasettings{'ACTION'} eq 'userchangepw')
 456                 {
 457                 my $username = "$sambasettings{'NAME'}";
 458                 my $password = 'samba';
 459                 print <<END
 460                 <br />
 461                 <form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
 462                 <table width='95%' cellspacing='0'>
 463                 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'change passwords'}</b></td></tr>
 464                 <tr><td align='left'>$Lang::tr{'username'}</td><td><input type='text' name='USERNAME' value='$username' size='30' readonly='readonly' /></td></tr>
 465                 <tr><td align='left'>$Lang::tr{'password'}</td><td><input type='password' name='PASSWORD' value='$password' size='30' /></td></tr>
 466                 <tr><td colspan='2' align='center'><input type='hidden' name='ACTION' value='smbchangepw' />
 467                         <input type='image' alt='$Lang::tr{'save'}' title='$Lang::tr{'save'}' src='/images/media-floppy.png' /></td></tr>
 468                 </table>
 469                 </form>
 470 END
 471 ;
 472                 }
 473
 474         if ($sambasettings{'ACTION'} eq 'useradd')
 475                 {
 476                 my $username = "user";
 477                 my $password = "samba";
 478                 chomp $username;
 479                 $username=~s/\s//g;
 480                 chomp $password;
 481                 $password=~s/\s//g;
 482                 print <<END
 483                 <br />
 484                 <form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
 485                 <table width='95%' cellspacing='0'>
 486                 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'add user'}</b></td></tr>
 487                 <tr><td align='left'>$Lang::tr{'username'}</td><td><input type='text' name='USERNAME' value='$username' size='30' /></td></tr>
 488                 <tr><td align='left'>$Lang::tr{'password'}</td><td><input type='password' name='PASSWORD' value='$password' size='30' /></td></tr>
 489                 <tr><td align='left'>$Lang::tr{'unix group'}</td><td><input type='text' name='GROUP' value='sambauser' size='30' /></td></tr>
 490                 <tr><td align='left'>$Lang::tr{'unix shell'}</td><td><input type='text' name='SHELL' value='/bin/false' size='30' /></td></tr>
 491                 <tr><td colspan='2' align='center'><input type='hidden' name='ACTION' value='smbuseradd' />
 492                         <input type='image' alt='$Lang::tr{'save'}' title='$Lang::tr{'save'}' src='/images/media-floppy.png' /></td></tr>
 493                 </table>
 494                 </form>
 495 END
 496 ;
 497                 }
 498
 499         if ($sambasettings{'ACTION'} eq 'pcadd')
 500                 {
 501                 my $pcname = "client\$";
 502                 chomp $pcname;
 503                 $pcname=~s/\s//g;
 504                 print <<END
 505                 <br />
 506                 <form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
 507                 <table width='95%' cellspacing='0'>
 508                 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'pc add'}</b></td></tr>
 509                 <tr><td align='left'>$Lang::tr{'client'}</td><td><input type='text' name='PCNAME' value='$pcname' size='30' /></td></tr>
 510                 <tr><td align='left'>$Lang::tr{'unix group'}</td><td><input type='text' name='GROUP' value='sambawks' size='30' /></td></tr>
 511                 <tr><td align='left'>$Lang::tr{'unix shell'}</td><td><input type='text' name='SHELL' value='/bin/false' size='30' /></td></tr>
 512                 <tr><td colspan='2' align='center'><input type='hidden' name='ACTION' value='smbpcadd' />
 513                         <input type='image' alt='$Lang::tr{'save'}' title='$Lang::tr{'save'}' src='/images/media-floppy.png' /></td></tr>
 514                 </table>
 515                 </form>
 516 END
 517 ;
 518                 }
 519
 520 &Header::closebox();
 521 }
 522
 523 if ($sambasettings{'SECURITY'} eq "ADS") {
 524         &Header::openbox('100%', 'center', $Lang::tr{'samba join a domain'});
 525
 526         my $AD_DOMAINNAME = uc($mainsettings{'DOMAINNAME'});
 527
 528         print <<END;
 529         <form method="POST" action="$ENV{'SCRIPT_NAME'}">
 530                 <input type="hidden" name="ACTION" value="join">
 531
 532                 <table width="95%">
 533                         <tbody>
 534                                 <tr>
 535                                         <td width="40%">
 536                                                 $Lang::tr{'domain'}
 537                                         </td>
 538                                         <td>
 539                                                 $AD_DOMAINNAME
 540                                         </td>
 541                                 </tr>
 542                                 <tr>
 543                                         <td width="40%">
 544                                                 $Lang::tr{'administrator username'}
 545                                         </td>
 546                                         <td>
 547                                                 <input type="text" name="USERNAME" size="30">
 548                                         </td>
 549                                 </tr>
 550                                 <tr>
 551                                         <td width="40%">
 552                                                 $Lang::tr{'administrator password'}
 553                                         </td>
 554                                         <td>
 555                                                 <input type="password" name="PASSWORD" size="30">
 556                                         </td>
 557                                 </tr>
 558                                 <tr>
 559                                         <td></td>
 560                                         <td>
 561                                                 <input type="submit" value="$Lang::tr{'samba join domain'}">
 562                                         </td>
 563                                 </tr>
 564                         </tbody>
 565                 </table>
 566         </form>
 567 END
 568
 569         &Header::closebox();
 570 }
 571
 572 ############################################################################################################################
 573 ############################################### Verwalten von Freigaben ####################################################
 574
 575 &Header::openbox('100%', 'center', $Lang::tr{'shares'});
 576
 577 my %shares =  config("${General::swroot}/samba/shares");
 578
 579
 580 print <<END
 581 <a name="$Lang::tr{'manage shares'}"></a>
 582 <br />
 583 <table width='95%' cellspacing='0' class='tbl'>
 584 <tr><th bgcolor='$color{'color20'}' colspan='3' align='left'><b>$Lang::tr{'manage shares'}</b></th></tr>
 585 <tr><th align='left'><u>$Lang::tr{'sharename'}</u></th><th colspan='2' width="5%" align='center'><u>$Lang::tr{'options'}</u></th></tr>
 586 END
 587 ;
 588
 589 my @Shares = keys(%shares);
 590 my $lines = 0;
 591 my $col="";
 592 foreach my $shareentry (sort @Shares)
 593         {
 594         chomp $shareentry;
 595         if ($lines % 2) {
 596                 print "<tr>";
 597                 $col="bgcolor='$color{'color20'}'";
 598         } else {
 599                 print "<tr>";
 600                 $col="bgcolor='$color{'color22'}'";
 601         }
 602         print <<END
 603         <td align='left' $col>$shareentry</td>
 604         <td $col><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage shares'}'>
 605                         <input type='hidden' name='NAME' value='$shareentry' />
 606                         <input type='hidden' name='ACTION' value='sharechange' />
 607                         <input type='image' alt='$Lang::tr{'edit'}' title='$Lang::tr{'edit'}' src='/images/edit.gif' />
 608         </form></td>
 609         <td $col><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage shares'}'>
 610                         <input type='hidden' name='NAME' value='$shareentry' />
 611                         <input type='hidden' name='ACTION' value='smbsharedel' />
 612                         <input type='image' alt='$Lang::tr{'delete'}' title='$Lang::tr{'delete'}' src='/images/user-trash.png' />
 613         </form></td></tr>
 614 END
 615 ;
 616   $lines++;
 617         }
 618
 619 print <<END
 620 </table>
 621 <br />
 622 <table width='10%' cellspacing='0'>
 623 <tr><td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage shares'}'>
 624                                                                                                 <input type='hidden' name='ACTION' value='shareadd' />
 625                                                                                                 <input type='image' alt='$Lang::tr{'add share'}' title='$Lang::tr{'add share'}' src='/images/list-add.png' />
 626                                                                                                 </form></td>
 627                 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage shares'}'>
 628                                                                                                 <input type='hidden' name='ACTION' value='sharecaption' />
 629                                                                                                 <input type='image' alt='$Lang::tr{'caption'}' title='$Lang::tr{'caption'}' src='/images/help-browser.png' />
 630                                                                                                 </form></td>
 631 </tr>
 632 </table>
 633 END
 634 ;
 635
 636 if ($sambasettings{'ACTION'} eq 'sharecaption')
 637         {
 638         print <<END
 639         <br />
 640         <table width='95%' cellspacing='0'>
 641         <tr><td align='center' colspan='2'><b>$Lang::tr{'caption'}</b></td></tr>
 642         <tr><td align='right' width='33%'><img src='/images/list-add.png' /></td><td align='left'>$Lang::tr{'add share'}</td></tr>
 643         <tr><td align='right' width='33%'><img src='/images/edit.gif' /></td><td align='left'>$Lang::tr{'edit share'}</td></tr>
 644         <tr><td align='right' width='33%'><img src='/images/media-floppy.png' /></td><td align='left'>$Lang::tr{'save config'}</td></tr>
 645         <tr><td align='right' width='33%'><img src='/images/user-trash.png' /></td><td align='left'>$Lang::tr{'delete share'}</td></tr>
 646         </table>
 647 END
 648 ;
 649         }
 650
 651 if ($sambasettings{'ACTION'} eq 'shareadd' || $sambasettings{'ACTION'} eq 'optioncaption' )
 652         {
 653         print <<END
 654         <br />
 655         <table width='95%' cellspacing='0'>
 656         <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'add share'}</b></td></tr>
 657         <tr><td colspan='2' align='center'></td></tr>
 658         <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>
 659         </table>
 660         <br />
 661         <table width='10%' cellspacing='0'>
 662         <tr><td align='center'><input type='hidden' name='ACTION' value='smbshareadd' />
 663                                                                                                         <input type='image' alt='$Lang::tr{'add share'}' title='$Lang::tr{'add share'}' src='/images/media-floppy.png' /></td></tr></form>
 664         </table>
 665 END
 666 ;
 667         }
 668
 669 if ($sambasettings{'ACTION'} eq 'sharechange' || $sambasettings{'ACTION'} eq 'optioncaption2' )
 670         {
 671         my $shareoption = $shares{$sambasettings{'NAME'}};
 672         print <<END
 673         <br />
 674         <table width='95%' cellspacing='0'>
 675         <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'edit share'}</b></td></tr>
 676         <tr><td colspan='2' align='center'></td></tr>
 677         <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>
 678         </table>
 679         <br />
 680         <table width='10%' cellspacing='0'>
 681         <tr><td align='center'><input type='hidden' name='NAME' value='$sambasettings{'NAME'}' />
 682                                                                                                         <input type='image' alt='$Lang::tr{'change share'}' title='$Lang::tr{'change share'}' src='/images/media-floppy.png' />
 683                                                                                                         <input type='hidden' name='ACTION' value='smbsharechange' /></form></td></tr>
 684         </table>
 685 END
 686 ;
 687         }
 688
 689 if ($sambasettings{'ACTION'} eq 'smbshareadd')
 690         {
 691         $shares{'xvx'}= "$sambasettings{'SHAREOPTION'}";
 692         save("shares");
 693         my $shares = config("${General::swroot}/samba/shares");
 694         }
 695 if ($sambasettings{'ACTION'} eq 'smbsharedel')
 696         {
 697         delete $shares{$sambasettings{'NAME'}};
 698         save("shares");
 699         my %shares = config("${General::swroot}/samba/shares");
 700         }
 701 if ($sambasettings{'ACTION'} eq 'smbsharechange')
 702         {
 703         $shares{$sambasettings{'NAME'}} = $sambasettings{'SHAREOPTION'};
 704         save("shares");
 705         my %shares = config("${General::swroot}/samba/shares");
 706         }
 707
 708 &Header::closebox();
 709
 710 ############################################################################################################################
 711 ############################################### Anzeige des Sambastatus ####################################################
 712
 713 &Header::openbox('100%', 'center', 'Status');
 714
 715 print <<END
 716 <br />
 717 <table width='95%' cellspacing='0'>
 718 <tr><td bgcolor='$color{'color20'}' colspan='3' align='left'><b>$Lang::tr{'samba status'}</b></td></tr>
 719 <tr><td  align='left'><small><pre>$Status</pre></small></td></tr>
 720 </table>
 721 END
 722 ;
 723 &Header::closebox();
 724
 725 &Header::closebigbox();
 726 &Header::closepage();
 727
 728 ############################################################################################################################
 729 ############################################ Subfunktion fr Sambadienste ###################################################
 730
 731 sub config
 732 {
 733 my $file = shift;
 734 my @allarray = `grep -n '^\\[' $file`;
 735 my @linesarray = ();
 736 my @namearray = ();
 737 my %hash = ();
 738 my $options = ();
 739 my $EOF = qx(cat $file | wc -l);
 740 foreach my $allarrayentry (@allarray)
 741  {
 742  my @allarrayline = split( /\:/, $allarrayentry );
 743  push(@linesarray,$allarrayline[0]);$allarrayline[1]=~s/\[//g;$allarrayline[1]=~s/\]//g;push(@namearray,$allarrayline[1]);
 744  }
 745         for(my $i = 0; $i <= $#namearray; $i++)
 746                 {
 747                 chomp $namearray[$i];
 748                 $namearray[$i]=~s/\[//g;$namearray[$i]=~s/\]//g;
 749                 if ( $i eq $#namearray )
 750                         {
 751                         my $lineend = $EOF-$linesarray[$i]+1;
 752                         $options=qx(tail -$lineend $file);
 753                         }
 754                 else
 755                         {
 756                         my $linestart = $EOF-$linesarray[$i]+1;
 757                         my $lineend =  $linesarray[$i+1]-$linesarray[$i];
 758                         $options=qx(tail -$linestart $file | head -$lineend);
 759                         }
 760                 $hash{$namearray[$i]} = "$options";
 761                 #print"<pre>$namearray[$i]\n$options\n</pre>"; # enable only for debuging
 762                 }
 763 return(%hash);
 764 }
 765
 766 sub save
 767 {
 768 my $smb = shift;
 769 open (FILE, ">${General::swroot}/samba/$smb") or die "Can't $smb settings $!";
 770 flock (FILE, 2);
 771
 772 if ( $smb eq 'shares')
 773         {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";}        }
 774
 775 close FILE;
 776
 777 system("/usr/local/bin/sambactrl smbsafeconf");
 778 system("/usr/local/bin/sambactrl smbreload");
 779 refreshpage();
 780 }
 781
 782 sub isrunning
 783         {
 784         my $cmd = $_[0];
 785         my $status = "<td align='center' bgcolor='${Header::colourred}'><font color='white'><b>$Lang::tr{'stopped'}</b></font></td>";
 786         my $pid = '';
 787         my $testcmd = '';
 788         my $exename;
 789
 790         $cmd =~ /(^[a-z]+)/;
 791         $exename = $1;
 792
 793         if (open(FILE, "/var/run/${cmd}.pid"))
 794                 {
 795                 $pid = <FILE>; chomp $pid;
 796                 close FILE;
 797                 if (open(FILE, "/proc/${pid}/status"))
 798                         {
 799                         while (<FILE>)
 800                                 {
 801                                 if (/^Name:\W+(.*)/)
 802                                         {
 803                                         $testcmd = $1;
 804                                         }
 805                                 }
 806                         close FILE;
 807                         if ($testcmd =~ /$exename/)
 808                                 {
 809                                 $status = "<td align='center' bgcolor='${Header::colourgreen}'><font color='white'><b>$Lang::tr{'running'}</b></font></td>";
 810                                 }
 811                         }
 812                 }
 813         return $status;
 814         }
 815
 816 sub joindomain {
 817         my $username = shift;
 818         my $password = shift;
 819
 820         my @options = ("/usr/local/bin/sambactrl", "join", $username, $password);
 821         my $output = qx(@options);
 822
 823         return $output;
 824 }