#!/Perl/5.00502/bin/MSWin32-x86-object/perl
########################################################################
# PWA: PW_Tools ActionWeb
########################################################################
# 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=0;     # 0 is false, 1 is true

$HEADERCOLOR = "#999999";
$SUBHEADERCOLOR = "#99CCCC";
$BODYCOLOR = "#FFFFFF";
$TABLECOLOR= "#FFFFFF";
$COMMENTCOLOR = "#33FFCC";
$CLOSEDCOLOR  = "#FFFF99";

#########################################################################
# DO NOT EDIT ABOVE THIS LINE
#########################################################################
($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 COLOR INFORMATION -----------------------------------------------
##

$InputFile="../PWA/Input/STATUS.txt";
open (FromFILE,"< $InputFile") or die 
    "Can't open InputFile: $InputFile";
while ( <FromFILE> ){
    m/^([0-9]):(.*):(.*):(.*):(.*)/;
    @COLOR{$1} = $2;
    @CONT{$1} = $3;
    @ABR{$1} = $5;
}
close(FromFILE);
print "\nInput file: $InputFile COLOR\n" if $VERBOSE;
if ($VERBOSE) {foreach $abbr (keys %COLOR){ print "$abbr: $COLOR{$abbr}\n"}}
print "\nInput file: $InputFile CONT\n" if $VERBOSE;
if ($VERBOSE) {foreach $abbr (keys %CONT){ print "$abbr: $CONT{$abbr}\n"}}
print "\nInput file: $InputFile ABR\n" if $VERBOSE;
if ($VERBOSE) {foreach $abbr (keys %CONT){ print "$abbr: $ABR{$abbr}\n"}}


print ".";
## 
## 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 ".";
## 
## READ PERSON INFORMATION----------------------------------------------
##

my %OF = ();

$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(/;/,$_);

    my @OPTION_FIELD = split(/;/,$_);

    print "$entrinr\n" if ($VERBOSE);
    if (($MCode eq "Code") || (length($MCode) eq 0)){
	if ($MCode eq "Code") {
	    @OF{'TITLE'} = \@OPTION_FIELD;
	    $NUMBER_OF = @OPTION_FIELD;
	}
    } 
    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;
	@OF{$MCode} = \@OPTION_FIELD;
	
	$entrynr++;
    }
}
close(FromFILE);


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

};

if ($VERBOSE) {foreach $abbr (keys %PERSONS){ 

    for ($i=0;$i<$NUMBER_OF;$i++) 
    {
	print  "$OF{$abbr}[$i];";
    }
    
};   
	   };
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 ACTIVITY INFORMATION -----------------------------------------------
##

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

$OutActive="../PWA/Input/ACT_ACTIVE.txt";
open (ActFILE,"> $OutActive") or die 
    "Can't open InputFile: $InputFile";

$OutClosed="../PWA/Input/ACT_CLOSED.txt";
open (ClosedFILE,">> $OutClosed") or die 
    "Can't open InputFile: $InputFile";

$entrycnt=0;
while ( <FromFILE> ){
    $WholeLine=$_;
    if (m/(.*):(.*):(.*):(.*):(.*):(.*)/){
	$act_key = $1;
	@ACTIVITIES{$act_key} = $act_key;
	@DATE{$act_key} = $3;
	@CLOSED{$act_key} = $2;
	@DATE{$act_key} = $3;
	@RESPONSIBLE{$act_key} = $4;
	@TEXT{$act_key} = $5;
	@COMMENT{$act_key} = $6;
	$entrycnt++;
    }
    else {
	if (length($_) > 2) {print "Error in line: $_"};
    }
    if (@CLOSED{$act_key} eq "C") {
	print ClosedFILE"$WholeLine";
    }
    else
    {
	print ActFILE"$WholeLine";
    }
}

close(FromFILE);
close(ActFILE);
close(ClosedFILE);

copy("$OutActive","$InputFile");


print "\nInput file: $InputFile DATE\n" if $VERBOSE;
if ($VERBOSE) {foreach $activity (sort keys %ACTIVITIES){ 
    print "$activity: $DATE{$ACTIVITIES{$activity}}\n";}};
print "\nInput file: $InputFile CLOSED\n" if $VERBOSE;
if ($VERBOSE) {foreach $activity (sort keys %ACTIVITIES){ 
    print "$activity: $CLOSED{$ACTIVITIES{$activity}}\n";}};
print "\nInput file: $InputFile RESPONSIBLE\n" if $VERBOSE;
if ($VERBOSE) {foreach $activity (sort keys %ACTIVITIES){ 
    print "$activity: $RESPONSIBLE{$ACTIVITIES{$activity}}\n";}};
print "\nInput file: $InputFile TEXT\n" if $VERBOSE;
if ($VERBOSE) {foreach $activity (sort keys %ACTIVITIES){ 
    print "$activity: $TEXT{$ACTIVITIES{$activity}}\n";}};
print "\nInput file: $InputFile COMMENT\n" if $VERBOSE;
if ($VERBOSE) {foreach $activity (sort keys %ACTIVITIES){ 
    print "$activity: $COMMENT{$ACTIVITIES{$activity}}\n";}};

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

};

#if ($VERBOSE) {foreach $activity (sort keys %ACTIVITIES){ 
#    print "$ACTIVITIES{$activity}:";
#    print "$CLOSED{$ACTIVITIES{$activity}}:";
#    print "$DATE{$ACTIVITIES{$activity}}:";
#    print "$RESPONSIBLE{$ACTIVITIES{$activity}}:";
#    print "$TEXT{$ACTIVITIES{$activity}}:";
#    print "$COMMENT{$ACTIVITIES{$activity}}\n";
#}
#	   };


print ".";

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


$entrycntc=0;
while ( <FromFILE> ){
    $WholeLine=$_;
    if (m/(.*):(.*):(.*):(.*):(.*):(.*)/){
	$act_key = $1;
	@ACTIVITIES_CLOSED{$act_key} = $act_key;
	@DATE{$act_key} = $3;
	@CLOSED{$act_key} = $2;
	@DATE{$act_key} = $3;
	@RESPONSIBLE{$act_key} = $4;
	@TEXT{$act_key} = $5;
	@COMMENT{$act_key} = $6;
        $entrycntc++;
    }
    else {
	if (length($_) > 2) {print "Error in line: $_"};
    }

}

close(FromFILE);

delete @ACTIVITIES_CLOSED{keys %ACTIVITIES_CLOSED};
$entrynr=5000;
foreach $activity (sort { $DATE{$b} cmp $DATE{$a}}keys %DATE){ 
    if ($CLOSED{$activity} eq "C"){
    @ACTIVITIES_CLOSED{$entrynr} = $activity;
    $entrynr++;
}
};


