#!/usr/local/bin/perl5
#
# Requires: lib nrc

# $spath_real: the path of the script on the server
$spath_real = '/var/spool/www/W2/Lab/Rb97/Enq/';

# Obtain the subroutines needed
require "${spath_real}lib";
require "${spath_real}nrc";

$spath = '/W2/Lab/Rb97/Enq/';

# Set the results database name
# Initialise the options

$resultsdb = "${spath_real}meevallerdb/resultaten";
@opties = ( '',
	'Politie & justitie',
	'Defensie (VN-taken)',
	'Sociale zekerheid',
	'Infrastructuur',
	'Verlaging overheidstekort',
	'Onderwijs',
	'Gezondheidszorg',
	'Ontwikkelingssamenwerking',
	'Cultuur' );

# $topfile: file to be inserted at top of document
# $bottomfile: file to be inserted at bottom of document
$topfile = "${insertdir}meevaller.begin";
$bottomfile = "${insertdir}meevaller.eind";

# Print HTTP header
&HTTPHeader;

# Check if POST data available, return if not
# Check if results need to be shown, return if not
# Check if all fields are entered, return if not
exit if &FirstTime;
exit if &Results;
exit if &Missing;

# Open the results database for writing
# Update number of votes
# Increment number of votes depending on gender
# Increment number of votes depending on location
# Increment number of votes depending on poitical spectrum
# Increment number of votes depending on voting behaviour

&ErrorOpen( $resultsdb ) unless dbmopen( %wresults,$resultsdb,0664 );
$wresults{ 'total' }++;
$wresults{ $in{'gender'} }++;
$wresults{ $in{'where'} }++;
$wresults{ $in{'spectrum'} }++;
$wresults{ $in{'vote'} }++;

# For each of the indicated choices
#  Set number of points to be added
#  Update the general counter for this place
#  Update the gender oriented counter for this place
#  Update the location oriented counter for this place
#  Update the political oriented counter for this place
#  Update the vote oriented counter for this place

for( 1..9 ) {
	$points = 10-$_;
	$wresults{'',$in{$_}} += $points;
	$wresults{ $in{'gender'},$in{$_}} += $points;
	$wresults{ $in{'where'},$in{$_}} += $points;
	$wresults{ $in{'spectrum'},$in{$_}} += $points;
	$wresults{ $in{'vote'},$in{$_}} += $points;
}

# Make a local copy of the results
# Close the database

%results = %wresults;
dbmclose( %wresults );

# Display top

&Top;

print <<EOD;
<H1>De uitslag</H1>
Hieronder ziet u naast elkaar uw rangschikking naast
de rangschikking van alle inzendingen bij elkaar
opgeteld. 
<P>
Het totaal aantal inzendingen is: <B>$results{'total'}</B>
<P>
EOD

@table0 = ($in{'1'},$in{'2'},$in{'3'},$in{'4'},$in{'5'},$in{'6'},$in{'7'},$in{'8'},$in{'9'});
@table1 = &SortByType('');
&ShowOptions( 'Uw rangschikking','Totalen algemeen' );
&ShowOthers( '' );

&Bottom;


#----------------------------------------------------------
sub FirstTime {
return undef if &ReadParse;

&Top;

print <<EOD;
<H1>De meevaller</H1>
In het regeringsakkoord hebben de ministers zich
gebonden aan uitgavenplafonds voor hun
departementen. Veel ruimte voor verschuivingen laat
dat niet. Alleen bij een meevaller is er ruimte voor
belangrijke beleidskeuzes. 
U bent het kabinet. En u heeft onverwachts een miljard
gulden exta te besteden. Hoe verdeelt u het geld over
de volgende beleidsterreinen?
<P>
EOD

&Form();
&Bottom;
return 1;
}

#----------------------------------------------------------
sub Results {
return undef unless $in{'query'};

local( %title ) = {
	'man','Mannelijke inzenders',
	'vrouw','Vrouwelijke inzenders',
	'binnenland','Binnenlandse inzenders',
	'buitenland','Buitenlandse inzenders',
	'link','Links',
	'midden','Midden',
	'rechts','Rechts',
	'regering','Regeringspartijstemmers',
	'oppositie','Oppositiepartijstemmers',
	'niet','Niet-stemmers',
	};

# Open the results database for writing

&ErrorOpen( $resultsdb ) unless dbmopen( %results,$resultsdb,0444 );

&Top;

if( $in{'query'} eq 'manvrouw' ) {
	print <<EOD;
<H1>De uitslag: man/vrouw</H1>
Hieronder ziet u naast elkaar de rangschikkingen van
alle mannelijke en vrouwelijke inzenders. 
<P>
Het totaal aantal mannelijke inzenders is: <B>$results{'man'}</B><BR>
Het totaal aantal vrouwelijke inzenders is: <B>$results{'vrouw'}</B>
<P>
EOD

	@table0 = &SortByType('man');
	@table1 = &SortByType('vrouw');
	&ShowOptions( 'Mannelijke inzenders','Vrouwelijke inzenders' );
	&ShowOthers( 'manvrouw' );
} elsif( $in{'query'} eq 'binbuit' ) {
	print <<EOD;
<H1>De uitslag: binnen-/buitenland</H1>
Hieronder ziet u naast elkaar de rangschikkingen van
alle binnenlandse en buitenlandse inzenders. 
<P>
Het totaal aantal binnenlandse inzenders is: <B>$results{'binnenland'}</B><BR>
Het totaal aantal buitenlandse inzenders is: <B>$results{'buitenland'}</B>
<P>
EOD

	@table0 = &SortByType('binnenland');
	@table1 = &SortByType('buitenland');
	&ShowOptions( 'Binnenlandse inzenders','Buitenlandse inzenders' );
	&ShowOthers( 'binbuit' );
} elsif( $in{'query'} eq 'spectrum' ) {
	print <<EOD;
<H1>De uitslag: politieke spectrum</H1>
Hieronder ziet u naast elkaar de rangschikkingen
uitgesplitst naar de plaats in het politieke spectrum
van de inzenders.
<P>
Links van het politieke spectrum: <B>$results{'links'}</B><BR>
Midden in het politieke spectrum: <B>$results{'midden'}</B><BR>
Rechts van het politieke spectrum: <B>$results{'rechts'}</B><BR>
<P>
EOD

	@table0 = &SortByType('links');
	@table1 = &SortByType('midden');
	@table2 = &SortByType('rechts');
	&ShowOptions( 'Links','Midden','Rechts' );
	&ShowOthers( 'binbuit' );
} elsif( $in{'query'} eq 'stem' ) {
	print <<EOD;
<H1>De uitslag: regering/oppositie/niet</H1>
Hieronder ziet u naast elkaar de rangschikkingen van
alle regeringspartij-, oppositiepartij- en niet-stemmers.
<P>
Het totaal aantal regeringspartijstemmers is: <B>$results{'regering'}</B><BR>
Het totaal aantal oppositiepartijstemmers is: <B>$results{'oppositie'}</B><BR>
Het totaal aantal niet-stemmers is: <B>$results{'niet'}</B><BR>
<P>
EOD

	@table0 = &SortByType('regering');
	@table1 = &SortByType('oppositie');
	@table2 = &SortByType('niet');
	&ShowOptions( 'Regeringspartijstemmers','Oppositiepartijstemmers','Niet-stemmers' );
	&ShowOthers( 'stem' );
} else {
	print <<EOD;
<H1>De uitslag: totaal</H1>
Hieronder ziet u naast elkaar uw rangschikking naast
de rangschikking van alle inzendingen bij elkaar
opgeteld.
<P>
Het totaal aantal inzendingen is: <B>$results{'total'}</B>
<P>
EOD

	@table0 = &SortByType('');
	&ShowOptions( 'Totalen algemeen' );
	&ShowOthers( 'algemeen' );
}

&Bottom;

return 1;
}

