html/cgi-bin/samba.cgi

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