ViewVC Help

View File | Revision Log | Show Annotations | Revision Graph | Root Listing

root/i-scream/web/cgi-bin/cvslog.cgi

Comparing web/cgi-bin/cvslog.cgi (file contents):
Revision 1.28 by tdb, Sat Sep 27 17:21:32 2003 UTC vs.
Revision 1.29 by tdb, Sat Sep 27 17:42:45 2003 UTC

#	Line 116 | Line 116 | foreach my $module (@modules) {
116		print HTML_encode("$2");
117		print "</i>\n</font>\n"
118		}
119	<	elsif($line =~ /(\S+) (\(\S+\))([,:])/ || $line =~ /(\S+) (\(\S+,\s+\S+\))([,:])/) {
120	<	my ($file, $rest, $ext) = ($1, $2, $3);
119	>	elsif($line =~ /([^\s]+) (\([^,^\)]+(,[^\)]+)?\))([,:])/) {
120	>	my ($file, $rev, $tags, $ext) = ($1, $2, $3, $4);
121		print "<code>";
122		print "<a href=\"http://cvs.i-scream.org/$file\" style=\"text-decoration: none;\">";
123		print HTML_encode($file);
124		print "</a> ";
125	<	if($rest =~ /\((\S+)\.(\d+)(.*)\)/) {
125	>	if($rev =~ /\(([^\s]+)\.(\d+)(.*)\)/) {
126		my $start = $1;
127		my $end = $2;
128		my $other = $3;
#	Line 145 | Line 145 | foreach my $module (@modules) {
145		print HTML_encode("$other)");
146		}
147		else {
148	<	print HTML_encode($rest);
148	>	print HTML_encode($rev);
149		}
150		}
151		else {
152	<	print HTML_encode($rest);
152	>	print HTML_encode($rev);
153		}
154		print HTML_encode($ext);
155		print "</code><br>\n"
156		}
157		else {
158	<	chop $line;
158	>	chomp $line;
159		print "<code>";
160		print HTML_encode($line);
161		print "</code><br>\n"

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines