#!/usr/bin/perl5
if($#ARGV<0) {
    &usage();
} else {
    $notes = 0 ;
    if( !($ARGV[0] cmp "-n") ) {
	$notes = 1 ;
	$firstfile = 1 ;
        $notesfile = $ARGV[1] ;
    }

    $tmpfile = "./install.pl.tmp" ;

    $login = getlogin || (getpwuid($<))[0] || "no_email" ;

    system("/anfs/www/html/UoCCL/template/getrealname $login > $tmpfile") ;
    open(TMP,"<$tmpfile") or die "Unable to open $tmpfile\n" ;
    $name = <TMP> ;
    close(TMP) ;
    if( $name eq "" ) { $name = "Somebody" ; }

    system("date > $tmpfile") ;
    open(TMP,"<$tmpfile") or die "Unable to open $tmpfile\n" ;
    $date = <TMP> ;
    close(TMP) ;

    if( $notes ) {
	open(HTML,">$notesfile.note") or die "Unable to open $notesfile.note\n" ;
    }

    foreach $ag (@ARGV) {
	if( $ag cmp "-n" && $ag cmp $notesfile ) {
	    if( $ag =~ ".*tmpl" ) { $ag = substr( $ag, 0, length($ag) - 5 ) ; }
	    if( $ag =~ "p.." ) { $pnum = substr( $ag, 1, 1 ) ; }

	    open(TMPL,"<$ag.tmpl") or die "Unable to open $ag.tmpl\n" ;

	    if( !$notes ) {
		open(HTML,">$ag.html") or die "Unable to open $ag.html\n" ;
	    }

	    if( !$notes || $firstfile ) {
		$firstfile = 0 ;
		$indexlines="";
		if( open(INDX,"<p$pnum.indx") && !$notes ) {
		    while(<INDX>) {
			$indexlines .= $_ ;
		    }
		} 

		$title=<TMPL> ;
		open(TOP,"<./top.def") or die "Unable to open top.def\n" ;
		while(<TOP>) {
		    s/##TITLE##/$title/g ;
		    s/##INDEX##/$indexlines/g ;
		    print HTML $_ ;
		}
		close(TOP) ;
	    }
	    else {
		$title=<TMPL> ;
		print HTML "<P><H1>", $title, "</H1>\n" ;
	    }

	    $notesonly = 0 ;
	    $webonly = 0 ;
	    while(<TMPL>) {
		/##WEBONLY##/    && ($webonly = 1) ; 
		/##-WEBONLY##/   && ($webonly = 0) ; 
		s/##-?WEBONLY##// ;
		/##NOTESONLY##/  && ($notesonly = 1) ; 
		/##-NOTESONLY##/ && ($notesonly = 0) ; 
		s/##-?NOTESONLY##// ;
		s/##LISTSTART##/<UL>/g ;
		s/##ITEMHEAD##/<LI>/g ;
		s/##ITEMBODY##/<BR>/g ;
		s|##LISTEND##|</UL>|g ;
		if( (!$notes && !$notesonly) || ( $notes && !$webonly) ) {
		    print HTML $_ ;
		}
	    }

	    if( !$notes ) {
		open(BOTTOM,"<./bottom.def") or die "Unable to open bottom.def\n" ;
		while(<BOTTOM>) {
		    s/##FILENAME##/$ag.html/g ;
		    s/##DATE##/$date/g ;
		    s/##OWNERNAME##/$name/g ;
		    s/##OWNEREMAIL##/$login\@cl.cam.ac.uk/g ;
		    s/##INDEX##/$indexlines/g ;
		    print HTML $_ ;
		}
		close(BOTTOM) ;
		close(HTML);
	    }
	    close(TMPL);
	}
    }
    if( $notes ) {
	print HTML "</BODY>\n" ;
	print HTML "</HTML>\n" ;
	close(HTML);
    }
}

sub usage
{
    print "Usage: install.pl [-n <notesfile>] [<name>]+\n";
    print "       Installs web page <name>.html based on each <name>.tmpl\n";
    print "       if -n specified then produces <notesfile>.note by\n";
    print "       concatenating all of the <name>.tmpl files appropriately\n";
    exit;
}