#!/usr/bin/perl
require "weblib.lib";
&htmlopen("Random draw");
&getparams;
$range=$param{range}?$param{range}:100;
$limit=$param{limit}?$param{limit}:5;
$pergroup=$param{grouping}?$param{grouping}:10;
print "Selecting $limit winners randomly from $range entries<br>\n";
if($range<$limit){print "Range must exceed or equal limit<br>\n";exit;}
$seed=$param{seed}?$param{seed}:$range;
if($seed>1){
	print "Using seed: $seed<br>\n";
	srand($seed) if $seed;
}
else{print "Using random seed<br>\n";}
for(1..$limit){
	while(($number=int(rand($range))+1)&&$used{$number}){
		print "Selected $number - need to select another<br>\n";
	}
	$used{$number}=1;
	$group=int(($number-1)/$pergroup)+1;
	$winner=$number%$pergroup;
	$winner+=$pergroup unless $winner;
	print "$number - ";
	print qq{<a href="https://mail.google.com/mail/u/0/#label/Todd+DVD+Giveaway/p$group#$winner" target="GMAIL">#$winner of $pergroup in group #$group</a><br>\n};
}
&htmlclose;