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 %ovpnsettings = ();
  36 my %color = ();
  37 my %mainsettings = ();
  38 my $message = "";
  39 my $errormessage = "";
  40
  41 my @Logs = qx(ls /var/log/samba/);
  42 my $Log =$Lang::tr{'no log selected'};
  43
  44 my $Status = qx(/usr/local/bin/sambactrl smbstatus);
  45 $Status = &Header::cleanhtml($Status);
  46
  47 my $userentry = "";
  48 my @user = ();
  49 my @userline = ();
  50 my $userfile = "${General::swroot}/samba/private/smbpasswd";
  51 my %selected= () ;
  52
  53 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";
  54 my $defaultprinter= "[Printer]\ncomment = Printer public\npath = /var/spool/cups\nprinting = sysvn\nprintcap = lpstat\npublic = yes\nwritable = no\nprintable = yes";
  55 my %printer = ();
  56 my %shares = ();
  57
  58 &General::readhash("${General::swroot}/ethernet/settings", \%netsettings);
  59 &General::readhash("${General::swroot}/ovpn/settings", \%ovpnsettings);
  60 &General::readhash("${General::swroot}/main/settings", \%mainsettings);
  61 &General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color);
  62
  63 my @ovpnnetwork = split(/\//,$ovpnsettings{'DOVPN_SUBNET'});
  64 my @ovpnip      = split(/\./,$ovpnnetwork[0]);
  65 $ovpnip[3]=$ovpnip[3]+1;
  66
  67 ############################################################################################################################
  68 ############################################# Samba Dienste fr Statusberprfung ##########################################
  69
  70 my %servicenames = ('SMB Daemon' => 'smbd', 'NetBIOS Nameserver' => 'nmbd', 'Winbind Daemon' => 'winbindd');
  71
  72 &Header::showhttpheaders();
  73
  74 ############################################################################################################################
  75 #################################### Initialisierung von Samba Variablen fr global Settings ###############################
  76
  77 $sambasettings{'WORKGRP'} = 'homeip.net';
  78 $sambasettings{'INTERFACES'} = '';
  79 $sambasettings{'SECURITY'} = 'user';
  80 $sambasettings{'OSLEVEL'} = '33';
  81 $sambasettings{'GREEN'} = 'on';
  82 $sambasettings{'BLUE'} = 'off';
  83 $sambasettings{'ORANGE'} = 'off';
  84 $sambasettings{'VPN'} = 'off';
  85 $sambasettings{'REMOTEANNOUNCE'} = '';
  86 $sambasettings{'REMOTESYNC'} = '';
  87 $sambasettings{'PASSWORDSYNC'} = 'off';
  88 $sambasettings{'OTHERINTERFACES'} = '127.0.0.1';
  89 $sambasettings{'GUESTACCOUNT'} = 'samba';
  90 $sambasettings{'MAPTOGUEST'} = 'Bad User';
  91 $sambasettings{'LOGLEVEL'} = '3 passdb:5 auth:5 winbind:2';
  92 $sambasettings{'WIDELINKS'} = 'on';
  93 $sambasettings{'UNIXEXTENSION'} = 'off';
  94 ### Values that have to be initialized
  95 $sambasettings{'ACTION'} = '';
  96 ### Samba CUPS Variablen
  97 $sambasettings{'LOADPRINTERS'} = 'Yes';
  98 $sambasettings{'PRINTING'} = 'cups';
  99 $sambasettings{'PRINTCAPNAME'} = 'cups';
 100 my $LOGLINES = '50';
 101
 102 ################################################## Samba PDC Variablen #####################################################
 103
 104 $sambasettings{'LOCALMASTER'} = 'off';
 105 $sambasettings{'DOMAINMASTER'} = 'off';
 106 $sambasettings{'PREFERREDMASTER'} = 'off';
 107 my $PDCOPTIONS = `cat ${General::swroot}/samba/pdc`;
 108
 109
 110 ############################################################################################################################
 111
 112 &General::readhash("${General::swroot}/samba/settings", \%sambasettings);
 113 &Header::getcgihash(\%sambasettings);
 114
 115 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();}
 116
 117 if (($sambasettings{'WIDELINKS'} eq 'on') & ($sambasettings{'UNIXEXTENSION'} eq 'on'))
 118   {$errormessage = "$errormessage<br />Don't enable 'Wide links' and 'Unix extension' at the same time"; }
 119
 120 &Header::openpage('Samba', 1, '');
 121 &Header::openbigbox('100%', 'left', '', $errormessage);
 122
 123 ############################################################################################################################
 124 ############################################# Samba Rootskript aufrufe fr SU-Actions #######################################
 125
 126 if ($sambasettings{'ACTION'} eq 'smbuserdisable'){system("/usr/local/bin/sambactrl smbuserdisable $sambasettings{'NAME'}");refreshpage();}
 127 if ($sambasettings{'ACTION'} eq 'smbuserenable'){system("/usr/local/bin/sambactrl smbuserenable $sambasettings{'NAME'}");refreshpage();}
 128 if ($sambasettings{'ACTION'} eq 'smbuseradd'){system("/usr/local/bin/sambactrl smbuseradd $sambasettings{'USERNAME'} $sambasettings{'PASSWORD'} $sambasettings{'GROUP'} $sambasettings{'SHELL'}");refreshpage();}
 129 if ($sambasettings{'ACTION'} eq 'smbpcadd'){system("/usr/local/bin/sambactrl smbpcadd $sambasettings{'PCNAME'} $sambasettings{'GROUP'} $sambasettings{'SHELL'}");refreshpage();}
 130 if ($sambasettings{'ACTION'} eq 'smbchangepw'){system("/usr/local/bin/sambactrl smbchangepw $sambasettings{'USERNAME'} $sambasettings{'PASSWORD'}");refreshpage();}
 131 if ($sambasettings{'ACTION'} eq 'smbrestart'){system("/usr/local/bin/sambactrl smbrestart");refreshpage();}
 132 if ($sambasettings{'ACTION'} eq 'smbstart'){system("/usr/local/bin/sambactrl smbstart");refreshpage();}
 133 if ($sambasettings{'ACTION'} eq 'smbstop'){system("/usr/local/bin/sambactrl smbstop");refreshpage();}
 134 if ($sambasettings{'ACTION'} eq 'smbreload'){system("/usr/local/bin/sambactrl smbreload");refreshpage();}
 135 if ($sambasettings{'ACTION'} eq 'globalresetyes')
 136         {
 137         system("/usr/local/bin/sambactrl smbglobalreset");
 138         $sambasettings{'WORKGRP'} = 'homeip.net';
 139         $sambasettings{'INTERFACES'} = '';
 140         $sambasettings{'SECURITY'} = 'user';
 141         $sambasettings{'OSLEVEL'} = '65';
 142         $sambasettings{'GREEN'} = 'on';
 143         $sambasettings{'BLUE'} = 'off';
 144         $sambasettings{'ORANGE'} = 'off';
 145         $sambasettings{'VPN'} = 'off';
 146         $sambasettings{'REMOTEANNOUNCE'} = '';
 147         $sambasettings{'REMOTESYNC'} = '';
 148         $sambasettings{'PASSWORDSYNC'} = 'off';
 149         $sambasettings{'OTHERINTERFACES'} = '127.0.0.1';
 150         $sambasettings{'GUESTACCOUNT'} = 'samba';
 151         $sambasettings{'MAPTOGUEST'} = 'Bad User';
 152         $sambasettings{'LOGLEVEL'} = '3 passdb:5 auth:5 winbind:2';
 153 ### Samba CUPS Variablen
 154         $sambasettings{'LOADPRINTERS'} = 'Yes';
 155         $sambasettings{'PRINTING'} = 'cups';
 156         $sambasettings{'PRINTCAPNAME'} = 'cups';
 157         $sambasettings{'PRINTERNAME'} = 'Printer';
 158 ### Values that have to be initialized
 159         $sambasettings{'WIDELINKS'} = 'on';
 160         $sambasettings{'UNIXEXTENSION'} = 'off';
 161         $sambasettings{'ACTION'} = '';
 162         $sambasettings{'LOCALMASTER'} = 'off';
 163         $sambasettings{'DOMAINMASTER'} = 'off';
 164         $sambasettings{'PREFERREDMASTER'} = 'off';
 165         $sambasettings{'WIDELINKS'} = 'on';
 166         $sambasettings{'UNIXEXTENSION'} = 'off';
 167         $PDCOPTIONS = `cat ${General::swroot}/samba/pdc`;
 168         system("/usr/local/bin/sambactrl smbreload");
 169         refreshpage();
 170         }
 171
 172 if ($sambasettings{'ACTION'} eq 'join') {
 173         $message .= &joindomain($sambasettings{'USERNAME'}, $sambasettings{'PASSWORD'});
 174 }
 175
 176 ############################################################################################################################
 177 ################################################ Sicherheitsabfrage für den Reset ##########################################
 178
 179 if ($sambasettings{'ACTION'} eq 'globalreset')
 180         {
 181         print <<END
 182         <br />
 183         <table width='95%' cellspacing='0'>
 184         <tr><td bgcolor='$color{'color20'}' colspan='3' align='center'><b>$Lang::tr{'resetglobals'}</b>
 185         <tr><td align='right' width='50%'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
 186                                          $Lang::tr{'yes'} <input type='image' alt='$Lang::tr{'yes'}' title='$Lang::tr{'yes'}' src='/images/edit-redo.png' />
 187                                         <input type='hidden' name='ACTION' value='globalresetyes' /></form></td>
 188                         <td align='left'  width='50%'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
 189                                         <input type='image' alt='$Lang::tr{'no'}' title='$Lang::tr{'no'}' src='/images/dialog-error.png' /> $Lang::tr{'no'}
 190                                         <input type='hidden' name='ACTION' value='cancel' /></form></td>
 191         </tr>
 192         </table>
 193 END
 194 ;
 195 }
 196
 197 if ($sambasettings{'ACTION'} eq 'sharesreset')
 198         {
 199         print <<END
 200         <br />
 201         <table width='95%' cellspacing='0'>
 202         <tr><td bgcolor='$color{'color20'}' colspan='3' align='center'><b>$Lang::tr{'resetshares'}</b>
 203         <tr><td align='right'  width='50%'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
 204                                          $Lang::tr{'yes'} <input type='image' alt='$Lang::tr{'yes'}' title='$Lang::tr{'yes'}' src='/images/edit-redo.png' />
 205                                         <input type='hidden' name='ACTION' value='sharesresetyes' /></form></td>
 206                         <td align='left'  width='50%'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
 207                                         <input type='image' alt='$Lang::tr{'no'}' title='$Lang::tr{'no'}' src='/images/dialog-error.png' /> $Lang::tr{'no'}
 208                                         <input type='hidden' name='ACTION' value='cancel' /></form></td>
 209         </tr>
 210         </table>
 211 END
 212 ;
 213         }
 214
 215 ############################################################################################################################
 216 ########################################### Samba Benutzer oder PC l�chen #################################################
 217
 218 if ($sambasettings{'ACTION'} eq 'userdelete'){system("/usr/local/bin/sambactrl smbuserdelete $sambasettings{'NAME'}");refreshpage();}
 219
 220 ############################################################################################################################
 221 ##################################### Umsetzen der Werte von Checkboxen und Dropdowns ######################################
 222
 223 if ($sambasettings{'ACTION'} eq $Lang::tr{'save'})
 224 {
 225 $sambasettings{'INTERFACES'} = '';
 226 if ($sambasettings{'GREEN'} eq 'on'){ $sambasettings{'INTERFACES'} .= " $netsettings{'GREEN_DEV'}";}
 227 if ($sambasettings{'BLUE'} eq 'on'){ $sambasettings{'INTERFACES'} .= " $netsettings{'BLUE_DEV'}";}
 228 if ($sambasettings{'ORANGE'} eq 'on'){ $sambasettings{'INTERFACES'} .= " $netsettings{'ORANGE_DEV'}";}
 229 if ($sambasettings{'VPN'} eq 'on'){$sambasettings{'INTERFACES'} .= " ";}
 230 if ($sambasettings{'OTHERINTERFACES'} ne ''){ $sambasettings{'INTERFACES'} .= " $sambasettings{'OTHERINTERFACES'}";}
 231
 232 ############################################################################################################################
 233 ##################################### Schreiben settings und bersetzen fr smb.conf #######################################
 234
 235 delete $sambasettings{'__CGI__'};delete $sambasettings{'x'};delete $sambasettings{'y'};
 236 &General::writehash("${General::swroot}/samba/settings", \%sambasettings);
 237
 238 if ($sambasettings{'PASSWORDSYNC'} eq 'on'){ $sambasettings{'PASSWORDSYNC'} = "true";} else { $sambasettings{'PASSWORDSYNC'} = "false";}
 239 if ($sambasettings{'LOCALMASTER'} eq 'on'){ $sambasettings{'LOCALMASTER'} = "true";} else { $sambasettings{'LOCALMASTER'} = "false";}
 240 if ($sambasettings{'DOMAINMASTER'} eq 'on'){ $sambasettings{'DOMAINMASTER'} = "true";} else { $sambasettings{'DOMAINMASTER'} = "false";}
 241 if ($sambasettings{'PREFERREDMASTER'} eq 'on'){ $sambasettings{'PREFERREDMASTER'} = "true";} else { $sambasettings{'PREFERREDMASTER'} = "false";}
 242 if ($sambasettings{'WIDELINKS'} eq 'on'){ $sambasettings{'WIDELINKS'} = "yes";} else { $sambasettings{'WIDELINKS'} = "no";}
 243 if ($sambasettings{'UNIXEXTENSION'} eq 'on'){ $sambasettings{'UNIXEXTENSION'} = "yes";} else { $sambasettings{'UNIXEXTENSION'} = "no";}
 244
 245 ############################################################################################################################
 246 ############################################# Schreiben der Samba globals ##################################################
 247
 248         open (FILE, ">${General::swroot}/samba/global") or die "Can't save the global settings: $!";
 249         flock (FILE, 2);
 250
 251 print FILE <<END
 252 # global.settings by IPFire Project
 253
 254 [global]
 255 server string = Samba on IPFire
 256
 257 workgroup = $sambasettings{'WORKGRP'}
 258 realm = $mainsettings{'DOMAINNAME'}
 259 passdb backend = smbpasswd
 260
 261 wide links = $sambasettings{'WIDELINKS'}
 262 unix extensions = $sambasettings{'UNIXEXTENSION'}
 263 os level = $sambasettings{'OSLEVEL'}
 264
 265 map to guest = $sambasettings{'MAPTOGUEST'}
 266
 267 security = $sambasettings{'SECURITY'}
 268 guest account = $sambasettings{'GUESTACCOUNT'}
 269 unix password sync = $sambasettings{'PASSWORDSYNC'}
 270
 271 bind interfaces only = true
 272 interfaces = $sambasettings{'INTERFACES'}
 273 remote announce = $sambasettings{'REMOTEANNOUNCE'}
 274 remote browse sync = $sambasettings{'REMOTESYNC'}
 275
 276 winbind separator = +
 277 winbind uid = 10000-20000
 278 winbind gid = 10000-20000
 279 winbind use default domain = yes
 280
 281 log file  = /var/log/samba/samba-log.%m
 282 log level = $sambasettings{'LOGLEVEL'}
 283
 284 preferred master = $sambasettings{'PREFERREDMASTER'}
 285 domain master = $sambasettings{'DOMAINMASTER'}
 286 local master = $sambasettings{'LOCALMASTER'}
 287
 288 END
 289 ;
 290 close FILE;
 291
 292         if (-e "${General::swroot}/cups/enable"){
 293         open (FILE, ">>${General::swroot}/samba/global") or die "Can't save the global cups settings: $!";
 294         flock (FILE, 2);
 295         print FILE <<END
 296 load printers = $sambasettings{'LOADPRINTERS'}
 297 printing = $sambasettings{'PRINTING'}
 298 printcap name = $sambasettings{'PRINTCAPNAME'}
 299
 300 END
 301 ;
 302 close FILE;
 303         }
 304
 305         if ($sambasettings{'SECURITY'} eq 'user' && $sambasettings{'DOMAINMASTER'} eq 'true' )
 306         {
 307         open (FILE, ">${General::swroot}/samba/pdc") or die "Can't save the pdc settings: $!";
 308         flock (FILE, 2);
 309         chomp $sambasettings{'PDCOPTIONS'};
 310         $sambasettings{'PDCOPTIONS'} =~ s/\r\n/\n/gi;
 311         $sambasettings{'PDCOPTIONS'} =~ s/^\n//gi;
 312         $sambasettings{'PDCOPTIONS'} =~ s/^\r//gi;
 313         $sambasettings{'PDCOPTIONS'} =~ s/^.\n//gi;
 314         $sambasettings{'PDCOPTIONS'} =~ s/^.\r//gi;
 315         print FILE <<END
 316 $sambasettings{'PDCOPTIONS'}
 317 END
 318 ;
 319         close FILE;
 320         }
 321
 322 if ( -e "/var/ipfire/cups/enable")
 323         {
 324         if ( $sambasettings{'SECURITY'} eq 'user' && $sambasettings{'DOMAINMASTER'} eq 'true' ){system("/usr/local/bin/sambactrl smbsafeconfpdccups");refreshpage();}
 325         else {system("/usr/local/bin/sambactrl smbsafeconfcups");}
 326         }
 327 else
 328         {
 329         if ( $sambasettings{'SECURITY'} eq 'user' && $sambasettings{'DOMAINMASTER'} eq 'true' ){system("/usr/local/bin/sambactrl smbsafeconfpdc");refreshpage();}
 330         else{system("/usr/local/bin/sambactrl smbsafeconf");}
 331         }
 332
 333 system("/usr/local/bin/sambactrl smbreload");refreshpage();
 334 }
 335   &General::readhash("${General::swroot}/samba/settings", \%sambasettings);
 336
 337
 338 if ($errormessage)
 339         {
 340         &Header::openbox('100%', 'left', $Lang::tr{'error messages'});
 341         print "<class name='base'>$errormessage\n";
 342         print "&nbsp;</class>\n";
 343         &Header::closebox();
 344         }
 345
 346 if ($message) {
 347         $message = &Header::cleanhtml($message);
 348         $message =~ s/\n/<br>/g;
 349
 350         &Header::openbox('100%', 'left', $Lang::tr{'messages'});
 351         print "$message\n";
 352         &Header::closebox();
 353 }
 354
 355 ############################################################################################################################
 356 ########################################## Aktivieren von Checkboxen und Dropdowns #########################################
 357
 358 $checked{'PASSWORDSYNC'}{'off'} = '';
 359 $checked{'PASSWORDSYNC'}{'on'} = '';
 360 $checked{'PASSWORDSYNC'}{$sambasettings{'PASSWORDSYNC'}} = "checked='checked'";
 361 $checked{'LOCALMASTER'}{'off'} = '';
 362 $checked{'LOCALMASTER'}{'on'} = '';
 363 $checked{'LOCALMASTER'}{$sambasettings{'LOCALMASTER'}} = "checked='checked'";
 364 $checked{'DOMAINMASTER'}{'off'} = '';
 365 $checked{'DOMAINMASTER'}{'on'} = '';
 366 $checked{'DOMAINMASTER'}{$sambasettings{'DOMAINMASTER'}} = "checked='checked'";
 367 $checked{'PREFERREDMASTER'}{'off'} = '';
 368 $checked{'PREFERREDMASTER'}{'on'} = '';
 369 $checked{'PREFERREDMASTER'}{$sambasettings{'PREFERREDMASTER'}} = "checked='checked'";
 370 $checked{'WIDELINKS'}{'off'} = '';
 371 $checked{'WIDELINKS'}{'on'} = '';
 372 $checked{'WIDELINKS'}{$sambasettings{'WIDELINKS'}} = "checked='checked'";
 373 $checked{'UNIXEXTENSION'}{'off'} = '';
 374 $checked{'UNIXEXTENSION'}{'on'} = '';
 375 $checked{'UNIXEXTENSION'}{$sambasettings{'UNIXEXTENSION'}} = "checked='checked'";
 376 $checked{'GREEN'}{'off'} = '';
 377 $checked{'GREEN'}{'on'} = '';
 378 $checked{'GREEN'}{$sambasettings{'GREEN'}} = "checked='checked'";
 379 $checked{'BLUE'}{'off'} = '';
 380 $checked{'BLUE'}{'on'} = '';
 381 $checked{'BLUE'}{$sambasettings{'BLUE'}} = "checked='checked'";
 382 $checked{'ORANGE'}{'off'} = '';
 383 $checked{'ORANGE'}{'on'} = '';
 384 $checked{'ORANGE'}{$sambasettings{'ORANGE'}} = "checked='checked'";
 385 $checked{'VPN'}{'off'} = '';
 386 $checked{'VPN'}{'on'} = '';
 387 $checked{'VPN'}{$sambasettings{'VPN'}} = "checked='checked'";
 388
 389 if ( $sambasettings{'MAPTOGUEST'} eq "Never" ) {
 390         $sambasettings{'MAPTOGUEST'}="Bad User";
 391 }
 392 $selected{'MAPTOGUEST'}{$sambasettings{'MAPTOGUEST'}} = "selected='selected'";
 393 $selected{'SECURITY'}{$sambasettings{'SECURITY'}} = "selected='selected'";
 394
 395 ############################################################################################################################
 396 ################################### Aufbau der HTML Seite fr globale Sambaeinstellungen ###################################
 397
 398 &Header::openbox('100%', 'center', $Lang::tr{'samba'});
 399 print <<END
 400 <br />
 401 <table width='95%' cellspacing='0'>
 402 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'all services'}</b></td></tr>
 403 </table><table width='95%' cellspacing='0'>
 404 END
 405 ;
 406
 407 my $key = '';
 408 foreach $key (sort keys %servicenames)
 409         {
 410         print "<tr><td align='left' width='40%'>$key</td>";
 411         my $shortname = $servicenames{$key};
 412         my $status = &isrunning($shortname);
 413         print "$status</tr>";
 414         }
 415
 416 print <<END
 417 </table>
 418 <br />
 419 <table width='95%' cellspacing='0'>
 420 <tr><td align='left' width='40%' />
 421 <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>
 422 <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>
 423 <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>
 424 </table>
 425 <br />
 426 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 427 <table width='95%' cellspacing='0'>
 428 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'basic options'}</b></td></tr>
 429 <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>
 430 <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>
 431 <tr><td align='left' width='40%'>$Lang::tr{'interfaces'}</td><td align='left'>on <input type='radio' name='VPN' value='on' $checked{'VPN'}{'on'} />/
 432                                                                                                                                                                                 <input type='radio' name='VPN' value='off' $checked{'VPN'}{'off'} /> off |
 433                                                                                                                                                                                 <font size='2' color='$Header::colourovpn'><b>   OpenVpn  -  $ovpnip[0].$ovpnip[1].$ovpnip[2].$ovpnip[3]/$ovpnnetwork[1]</b></font></td></tr>
 434 <tr><td align='left' width='40%'></td><td align='left'>on <input type='radio' name='GREEN' value='on' $checked{'GREEN'}{'on'} />/
 435                                                                                                                                         <input type='radio' name='GREEN' value='off' $checked{'GREEN'}{'off'} /> off |
 436                                                                                                                                         <font size='2' color='$Header::colourgreen'><b>   $Lang::tr{'green'}  -  $netsettings{'GREEN_DEV'}</b></font></td></tr>
 437 END
 438 ;
 439
 440 if (&Header::blue_used())
 441         {
 442         print <<END
 443         <tr><td align='left' width='40%'></td><td align='left'>on <input type='radio' name='BLUE' value='on' $checked{'BLUE'}{'on'} />/
 444                                                                                                                                                 <input type='radio' name='BLUE' value='off' $checked{'BLUE'}{'off'} /> off |
 445                                                                                                                                                 <font size='2' color='$Header::colourblue'><b>   $Lang::tr{'wireless'}  -  $netsettings{'BLUE_DEV'}</b></font></td></tr>
 446 END
 447 ;
 448         }
 449
 450 if (&Header::orange_used())
 451         {
 452         print <<END
 453         <tr><td align='left' width='40%'></td><td align='left'>on <input type='radio' name='ORANGE' value='on' $checked{'ORANGE'}{'on'} />/
 454                                                                                                                                                 <input type='radio' name='ORANGE' value='off' $checked{'ORANGE'}{'off'} /> off |
 455                                                                                                                                                 <font size='2' color='$Header::colourorange'><b>   $Lang::tr{'dmz'}  -  $netsettings{'ORANGE_DEV'}</b></font></td></tr>
 456 END
 457 ;
 458         }
 459
 460 print <<END
 461 <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>
 462 <tr><td align='left'><br /></td><td></td></tr>
 463 <tr><td align='left' width='40%'>Wide links</td><td align='left'>on <input type='radio' name='WIDELINKS' value='on' $checked{'WIDELINKS'}{'on'} />/
 464                                                                                                                                                                                         <input type='radio' name='WIDELINKS' value='off' $checked{'WIDELINKS'}{'off'} /> off</td></tr>
 465 <tr><td align='left' width='40%'>Unix extension</td><td align='left'>on <input type='radio' name='UNIXEXTENSION' value='on' $checked{'UNIXEXTENSION'}{'on'} />/
 466                                                                                                                                                                                         <input type='radio' name='UNIXEXTENSION' value='off' $checked{'UNIXEXTENSION'}{'off'} /> off</td></tr>
 467 <tr><td align='left'><br /></td><td></td></tr>
 468 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'security options'}</b></td></tr>
 469 <tr><td align='left' width='40%'>$Lang::tr{'security'}</td><td align='left'><select name='SECURITY' style="width: 165px">
 470                                                                                                                                                                 <option value='user' $selected{'SECURITY'}{'user'}>User</option>
 471                                                                                                                                                                 <option value='domain' $selected{'SECURITY'}{'domain'}>Domain</option>
 472                                                                                                                                                                 <option value='ADS' $selected{'SECURITY'}{'ADS'}>ADS</option>
 473                                                                                                                                                                 <option value='server' $selected{'SECURITY'}{'server'}>Server</option>
 474                                                                                                                                                                 </select></td></tr>
 475 <tr><td align='left' width='40%'>$Lang::tr{'map to guest'}</td><td align='left'><select name='MAPTOGUEST' style="width: 165px">
 476                                                                                                                                                                                 <option value='Bad User' $selected{'MAPTOGUEST'}{'Bad User'}>Bad User</option>
 477                                                                                                                                                                                 <option value='Bad Password' $selected{'MAPTOGUEST'}{'Bad Password'}>Bad Password</option>
 478                                                                                                                                                                                 </select></td></tr>
 479 END
 480 ;
 481 #<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'} />/
 482 #                                                                                                                                                                                                               <input type='radio' name='PASSWORDSYNC' value='off' $checked{'PASSWORDSYNC'}{'off'} /> off</td></tr>
 483 print <<END
 484 <tr><td align='left'><br /></td><td /></tr>
 485 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'network options'}</b></td></tr>
 486 <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>
 487 <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>
 488 <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>
 489 END
 490 ;
 491
 492 if ($sambasettings{'SECURITY'} eq 'user')
 493         {
 494         print <<END
 495 <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'} />/
 496                                                                                                                                                                                         <input type='radio' name='LOCALMASTER' value='off' $checked{'LOCALMASTER'}{'off'} /> off</td></tr>
 497 <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'} />/
 498                                                                                                                                                                                                 <input type='radio' name='DOMAINMASTER' value='off' $checked{'DOMAINMASTER'}{'off'} /> off</td></tr>
 499 <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'} />/
 500                                                                                                                                                                                                         <input type='radio' name='PREFERREDMASTER' value='off' $checked{'PREFERREDMASTER'}{'off'} /> off</td></tr>
 501 END
 502 ;
 503         }
 504
 505 if ($sambasettings{'SECURITY'} eq 'user' && $sambasettings{'DOMAINMASTER'} eq 'on')
 506         {
 507         print <<END
 508         <tr><td align='left'><br /></td><td></td></tr>
 509         <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'pdc options'}</b></td></tr>
 510         <tr><td align='left'><br /></td><td></td></tr>
 511         <tr><td colspan='2' align='center'><textarea name="PDCOPTIONS" cols="50" rows="15" Wrap="off">$PDCOPTIONS</textarea></td></tr>
 512 END
 513 ;
 514         }
 515
 516         if ( -e "/var/ipfire/cups/enable")
 517         {
 518         print <<END
 519         <tr><td align='left'><br /></td><td></td></tr>
 520         <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'printing options'}</b></td></tr>
 521         <tr><td align='left' width='40%'>$Lang::tr{'load printer'}</td><td align='left'><input type='text' name='LOADPRINTERS' value='$sambasettings{'LOADPRINTERS'}' size="30" /></td></tr>
 522         <tr><td align='left' width='40%'>$Lang::tr{'printing'}</td><td align='left'><input type='text' name='PRINTING' value='$sambasettings{'PRINTING'}' size="30" /></td></tr>
 523         <tr><td align='left' width='40%'>$Lang::tr{'printcap name'}</td><td align='left'><input type='text' name='PRINTCAPNAME' value='$sambasettings{'PRINTCAPNAME'}' size="30" /></td></tr>
 524 END
 525 ;
 526         }
 527
 528 print <<END
 529 </table>
 530 <br />
 531 <table width='10%' cellspacing='0'>
 532 <tr><td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
 533                                                                                                 <input type='hidden' name='ACTION' value=$Lang::tr{'save'} />
 534                                                                                                 <input type='image' alt='$Lang::tr{'save'}' title='$Lang::tr{'save'}' src='/images/media-floppy.png' /></form></td>
 535 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
 536                                                                                 <input type='hidden' name='ACTION' value='globalreset' />
 537                                                                                 <input type='image' alt='$Lang::tr{'reset'}' title='$Lang::tr{'reset'}' src='/images/reload.gif' /></form></td>
 538 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
 539                                                                                 <input type='hidden' name='ACTION' value='globalcaption' />
 540                                                                                 <input type='image' alt='$Lang::tr{'caption'}' title='$Lang::tr{'caption'}' src='/images/help-browser.png' /></form></td></tr>
 541 </table>
 542 END
 543 ;
 544
 545 if ($sambasettings{'ACTION'} eq 'globalcaption')
 546         {
 547         print <<END
 548         <br />
 549         <table width='95%' cellspacing='0'>
 550         <tr><td align='center' colspan='2'><b>$Lang::tr{'caption'}</b></td></tr>
 551         <tr><td align='right' width='33%'><img src='/images/media-floppy.png' /></td><td align='left'>$Lang::tr{'save settings'}</td></tr>
 552         <tr><td align='right' width='33%'><img src='/images/reload.gif' /></td><td align='left'>$Lang::tr{'restore settings'}</td></tr>
 553         </table>
 554 END
 555 ;
 556         }
 557
 558 &Header::closebox();
 559
 560 ############################################################################################################################
 561 ########################################## Benutzerverwaltung fr Usersecurity #############################################
 562
 563 if ($sambasettings{'SECURITY'} eq 'user')
 564         {
 565         if ($sambasettings{'DOMAINMASTER'} eq 'off')
 566                 {
 567                 &Header::openbox('100%', 'center', $Lang::tr{'accounting user nonpdc'});
 568                 }
 569         else
 570                 {
 571                 &Header::openbox('100%', 'center', $Lang::tr{'accounting user pdc'});
 572                 }
 573         print <<END
 574         <a name="$Lang::tr{'accounting'}"></a>
 575         <br />
 576         <table width='95%' cellspacing='0'>
 577         <tr><td colspan='6' align='left'></td></tr>
 578         <tr><td bgcolor='$color{'color20'}' colspan='7' align='left'><b>$Lang::tr{'accounting'}</b></td></tr>
 579         <tr><td align='left'><u>$Lang::tr{'username'}</u></td><td align='left'><u>$Lang::tr{'password'}</u></td>
 580 END
 581 ;
 582
 583         if ($sambasettings{'DOMAINMASTER'} eq 'off')
 584                 {
 585                 print "<td></td>";
 586                 }
 587         else
 588                 {
 589                 print "<td align='left'><u>$Lang::tr{'type'}</u></td>";
 590                 }
 591
 592         print "<td align='left'><u>$Lang::tr{'status'}</u></td><td colspan='3' width='5%' align='center'><u>$Lang::tr{'options'}</u></td></tr>";
 593         system('/usr/local/bin/sambactrl readsmbpasswd');
 594         open(FILE, "<${General::swroot}/samba/private/smbpasswd") or die "Can't read user file: $!";
 595         @user = <FILE>;
 596         close(FILE);
 597         system('/usr/local/bin/sambactrl locksmbpasswd');
 598
 599         my $lines = 0;
 600
 601         foreach $userentry (sort @user)
 602                 {
 603                 @userline = split( /\:/, $userentry );
 604     if ($lines % 2) {print "<tr bgcolor='$color{'color20'}'>";} else {print "<tr bgcolor='$color{'color22'}'>";}
 605                 print "<td align='left'>$userline[0]</td><td align='left'>";
 606                 if ($userline[4] =~ /N/)
 607                         {
 608                         print "$Lang::tr{'not set'}</td><td align='left'>";
 609                         }
 610                 else
 611                         {
 612                         print "$Lang::tr{'set'}</td><td align='left'>";
 613                         }
 614
 615                 if ($sambasettings{'DOMAINMASTER'} eq 'off')
 616                         {
 617                         print "</td><td align='left'>";
 618                         }
 619                 else
 620                         {
 621                         if ($userline[0] =~ /\$/)
 622                                 {
 623                                 print "$Lang::tr{'pc'}</td><td align='left'>";
 624                                 }
 625                         else
 626                                 {
 627                                 print "$Lang::tr{'user'}</td><td align='left'>";
 628                                 }
 629                         }
 630
 631                 if ($userline[4] =~ /D/)
 632                         {
 633                         print <<END
 634                         $Lang::tr{'inactive'}</td>
 635                         <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
 636                                         <input type='hidden' name='NAME' value='$userline[0]' />
 637                                         <input type='hidden' name='ACTION' value='smbuserenable' />
 638                                         <input type='image' alt='$Lang::tr{'activate'}' title='$Lang::tr{'activate'}' src='/images/off.gif' />
 639                         </form></td>
 640 END
 641 ;
 642                         }
 643                 else
 644                         {
 645                         print <<END
 646                         $Lang::tr{'active'}</td>
 647                         <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
 648                                         <input type='hidden' name='NAME' value='$userline[0]' />
 649                                         <input type='hidden' name='ACTION' value='smbuserdisable' />
 650                                         <input type='image' alt='$Lang::tr{'deactivate'}' title='$Lang::tr{'deactivate'}' src='/images/on.gif' />
 651                         </form></td>
 652 END
 653 ;
 654                         }
 655
 656                 if ($userline[0] =~ /\$/)
 657                         {
 658                         print "<td></td>";
 659                         }
 660                 else
 661                         {
 662                         print <<END
 663                         <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
 664                                         <input type='hidden' name='NAME' value='$userline[0]' />
 665                                         <input type='hidden' name='ACTION' value='userchangepw' />
 666                                         <input type='image' alt='$Lang::tr{'edit'}' title='$Lang::tr{'edit'}' src='/images/edit.gif' />
 667                         </form></td>
 668 END
 669 ;
 670                         }
 671
 672                         if ($sambasettings{'DOMAINMASTER'} eq 'on' && $userline[0] =~ /\$/)
 673                                 {
 674                                 print <<END
 675                                 <td><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
 676                                                 <input type='hidden' name='NAME' value='$userline[0]' />
 677                                                 <input type='hidden' name='ACTION' value='userdelete' />
 678                                                 <input type='image' alt='$Lang::tr{'delete'}' title='$Lang::tr{'delete'}' src='/images/network-error.png' />
 679                                                 </form></td></tr>
 680 END
 681 ;
 682                                 }
 683                         else
 684                                 {
 685                                 print <<END
 686                                 <td><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
 687                                                 <input type='hidden' name='NAME' value='$userline[0]' />
 688                                                 <input type='hidden' name='ACTION' value='userdelete' />
 689                                                 <input type='image' alt='$Lang::tr{'delete'}' title='$Lang::tr{'delete'}' src='/images/user-option-remove.png' />
 690                                 </form></td></tr>
 691 END
 692 ;
 693                                 }
 694                 $lines++;
 695                 }
 696         print <<END
 697         </table>
 698         <br />
 699         <table width='10%' cellspacing='0'>
 700         <tr><td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
 701                                                                                                         <input type='hidden' name='ACTION' value='useradd' />
 702                                                                                                         <input type='image' alt='$Lang::tr{'add user'}' title='$Lang::tr{'add user'}' src='/images/user-option-add.png' /></form></td>
 703 END
 704 ;
 705
 706         if ($sambasettings{'DOMAINMASTER'} eq 'on')
 707                 {
 708                 print <<END
 709                 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
 710                                                                                                 <input type='hidden' name='ACTION' value='pcadd' />
 711                                                                                                 <input type='image' alt='$Lang::tr{'pc add'}' title='$Lang::tr{'pc add'}' src='/images/network.png' /></form>
 712 END
 713 ;
 714                 }
 715         print <<END
 716         <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
 717                                                                                         <input type='hidden' name='ACTION' value='usercaption' />
 718                                                                                         <input type='image' alt='$Lang::tr{'caption'}' title='$Lang::tr{'caption'}' src='/images/help-browser.png' /></form>
 719         </td></tr>
 720         </table>
 721 END
 722 ;
 723
 724         if ($sambasettings{'ACTION'} eq 'usercaption')
 725                 {
 726                 print <<END
 727                 <br />
 728                 <table width='95%' cellspacing='0'>
 729                 <tr><td align='center' colspan='2'><b>$Lang::tr{'caption'}</b></td></tr>
 730                 <tr><td align='right' width='33%'><img src='/images/user-option-add.png' /></td><td align='left'>$Lang::tr{'add user'}</td></tr>
 731                 <tr><td align='right' width='33%'><img src='/images/network.png' /></td><td align='left'>$Lang::tr{'pc add'}</td></tr>
 732                 <tr><td align='right' width='33%'><img src='/images/user-option-remove.png' /></td><td align='left'>$Lang::tr{'delete user'}</td></tr>
 733                 <tr><td align='right' width='33%'><img src='/images/network-error.png' /></td><td align='left'>$Lang::tr{'delete pc'}</td></tr>
 734                 <tr><td align='right' width='33%'><img src='/images/off.gif' /></td><td align='left'>$Lang::tr{'activate user'}</td></tr>
 735                 <tr><td align='right' width='33%'><img src='/images/on.gif' /></td><td align='left'>$Lang::tr{'deactivate user'}</td></tr>
 736                 <tr><td align='right' width='33%'><img src='/images/edit.gif' /></td><td align='left'>$Lang::tr{'change passwords'}</td></tr>
 737                 <tr><td align='right' width='33%'><img src='/images/media-floppy.png' /></td><td align='left'>$Lang::tr{'save config'}</td></tr>
 738                 </table>
 739 END
 740 ;
 741                 }
 742
 743         if ($sambasettings{'ACTION'} eq 'userchangepw')
 744                 {
 745                 my $username = "$sambasettings{'NAME'}";
 746                 my $password = 'samba';
 747                 print <<END
 748                 <br />
 749                 <form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
 750                 <table width='95%' cellspacing='0'>
 751                 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'change passwords'}</b></td></tr>
 752                 <tr><td align='left'>$Lang::tr{'username'}</td><td><input type='text' name='USERNAME' value='$username' size='30' readonly='readonly' /></td></tr>
 753                 <tr><td align='left'>$Lang::tr{'password'}</td><td><input type='password' name='PASSWORD' value='$password' size='30' /></td></tr>
 754                 <tr><td colspan='2' align='center'><input type='hidden' name='ACTION' value='smbchangepw' />
 755                         <input type='image' alt='$Lang::tr{'save'}' title='$Lang::tr{'save'}' src='/images/media-floppy.png' /></td></tr>
 756                 </table>
 757                 </form>
 758 END
 759 ;
 760                 }
 761
 762         if ($sambasettings{'ACTION'} eq 'useradd')
 763                 {
 764                 my $username = "user";
 765                 my $password = "samba";
 766                 chomp $username;
 767                 $username=~s/\s//g;
 768                 chomp $password;
 769                 $password=~s/\s//g;
 770                 print <<END
 771                 <br />
 772                 <form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
 773                 <table width='95%' cellspacing='0'>
 774                 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'add user'}</b></td></tr>
 775                 <tr><td align='left'>$Lang::tr{'username'}</td><td><input type='text' name='USERNAME' value='$username' size='30' /></td></tr>
 776                 <tr><td align='left'>$Lang::tr{'password'}</td><td><input type='password' name='PASSWORD' value='$password' size='30' /></td></tr>
 777                 <tr><td align='left'>$Lang::tr{'unix group'}</td><td><input type='text' name='GROUP' value='sambauser' size='30' /></td></tr>
 778                 <tr><td align='left'>$Lang::tr{'unix shell'}</td><td><input type='text' name='SHELL' value='/bin/false' size='30' /></td></tr>
 779                 <tr><td colspan='2' align='center'><input type='hidden' name='ACTION' value='smbuseradd' />
 780                         <input type='image' alt='$Lang::tr{'save'}' title='$Lang::tr{'save'}' src='/images/media-floppy.png' /></td></tr>
 781                 </table>
 782                 </form>
 783 END
 784 ;
 785                 }
 786
 787         if ($sambasettings{'ACTION'} eq 'pcadd')
 788                 {
 789                 my $pcname = "client\$";
 790                 chomp $pcname;
 791                 $pcname=~s/\s//g;
 792                 print <<END
 793                 <br />
 794                 <form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
 795                 <table width='95%' cellspacing='0'>
 796                 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'pc add'}</b></td></tr>
 797                 <tr><td align='left'>$Lang::tr{'client'}</td><td><input type='text' name='PCNAME' value='$pcname' size='30' /></td></tr>
 798                 <tr><td align='left'>$Lang::tr{'unix group'}</td><td><input type='text' name='GROUP' value='sambawks' size='30' /></td></tr>
 799                 <tr><td align='left'>$Lang::tr{'unix shell'}</td><td><input type='text' name='SHELL' value='/bin/false' size='30' /></td></tr>
 800                 <tr><td colspan='2' align='center'><input type='hidden' name='ACTION' value='smbpcadd' />
 801                         <input type='image' alt='$Lang::tr{'save'}' title='$Lang::tr{'save'}' src='/images/media-floppy.png' /></td></tr>
 802                 </table>
 803                 </form>
 804 END
 805 ;
 806                 }
 807
 808 &Header::closebox();
 809 }
 810
 811 if ($sambasettings{'SECURITY'} eq "ADS") {
 812         &Header::openbox('100%', 'center', $Lang::tr{'samba join a domain'});
 813
 814         my $AD_DOMAINNAME = uc($mainsettings{'DOMAINNAME'});
 815
 816         print <<END;
 817         <form method="POST" action="$ENV{'SCRIPT_NAME'}">
 818                 <input type="hidden" name="ACTION" value="join">
 819
 820                 <table width="95%">
 821                         <tbody>
 822                                 <tr>
 823                                         <td width="40%">
 824                                                 $Lang::tr{'domain'}
 825                                         </td>
 826                                         <td>
 827                                                 $AD_DOMAINNAME
 828                                         </td>
 829                                 </tr>
 830                                 <tr>
 831                                         <td width="40%">
 832                                                 $Lang::tr{'administrator username'}
 833                                         </td>
 834                                         <td>
 835                                                 <input type="text" name="USERNAME" size="30">
 836                                         </td>
 837                                 </tr>
 838                                 <tr>
 839                                         <td width="40%">
 840                                                 $Lang::tr{'administrator password'}
 841                                         </td>
 842                                         <td>
 843                                                 <input type="password" name="PASSWORD" size="30">
 844                                         </td>
 845                                 </tr>
 846                                 <tr>
 847                                         <td></td>
 848                                         <td>
 849                                                 <input type="submit" value="$Lang::tr{'samba join domain'}">
 850                                         </td>
 851                                 </tr>
 852                         </tbody>
 853                 </table>
 854         </form>
 855 END
 856
 857         &Header::closebox();
 858 }
 859
 860 ############################################################################################################################
 861 ############################################### Verwalten von Freigaben ####################################################
 862
 863 &Header::openbox('100%', 'center', $Lang::tr{'shares'});
 864
 865 my %shares =  config("${General::swroot}/samba/shares");
 866
 867
 868 print <<END
 869 <a name="$Lang::tr{'manage shares'}"></a>
 870 <br />
 871 <table width='95%' cellspacing='0' class='tbl'>
 872 <tr><th bgcolor='$color{'color20'}' colspan='3' align='left'><b>$Lang::tr{'manage shares'}</b></th></tr>
 873 <tr><th align='left'><u>$Lang::tr{'sharename'}</u></th><th colspan='2' width="5%" align='center'><u>$Lang::tr{'options'}</u></th></tr>
 874 END
 875 ;
 876
 877 my @Shares = keys(%shares);
 878 my $lines = 0;
 879 my $col="";
 880 foreach my $shareentry (sort @Shares)
 881         {
 882         chomp $shareentry;
 883         if ($lines % 2) {
 884                 print "<tr>";
 885                 $col="bgcolor='$color{'color20'}'";
 886         } else {
 887                 print "<tr>";
 888                 $col="bgcolor='$color{'color22'}'";
 889         }
 890         print <<END
 891         <td align='left' $col>$shareentry</td>
 892         <td $col><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage shares'}'>
 893                         <input type='hidden' name='NAME' value='$shareentry' />
 894                         <input type='hidden' name='ACTION' value='sharechange' />
 895                         <input type='image' alt='$Lang::tr{'edit'}' title='$Lang::tr{'edit'}' src='/images/edit.gif' />
 896         </form></td>
 897         <td $col><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage shares'}'>
 898                         <input type='hidden' name='NAME' value='$shareentry' />
 899                         <input type='hidden' name='ACTION' value='smbsharedel' />
 900                         <input type='image' alt='$Lang::tr{'delete'}' title='$Lang::tr{'delete'}' src='/images/user-trash.png' />
 901         </form></td></tr>
 902 END
 903 ;
 904   $lines++;
 905         }
 906
 907 print <<END
 908 </table>
 909 <br />
 910 <table width='10%' cellspacing='0'>
 911 <tr><td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage shares'}'>
 912                                                                                                 <input type='hidden' name='ACTION' value='shareadd' />
 913                                                                                                 <input type='image' alt='$Lang::tr{'add share'}' title='$Lang::tr{'add share'}' src='/images/list-add.png' />
 914                                                                                                 </form></td>
 915                 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage shares'}'>
 916                                                                                                 <input type='hidden' name='ACTION' value='sharesreset' />
 917                                                                                                 <input type='image' alt='$Lang::tr{'reset'}' title='$Lang::tr{'reset'}' src='/images/reload.gif' />
 918                                                                                                 </form></td>
 919                 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage shares'}'>
 920                                                                                                 <input type='hidden' name='ACTION' value='sharecaption' />
 921                                                                                                 <input type='image' alt='$Lang::tr{'caption'}' title='$Lang::tr{'caption'}' src='/images/help-browser.png' />
 922                                                                                                 </form></td>
 923 </tr>
 924 </table>
 925 END
 926 ;
 927
 928 if ($sambasettings{'ACTION'} eq 'sharecaption')
 929         {
 930         print <<END
 931         <br />
 932         <table width='95%' cellspacing='0'>
 933         <tr><td align='center' colspan='2'><b>$Lang::tr{'caption'}</b></td></tr>
 934         <tr><td align='right' width='33%'><img src='/images/list-add.png' /></td><td align='left'>$Lang::tr{'add share'}</td></tr>
 935         <tr><td align='right' width='33%'><img src='/images/edit.gif' /></td><td align='left'>$Lang::tr{'edit share'}</td></tr>
 936         <tr><td align='right' width='33%'><img src='/images/media-floppy.png' /></td><td align='left'>$Lang::tr{'save config'}</td></tr>
 937         <tr><td align='right' width='33%'><img src='/images/reload.gif' /></td><td align='left'>$Lang::tr{'reset shares'}</td></tr>
 938         <tr><td align='right' width='33%'><img src='/images/user-trash.png' /></td><td align='left'>$Lang::tr{'delete share'}</td></tr>
 939         </table>
 940 END
 941 ;
 942         }
 943
 944 if ($sambasettings{'ACTION'} eq 'shareadd' || $sambasettings{'ACTION'} eq 'optioncaption' )
 945         {
 946         print <<END
 947         <br />
 948         <table width='95%' cellspacing='0'>
 949         <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'add share'}</b></td></tr>
 950         <tr><td colspan='2' align='center'></td></tr>
 951         <tr><td colspan='2' align='center'>$Lang::tr{'show share options'}
 952  <a href="sambahlp.cgi" target="popup" onClick="window.open ('', 'popup', 'width=580,height=600,scrollbars=yes, toolbar=no,status=no, resizable=yes,menubar=no,location=no,directories=no,top=10,left=10')"><img border="0" src="/images/help-browser.png"></a></td></tr>
 953         <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>
 954         </table>
 955         <br />
 956         <table width='10%' cellspacing='0'>
 957         <tr><td align='center'><input type='hidden' name='ACTION' value='smbshareadd' />
 958                                                                                                         <input type='image' alt='$Lang::tr{'add share'}' title='$Lang::tr{'add share'}' src='/images/media-floppy.png' /></td></tr></form>
 959         </table>
 960 END
 961 ;
 962         }
 963
 964 if ($sambasettings{'ACTION'} eq 'sharechange' || $sambasettings{'ACTION'} eq 'optioncaption2' )
 965         {
 966         my $shareoption = $shares{$sambasettings{'NAME'}};
 967         print <<END
 968         <br />
 969         <table width='95%' cellspacing='0'>
 970         <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'edit share'}</b></td></tr>
 971         <tr><td colspan='2' align='center'></td></tr>
 972         <tr><td colspan='2' align='center'>$Lang::tr{'show share options'}<a href="sambahlp.cgi" target="popup" onClick="window.open ('', 'popup', 'width=580,height=600,scrollbars=yes, toolbar=no,status=no, resizable=yes,menubar=no,location=no,directories=no,top=10,left=10')"><img border="0" src="/images/help-browser.png"></a></td></tr>
 973         <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>
 974         </table>
 975         <br />
 976         <table width='10%' cellspacing='0'>
 977         <tr><td align='center'><input type='hidden' name='NAME' value='$sambasettings{'NAME'}' />
 978                                                                                                         <input type='image' alt='$Lang::tr{'change share'}' title='$Lang::tr{'change share'}' src='/images/media-floppy.png' />
 979                                                                                                         <input type='hidden' name='ACTION' value='smbsharechange' /></form></td></tr>
 980         </table>
 981 END
 982 ;
 983         }
 984
 985 if ($sambasettings{'ACTION'} eq 'sharesresetyes')
 986         {
 987         system('/usr/local/bin/sambactrl smbsharesreset');
 988         my $shares = config("${General::swroot}/samba/shares");
 989         system("/usr/local/bin/sambactrl smbreload");
 990         }
 991 if ($sambasettings{'ACTION'} eq 'smbshareadd')
 992         {
 993         $shares{'xvx'}= "$sambasettings{'SHAREOPTION'}";
 994         save("shares");
 995         my $shares = config("${General::swroot}/samba/shares");
 996         }
 997 if ($sambasettings{'ACTION'} eq 'smbsharedel')
 998         {
 999         delete $shares{$sambasettings{'NAME'}};
1000         save("shares");
1001         my %shares = config("${General::swroot}/samba/shares");
1002         }
1003 if ($sambasettings{'ACTION'} eq 'smbsharechange')
1004         {
1005         $shares{$sambasettings{'NAME'}} = $sambasettings{'SHAREOPTION'};
1006         save("shares");
1007         my %shares = config("${General::swroot}/samba/shares");
1008         }
1009
1010 &Header::closebox();
1011
1012 ############################################################################################################################
1013 ################################################ Verwalten von Druckern ####################################################
1014
1015 my %printer =  config("${General::swroot}/samba/printer");
1016
1017 if ( -e "/var/ipfire/cups/enable")
1018 {
1019 &Header::openbox('100%', 'center', $Lang::tr{'printer'});
1020
1021 my @Printers = keys(%printer);
1022 print <<END
1023 <a name="$Lang::tr{'manage printers'}"></a>
1024 <br />
1025 <table width='95%' cellspacing='0'>
1026 <tr><td bgcolor='$color{'color20'}' colspan='3' align='left'><b>$Lang::tr{'manage printers'}</b>
1027 <tr><td align='left'><u>$Lang::tr{'printername'}</u></td><td colspan='2' width="5%" align='center'><u>$Lang::tr{'options'}</u></td></tr>
1028 END
1029 ;
1030 foreach my $printerentry (sort @Printers)
1031         {
1032         chomp $printerentry;
1033         print <<END
1034         <tr><td align='left'>$printerentry</td>
1035         <td><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage printers'}'>
1036                         <input type='hidden' name='NAME' value='$printerentry' />
1037                         <input type='hidden' name='ACTION' value='printerchange' />
1038                         <input type='image' alt='$Lang::tr{'edit'}' title='$Lang::tr{'edit'}' src='/images/edit.gif' />
1039         </form></td>
1040         <td><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage printers'}'>
1041                         <input type='hidden' name='NAME' value='$printerentry' />
1042                         <input type='hidden' name='ACTION' value='smbprinterdel' />
1043                         <input type='image' alt='$Lang::tr{'delete'}' title='$Lang::tr{'delete'}' src='/images/user-trash.png' />
1044         </form></td></tr>
1045 END
1046 ;
1047         }
1048 print <<END
1049 </table>
1050 <br />
1051 <table width='10%' cellspacing='0'>
1052 <tr><td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage printers'}'>
1053                                                                                                 <input type='hidden' name='ACTION' value='printeradd' />
1054                                                                                                 <input type='image' alt='$Lang::tr{'add printer'}' title='$Lang::tr{'add printer'}' src='/images/list-add.png' />
1055                                                                                                 </form></td>
1056                 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage printers'}'>
1057                                                                                                 <input type='hidden' name='ACTION' value='printereset' />
1058                                                                                                 <input type='image' alt='$Lang::tr{'reset'}' title='$Lang::tr{'reset'}' src='/images/reload.gif' />
1059                                                                                                 </form></td>
1060                 <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage printers'}'>
1061                                                                                                 <input type='hidden' name='ACTION' value='printercaption' />
1062                                                                                                 <input type='image' alt='$Lang::tr{'caption'}' title='$Lang::tr{'caption'}' src='/images/help-browser.png' />
1063                                                                                                 </form></td>
1064 </tr>
1065 </table>
1066 END
1067 ;
1068
1069 if ($sambasettings{'ACTION'} eq 'printeradd' || $sambasettings{'ACTION'} eq 'printercaption' )
1070         {
1071         print <<END
1072         <br />
1073         <table width='95%' cellspacing='0'>
1074         <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'add printer'}</b></td></tr>
1075         <tr><td colspan='2' align='center'></td></tr>
1076         <tr><td colspan='2' align='center'>$Lang::tr{'show share options'}
1077  <a href="sambahlp.cgi" target="popup" onClick="window.open ('', 'popup', 'width=580,height=600,scrollbars=yes, toolbar=no,status=no, resizable=yes,menubar=no,location=no,directories=no,top=10,left=10')"><img border="0" src="/images/help-browser.png"></a></td></tr>
1078         <form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage printers'}'><tr><td colspan='2' align='center'><textarea name="PRINTEROPTION" cols="50" rows="15" Wrap="off">$defaultprinter</textarea></td></tr>
1079         </table>
1080         <br />
1081         <table width='10%' cellspacing='0'>
1082         <tr><td align='center'><input type='hidden' name='ACTION' value='smbprinteradd' />
1083                                                                                                         <input type='image' alt='$Lang::tr{'add share'}' title='$Lang::tr{'add share'}' src='/images/media-floppy.png' /></td></tr>
1084         </table>
1085         </form>
1086 END
1087 ;
1088         }
1089
1090 if ($sambasettings{'ACTION'} eq 'printerchange' || $sambasettings{'ACTION'} eq 'printercaption2' )
1091         {
1092         my $printeroption = $printer{$sambasettings{'NAME'}};
1093         print <<END
1094         <br />
1095         <table width='95%' cellspacing='0'>
1096         <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'edit printer'}</b></td></tr>
1097         <tr><td colspan='2' align='center'></td></tr>
1098         <tr><td colspan='2' align='center'>$Lang::tr{'show share options'}<a href="sambahlp.cgi" target="popup" onClick="window.open ('', 'popup', 'width=580,height=600,scrollbars=yes, toolbar=no,status=no, resizable=yes,menubar=no,location=no,directories=no,top=10,left=10')"><img border="0" src="/images/help-browser.png"></a></td></tr>
1099         <tr><td colspan='2' align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage printers'}'><textarea name="PRINTEROPTION" cols="50" rows="15" Wrap="off">$printeroption</textarea></td></tr>
1100         </table>
1101         <br />
1102         <table width='10%' cellspacing='0'>
1103         <tr><td align='center'><input type='hidden' name='NAME' value='$sambasettings{'NAME'}' />
1104                                                                                                         <input type='image' alt='$Lang::tr{'change share'}' title='$Lang::tr{'change share'}' src='/images/media-floppy.png' />
1105                                                                                                         <input type='hidden' name='ACTION' value='smbprinterchange' /></form></td></tr>
1106         </table>
1107 END
1108 ;
1109         }
1110
1111 if ($sambasettings{'ACTION'} eq 'smbprinteradd')
1112         {
1113         $printer{'xvx'}= "$sambasettings{'PRINTEROPTION'}";
1114         save("printer");
1115         my %printer = config("${General::swroot}/samba/printer");
1116         }
1117
1118 if ($sambasettings{'ACTION'} eq 'smbprinterdel')
1119         {
1120         delete $printer{$sambasettings{'NAME'}};
1121         save("printer");
1122         my %printer = config("${General::swroot}/samba/printer");
1123         }
1124
1125 if ($sambasettings{'ACTION'} eq 'smbprinterchange')
1126         {
1127         $printer{$sambasettings{'NAME'}} = $sambasettings{'PRINTEROPTION'};
1128         save("printer");
1129         my %printer = config("${General::swroot}/samba/printer");
1130         }
1131
1132 &Header::closebox();
1133 }
1134
1135 ############################################################################################################################
1136 ############################################### Anzeige des Sambastatus ####################################################
1137
1138 &Header::openbox('100%', 'center', 'Status');
1139
1140 print <<END
1141 <br />
1142 <table width='95%' cellspacing='0'>
1143 <tr><td bgcolor='$color{'color20'}' colspan='3' align='left'><b>$Lang::tr{'samba status'}</b></td></tr>
1144 <tr><td  align='left'><small><pre>$Status</pre></small></td></tr>
1145 </table>
1146 END
1147 ;
1148 &Header::closebox();
1149
1150 ############################################################################################################################
1151 ############################################### Anzeige der Sambalogs ######################################################
1152
1153
1154 if ($sambasettings{'ACTION'} eq 'showlog')
1155 {
1156 $Log = qx(tail -n $sambasettings{'LOGLINES'} /var/log/samba/$sambasettings{'LOG'});
1157 $Log=~s/\n/<br \/>/g;
1158 }
1159
1160 &Header::openbox('100%', 'center', $Lang::tr{'log'});
1161
1162 print <<END
1163 <a name="$Lang::tr{'log view'}"></a>
1164 <br />
1165 <form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'log view'}'>
1166 <table width='95%' cellspacing='0'>
1167 <tr><td bgcolor='$color{'color20'}' colspan='3' align='left'><b>$Lang::tr{'log view'}</b></td></tr>
1168 <tr><td colspan='3'  align='left'><br /></td></tr>
1169 <tr><td  align='left'><select name='LOG' style="width: 200px">
1170 END
1171 ;
1172 foreach my $log (@Logs) {chomp $log;print"<option value='$log'>$log</option>";}
1173 print <<END
1174
1175 </select></td><td  align='left'>$Lang::tr{'show last x lines'}<input type='text' name='LOGLINES' value='$LOGLINES' size="3" /></td>
1176                         <td  align='left'><input type='hidden' name='ACTION' value='showlog' /><input type='image' alt='view Log' title='view Log' src='/images/format-justify-fill.png' /></td></tr>
1177 <tr><td colspan='3'  align='left'><br /></td></tr>
1178 <tr><td colspan='3'  align='left'><font size=2>$Log</font></td></tr>
1179 <tr><td colspan='3'  align='left'><br /></td></tr>
1180 <tr><td colspan='3'  align='center'>$sambasettings{'LOG'}</td></tr>
1181 </table>
1182 </form>
1183 END
1184 ;
1185 &Header::closebox();
1186 &Header::closebigbox();
1187 &Header::closepage();
1188
1189 ############################################################################################################################
1190 ############################################ Subfunktion fr Sambadienste ###################################################
1191
1192 sub config
1193 {
1194 my $file = shift;
1195 my @allarray = `grep -n '^\\[' $file`;
1196 my @linesarray = ();
1197 my @namearray = ();
1198 my %hash = ();
1199 my $options = ();
1200 my $EOF = qx(cat $file | wc -l);
1201 foreach my $allarrayentry (@allarray)
1202  {
1203  my @allarrayline = split( /\:/, $allarrayentry );
1204  push(@linesarray,$allarrayline[0]);$allarrayline[1]=~s/\[//g;$allarrayline[1]=~s/\]//g;push(@namearray,$allarrayline[1]);
1205  }
1206         for(my $i = 0; $i <= $#namearray; $i++)
1207                 {
1208                 chomp $namearray[$i];
1209                 $namearray[$i]=~s/\[//g;$namearray[$i]=~s/\]//g;
1210                 if ( $i eq $#namearray )
1211                         {
1212                         my $lineend = $EOF-$linesarray[$i]+1;
1213                         $options=qx(tail -$lineend $file);
1214                         }
1215                 else
1216                         {
1217                         my $linestart = $EOF-$linesarray[$i]+1;
1218                         my $lineend =  $linesarray[$i+1]-$linesarray[$i];
1219                         $options=qx(tail -$linestart $file | head -$lineend);
1220                         }
1221                 $hash{$namearray[$i]} = "$options";
1222                 #print"<pre>$namearray[$i]\n$options\n</pre>"; # enable only for debuging
1223                 }
1224 return(%hash);
1225 }
1226
1227 sub save
1228 {
1229 my $smb = shift;
1230 open (FILE, ">${General::swroot}/samba/$smb") or die "Can't $smb settings $!";
1231 flock (FILE, 2);
1232
1233 if ( $smb eq 'printer')
1234         {while (my ($name, $option) = each %printer){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";}}
1235
1236 if ( $smb eq 'shares')
1237         {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";}        }
1238
1239 close FILE;
1240
1241 if ( -e "/var/ipfire/cups/enable")
1242         {
1243         if ( $sambasettings{'SECURITY'} eq 'user' && $sambasettings{'DOMAINMASTER'} eq 'true' ){system("/usr/local/bin/sambactrl smbsafeconfpdccups");}
1244         else {system("/usr/local/bin/sambactrl smbsafeconfcups");}
1245         }
1246 else
1247         {
1248         if ( $sambasettings{'SECURITY'} eq 'user' && $sambasettings{'DOMAINMASTER'} eq 'true' ){system("/usr/local/bin/sambactrl smbsafeconfpdc");}
1249         else{system("/usr/local/bin/sambactrl smbsafeconf");}
1250         }
1251
1252 system("/usr/local/bin/sambactrl smbreload");
1253 refreshpage();
1254 }
1255
1256 sub isrunning
1257         {
1258         my $cmd = $_[0];
1259         my $status = "<td align='center' bgcolor='${Header::colourred}'><font color='white'><b>$Lang::tr{'stopped'}</b></font></td>";
1260         my $pid = '';
1261         my $testcmd = '';
1262         my $exename;
1263
1264         $cmd =~ /(^[a-z]+)/;
1265         $exename = $1;
1266
1267         if (open(FILE, "/var/run/${cmd}.pid"))
1268                 {
1269                 $pid = <FILE>; chomp $pid;
1270                 close FILE;
1271                 if (open(FILE, "/proc/${pid}/status"))
1272                         {
1273                         while (<FILE>)
1274                                 {
1275                                 if (/^Name:\W+(.*)/)
1276                                         {
1277                                         $testcmd = $1;
1278                                         }
1279                                 }
1280                         close FILE;
1281                         if ($testcmd =~ /$exename/)
1282                                 {
1283                                 $status = "<td align='center' bgcolor='${Header::colourgreen}'><font color='white'><b>$Lang::tr{'running'}</b></font></td>";
1284                                 }
1285                         }
1286                 }
1287         return $status;
1288         }
1289
1290 sub joindomain {
1291         my $username = shift;
1292         my $password = shift;
1293
1294         my @options = ("/usr/local/bin/sambactrl", "join", $username, $password);
1295         my $output = qx(@options);
1296
1297         return $output;
1298 }