## 
## MAKE PERSONS ABBREVIATION HTML PAGES ----------------------------------------------
##



$OutputFile="../PWA/persons.html";
open (OUTFILE,"> $OutputFile") or die 
    "Can't open OutputFile: $OutputFile";

$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"<body bgcolor=\"$BODYCOLOR\">\n";
print OUTFILE"<h3>Project Members</h3>\n";

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

foreach $person (sort keys %PERSONS){
    print OUTFILE"<tr>\n";
    print OUTFILE" <td><a href=\"./Persons/$PERSONS{$person}.html\">$PERSONS{$person}</a> </td>\n";
    print OUTFILE" <td><a href=\"./Profiles/$PERSONS{$person}.html\">";
    print OUTFILE"$FULLNAME{$PERSONS{$person}}</a></td>\n";
    print OUTFILE" <td>$COMPANIES{$MEMBER{$PERSONS{$person}}}</td>\n";
    print OUTFILE"</tr>\n";
}	
print OUTFILE"</table>\n";
print OUTFILE"<br><hr>Generated: <b>$mytime</b> by PWA.pl $PWsign";
print OUTFILE"</body>\n";
close(OUTFILE);

close(FromFILE);

print ".";
## 
## MAKE ACTIVITIES HTML PAGES ----------------------------------------------
##


foreach $activity (sort keys %ACTIVITIES){ 
    $activity_key = $ACTIVITIES{$activity};
    
    $OutputFile="../PWA/Activities/$activity_key.html";
    open (OUTFILE,"> $OutputFile") or die 
	"Can't open OutputFile: $OutputFile";

    $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"<body bgcolor=\"$BODYCOLOR\">\n";
    print OUTFILE"<H2>Act-$activity_key</H2>\n";
    print OUTFILE"<table bgcolor=\"$TABLECOLOR\">\n";
    print OUTFILE"<tr><td><b>Due date:</b> </td><td>$DATE{$activity_key}</tr>\n";
    print OUTFILE"<tr><td><b>Action:</b> </td><td>$TEXT{$activity_key}</tr>\n";
if ($FORMS eq "YES"){    
	print OUTFILE"<form method=\"get\" action=\"/cgi-bin/PWA_commit_update_act.pl\">\n";
	print OUTFILE"<pre>\n";
    print OUTFILE"<tr><td><b>Comments:</b> </td><td><TEXTAREA name=comment cols=40 rows=3>";
    print OUTFILE"$COMMENT{$activity_key}</TEXTAREA></tr>\n";
}
    else
    {
	print OUTFILE"<tr><td><b>Comments:</b> </td><td>$COMMENT{$activity_key}</tr>\n";
    }
    print OUTFILE"<tr><td><b>Status:</b></td>";
    if ($CLOSED{$activity_key} eq "C") {
	print OUTFILE"<td bgcolor=\"$CLOSEDCOLOR\"><b>Closed!<br></td></tr>\n"; 
    }
    else {
	print OUTFILE"<td>.</td></tr>\n";
    }
    print OUTFILE"</table>\n";
    
    print OUTFILE"<table bgcolor=\"$BODYCOLOR\">\n";
	    print OUTFILE"<tr>\n";
	    print OUTFILE" <td>Name </td>\n";
	    print OUTFILE" <td>Member</td>\n";
	    print OUTFILE" <td>State</td>";
    if ($FORMS eq "YES"){
	print OUTFILE" <td>Done</td>";
    }
    print OUTFILE"</tr>\n";
    
    foreach $person (sort keys %PERSONS){
	if ($RESPONSIBLE{$activity_key} =~ /$PERSONS{$person},([0-9])/){
	    print OUTFILE"<tr>\n";
	    print OUTFILE" <td> <a href=\"../Profiles/$PERSONS{$person}.html\">$FULLNAME{$PERSONS{$person}}</a> </td>\n";
	    print OUTFILE" <td>$COMPANIES{$MEMBER{$PERSONS{$person}}}</td>\n";
	    print OUTFILE"<td bgcolor=\"$COLOR{$1+delay($DATE{$activity_key})}\">";
	    print OUTFILE"$CONT{$1+delay($DATE{$activity_key})} </td>";
	    if (($FORMS eq "YES") && ($1+delay($DATE{$activity_key})<2)){
		print OUTFILE"<td> <input type=checkbox name=$PERSONS{$person}></td>";
	    }
	    print OUTFILE"</tr>\n";
	}
    }	
    print OUTFILE"</table>\n";


    if ($FORMS eq "YES"){
        print OUTFILE"Close: <input type=checkbox name=closed>\n";
	print OUTFILE"<h3>Updated by</h3>\n";
	print OUTFILE"User: <input type=TEXT size=3 name=person>\n";
	print OUTFILE"Password: <input type=password size=15 name=password>\n";
	print OUTFILE"<input type=hidden name=activity VALUE=\"$activity_key\"> \n";
	print OUTFILE"<input type=submit VALUE=Commit>   <input type=reset VALUE=Reset>\n";
	print OUTFILE"</form>\n";
    }


    print OUTFILE"<br><hr>Generated: <b>$mytime</b> by PWA.pl $PWsign";
    print OUTFILE"</body>\n";
    close(OUTFILE);
#    $DestFile = $OutputFile;
#    $DestFile =~ s/Activities/Persons/;
#    copy("$OutputFile","$DestFile");
}


print ".";
## 
## MAKE INDIVIDUAL HTML PAGES ----------------------------------------------
##

