#!/Perl/5.00502/bin/MSWin32-x86-object/perl
########################################################################
# PWE: PW_Tools ExploitationWeb 
########################################################################
# PW_Tools_Ver: 1.0, April 5 16:26 2001 by Peter Wieland
########################################################################
#
# Copyright 1999, 2000, 2001 Peter Wieland.
#
# This file is part of PW_Tools.
#
# PW_Tools is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# PW_Tools is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with PW_Tools; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#
########################################################################
# CONFIGURATION, HAS TO BE EDITED ...
########################################################################
use File::Copy;

$FORMS="NO"; # YES or NO

$VERBOSE=1;     # 0 is false, 1 is true

$HEADERCOLOR = "#999999";
$HEADERCOLOR = "#99CCCC";
$BODYCOLOR = "#FFFFFF";
$TABLECOLOR= "#FFFFFF";
$PAPERCOLOR = "#33FFCC";
$PRESCOLOR  = "#FFFF99";


########################################################################
#    \w  Match a "word" character (alphanumeric plus "_")
#    \W  Match a non-word character
#    \s  Match a whitespace character
#    \S  Match a non-whitespace character
#    \d  Match a digit character
#    \D  Match a non-digit character
#
#The following standard quantifiers are recognized: 
#
#    *      Match 0 or more times
#    +      Match 1 or more times
#    ?      Match 1 or 0 times
#    {n}    Match exactly n times
#    {n,}   Match at least n times
#    {n,m}  Match at least n but not more than m times
########################################################################

$level_1= '\d';
$level_2= '\d\d';
$level_3= '\w';
$level_4= '\d\d\d\d';
$level_5= '\d\d';
$level_6= '\d';

$level1_6= "($level_1)-($level_2)-($level_3)-($level_4)-($level_5)-($level_6)";


#########################################################################
# DO NOT EDIT ABOVE THIS LINE
#########################################################################
$level1= "$level_1";
$level2= "$level_2";
$level3= "$level_3";

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
    localtime(time);
$year += 1900;
$mon++;

$mytime = localtime;

$PWsign = "(<a href=\"http://www.iai.fzk.de/~wieland/PWtools/\">PW_Tools</a>)";


## 
## READ COMPANY INFORMATION----------------------------------------------
##

$InputFile="../PWA/Input/COMPANY.txt";
open (FromFILE,"< $InputFile") or die 
    "Can't open InputFile: $InputFile";
while ( <FromFILE> ){
    chop;
    m/(.*):(.*):(.*):(.*):(.*)/;
    @COMPANIES{$1} = $2;
    @COMPAREA{$1}  = $3;
    @COMPCOUNTRY{$1} = $4;
    @COMPURL{$1} = $5;
}
print "\nInput file: $InputFile COMPANIES\n" if ($VERBOSE);
if ($VERBOSE) {foreach $abbr (keys %COMPANIES){ print "$abbr: $COMPANIES{$abbr}\n"}};
if ($VERBOSE) {foreach $abbr (keys %COMPANIES){ print "$abbr: $COMPAREA{$abbr}\n"}};
if ($VERBOSE) {foreach $abbr (keys %COMPANIES){ print "$abbr: $COMPCOUNTRY{$abbr}\n"}};
if ($VERBOSE) {foreach $abbr (keys %COMPANIES){ print "$abbr: $COMPURL{$abbr}\n"}};
close(FromFILE);

print ".";

print ".";
## 
## READ PERSON INFORMATION----------------------------------------------
##


$InputFile="../PWA/Input/contacts.csv";
open (FromFILE,"< $InputFile") or die 
    "Can't open InputFile: $InputFile";
while ( <FromFILE> ){
    chop;
    ($MCode,$MFIRST,$MSECOND,$MMEMBER,$MPHONE,$MEMAIL,$MAUTEMAIL,$MFAX,
     $MPASSWORD) = split(/;/,$_);
    print "$entrinr\n" if ($VERBOSE);
    if (($MCode eq "Code") || (length($MCode) eq 0)){
    } 
    else {
	@PERSONS{$entrynr} = $MCode;
	@FIRST{$MCode} = $MFIRST;
	@SECOND{$MCode} = $MSECOND;
	@FULLNAME{$MCode} = "$MFIRST $MSECOND";
	@MEMBER{$MCode} = $MMEMBER;
	@PHONE{$MCode} = $MPHONE;
	@EMAIL{$MCode} = $MEMAIL;
	@FAX{$MCode} = $MFAX;
	@PASSWORD{$MCode} = $MPASSWORD;
	
	$entrynr++;
    }
}
close(FromFILE);

