#!/usr/bin/perl -w
use CGI;
$q = new CGI;
print $q->header;
print $q->start_html("SIRA Workshop Registrants");
print $q->h1("SIRA Workshop Registrants");

if( open (PART,"participants.txt") ){
	@parts=();
	while( !eof(PART) ) {
		my $x = new CGI(PART);
		$s = join( "<>",
             $x->param("ln"),
             $x->param("fn"),
             $x->param("in"),
             $x->param("a1"),
             $x->param("a2"),
             $x->param("a3"),
             $x->param("tl"),
             $x->param("em"),
             $x->param("tm"),
             $x->param("tp")); 
		push(@parts,$s);
		#print $s,"
";
	}

	@parts = sort @parts;
	foreach $reg (@parts) { 
	    print "
\n";
		#print "$reg 
\n"; 
		@v = split /<>/, $reg;
        print '',"\n";
		print "\n";
		print "\n";
		print "\n";
		print "\n";
		print "\n";
		print "\n";
		#print "\n";
        print "\n"; 
        print "
Name        $v[0], $v[1]
\n";
		print "
Institution $v[2]
Address1    $v[3]
Address2    $v[4]
Address3    $v[5]
Telephone   $v[6]
Email       $v[7]
Time        $v[8]
Topics of interest$v[9]
 ";
	    print "
\n";
	}
    print "
\n"; print $q->end_html; }else{ print "cannot open file.
"; }