foreach $person (keys %PERSONS){
    
    $PersonFile="../PWA/Persons/$PERSONS{$person}.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"<body bgcolor=\"$BODYCOLOR\">\n";
    print OUTFILE"<H2>Action status for <a href=\"../Profiles/$PERSONS{$person}.html\">";
    print OUTFILE"$FULLNAME{$PERSONS{$person}}</a>";
    print OUTFILE" (<a href=\"../Profiles/$MEMBER{$PERSONS{$person}}.html\">";
    print OUTFILE"$COMPANIES{$MEMBER{$PERSONS{$person}}}</a>)</h2>\n";    
    print OUTFILE"<table bgcolor=\"$TABLECOLOR\">\n";

    print OUTFILE"<tr>\n";
    print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Reference</b></td>\n";
    print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Due Date</b></td>\n";
    print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Status</b></td>\n";
    print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Action</b></td>\n";
    print OUTFILE"</tr> \n";
    
    foreach $activity (sort keys %ACTIVITIES){ 
	$activity_key = $ACTIVITIES{$activity};
	
	if ($RESPONSIBLE{$activity_key} =~ m/$PERSONS{$person},([0-9])/){
            print OUTFILE"<tr>\n";
	    print OUTFILE"<td><a href=\"../Activities/$activity_key.html\">Act-$activity_key</a></td>\n";
	    if ($CLOSED{$activity_key} eq "C") {
		print OUTFILE"<td bgcolor=\"$CLOSEDCOLOR\">CLOSED</td>\n"; 
	    } 
	    else { 
		print OUTFILE"<td>$DATE{$activity_key}</td>\n";
	    }
	    print OUTFILE"<td bgcolor=\"$COLOR{$1+delay($DATE{$activity_key})}\">";
            print OUTFILE"$CONT{$1+delay($DATE{$activity_key})}</td>";
	    print OUTFILE"<td>$TEXT{$activity_key}</td>\n";
	    print OUTFILE"</tr> \n";

            if (length($COMMENT{$activity_key}) > 0) {
		print OUTFILE"<tr><td>.</td><td>.</td>";
		print OUTFILE"<td bgcolor=\"$COMMENTCOLOR\">Comment</td>";
                print OUTFILE"<td bgcolor=\"$COMMENTCOLOR\">$COMMENT{$activity_key}</td>\n";    
		print OUTFILE"</tr> \n";
	    }
	}
	
    }

    print OUTFILE"</table>\n";
    print OUTFILE"<br><hr>Generated: <b>$mytime</b> by PWA.pl $PWsign";
    print OUTFILE"</body>\n";
    close(OUTFILE);    
}
print ".";
## 
## MAKE COMPANY HTML PAGES ----------------------------------------------
##

foreach $company (keys %COMPANIES){
    
    
    $PersonFile="../PWA/Companies/$company.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"<body bgcolor=\"$BODYCOLOR\">\n";
    print OUTFILE"<H2>Action status for <a href=\"../Profiles/$company.html\">";
    print OUTFILE"$COMPANIES{$company}</a></h2>\n";    
    print OUTFILE"<table bgcolor=\"$TABLECOLOR\">\n";
    print OUTFILE"<tr>\n";
    
    print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Reference</b></td>\n";
    print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Due Date</b></td>\n";
    print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Status</b></td>\n";
    print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Action/Responsible</b></td>\n";
    print OUTFILE"</tr> \n";
    
    foreach $activity (sort keys %ACTIVITIES){ 
	$activity_key = $ACTIVITIES{$activity};
	$contains=0;
	foreach $person (keys %PERSONS){
	    if (($RESPONSIBLE{$activity_key} =~ /$PERSONS{$person},([0-9])/) && 
		($company eq $MEMBER{$PERSONS{$person}})){
		$contains=1;
	    }
	} 
	if ($contains eq 1) {
	    print OUTFILE"<tr>\n";
	    print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\"><a href=\"../Activities/$activity_key.html\">";
            print OUTFILE"Act-$activity_key</a></td>\n";
	    if ($CLOSED{$activity_key} eq "C") {
		print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\">CLOSED</td>\n"; } 
	    else { 
		print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\">$DATE{$activity_key}</td>\n";
	    }
	    print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\" align=\"center\">-</td>";
            print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\">$TEXT{$activity_key}</td>\n";
	    print OUTFILE"</tr> \n";
	
   
	    foreach $person (sort keys %PERSONS){
		if (($RESPONSIBLE{$activity_key} =~ /$PERSONS{$person},([0-9])/)&& 
                 ($company eq $MEMBER{$PERSONS{$person}})){
		    print OUTFILE"<tr> <td align=\"center\">\"</td><td align=\"center\">\"</td>\n";
		    print OUTFILE"<td bgcolor=\"$COLOR{$1+delay($DATE{$activity_key})}\">";
		    print OUTFILE"$CONT{$1+delay($DATE{$activity_key})}</td>";
		    print OUTFILE" <td><a href=\"../Profiles/$PERSONS{$person}.html\">";
                    print OUTFILE"$FULLNAME{$PERSONS{$person}}</a> </td>\n";
		    print OUTFILE"</tr>\n";
		}
		
	    }
            if (length($COMMENT{$activity_key}) > 0) {
		print OUTFILE"<tr><td>.</td><td>.</td>";
		print OUTFILE"<td bgcolor=\"$COMMENTCOLOR\">Comment</td>";
                print OUTFILE"<td bgcolor=\"$COMMENTCOLOR\">$COMMENT{$activity_key}</td>\n";    
		print OUTFILE"</tr> \n";
	    }
 
	}
    }
    print OUTFILE"</table>\n";
    print OUTFILE"<br><hr>Generated: <b>$mytime</b> by PWA.pl $PWsign";
    print OUTFILE"</body>\n";
    close(OUTFILE);    
}

print ".";
## 
## MAKE ALL ACTIONS HTML PAGES ----------------------------------------------
##

    
    
$PersonFile="../PWA/act_all.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>Action status (All actions)</h2>\n";
print OUTFILE"<table bgcolor=\"$TABLECOLOR\">\n";
print OUTFILE"<tr>\n";

print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Reference</b></td>\n";
print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Due Date</b></td>\n";
print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Status</b></td>\n";
print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Action/Responsible</b></td>\n";
print OUTFILE"</tr> \n";

$num_of = 0;
foreach $activity (sort keys %ACTIVITIES){ 
    $activity_key = $ACTIVITIES{$activity};
	    print OUTFILE"<tr>\n";
	    print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\"><a href=\"../PWA/Activities/$activity_key.html\">";
            print OUTFILE"Act-$activity_key</a></td>\n";
	    if ($CLOSED{$activity_key} eq "C") {
		print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\">CLOSED</td>\n"; } 
	    else { 
		print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\">$DATE{$activity_key}</td>\n";
	    }
	    print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\" align=\"center\">-</td>";
            print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\">$TEXT{$activity_key}</td>\n";
	    print OUTFILE"</tr> \n";
	
   
	    foreach $person (sort keys %PERSONS){
		if (($RESPONSIBLE{$activity_key} =~ /$PERSONS{$person},([0-9])/)){
		    print OUTFILE"<tr> <td align=\"center\">\"</td><td align=\"center\">\"</td>\n";
		    print OUTFILE"<td bgcolor=\"$COLOR{$1+delay($DATE{$activity_key})}\">";
		    print OUTFILE"$CONT{$1+delay($DATE{$activity_key})}</td>";
		    print OUTFILE" <td><a href=\"../PWA/Profiles/$PERSONS{$person}.html\">";
                    print OUTFILE"$FULLNAME{$PERSONS{$person}}</a> </td>\n";
		    print OUTFILE"</tr>\n";
		    $num_of ++;
		}
		
	    }
            if (length($COMMENT{$activity_key}) > 0) {
		print OUTFILE"<tr><td>.</td><td>.</td>";
		print OUTFILE"<td bgcolor=\"$COMMENTCOLOR\">Comment</td>";
                print OUTFILE"<td bgcolor=\"$COMMENTCOLOR\">$COMMENT{$activity_key}</td>\n";    
		print OUTFILE"</tr> \n";
	    }
 
#	}
    }
    print OUTFILE"</table>\n";
    print OUTFILE"<br>$num_of Person-Actions";
    print OUTFILE"<br><hr>Generated: <b>$mytime</b> by PWA.pl $PWsign";
    print OUTFILE"</body>\n";
    close(OUTFILE);    

