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