#!/usr/bin/perl -w
no warnings 'once';
use CGI qw( :standard *table );

$package = ( param('package') or die);
$dir = '/Volumes/Data/WebServer/SoftwareLicensed/';
$license = $dir.$package.'/license.txt';

print header();
print start_html({-title=>'SLIM Software - '.$package.': license agreement'});
print img({src=>'images/SLIMTracHeader.gif'});

if ( stat($license) ) {
	print h2($package.' license agreement');
} else {
	print h3('No package '.$package);
	print end_html;
	exit;
}

print '<hr>';
 @IN = split /\n/, `cat $license`;
foreach $in ( @IN) { print '<br>'.$in; }
print '<hr>';
print p('<INPUT TYPE="button" VALUE="I do not accept. Close this window" onClick="window.close()">');

print p(start_form(-method=>'POST',-action=>'sendmail.cgi'),
	hidden(-name=>'package',-default=>"$package"),
	start_table(),
	'<tr><td align="right">','E-mail address:','</td><td>',textfield(-name=>'mail1',-default=>'E-mail address',label=>'test'),'</td></tr>',
	'<tr><td align="right">','Verify e-mail address:','</td><td>',textfield(-name=>'mail2',-default=>'E-mail address again'),'</td></tr>',
	'<tr><td align="right">','Add to the mailing list:','</td><td>',checkbox(-name=>'list',-label=>''),'</td></tr>',
	'<tr><td></td><td>',submit(-name=>'submit',-value=>'I accept'),'</td></tr>',
	end_table,
	end_form);

print end_html;
exit;