delete @PERSONS{keys %PERSONS};
$entrynr=1000;
foreach $person (sort keys %FIRST){ 
    @PERSONS{$entrynr} = $person;
$entrynr++;

};

		   
print "\nInput file: $InputFile \n" if ($VERBOSE);
if ($VERBOSE) {foreach $abbr (keys %PERSONS){ print "$PERSONS{$abbr}: $FIRST{$PERSONS{$abbr}}\n"};
	       print "\n";
	       foreach $abbr (keys %PERSONS){ print "$PERSONS{$abbr}: $SECOND{$PERSONS{$abbr}}\n"};
	       print "\n";
	       foreach $abbr (keys %PERSONS){ print "$PERSONS{$abbr}: $PHONE{$PERSONS{$abbr}}\n"};
	       print "\n";
	       foreach $abbr (keys %PERSONS){ print "$PERSONS{$abbr}: $EMAIL{$PERSONS{$abbr}}\n"};
	       print "\n";
	       foreach $abbr (keys %PERSONS){ print "$PERSONS{$abbr}: $FAX{$PERSONS{$abbr}}\n"};
	       print "\n";
	       foreach $abbr (keys %PERSONS){ print "$PERSONS{$abbr}: $CMP{$PERSONS{$abbr}}\n"};
	       print "\n";
	       foreach $abbr (keys %PERSONS){ print "$PERSONS{$abbr}: $STREET{$PERSONS{$abbr}}\n"};
	       print "\n";
	       foreach $abbr (keys %PERSONS){ print "$PERSONS{$abbr}: $BOX{$PERSONS{$abbr}}\n"};
	       print "\n";
	       foreach $abbr (keys %PERSONS){ print "$PERSONS{$abbr}: $POSTCODE{$PERSONS{$abbr}}\n"};
	       print "\n";
	       foreach $abbr (keys %PERSONS){ print "$PERSONS{$abbr}: $CITY{$PERSONS{$abbr}}\n"};
	       print "\n";
	       foreach $abbr (keys %PERSONS){ print "$PERSONS{$abbr}: $COUNTRY{$PERSONS{$abbr}}\n"};
	       print "\n";
	       foreach $abbr (keys %PERSONS){ print "$PERSONS{$abbr}: $TITLE{$PERSONS{$abbr}}\n"};
	       print "\n";
	       foreach $abbr (keys %PERSONS){ print "$PERSONS{$abbr}: $DEPARTMENT{$PERSONS{$abbr}}\n"};
	       print "\n";}


print ".";



## 
## READ Archive INFORMATION -----------------------------------------------
##

$InputFile="../PWD/Input/Doc_Index.txt";
open (FromFILE,"< $InputFile") or die 
    "Can't open InputFile: $InputFile";

while ( <FromFILE> ){
    ($File,$Path,$Name,$Author,$Date) = split(/;/,$_);
    @ID{$File} = $File; 	
    @PATH{$File} =$Path; 	
    @NAME{$File} = $Name;
    $counter++;
}
if ($VERBOSE) {
foreach $ref (keys %ID) {
    print "$ref .. $ID{$ref}\n";
    }
}

## 
## READ Exploitation INFORMATION -----------------------------------------------
##

$InputFile="../PWE/Input/conferences.txt";
open (FromFILE,"< $InputFile") or die 
    "Can't open InputFile: $InputFile";

$entrycnt=0;
while ( <FromFILE> ){
    $WholeLine=$_;
    if (m/(.*):(.*):(.*):(.*):(.*):(.*):(.*):(.*):(.*):(.*):(.*):(.*)/){
	$act_key = $1;
	@DATE{$act_key} = $2;
	@CONFERENCE{$act_key} = $3;
	@COMPURL{$act_key} = $4;
	@RESPONSIBLE{$act_key} = $5;
	@OSTATE{$act_key} = $6;
	@PAPER_RESP{$act_key} = $7;
	@PAPER_STATE{$act_key} = $8;
	@PAPER_SOURCE{$act_key} = $9;
        if (length($9)<1) {@PAPER_SOURCE{$act_key} = "<center>-</center>"};
	@PRES_RESP{$act_key} = $10;
	@PRES_STATE{$act_key} = $11;
	@PRES_SOURCE{$act_key} = $12;
        if (length($12)<1) {@PRES_SOURCE{$act_key} = "<center>-</center>"};
	$entrycnt++;
    }
    else {
	if (length($_) > 2) {print "Error in line: $_"};
    }

}