#----------------------------------------------------------
sub Missing {
local( $missing,$double,$notdone );
local( %musthave,%selected,%notselected );

%musthave = (
	'gender','Of u man of vrouw bent',
	'where','Waar u woont',
	'spectrum','Hoe u zichzelf positioneert',
	'vote','Hoe u stemt',
	);

foreach( sort keys( %musthave ) ) {
	unless( $in{$_} ) {
		unless( $missing++ ) {
			&Top;
			print "<H1>De meevaller</H1>\n";
			print "<CENTER><HR>U heeft de volgende velden niet ingevuld:<BR>\n";
		}
		print "<NOBR>| <B>$musthave{$_}</B> |</NOBR>\n";
	}
}

for ( 1..9 ) {
	$notselected{$_} = 1;
}

for ( 1..9 ) {
	if( $selected{$in{$_}} ) {
		unless( $double++ ) {
			if( $missing ) {
				print "<P>\n";
			} else {
				&Top;
				print "<H1>De meevaller</H1>\n";
				print "<CENTER>\n";
			}
			print "<HR>U heeft de volgende beleidsterreinen meer dan eens opgevoerd:<BR>\n";
		}
		print "<NOBR>| <B>$opties[$in{$_}]</B> |</NOBR>\n" if $selected{$in{$_}} == 1;
	}
	$selected{$in{$_}}++;
	$notselected{$in{$_}} = 0;
}

for ( 1..9 ) {
	next unless $notselected{$_};
	unless( $notdone++ ) {
		if( $missing || $double ) {
			print "<P>\n";
		} else {
			&Top;
			print "<H1>De meevaller</H1>\n";
			print "<CENTER>\n";
		}
		print "<HR>U heeft de volgende beleidsterreinen niet opgevoerd:<BR>\n";
		}
	print "<NOBR>| <B>$opties[$_]</B> |</NOBR>\n";
}

return undef unless $missing || $double || $notdone;

print <<EOD;
<P>
Vul ook deze velden (juist) in!
<HR>
</CENTER>
EOD

&Form();
&Bottom;
return 1;
}

#----------------------------------------------------------
sub Form {

print <<EOD;
Zet op <B>1</B> waaraan u het meeste geld zou besteden en
op <B>9</B> wat u de minst belangrijke post vindt. U moet alle
beleidsterreinen een plaats geven in de
rangschikking.
<P>
EOD

&StartForm;
for( 1..9 ) {
	print <<EOD;
$_ .
EOD
	&Select( $_,$in{$_} || $_ );
	print <<EOD;
<BR>
EOD
}

local( $man ) = ' Checked' if $in{'gender'} eq 'man';
local( $vrouw ) = ' Checked' if $in{'gender'} eq 'vrouw';
local( $binnenland ) = ' Checked' if $in{'where'} eq 'binnenland';
local( $buitenland ) = ' Checked' if $in{'where'} eq 'buitenland';
local( $links ) = ' Checked' if $in{'spectrum'} eq 'links';
local( $midden ) = ' Checked' if $in{'spectrum'} eq 'midden';
local( $rechts ) = ' Checked' if $in{'spectrum'} eq 'rechts';
local( $regering ) = ' Checked' if $in{'vote'} eq 'regering';
local( $oppositie ) = ' Checked' if $in{'vote'} eq 'oppositie';
local( $not ) = ' Checked' if $in{'vote'} eq 'niet';

print <<EOD;
<P>

<B>Vul ook deze (anonieme) gegevens over u zelf in:</B>
<BR>
Ik ben:<BR>
<INPUT TYPE="radio" NAME="gender" VALUE="man"$man>man<BR>
<INPUT TYPE="radio" NAME="gender" VALUE="vrouw"$woman>vrouw
<P>
Ik woon:<BR>
<INPUT TYPE="radio" NAME="where" VALUE="binnenland"$binnenland>in Nederland<BR>
<INPUT TYPE="radio" NAME="where" VALUE="buitenland"$buitenland>buiten Nederland
<P>
Ik positioneer mezelf in het politieke spectrum:<BR>
<INPUT TYPE="radio" NAME="spectrum" VALUE="links"$links>links<BR>
<INPUT TYPE="radio" NAME="spectrum" VALUE="midden"$midden>midden<BR>
<INPUT TYPE="radio" NAME="spectrum" VALUE="rechts"$rechts>rechts
<P>
Ik stem op:<BR>
<INPUT TYPE="radio" NAME="vote" VALUE="regering"$regering>een van de regeringspartijen<BR>
<INPUT TYPE="radio" NAME="vote" VALUE="oppositie"$oppositie>een van de oppositiepartijen<BR>
<INPUT TYPE="radio" NAME="vote" VALUE="niet"$not>niet
<P>
<INPUT TYPE="submit" VALUE=" Verstuur mijn rangschikking ">
<INPUT TYPE="reset" VALUE=" Wis gegevens ">
EOD
}