print ".";

## 
## MAKE ALL ACTIONS SORTED AFTER ACT-LABLE HTML PAGES ----------------------------------------------
##

    
    
$PersonFile="../PWA/act_sort.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>Action status (All actions, sorted after label)</h2>\n";
print OUTFILE"<table bgcolor=\"$TABLECOLOR\">\n";
print OUTFILE"<tr>\n";

print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Reference</b></td>\n";
print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Due Date</b></td>\n";
print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Status</b></td>\n";
print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Action/Responsible</b></td>\n";
print OUTFILE"</tr> \n";

$num_of = 0;
foreach $activity (sort {$ACTIVITIES{$a} cmp $ACTIVITIES{$b}} keys %ACTIVITIES){ 
    $activity_key = $ACTIVITIES{$activity};
	    print OUTFILE"<tr>\n";
	    print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\"><a href=\"../PWA/Activities/$activity_key.html\">";
            print OUTFILE"Act-$activity_key</a></td>\n";
	    if ($CLOSED{$activity_key} eq "C") {
		print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\">CLOSED</td>\n"; } 
	    else { 
		print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\">$DATE{$activity_key}</td>\n";
	    }
	    print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\" align=\"center\">-</td>";
            print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\">$TEXT{$activity_key}</td>\n";
	    print OUTFILE"</tr> \n";
	
   
	    foreach $person (sort keys %PERSONS){
		if (($RESPONSIBLE{$activity_key} =~ /$PERSONS{$person},([0-9])/)){
		    print OUTFILE"<tr> <td align=\"center\">\"</td><td align=\"center\">\"</td>\n";
		    print OUTFILE"<td bgcolor=\"$COLOR{$1+delay($DATE{$activity_key})}\">";
		    print OUTFILE"$CONT{$1+delay($DATE{$activity_key})}</td>";
		    print OUTFILE" <td><a href=\"../PWA/Profiles/$PERSONS{$person}.html\">";
                    print OUTFILE"$FULLNAME{$PERSONS{$person}}</a> </td>\n";
		    print OUTFILE"</tr>\n";
		    $num_of ++;
		}
		
	    }
            if (length($COMMENT{$activity_key}) > 0) {
		print OUTFILE"<tr><td>.</td><td>.</td>";
		print OUTFILE"<td bgcolor=\"$COMMENTCOLOR\">Comment</td>";
                print OUTFILE"<td bgcolor=\"$COMMENTCOLOR\">$COMMENT{$activity_key}</td>\n";    
		print OUTFILE"</tr> \n";
	    }
 
#	}
    }
    print OUTFILE"</table>\n";
    print OUTFILE"<br>$num_of Person-Actions";
    print OUTFILE"<br><hr>Generated: <b>$mytime</b> by PWA.pl $PWsign";
    print OUTFILE"</body>\n";
    close(OUTFILE);    

print ".";
## 
## MAKE ALL CLOSED ACTIONS HTML PAGES ----------------------------------------------
##

    
    
$PersonFile="../PWA/act_all_closed.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>Action status (All closed actions)</h2>\n";
print OUTFILE"<table bgcolor=\"$TABLECOLOR\">\n";
print OUTFILE"<tr>\n";

print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Reference</b></td>\n";
print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Due Date</b></td>\n";
print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Status</b></td>\n";
print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Action/Responsible</b></td>\n";
print OUTFILE"</tr> \n";

$num_of = 0;
foreach $activity (sort keys %ACTIVITIES_CLOSED){ 
    $activity_key = $ACTIVITIES_CLOSED{$activity};
	    print OUTFILE"<tr>\n";
    print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\"><a href=\"../PWA/Activities/$activity_key.html\">";
    print OUTFILE"Act-$activity_key</a></td>\n";
    print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\">$DATE{$activity_key} (Closed)</td>\n";
	    print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\" align=\"center\">-</td>";
            print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\">$TEXT{$activity_key}</td>\n";
	    print OUTFILE"</tr> \n";
	
   
	    foreach $person (sort keys %PERSONS){
		if (($RESPONSIBLE{$activity_key} =~ /$PERSONS{$person},([0-9])/)){
		    print OUTFILE"<tr> <td align=\"center\">\"</td><td align=\"center\">\"</td>\n";
		    print OUTFILE"<td bgcolor=\"$COLOR{$1+delay($DATE{$activity_key})}\">";
		    print OUTFILE"$CONT{$1+delay($DATE{$activity_key})}</td>";
		    print OUTFILE" <td><a href=\"../PWA/Profiles/$PERSONS{$person}.html\">";
                    print OUTFILE"$FULLNAME{$PERSONS{$person}}</a> </td>\n";
		    print OUTFILE"</tr>\n";
		    $num_of ++;
		}
		
	    }
            if (length($COMMENT{$activity_key}) > 0) {
		print OUTFILE"<tr><td>.</td><td>.</td>";
		print OUTFILE"<td bgcolor=\"$COMMENTCOLOR\">Comment</td>";
                print OUTFILE"<td bgcolor=\"$COMMENTCOLOR\">$COMMENT{$activity_key}</td>\n";    
		print OUTFILE"</tr> \n";
	    }
 
#	}
    }
    print OUTFILE"</table>\n";
    print OUTFILE"<br>$entrycntc closed actions";
    print OUTFILE"<br><hr>Generated: <b>$mytime</b> by PWA.pl $PWsign";
    print OUTFILE"</body>\n";
    close(OUTFILE);    

print ".";
## 
## MAKE OVERDUE ACTIONS HTML PAGES ----------------------------------------------
##
 
$PersonFile="../PWA/act_all_overdue.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>Action status (Overdue actions)</h2>\n";
print OUTFILE"<table bgcolor=\"$TABLECOLOR\">\n";
print OUTFILE"<tr>\n";

print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Reference</b></td>\n";
print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Due Date</b></td>\n";
print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Status</b></td>\n";
print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Action/Responsible</b></td>\n";
print OUTFILE"</tr> \n";