close(FromFILE);


delete @CONFERENCES{keys %CONFERENCES};
$entrynr=1000;
foreach $activity (sort { $DATE{$b} cmp $DATE{$a}}keys %DATE){ 
    @CONFERENCES{$entrynr} = $activity;
    $entrynr++;

};

if ($VERBOSE) {foreach $activity (keys %CONFERENCES){ 
    print "$CONFERENCES{$activity}\n";
    print "$CONFERENCE{$CONFERENCES{$activity}}\n";
    print "DATE: $DATE{$CONFERENCES{$activity}}\n";
    print "RESP: $RESPONSIBLE{$CONFERENCES{$activity}}\n";
    print "URL:  $CPMPURL{$CONFERENCES{$activity}}\n";
    print "_$COMPURL{activity_key}_\n";
}
	   };


print ".";
## 
## MAKE TABULAR CONFERENCE HTML PAGES ----------------------------------------------
##

$PersonFile="../PWE/conferences.html";

open (OUTFILE,"> $PersonFile") or die 
    "Can't open PersonFile: $PersonFile";    

$HeaderFile="../Input/header.html";
$PAGE_LEVEL="../..";
open (HEADERFILE,"< $HeaderFile") or die 
    "Can't open HeaderFile: $HeaderFile";
while ( <HEADERFILE> ){
    s/PAGE_LEVEL/$PAGE_LEVEL/g;
    print OUTFILE"$_";
}
close (HEADERFILE);
print OUTFILE"<H2>Conferences</h2>\n";
print OUTFILE"<a href=\"./conferences_long.html\">Goto more detailed information</a><br>\n";

print OUTFILE"<table bgcolor=\"$TABLECOLOR\" border=\"1\">\n";
print OUTFILE"<tr>\n";

print OUTFILE"<td bgcolor=\"$HEADERCOLOR\" colspan=\"3\"><b>GENERAL</b></td>\n";
print OUTFILE"<td bgcolor=\"$PAPERCOLOR\" colspan=\"3\"><b>PAPER</b></td>\n";
print OUTFILE"<td bgcolor=\"$PRESCOLOR\" colspan=\"3\"><b>PRESENTATION</b></td>\n";
print OUTFILE"</tr> \n";

print OUTFILE"<tr>\n";
print OUTFILE"<td bgcolor=\"$HEADERCOLOR\" width=\"10%\"><b>Date</b></td>\n";
print OUTFILE"<td bgcolor=\"$HEADERCOLOR\" width=\"25%\"><b>Location</b></td>\n";
print OUTFILE"<td bgcolor=\"$HEADERCOLOR\" width=\"5%\"><b>Total Resp</b></td>\n";
print OUTFILE"<td bgcolor=\"$PAPERCOLOR\" width=\"5%\"><b>Resp</b></td>\n";
print OUTFILE"<td bgcolor=\"$PAPERCOLOR\" width=\"10%\"><b>State</b></td>\n";
print OUTFILE"<td bgcolor=\"$PAPERCOLOR\" width=\"15%\"><b>Doc.Ref.</b></td>\n";
print OUTFILE"<td bgcolor=\"$PRESCOLOR\" width=\"5%\"><b>Resp</b></td>\n";
print OUTFILE"<td bgcolor=\"$PRESCOLOR\" width=\"10%\"><b>State</b></td>\n";
print OUTFILE"<td bgcolor=\"$PRESCOLOR\" width=\"15%\"><b>Doc.Ref.</b></td>\n";
print OUTFILE"</tr> \n";

