#!/usr/bin/perl5
if($#ARGV<0) {
    &usage();
} else {
#    $tmpfile = "/tmp/install.pl.tmp" ;

    $login = getlogin || (getpwuid($<))[0] || "an unidentified user" ;

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

    $name =`/anfs/www/html/UoCCL/template/getrealname $login` ;
    if( $name eq "" ) { $name = $login ; }

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

    $date =  `date +"on %-e-%b-%Y at %H:%M"` ;

    foreach $ag (@ARGV) {
#	@breadcrumbs=split(/\//,$ag);
#       $href="http://www.cl.cam.ac.uk/~nad/teststyle/UoCCL" ;
#       $breadcrumbline="" ;
#       for( $i=0 ; $i <= $#breadcrumbs ; $i++ ){
#         $href = $href . "/" . @breadcrumbs[$i] ;
#         if( $i == $#breadcrumbs ) { $href = $href . ".html" ; }
#           $breadcrumbline = $breadcrumbline . "&nbsp;&gt;&nbsp;<a href=\"" . $href . "\"class=\"bread\">" . @breadcrumbs[$i] . "</a>" ; 
#       } 
	
	open(TMPL,"<$ag.tmpl") or die "Unable to open $ag.tmpl\n" ;
	open(HTML,">$ag.html") or die "Unable to open $ag.html\n" ;
	$title=<TMPL> ;
	$breadcrumbline = "" ;
        $commentcontact="pagemaster\@cl.cam.ac.uk" ;
        $tmp=<TMPL> ;
	if( $tmp =~ /COMMENTS&.*/ ) {
	    @comment=split(/&/,$tmp) ;
	    $commentcontact=@comment[1] ;
	    $tmp=<TMPL> ;
	}

	while( $tmp =~ /BREADCRUMB&.*/ ) {
	    @bread=split(/&/,$tmp) ;
	    @bwords=split(/ /, @bread[1]) ;
	    $bname=@bwords[0] ;
	    for( $i=1 ; $i <= $#bwords ; $i++ ){
		$bname = $bname . "&nbsp;" . @bwords[$i] ;
	    }
	    $breadcrumbline = $breadcrumbline . "&nbsp;&gt;&nbsp;<a href=\"" . @bread[2] . "\"class=\"bread\">" . $bname . "</a>" ; 
	    
	    $tmp=<TMPL> ;
	}

	open(TOP,"</anfs/www/html/UoCCL/template/top.def") or die "Unable to open top.def\n" ;
	while(<TOP>) {
	    s/##TITLE##/$title/g ;
	    s/##BREADCRUMBS##/$breadcrumbline/g ;
	    print HTML $_ ;
	}
	close(TOP) ;

	$_ = $tmp ;
	while(defined($_)) {
	    s/##LISTSTART##/<ul>/g ;
	    s/##ITEMHEAD##/<li>/g ;
	    s/##ITEMBODY##/<br \/>/g ;
	    s|##LISTEND##|</ul>|g ;
	    print HTML $_ ;
	    $_ = <TMPL>
	}
	open(BOTTOM,"</anfs/www/html/UoCCL/template/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/##OWNERUSERID##/$login/g ;
	    s/##OWNEREMAIL##/$login\@cl.cam.ac.uk/g ;
	    s/##COMMENTCONTACT##/$commentcontact/g ;
	    print HTML $_ ;
	}
	close(BOTTOM) ;
	close(HTML);
	close(TMPL);
    }
}

sub usage
{
    print "Usage: install.pl <name>\n";
    print "       Installs web page <name>.html based on <name>.tmpl\n";
    exit;
}