$num_of = 0;
foreach $activity (sort keys %ACTIVITIES){ 
    $activity_key = $ACTIVITIES{$activity};
    $print_header = "0";
	
    
    foreach $person (sort keys %PERSONS){
	if (($RESPONSIBLE{$activity_key} =~ /$PERSONS{$person},([0-9])/)){
	    if ($1+delay($DATE{$activity_key}) eq "1") {
		if ($print_header eq "0") {
		    print OUTFILE"<tr>\n";
		    print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\"><a href=\"../PWA/Activities/$activity_key.html\">";
		    print OUTFILE"Act-$activity_key</a></td>\n";
		    if ($CLOSED{$activity_key} eq "C") {
			print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\">CLOSED</td>\n"; } 
		    else { 
			print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\">$DATE{$activity_key}</td>\n";
		    }
		    print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\" align=\"center\">-</td>";
		    print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\">$TEXT{$activity_key}</td>\n";
		    print OUTFILE"</tr> \n";
		    $print_header = "1";
		}
		print OUTFILE"<tr> <td align=\"center\">\"</td><td align=\"center\">\"</td>\n";
		print OUTFILE"<td bgcolor=\"$COLOR{$1+delay($DATE{$activity_key})}\">";
		print OUTFILE"$CONT{$1+delay($DATE{$activity_key})}</td>";
		print OUTFILE" <td><a href=\"../PWA/Profiles/$PERSONS{$person}.html\">";
		print OUTFILE"$FULLNAME{$PERSONS{$person}}</a> </td>\n";
		print OUTFILE"</tr>\n";
		$num_of ++;
	    }
	}
	
    }
    if ((length($COMMENT{$activity_key}) > 0) && ($print_header eq "1")) {
	print OUTFILE"<tr><td>.</td><td>.</td>";
	print OUTFILE"<td bgcolor=\"$COMMENTCOLOR\">Comment</td>";
	print OUTFILE"<td bgcolor=\"$COMMENTCOLOR\">$COMMENT{$activity_key}</td>\n";    
	print OUTFILE"</tr> \n";
    }
    
#	}
}
print OUTFILE"</table>\n";
    print OUTFILE"<br>$num_of Person-Actions";
print OUTFILE"<br><hr>Generated: <b>$mytime</b> by PWA.pl $PWsign";
print OUTFILE"</body>\n";
close(OUTFILE);    
print ".";
## 
## MAKE ToDo ACTIONS HTML PAGES ----------------------------------------------
##
 
$PersonFile="../PWA/act_all_todo.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>Action status (Actions to do)</h2>\n";
print OUTFILE"<table bgcolor=\"$TABLECOLOR\">\n";
print OUTFILE"<tr>\n";

print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Reference</b></td>\n";
print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Due Date</b></td>\n";
print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Status</b></td>\n";
print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Action/Responsible</b></td>\n";
print OUTFILE"</tr> \n";

$num_of = 0;
foreach $activity (sort keys %ACTIVITIES){ 
    $activity_key = $ACTIVITIES{$activity};
    $print_header = "0";
	
    
    foreach $person (sort keys %PERSONS){
	if (($RESPONSIBLE{$activity_key} =~ /$PERSONS{$person},([0-9])/)){
	    if ($1+delay($DATE{$activity_key}) eq "0") {
		if ($print_header eq "0") {
		    print OUTFILE"<tr>\n";
		    print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\"><a href=\"../PWA/Activities/$activity_key.html\">";
		    print OUTFILE"Act-$activity_key</a></td>\n";
		    if ($CLOSED{$activity_key} eq "C") {
			print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\">CLOSED</td>\n"; } 
		    else { 
			print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\">$DATE{$activity_key}</td>\n";
		    }
		    print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\" align=\"center\">-</td>";
		    print OUTFILE"<td bgcolor=\"$SUBHEADERCOLOR\">$TEXT{$activity_key}</td>\n";
		    print OUTFILE"</tr> \n";
		    $print_header = "1";
		}
		print OUTFILE"<tr> <td align=\"center\">\"</td><td align=\"center\">\"</td>\n";
		print OUTFILE"<td bgcolor=\"$COLOR{$1+delay($DATE{$activity_key})}\">";
		print OUTFILE"$CONT{$1+delay($DATE{$activity_key})}</td>";
		print OUTFILE" <td><a href=\"../PWA/Profiles/$PERSONS{$person}.html\">";
		print OUTFILE"$FULLNAME{$PERSONS{$person}}</a> </td>\n";
		print OUTFILE"</tr>\n";
		$num_of ++;
	    }
	}
	
    }
    if ((length($COMMENT{$activity_key}) > 0) && ($print_header eq "1")){
	print OUTFILE"<tr><td>.</td><td>.</td>";
	print OUTFILE"<td bgcolor=\"$COMMENTCOLOR\">Comment</td>";
	print OUTFILE"<td bgcolor=\"$COMMENTCOLOR\">$COMMENT{$activity_key}</td>\n";    
	print OUTFILE"</tr> \n";
    }
    
#	}
}
print OUTFILE"</table>\n";
    print OUTFILE"<br>$num_of Person-Actions";
print OUTFILE"<br><hr>Generated: <b>$mytime</b> by PWA.pl $PWsign";
print OUTFILE"</body>\n";
close(OUTFILE);    


print ".";
## 
## MAKE GLOBAL COMPANY HTML PAGES ----------------------------------------------
##


$PersonFile="../PWA/act_by_comp.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"<body bgcolor=\"$BODYCOLOR\">\n";
print OUTFILE"<H2>Action Status</h2>\n";    

#print OUTFILE"<a href=\"./persons.html\"><b>Project Member Abbreviation List</b></a><p>\n";

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


foreach $abbr (keys %COLOR){ 
    if ($abbr<3){print OUTFILE"<tr><td bgcolor=\"$COLOR{$abbr}\"> $CONT{$abbr}</td></tr>\n"}
};
    
print OUTFILE"<tr>";
print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Reference</b></td>\n";
print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Due Date</b></td>";
foreach $company (sort keys %COMPANIES){
    print OUTFILE"<td width=\"5%\" bgcolor=\"$HEADERCOLOR\"><a href=\"./Companies/$company.html\">";
    print OUTFILE"<b>$COMPANIES{$company}</b></a></td>";
}
print OUTFILE"</tr> \n";