$num_of = 0;
foreach $activity (sort keys %CONFERENCES){ 
    $activity_key = $CONFERENCES{$activity};
    print OUTFILE"<tr>\n";
    
    print OUTFILE"<td>$DATE{$activity_key}</td>\n";
    if (length($COMPURL{$activity_key}) > 0) {
	print OUTFILE"<td><a href=\"http://$COMPURL{$activity_key}\">";
        print OUTFILE"$CONFERENCE{$activity_key}</a></td>\n";     
} 
    else { 
	print OUTFILE"<td>$CONFERENCE{$activity_key}</td>\n";
    }
    
    print OUTFILE"<td><a href=\"../PWA/Profiles/$RESPONSIBLE{$activity_key}.html\">";
    print OUTFILE"$RESPONSIBLE{$activity_key}</a></td>\n";

if (length($PAPER_RESP{$activity_key}) >0) {
    print OUTFILE"<td><a href=\"../PWA/Profiles/$PAPER_RESP{$activity_key}.html\">";
    print OUTFILE"$PAPER_RESP{$activity_key}</a></td>\n";
}
else
{
    print OUTFILE"<td align=\"center\">-</td>\n";
}
if (length($PAPER_STATE{$activity_key}) >0) {
    print OUTFILE"<td>$PAPER_STATE{$activity_key}</td>\n";
}
else
{
    print OUTFILE"<td align=\"center\">-</td>\n";
}

    if ($PAPER_SOURCE{$activity_key} =~ /(\d)-(\d\d)-(\w)-(\d\d\d\d)-(\d\d)-(\d)/) {

	print OUTFILE"<td> <a href=\"../PWD/$PATH{$PAPER_SOURCE{$activity_key}}\">$NAME{$PAPER_SOURCE{$activity_key}}</a></td>\n";
    
    } 
else
{
    print OUTFILE"<td>$PAPER_SOURCE{$activity_key}</td>\n";
}
if (length($PRES_RESP{$activity_key}) >0) {
    print OUTFILE"<td><a href=\"../PWA/Profiles/$PRES_RESP{$activity_key}.html\">";
    print OUTFILE"$PRES_RESP{$activity_key}</a></td>\n";
}
else
{
    print OUTFILE"<td align=\"center\">-</td>\n";
}
if (length($PRES_STATE{$activity_key}) >0) {
    print OUTFILE"<td>$PRES_STATE{$activity_key}</td>\n";
}
else
{
    print OUTFILE"<td align=\"center\">-</td>\n";
}


    if ($PRES_SOURCE{$activity_key} =~ /(\d)-(\d\d)-(\w)-(\d\d\d\d)-(\d\d)-(\d)/) {

	print OUTFILE"<td> <a href=\"../PWD/$PATH{$PRES_SOURCE{$activity_key}}\">$NAME{$PRES_SOURCE{$activity_key}}</a></td>\n";
    } 
else
{
    print OUTFILE"<td>$PRES_SOURCE{$activity_key}</td>\n";
}
    print OUTFILE"</tr> \n";
}
print OUTFILE"</table>\n";
print OUTFILE"<br><hr>Generated: <b>$mytime</b> by PWE.pl $PWsign";
print OUTFILE"</body>\n";
close(OUTFILE);    

## 
## MAKE CONFERENCE TXT PAGES ----------------------------------------------
##

$PersonFile="../PWE/conferences.txt";

open (OUTFILE,"> $PersonFile") or die 
    "Can't open PersonFile: $PersonFile";    

foreach $activity (sort keys %CONFERENCES){ 
    $activity_key = $CONFERENCES{$activity};
print OUTFILE"$DATE{$activity_key};";

print OUTFILE"$CONFERENCE{$activity_key};\n";
}
close(OUTFILE);    


## 
## MAKE LONG CONFERENCE HTML PAGES ----------------------------------------------
##

$PersonFile="../PWE/conferences_long.html";

open (OUTFILE,"> $PersonFile") or die 
    "Can't open PersonFile: $PersonFile";    

$HeaderFile="../Input/header.html";
$PAGE_LEVEL="../..";
open (HEADERFILE,"< $HeaderFile") or die 
    "Can't open HeaderFile: $HeaderFile";
while ( <HEADERFILE> ){
    s/PAGE_LEVEL/$PAGE_LEVEL/g;
print OUTFILE"$_";
}
close (HEADERFILE);
print OUTFILE"<H2>Conferences</h2>\n";

print OUTFILE"<a href=\"./conferences.html\">Goto overview table</a><br>\n";