#----------------------------------------------------------------
# Select
# Display options of a certain group of players
# 
#  IN: name of group of players
#      ordinal number of field (none if not specified)
#      type of player

sub Select {
local( $optie,$gekozen ) = @_;

print <<EOD;
<SELECT NAME="$optie">
EOD

for( 1..9 ) {
	$selected = $_ == $gekozen ? ' SELECTED' : '';
	print <<EOD;
<OPTION VALUE="$_"$selected>$opties[$_]
EOD
}

print <<EOD;
</SELECT>
EOD
}

#----------------------------------------------------------------
# SortByType
# Return sorted array according to specification of area

sub SortByType {
$type = $_[0];
return sort ByType (1..9);
}

sub ByType {
-($results{$type,$a} <=> $results{$type,$b});
}

#----------------------------------------------------------------
# ShowOptions
# Show all the options specfied

sub ShowOptions{
local( @tables ) = @_;
local( $place );

print <<EOD;
<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=3>
<TR><TD></TD>
EOD

for( 0..$#tables ) {
	print <<EOD;
<TD>$tables[$_]</TD>
EOD
}

print <<EOD;
</TR>
EOD

for $place ( 1..9 ) {
	print <<EOD;
<TR><TH>$place:</TH>
EOD
	for( 0..$#tables ) {
		print <<EOD;
<TD>$opties[${"table$_"}[$place-1]]</TD>
EOD
	}
print <<EOD;
</TR>
EOD
}
print <<EOD;
</TABLE>
EOD
}
#----------------------------------------------------------------
# ShowOthers
# Show other options

sub ShowOthers {
local( $except ) = $_[0];
local( %options ) = (
	'algemeen','totalen algemeen',
	'manvrouw','mannelijke en vrouwelijke inzenders',
	'binbuit','binnenlandse en buitenlandse inzenders',
	'spectrum','de plaats in het politieke spectrum van de inzenders',
	'stem','regerings-, oppositie- en niet-stemmers',
	);

print <<EOD;
<P>
De resultaten van de enqu&ecirc;te zijn ook te bekijken,
uitgesplitst naar: 
<UL>
EOD

foreach( keys %options ) {
	next if $_ eq $except;
	print <<EOD;
<LI><A HREF=$script?$_>$options{$_}</A>
EOD
}

print <<EOD;
</UL>
Uw commentaar op deze enqu&ecirc;te en de rijksbegroting
kunt u sturen naar <A HREF=mailto:begroting\@opinie.nrc.nl>begroting\@opinie.nrc.nl</A>
EOD
}

<!-- Begin Sitestat4 code -->
<script language="JavaScript1.1">
<!--
function sitestat(ns_l){ns_l+="&ns__t="+new Date().getTime();ns_pixelUrl=ns_l;
ns_0=document.referrer;
ns_0=(ns_0.lastIndexOf("/")==ns_0.length-1)?ns_0.substring(ns_0.lastIndexOf("/"),0):ns_0;
if(ns_0.length>0)ns_l+="&ns_referrer="+escape(ns_0);
if(document.images){ns_1=new Image();ns_1.src=ns_l;}else
document.write("<img src="+ns_l+" width=1 height=1>");}
sitestat("http://www.pcmstatistieken.nl/pcm/nrch/s?oudesite.dossiers.Rb97.Enq_meevaller");
//-->
</script>
<noscript>
<img src="http://www.pcmstatistieken.nl/pcm/nrch/s?oudesite.dossiers.Rb97.Enq_meevaller" width="1" height="1">
</noscript>
<!-- End Sitestat4 code -->