foreach $activity (sort keys %ACTIVITIES){ 
    $activity_key = $ACTIVITIES{$activity};
    
    print OUTFILE"<tr><td><a href=\"./Activities/$activity_key.html\">Act-$activity_key</a></td>\n";
    if ($CLOSED{$activity_key} eq "C") {
	print OUTFILE"<td bgcolor=\"$CLOSEDCOLOR\">CLOSED</td>\n"; 
    } 
    else { 
	print OUTFILE"<td>$DATE{$activity_key}</td>\n";
    }
    
    foreach $company (sort keys %COMPANIES){
	$contains=0;
        $cmpstat=2;
	foreach $person (keys %PERSONS){
	    if (($RESPONSIBLE{$activity_key} =~ /$PERSONS{$person},([0-9])/) 
		&& ($company eq $MEMBER{$PERSONS{$person}})){
		$cmpstat = ($1+delay($DATE{$activity_key}) < $cmpstat ? $1+delay($DATE{$activity_key}) :$cmpstat);
		$contains=1;}
	} 
	if ($contains eq 1) {
	    print OUTFILE"<td align=\"center\" bgcolor=\"$COLOR{$cmpstat}\"><b>$ABR{$cmpstat}</b> </td>";
	} else 
	{
	    print OUTFILE"<td align=\"center\"> . </td>";
	}
    }
    print OUTFILE"</tr>\n";
}
print OUTFILE"</table>\n";
print OUTFILE"<br><hr>Generated: <b>$mytime</b> by PWA.pl $PWsign";
    print OUTFILE"</body>\n";
close(OUTFILE);    

print ".";
## 
## MAKE PARTNER HTML PAGES ----------------------------------------------
##


$PersonFile="../PWA/partners.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"<body bgcolor=\"$BODYCOLOR\">\n";
print OUTFILE"<H2>Partners</h2>\n";    

#print OUTFILE"<a href=\"./persons.html\"><b>Project Member Abbreviation List</b></a><p>\n";

print OUTFILE"<table bgcolor=\"$TABLECOLOR\" border=\"0\" cellpadding=\"10\">\n";
#print OUTFILE"<tr valign=top>\n";


    foreach $company (sort keys %COMPANIES){
	$contains=0;
        $cmpstat=2;
               
	print OUTFILE"<tr><td><img src=\"Images/$COMPCOUNTRY{$company}.jpg\" ALT=\"$COMPCOUNTRY{$company}\"></td>\n";

	print OUTFILE"<td><a href=\"./Profiles/$company.html\">$COMPANIES{$company}</a>, $COMPAREA{$company}";
	if (length($COMPURL{$company}) >0) {
	    print OUTFILE" (<a href=\"http://$COMPURL{$company}\">http://$COMPURL{$company}</a>)\n";
	}
	print OUTFILE"</td><td>\n";
	
	foreach $person (sort keys %PERSONS){
	    if (($company eq $MEMBER{$PERSONS{$person}})){
		print OUTFILE"<a href=\"./Profiles/$PERSONS{$person}.html\">$FULLNAME{$PERSONS{$person}}</a><br>\n";
	    }
	}
	print OUTFILE"</td></tr>\n";
    }
print OUTFILE"</table>\n";
print OUTFILE"<br><hr>Generated: <b>$mytime</b> by PWA.pl $PWsign";
    print OUTFILE"</body>\n";
close(OUTFILE);    

print ".";
## 
## MAKE GALLERY HTML PAGES ----------------------------------------------
##


$PersonFile="../PWA/gallery.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"<body bgcolor=\"$BODYCOLOR\">\n";
print OUTFILE"<H2>Gallery</h2>\n";    

#print OUTFILE"<a href=\"./persons.html\"><b>Project Member Abbreviation List</b></a><p>\n";

#print OUTFILE"<table bgcolor=\"$TABLECOLOR\" border=\"0\" cellpadding=\"10\">\n";
#print OUTFILE"<tr valign=top>\n";



foreach $person (sort keys %PERSONS){
	$person_key = $PERSONS{$person};
   
	$imgfile="../PWA/Images/$person_key.jpg";
	if (-e $imgfile){
	    print OUTFILE"<a href=\"./Profiles/$PERSONS{$person}.html\"><img src=\"./Images/$person_key.jpg\" height=\"100\" ALT=\"Picture of $PERSONS{$person}\">$FULLNAME{$PERSONS{$person}}</a>\n";
	}
    }


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

print ".";
## 
## MAKE GLOBAL HTML PAGE ----------------------------------------------
##


$PersonFile="../PWA/act_by_pers.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"<body bgcolor=\"$BODYCOLOR\">\n";
print OUTFILE"<H2>Action Status</h2>\n";    

print OUTFILE"<a href=\"./persons.html\"><b>Project Member Abbreviation List</b></a><p>\n";

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


foreach $abbr (keys %COLOR){ 
    if ($abbr<3){
	print OUTFILE"<tr><td bgcolor=\"$COLOR{$abbr}\"> $CONT{$abbr}</td></tr>\n"
	}
};

print OUTFILE"<tr>";
print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Reference</b></td>\n";
print OUTFILE"<td bgcolor=\"$HEADERCOLOR\"><b>Due Date</b></td>";
foreach $person (sort keys %PERSONS){
    print OUTFILE"<td width=\"5%\" bgcolor=\"$HEADERCOLOR\"><a href=\"./Persons/$PERSONS{$person}.html\">";
    print OUTFILE"<b>$PERSONS{$person}</b></a></td>";
}
print OUTFILE"</tr> \n";

foreach $activity (sort keys %ACTIVITIES){ 
    $activity_key = $ACTIVITIES{$activity};
    print OUTFILE"<tr><td><a href=\"./Activities/$activity_key.html\">Act-$activity_key</a></td>\n";
    if ($CLOSED{$activity_key} eq "C") {
	print OUTFILE"<td bgcolor=\"$CLOSEDCOLOR\">CLOSED</td>\n"; 
    } 
    else { 
	print OUTFILE"<td>$DATE{$activity_key}</td>\n";
    }
    
    foreach $person (sort keys %PERSONS){
	if ($RESPONSIBLE{$activity_key} =~ /$PERSONS{$person},([0-9])/){
	    print OUTFILE"<td align=\"center\" bgcolor=\"$COLOR{$1+delay($DATE{$activity_key})}\">";
            print OUTFILE"<b>$ABR{$1+delay($DATE{$activity_key})}</b> </td>";
	} else 
	{
	    print OUTFILE"<td align=\"center\"> . </td>";
	}
    }	
    print OUTFILE"</tr>\n";
}

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


print ".";
## 
## MAKE PROFILE HTML PAGES ----------------------------------------------
##


$ProFile = "../PWA/profiles.html";
open (PROFILE,"> $ProFile") or die 
    "Can't open InputFile: $InputFile";
$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 PROFILE"$_";
}
close (HEADERFILE);
#print PROFILE"<body bgcolor=\"$BODYCOLOR\">\n";
print PROFILE"<H2>Profiles</h2>\n";    