print OUTFILE"<p><table border=\"0\" width=\"95%\">\n";
print OUTFILE"<tr>\n";
print OUTFILE"<td bgcolor=\"$PAPERCOLOR\" ><b>Date</b></td>\n";
print OUTFILE"<td bgcolor=\"$PAPERCOLOR\" ><b>Conference etc.</b></td>\n";
print OUTFILE"</tr> \n";
foreach $activity (sort keys %CONFERENCES){ 
    $activity_key = $CONFERENCES{$activity};
print OUTFILE"<tr><td>$DATE{$activity_key}</td><td><a href=\"#$activity\"> $CONFERENCE{$activity_key}</a></td></tr>\n";

}

print OUTFILE"</table>\n";

print OUTFILE"<p><b>Details below: </b></p>\n";



$num_of = 0;
foreach $activity (sort keys %CONFERENCES){ 
    $activity_key = $CONFERENCES{$activity};

print OUTFILE"<hr><a name=\"$activity\"></a><b>$DATE{$activity_key}: $CONFERENCE{$activity_key}</b>\n";

print OUTFILE"<p>\n";
if (length($COMPURL{$activity_key}) > 0) {
    print OUTFILE"URL: <a href=\"http://$COMPURL{$activity_key}\">";
    print OUTFILE"$COMPURL{$activity_key}</a><br>\n";     
} 


print OUTFILE"Overall responsibility: <a href=\"../PWA/Profiles/$RESPONSIBLE{$activity_key}.html\">";
print OUTFILE"$FULLNAME{$RESPONSIBLE{$activity_key}}</a> ($COMPANIES{$MEMBER{$RESPONSIBLE{$activity_key}}})<br>\n";
print OUTFILE"Overall state: $OSTATE{$activity_key}</p>\n";


print OUTFILE"<p><table bgcolor=\"$TABLECOLOR\" border=\"1\" width=\"95%\">\n";

print OUTFILE"<tr>\n";
print OUTFILE"<td bgcolor=\"$PAPERCOLOR\" width=\"15%\"><b>Part</b></td>\n";
print OUTFILE"<td bgcolor=\"$PAPERCOLOR\" width=\"35%\"><b>Responsible</b></td>\n";
print OUTFILE"<td bgcolor=\"$PAPERCOLOR\" width=\"25%\"><b>State</b></td>\n";
print OUTFILE"<td bgcolor=\"$PAPERCOLOR\" width=\"25%\"><b>Document Reference</b></td>\n";
print OUTFILE"</tr> \n";


print OUTFILE"<td>Paper</td>";
if (length($PAPER_RESP{$activity_key}) >0) {
    print OUTFILE"<td><a href=\"../PWA/Profiles/$PAPER_RESP{$activity_key}.html\">";
    print OUTFILE"$FULLNAME{$PAPER_RESP{$activity_key}}</a> ($COMPANIES{$MEMBER{$PAPER_RESP{$activity_key}}})</td>\n";
}
else
{
    print OUTFILE"<td align=\"center\">-</td>\n";
}

if (length($PAPER_STATE{$activity_key}) >0) {
    print OUTFILE"<td>$PAPER_STATE{$activity_key}</td>\n";
}
else
{
    print OUTFILE"<td align=\"center\">-</td>\n";
}

if ($PAPER_SOURCE{$activity_key} =~ /(\d)-(\d\d)-(\w)-(\d\d\d\d)-(\d\d)-(\d)/) {

	print OUTFILE"<td> <a href=\"../PWD/$PATH{$PAPER_SOURCE{$activity_key}}\">$NAME{$PAPER_SOURCE{$activity_key}}</a></td>\n";
    
    } 
else
{
    print OUTFILE"<td>$PAPER_SOURCE{$activity_key}</td>\n";

} 
print OUTFILE"</tr> \n";

print OUTFILE"<tr>\n";
print OUTFILE"<td>Presentation</td>";

if (length($PRES_RESP{$activity_key}) >0) {
    print OUTFILE"<td><a href=\"../PWA/Profiles/$PRES_RESP{$activity_key}.html\">";
    print OUTFILE"$FULLNAME{$PRES_RESP{$activity_key}}</a> ($COMPANIES{$MEMBER{$PRES_RESP{$activity_key}}})</td>\n";
}
else
{
    print OUTFILE"<td align=\"center\">-</td>\n";
}
if (length($PRES_STATE{$activity_key}) >0) {
    print OUTFILE"<td>$PRES_STATE{$activity_key}</td>\n";
}
else
{
    print OUTFILE"<td align=\"center\">-</td>\n";
}

if ($PRES_SOURCE{$activity_key} =~ /(\d)-(\d\d)-(\w)-(\d\d\d\d)-(\d\d)-(\d)/) {

	print OUTFILE"<td> <a href=\"../PWD/$PATH{$PRES_SOURCE{$activity_key}}\">$NAME{$PRES_SOURCE{$activity_key}}</a></td>\n";
    } 
else
{
    print OUTFILE"<td>$PRES_SOURCE{$activity_key}</td>\n";
}

print OUTFILE"</tr> \n";
print OUTFILE"</table></p>\n";

}
print OUTFILE"<br><hr>Generated: <b>$mytime</b> by PWE.pl $PWsign";
print OUTFILE"</body>\n";
close(OUTFILE);    

