#!/bin/sh
#
# Usage:
#	generate-info prefix how-many
#	(prefix in {"team", "judge", "admin"})
#	(generates prefix.dat file)
accttype=`perl -e "print ucfirst('$1')"`
outfile="$1.dat"
numaccts="$2"
for i in `echo $numaccts | perl -e '$n=<>;for ($i=1;$i<=$n;$i++) {print "$i "}'`
do
    pass=`mkpasswd -s 0 -l 8 | tr '01Ol' '-+*:'`
    echo "$i|$accttype Number $i|true|$pass"
done > $outfile