pkg://dwww_1.10.3_i386.deb:111294/config  info  downloads

#!/usr/bin/perl -w
# vim:ft=perl:cindent:ts=8
# config for dwww
# $Id: dwww.config,v 1.7 2003-08-11 21:11:59 robert Exp $

use Debconf::Client::ConfModule qw(:all);

version('2.0');
capb('backup');

my $cfgfile  = '/etc/dwww/dwww.conf';
my $defs_set = 0;

# Create directories we need, see bug #188267
&mkdir_p("/usr/lib/cgi-bin");
&mkdir_p("/var/www");


if ( -r "$cfgfile" )
{
	&ScanDwwwConfFile ( "$cfgfile" );

	foreach $cfgvar (('docrootdir', 'cgidir', 'cgiuser', 'serverport', 'servername'))
	{
		if (defined $dwwwcfg{$cfgvar})
		{
			set("dwww/$cfgvar",  $dwwwcfg{$cfgvar});
			fset("dwww/$cfgvar", 'seen', 'true');
		}
	}

	$defs_set = 1;
}

if (not defined $dwwwcfg{'servername'})
{
	$host=`hostname --fqdn`;
	chomp($host);
	set('dwww/servername', "$host") if "$host" =~ /\w/;
}

my $state = 1;
while ($state > 0 && $state < 4)
{

	if ($state == 1)
	{
		beginblock();
		 input('medium', 'dwww/docrootdir');
		 input('medium', 'dwww/cgidir');
		 input('medium', 'dwww/cgiuser');
		endblock();
		@ret = go();

		# error handling
		$dir = scalar get('dwww/docrootdir');
		while ( ($ret[0] == 0) and
				not (($dir =~ m|^/|) and (-d $dir))
			  )
		{
			subst('dwww/nosuchdir', 'dir', $dir);
			fset('dwww/nosuchdir', 'seen', 'false');
			fset('dwww/docrootdir', 'seen', 'false');
			set('dwww/docrootdir', '/var/www');

			beginblock();
			 input('high', 'dwww/nosuchdir');
			 input('high', 'dwww/docrootdir');
			endblock();
			@ret = go();

			$dir = scalar get('dwww/docrootdir');
		}

		set('dwww/docrootdir', canondir($dir));


		$dir = scalar get('dwww/cgidir');
		while ( ($ret[0] == 0) and
				not (($dir =~ m|^/|) and (-d $dir))
			  )
		{
			subst('dwww/nosuchdir', 'dir', $dir);
			fset('dwww/nosuchdir', 'seen', 'false');
			fset('dwww/cgidir', 'seen', 'false');
			set('dwww/cgidir', '/usr/lib/cgi-bin');

			beginblock();
			 input('high', 'dwww/nosuchdir');
			 input('high', 'dwww/cgidir');
			endblock();
			@ret = go();

			$dir = scalar get('dwww/cgidir');
		}

		set('dwww/cgidir', canondir($dir));


		$usr = scalar get('dwww/cgiuser');
		while ( ($ret[0] == 0) and
				not (($usr =~  m/^\s*\d+\s*$/) or (defined getpwnam($usr)))
			   )
		{
			subst('dwww/nosuchuser', 'user', $usr);
			fset('dwww/nosuchuser', 'seen', 'false');
			fset('dwww/cgiuser', 'seen', 'false');
			set('dwww/cgiuser', 'www-data');

			beginblock();
			 input('high', 'dwww/nosuchuser');
			 input('high', 'dwww/cgiuser');
			endblock();
			@ret = go();

			$usr = scalar get('dwww/cgiuser');
		}

	}

	elsif ($state == 2)
	{
		beginblock();
		 input('medium', 'dwww/servername');
		 input('medium', 'dwww/serverport');
		endblock();
		@ret = go();

		$port = scalar get('dwww/serverport');
		while ( ($ret[0] == 0) and ($port !~ /^\s*\d+\s*$/))
		{
			subst('dwww/badport', 'port', $port);
			fset('dwww/badport', 'seen', 'false');
			fset('dwww/serverport', 'seen', 'false');
			set('dwww/serverport', '80');

			beginblock();
			 input('high', 'dwww/badport');
			 input('high', 'dwww/serverport');
			endblock();
			@ret = go();

			$port = scalar get('dwww/serverport');
		}
		$port =~ s/\s+//g;
		set('dwww/serverport', $port);
	}

	elsif ($state == 3) {
		if (-x '/usr/bin/index++' 
				and not -s '/var/lib/dwww/dwww.swish++.index') {
			beginblock();
			 input('low', 'dwww/index_docs');
			endblock();
			@ret = go();
		}
	}
			

	if ( ($ret[0] == 30) ) { 
		$state--; 	# go back
	}	
	else { 
		$state++; 	# go forward
	}
}



# SUBROUTINES

# Subroutine to Scan Dwww configuration file
# Configfile to parse is the argument to the subroutine
sub ScanDwwwConfFile
{

	if ( ! -r "$_[0]" ) { return; };
	open(DWWWCONFFILE,"<$_[0]") || die "Could not open $_[0]";
	
	# set defaults
	$dwwwcfg{'serverport'}  = 80;

	while (<DWWWCONFFILE>)
	{
		# Check for DWWW_DOCROOTDIR
		if( s/^\s*DWWW_DOCROOTDIR=//)
		{
			chomp($dwwwcfg{'docrootdir'}=$_) if /\w/;
		}

		# Check for DWWW_CGIDIR
		elsif( s/^\s*DWWW_CGIDIR=//)
		{
			chomp($dwwwcfg{'cgidir'}=$_) if /\w/;
		}

		# Check for DWWW_CGIUSER
		elsif( s/^\s*DWWW_CGIUSER=//)
		{
			chomp($dwwwcfg{'cgiuser'}=$_) if /\w/;
		}

		# Check for DWWW_SERVERNAME
		elsif( s/^\s*DWWW_SERVERNAME=//)
		{
			if (/\w/)
			{
				chomp($dwwwcfg{'servername'}=$_);
				# some compatibility code: assume that everything after i
				# the last : is  a port number
	
				if ($dwwwcfg{'servername'} =~ /^(.*):(\d+)$/)
				{
					$dwwwcfg{'servername'} = $1;
					$dwwwcfg{'serverport'} = $2;
				}
			}
		}


		# Check for DWWW_SERVERPORT
		elsif( s/^\s*DWWW_SERVERPORT=//)
		{
			chomp($dwwwcfg{'serverport'}=$_) if /\w/;
		}
	}
	close DWWWCONFFILE;
}


sub canondir
{
	my $dir = $_[0];

	$dir =~ s|/+|/|g;
	$dir =~ s|/$||;
	return $dir;
}

# Check if $a exists in @_
sub exists_in
{
	my $a = lc (shift);
	
	foreach $b (@_)
	{
		return 1 if ($a cmp (lc $b)) == 0;
	}
	return 0;
}


# Same as `mkdir -p'
sub mkdir_p
{
	my $dir = shift;
	return if (-d $dir);
	my $p = "";
	foreach $f (split "/", $dir) 
	{
		$p .=  $f . "/";
		(-d $p) or (mkdir $p, 0755) or die "Can't create directory $p: $!\n";
	}
}