-
- #print $Rev, $Author, $Time, $LogLines, "\n";
-
- my $i = 2;
- while ($Lines[$i] ne '') {
- my ($Type, $Filename, $FromFile, $FromRev);
- #print $Lines[$i], "\n";
-
- if ($Lines[$i] =~ / ([MAD]) ([^ ]+) \(from ([^ ]+):([^ ]+)\)/) {
- ($Type, $Filename, $FromFile, $FromRev) = ($1, $2, $3, $4);
- } elsif ($Lines[$i] =~ / ([MAD]) ([^ ]+)/) {
- ($Type, $Filename, $FromFile, $FromRev) = ($1, $2, "", "");
- } else {
- print "UNMATCHABLE: $Lines[$i]\n";
- }
-
- if ($Type eq 'M') { # Modified
- $ModifiedFiles{$Filename} = 1;
- } elsif ($Type eq 'A') { # Added
- if ($FromFile eq "") { # File was added
- $AddedFiles{$Filename} = 1;
- } else { #File was added from another file - moved or copied.
- $MovedFiles{$Filename} = 1;
+ $Date = $Year . "-" . $Month . "-" . $Day;
+ $Time = $Hour . ":" . $Min . ":" . $Sec;
+ print "Rev: $Revision, Author: $Author, Date: $Date, Time: $Time\n";
+ for ($i = 6; $i < $#Lines; $i += 2 ) {
+ if ($Lines[$i] =~ /^ action="(.)">([^<]*)</) {
+ if ($1 == "A") {
+ $AddedFiles{$2} = 1;
+ } elsif ($1 == 'D') {
+ $RemovedFiles{$2} = 1;
+ } elsif ($1 == 'M' || $1 == 'R' || $1 == 'C') {
+ $ModifiedFiles{$2} = 1;
+ } else {
+ print "UNMATCHABLE: $Lines[$i]\n";