## 
## INCLUDE ALL PROJECT MEMBERS TOGATHER- --------------------------------
## 

#%TO_PRINT = %PERSONS;
#$OutFile="./PWA./Profiles/MARVIN.html";
#$header = "All MARVIN project participants";
#&print_group;
#delete @TO_PRINT{keys  %TO_PRINT};

#print ".";

## 
##  INCLUDE ALL PROJECT MEMBERS (Long version) ----------------------------
## 

#%TO_PRINT = %PERSONS;
#$OutFile="./PWA/Profiles/MARVINLONG.html";
#$header = "All MARVIN project participants (Long version)";
#&print_individual;
#delete @TO_PRINT{keys  %TO_PRINT};


## 
##  INCLUDE GROUPS  ----------------------------
## 

print PROFILE"<br><b>Grouped by Membership:</b><br>\n";    

opendir(DIRHANDLE_A, "../PWA/Input/Groups/");
@TEMPLATES = grep(m/^(\w*)\.txt$/, readdir(DIRHANDLE_A));
closedir(DIRHANDLE_A);

foreach $template (@TEMPLATES) {
    $email_list="";    
    $InputFile="../PWA/Input/Groups/$template";
    open (FromFILE,"< $InputFile") or die 
	"Can't open InputFile: $InputFile";
    
    while ( <FromFILE> ){
	chop;
	($Flag,$Name) = split(/:/,$_);
	
	if ($Flag =~ m/TITLE/){ 
	    $header="$Name"
	    };
	if ($Flag =~ m/MAILLIST/){ 
	    $email_list="$Name"
	    };
	if ($Flag =~ m/I/){
	    foreach $person (sort keys %PERSONS){
		if ($PERSONS{$person} eq $Name) {
		    @TO_PRINT{$person} = $PERSONS{$person};
		}
	    }
	};
	if ($Flag =~ m/C/){ 
	    foreach $person (sort keys %PERSONS){
		if ($MEMBER{$PERSONS{$person}} eq $Name) {
		    @TO_PRINT{$person} = $PERSONS{$person};
		}
	    } 
	};
	if ($Flag =~ m/D/){ 
	    foreach $person (sort keys %PERSONS){
		if ($PERSONS{$person} eq $Name) {
                    delete $TO_PRINT{$person};
		}
	    } 
	};
    }
    close (FromFILE);
    
    $OutFile=$InputFile;
    $OutFile =~s/\/Input\/Groups/\/Profiles/;
    $OutFile =~s/\.\./\./;
    $OutFile =~s/.txt/.html/;
    &print_group;
    delete @TO_PRINT{keys  %TO_PRINT};
    print ".";
    
}

## 
##  INCLUDE ALL PARTNER GROUPS  ----------------------------
## 

print PROFILE"<br><b>Grouped by Partner:</b><br>\n";    
$email_list="";    

foreach $company (sort keys %COMPANIES){
    $OutFile="./PWA/Profiles/$company.html";
    $header = "$COMPANIES{$company}";
    foreach $person (sort keys %PERSONS){
	if ($MEMBER{$PERSONS{$person}} eq $company) {
	    @TO_PRINT{$person} = $PERSONS{$person};
	}
    }    
    &print_group;
    delete @TO_PRINT{keys  %TO_PRINT};

    print ".";

}

## 
##  INCLUDE ALL OTHER INDIVIDUALS   ----------------------------
## 

print PROFILE"<br><b>Individuals:</b><br>\n";    

foreach $person (sort keys %PERSONS){
    $person_key = $PERSONS{$person};
    @TO_PRINT{$person} = $PERSONS{$person};
    $OutFile="./PWA/Profiles/$person_key.html";
    $header = "$FIRST{$person_key} $SECOND{$person_key} ($COMPANIES{$MEMBER{$person_key}})";
    &print_individual;
    delete @TO_PRINT{keys  %TO_PRINT};
    print ".";

}


close(PROFILE);

print "\n\n$entrycnt open activities prosessed\n";
print "$entrycntc closed activities prosessed\n";
print "Press Return to continue ...\n";
$line = readline(*STDIN);


sub print_group {

    open (OUTFILE,"> .$OutFile") or die 
	"Can't open InputFile: $InputFile";

    print "Generating: $OutFile\n" if ($VERBOSE);

#    $LinkFile = $OutFile;
#        $LinkFile =~ s/\.\./\./;

    print PROFILE"<a HREF=\".$OutFile\">$header</a>";  

    $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"<body bgcolor=\"$BODYCOLOR\">\n";
    print OUTFILE"<H2>$header</h2>\n";    
    print OUTFILE"<table border=\"1\" bgcolor=\"$TABLECOLOR\">\n";
        
    print OUTFILE"<tr>\n";
    print OUTFILE"<td bgcolor=\"$HEADERCOLOR\">NAME</td>\n";
    print OUTFILE"<td bgcolor=\"$HEADERCOLOR\">PHONE</td>\n";
    print OUTFILE"<td bgcolor=\"$HEADERCOLOR\">FAX</td>\n";
    print OUTFILE"<td bgcolor=\"$HEADERCOLOR\">EMAIL</td>\n";
    print OUTFILE"<td bgcolor=\"$HEADERCOLOR\">COMPANY</td>\n";
    print OUTFILE"</tr> \n";    

    $collect_email = "";    

    foreach $person (sort keys %TO_PRINT){
	$person_key = $PERSONS{$person};
	print OUTFILE"<tr>\n";
	print OUTFILE"<td><a HREF=\"$person_key.html\">$FIRST{$person_key} $SECOND{$person_key}</a></td>\n";
	print OUTFILE"<td>$PHONE{$person_key}</td>\n";
	print OUTFILE"<td>$FAX{$person_key}</td>\n";
	print OUTFILE"<td><a HREF=\"mailto:$EMAIL{$person_key}\">$EMAIL{$person_key}</a></td>\n";
        $collect_email = "$collect_email;$EMAIL{$person_key}";
 	print OUTFILE"<td>$COMPANIES{$MEMBER{$person_key}}</td>\n";
	print OUTFILE"</tr> \n";    
    }
    print OUTFILE"</table><br>\n";
    $collect_email = substr $collect_email,1;
    if (length($collect_email)<255){
	print OUTFILE"Send <a HREF=\"mailto:$collect_email\">all of them</a> an email";
        print PROFILE" <a HREF=\"mailto:$collect_email\"><IMG SRC=\"../Input/mail.gif\" HEIGHT=20 BORDER=0 ALT=\"Mail\"></a><br>";  
    }
    else
    {
        if (length($email_list) > 0){
	    print OUTFILE"Send <a HREF=\"mailto:$email_list\">all of them</a> an email";
	    print PROFILE" <a HREF=\"mailto:$email_list\"><IMG SRC=\"../Input/mail.gif\" HEIGHT=20 BORDER=0 ALT=\"Mail\"></a><br>";  
	}
	else
	{
	    
	    $MailFile = $OutFile;
	    $MailFile =~ s/Profiles/Templates/;
	    $MailFile =~ s/html/txt/;
	    open (MAILFILE,"> .$MailFile") or die 
		"Can't open MailFile: $MailFile";
	    print MAILFILE"$collect_email";
	    close(MAILFILE);
	    $TemplateFile = $MailFile;
#        $TemplateFile  =~ s/txt/oft/;
	    print OUTFILE"Send <a HREF=\"../../$TemplateFile\">all of them</a> an email (copy-and-paste addresses).";
	    print PROFILE" <a HREF=\"../$TemplateFile\"><IMG SRC=\"../Input/mail.gif\" HEIGHT=20 BORDER=0 ALT=\"Mail\"></a><br>";  
	}
    }
    print OUTFILE"<hr>Generated: <b>$mytime</b> by PWA.pl $PWsign";
    print OUTFILE"</body>\n";
    close(OUTFILE);
}



