[ipfire-2.x.git] / html / cgi-bin / samba.cgi

#!/usr/bin/perl
#
# IPFire CGIs
#
# This code is distributed under the terms of the GPL
#
# (c) The IPFire Team
#

use strict;
# enable only the following on debugging purpose
use warnings;
use CGI::Carp 'fatalsToBrowser';

require '/var/ipfire/general-functions.pl';
require "${General::swroot}/lang.pl";
require "${General::swroot}/header.pl";

my %sambasettings = ();
my %checked = ();
my %netsettings = ();
my %ovpnsettings = ();
my $message = "";
my $errormessage = "";
my $shareconfigentry = "";
my @sharesconfig = ();
my @shareconfigline = ();
my $shareoption = '';
my $defaultoption= "[Share]\npath = /shares/share1\ncomment = Share - Public Access\nbrowseable = yes\nwriteable = yes\ncreate mask = 0777\ndirectory mask = 0777\nguest ok = yes\npublic = yes\nforce user = samba";
my $userentry = "";
my @user = ();
my @userline = ();
my @proto = ();
my %selected= () ;
my $userfile = "/var/ipfire/samba/private/smbpasswd";
&General::readhash("${General::swroot}/ethernet/settings", \%netsettings);
&General::readhash("${General::swroot}/ovpn/settings", \%ovpnsettings);

############################################################################################################################
Commit	Line	Data
	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
	10	use strict;
	11	# enable only the following on debugging purpose
	12	use warnings;
	13	use CGI::Carp 'fatalsToBrowser';
	14
	15	require '/var/ipfire/general-functions.pl';
	16	require "${General::swroot}/lang.pl";
	17	require "${General::swroot}/header.pl";
	18
	19	my %sambasettings = ();
	20	my %checked = ();
	21	my %netsettings = ();
	22	my %ovpnsettings = ();
	23	my $message = "";
	24	my $errormessage = "";
	25	my $shareconfigentry = "";
	26	my @sharesconfig = ();
	27	my @shareconfigline = ();
	28	my $shareoption = '';
	29	my $defaultoption= "[Share]\npath = /shares/share1\ncomment = Share - Public Access\nbrowseable = yes\nwriteable = yes\ncreate mask = 0777\ndirectory mask = 0777\nguest ok = yes\npublic = yes\nforce user = samba";
	30	my $userentry = "";
	31	my @user = ();
	32	my @userline = ();
	33	my @proto = ();
	34	my %selected= () ;
	35	my $userfile = "/var/ipfire/samba/private/smbpasswd";
	36	&General::readhash("${General::swroot}/ethernet/settings", \%netsettings);
	37	&General::readhash("${General::swroot}/ovpn/settings", \%ovpnsettings);
	38
	39	############################################################################################################################
	40