## 
## MAKE Publication HTML PAGES ----------------------------------------------
##


$PersonFile="../PWE/publications.html";

open (OUTFILE,"> $PersonFile") or die 
    "Can't open PersonFile: $PersonFile";    

$HeaderFile="../Input/header.html";
$PAGE_LEVEL="../..";
open (HEADERFILE,"< $HeaderFile") or die 
    "Can't open HeaderFile: $HeaderFile";
while ( <HEADERFILE> ){
    s/PAGE_LEVEL/$PAGE_LEVEL/g;
    print OUTFILE"$_";
}
close (HEADERFILE);
print OUTFILE"<H2>Publications</h2>\n";

$entrynr = 0;

$HeaderFile="../PWE/Input/publications.bib";
open (HEADERFILE,"< $HeaderFile") or die 
    "Can't open HeaderFile: $HeaderFile";
while ( <HEADERFILE> ){

 	if ( m/ title( *)=(.*){(.*)}(.*),/i ){
	    $title =$3;
            if ($title =~ m/(.*)}/){
                $title =$1;
	    }
	}
	if ( m/ author( *)=(.*){(.*)}(.*),/i ) {
            $author=$3;
	}
	if ( m/ chapter( *)=(.*){(.*)}(.*),/i ) {
            $chapter=$3;
	}
	if ( m/ editor( *)=(.*){(.*)}(.*),/i ){
            $editor=$3;
	}
	if (( / journal( *)=(.*){(.*)},/i ) 
          ||( / howpublished( *)=(.*){(.*)},/i )) {
           $journal=$3;
	}
	if (/ booktitle( *)=(.*){(.*)}/i ) {
           $booktitle=$3;
	}
	if ( / year( *)=(.*){(.*)}(.*),/i ){
            $year=$3;
	}
	if ( / publisher( *)=(.*){(.*)}/i ){
            $publisher=$3;
	}
	if ( / pages( *)=(.*){(.*)}/i ){
            $pages=$3;
	}
	if ( / annote( *)=(.*){(.*)}[,]*/i ){
            $annote=$3;
	}

if (( /@(.*){/ ) && ($entrynr > 0) && ($kind !~ /STRING/)){
    print OUTFILE"<p>\n";    
    if (length($ref) > 0) { 
	print OUTFILE"[$ref]:<br> \n";
    }
    if (length($author) > 0) { 
	print OUTFILE"$author. \n";
    }
    print OUTFILE"<B>$chapter</B>.<BR> \n";
    print OUTFILE"In: \n";
    if (length($editor) > 0) { 
	print OUTFILE"$editor (Eds). \n";
    }
    if (length($title) > 0) { 
	print OUTFILE"<b>$title</b>. \n";
    }
    if (length($publisher) > 0) { 
	print OUTFILE"$publisher \n";
    }
    if (length($year) > 0) { 
	print OUTFILE"Year: $year \n";
    }
    if (length($pages) > 0) { 
	print OUTFILE"Pages: $pages \n";
    }
    if ($annote =~ /file/){
	print OUTFILE"<A HREF=\"$annote\">View</a> ($annote) <p> \n";
	
	print OUTFILE"</p>\n";
    }
    $title="";
    $author="";
    $editor="";
    $journal="";
    $year="";
    $number="";
    $pages="";
    $annote="";
    $booktitle="";
    
}
if ( /@(.*){(.*),/ ){
    $entrynr++;
    $kind=$1;
    $ref=$2;
}
 }


close (HEADERFILE);

print OUTFILE"<br><hr>Generated: <b>$mytime</b> by PWE.pl $PWsign";
print OUTFILE"</body>\n";

close(OUTFILE);