sub print_individual {

    open (OUTFILE,"> .$OutFile") or die 
	"Can't open InputFile: $InputFile";

    print "Generating: $OutFile\n" if ($VERBOSE);
    
    print PROFILE"<a HREF=\".$OutFile\">$header</a>";  
    print PROFILE" <a HREF=\"mailto:$EMAIL{$PERSONS{$person}}\">";
    print PROFILE"<IMG SRC=\"../Input/mail.gif\" HEIGHT=20 BORDER=0 ALT=\"Mail\"></a><br>";
$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"<body bgcolor=\"$BODYCOLOR\">\n";
    print OUTFILE"<H2>$header</h2>\n";    

    foreach $person (sort keys %TO_PRINT){
	$person_key = $PERSONS{$person};
   
	print OUTFILE"<p><IMG SRC=\"../Images/$person_key.jpg\" height=\"320\" align=\"right\" BORDER=\"0\" ALT=\"Picture of $FIRST{$person_key} $SECOND{$person_key}\"></p>\n";
	print OUTFILE"<table border=\"1\" bgcolor=\"$TABLECOLOR\">\n";
        
	print OUTFILE"<tr>\n";
	print OUTFILE"<td bgcolor=\"$COMMENTCOLOR\">Name</td>\n";
	print OUTFILE"<td>$FIRST{$person_key} $SECOND{$person_key}</td>\n";
	print OUTFILE"</tr>\n";
	print OUTFILE"<tr>\n";
	print OUTFILE"<td bgcolor=\"$COMMENTCOLOR\">Phone</td>\n";
	print OUTFILE"<td>$PHONE{$person_key}</td>\n";
	print OUTFILE"</tr>\n";
	print OUTFILE"<tr>\n";
	print OUTFILE"<td bgcolor=\"$COMMENTCOLOR\">Fax</td>\n";
	print OUTFILE"<td>$FAX{$person_key}</td>\n";
	print OUTFILE"</tr>\n";
	print OUTFILE"<tr>\n";
	print OUTFILE"<td bgcolor=\"$COMMENTCOLOR\">Email</td>\n";
	print OUTFILE"<td><a HREF=\"mailto:$EMAIL{$person_key}\">$EMAIL{$person_key}</a></td>\n";
	print OUTFILE"</tr>\n";
	print OUTFILE"<tr>\n";
	print OUTFILE"<td bgcolor=\"$COMMENTCOLOR\">Member_Abbr</td>\n";
 	print OUTFILE"<td><a HREF=\"../Profiles/$MEMBER{$person_key}.html\">$COMPANIES{$MEMBER{$person_key}}</a></td>\n";
	print OUTFILE"</tr>\n";
	print OUTFILE"<tr>\n";

	print OUTFILE"<td bgcolor=\"$COMMENTCOLOR\">Member</td>\n";
 	print OUTFILE"<td>$COMPAREA{$MEMBER{$person_key}}</td>\n";

	if (length($COMPURL{$MEMBER{$person_key}}) >0) {
	    
	    print OUTFILE"</tr>\n";
	    print OUTFILE"<tr>\n";
	    print OUTFILE"<td bgcolor=\"$COMMENTCOLOR\">URL</td>\n";
	    print OUTFILE"<td><a href=\"http://$COMPURL{$MEMBER{$person_key}}\">http://$COMPURL{$MEMBER{$person_key}}</a></td>\n";
	}
	print OUTFILE"</tr>\n";
	print OUTFILE"<tr>\n";
	print OUTFILE"<td bgcolor=\"$COMMENTCOLOR\">Personal Action List</td>\n";
	print OUTFILE"<td><a HREF=\"../Persons/$person_key.html\">$person_key</a> (Personal)</td>\n";
	print OUTFILE"</tr> \n";    
	print OUTFILE"<tr>\n";
	print OUTFILE"<td bgcolor=\"$COMMENTCOLOR\">Members Action List</td>\n";
	print OUTFILE"<td><a HREF=\"../Companies/$MEMBER{$person_key}.html\">$COMPANIES{$MEMBER{$person_key}}</a> (Partner)</td>\n";
	print OUTFILE"</tr> \n";    
## hhh


    for ($i=9;$i<$NUMBER_OF;$i++) 
    {

	if (length($OF{$person_key}[$i]) > 0){
	    print OUTFILE"<tr>\n";
	    print OUTFILE"<td bgcolor=\"$COMMENTCOLOR\">$OF{'TITLE'}[$i]</td>\n";
	    print OUTFILE"<td>$OF{$person_key}[$i]</td>\n";
	    print OUTFILE"</tr> \n";    
	}
	else
	{
	    print OUTFILE"<tr>\n";
	    print OUTFILE"<td bgcolor=\"$COMMENTCOLOR\">$OF{'TITLE'}[$i]</td>\n";
	    print OUTFILE"<td align=\"center\">-</td>\n";
	    print OUTFILE"</tr> \n";
	}
    }
	print OUTFILE"</table><br>\n";
	
    }
	
    print OUTFILE"<hr>Generated: <b>$mytime</b> by PWA.pl";
    print OUTFILE"</body>\n";
    close(OUTFILE);
}



## 
## SUBS ----------------------------------------------
##


sub delay{
    my($indate) = @_;
    if ($indate =~ /(.*)-(.*)-(.*)/){

	if ($1 < $year) {return 1};
        if (($1 == $year) && ($2 < $mon)) {return 1};
        if (($1 == $year) && ($2 == $mon) && ($3 < $mday)) {return 1};}
	return 0;

}