ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/web/cgi-bin/cvslog.cgi
Revision 1.29 - (view) (annotate) - [select for diffs]
Sat Sep 27 17:42:45 2003 UTC (21 years, 2 months ago) by tdb
Branch: MAIN
CVS Tags: PRE_WWW_REDESIGN
Changes since 1.28: +6 -6 lines
Diff to previous 1.28
Sort out the revision matching regex. Merge the two regex's, and make it
work with revisions that have more than one tag associated with them.

Revision 1.28 - (view) (annotate) - [select for diffs]
Sat Sep 27 17:21:32 2003 UTC (21 years, 2 months ago) by tdb
Branch: MAIN
Changes since 1.27: +1 -1 lines
Diff to previous 1.27
Update scripts that use cvs2cl. Now using cvs2cl 2.49, still with some
custom patches (but less than before). Diff included here.

--- cvs2cl.bak	Sat Sep 27 16:57:59 2003
+++ cvs2cl	Sat Sep 27 17:10:55 2003
@@ -1036,7 +1036,8 @@
           elsif ($No_Wrap && !$Summary)
           {
             $msg = &preprocess_msg_text ($msg);
-            $files = wrap ("\t", "\t", "* $files");
+# tdb: no-wrap shouldn't wrap ANYTHING!
+            #$files = wrap ("\t", "\t", "* $files");
             $msg =~ s/\n(.+)/\n\t$1/g;
             unless ($After_Header eq " ") {
               $msg =~ s/^(.+)/\t$1/g;
@@ -1328,7 +1329,8 @@
   # there are multiple qunks in the first place!
   if ((scalar (@qunkrefs)) > 1) {
     foreach my $tag (keys (%non_unanimous_tags)) {
-      my $everyone_has_this_tag = 1;
+# tdb: we don't want to have unanimous tags
+      my $everyone_has_this_tag = 0;
       foreach my $qunkref (@qunkrefs) {
         if ((! (defined ($$qunkref{'tags'})))
             or (! (grep ($_ eq $tag, @{$$qunkref{'tags'}})))) {
@@ -1521,7 +1523,8 @@

     unless ( exists $fileinfo_printed{$b} ) {
       if ($fbegun) {
-        $beauty .= ", ";
+# tdb: hacked to put a newline after each one
+        $beauty .= ",\n";
       } else {
         $fbegun = 1;
       }

Revision 1.27 - (view) (annotate) - [select for diffs]
Thu Aug 21 22:22:12 2003 UTC (21 years, 3 months ago) by tdb
Branch: MAIN
Changes since 1.26: +2 -2 lines
Diff to previous 1.26
Fix a typo I noticed on the website.

Revision 1.26 - (view) (annotate) - [select for diffs]
Sun May 18 19:04:39 2003 UTC (21 years, 6 months ago) by tdb
Branch: MAIN
Changes since 1.25: +1 -2 lines
Diff to previous 1.25
Fix minor perl bug.

Revision 1.25 - (view) (annotate) - [select for diffs]
Thu May 15 20:48:01 2003 UTC (21 years, 6 months ago) by tdb
Branch: MAIN
Changes since 1.24: +31 -21 lines
Diff to previous 1.24
Merge in changes from branch created for new server. The old server is now
history... so we can make the new server use HEAD.

Revision 1.24 - (view) (annotate) - [select for diffs]
Mon May 12 13:25:32 2003 UTC (21 years, 6 months ago) by tdb
Branch: MAIN
Changes since 1.23: +0 -0 lines
Diff to previous 1.23
Nothing changed, just wanted to log this relevant diff...

This is a diff against the latest cvs2cl, version 2.46. It makes it
work how we require for cvslog. There's no new features, it's just a
new diff covering all the previous alterations on 2.38.

Oh, and it's a unified diff, which is much more readable :-)

--- cvs2cl.orig	Mon May 12 14:12:50 2003
+++ cvs2cl	Mon May 12 14:13:14 2003
@@ -879,7 +879,8 @@
           elsif ($No_Wrap)
           {
             $msg = &preprocess_msg_text ($msg);
-            $files = wrap ("\t", "	", "$files");
+# tdb: no-wrap shouldn't wrap ANYTHING!
+            #$files = wrap ("\t", "	", "$files");
             $msg =~ s/\n(.*)/\n\t$1/g;
             unless ($After_Header eq " ") {
               $msg =~ s/^(.*)/\t$1/g;
@@ -1042,7 +1043,8 @@
     # Keep track of whether all the files in this commit were in the
     # same directory, and memorize it if so.  We can make the output a
     # little more compact by mentioning the directory only once.
-    if ((scalar (@qunkrefs)) > 1)
+# tdb: hacked to turn off the commondir feature
+    if ((scalar (@qunkrefs)) < 0)
     {
       if (! (defined ($common_dir)))
       {
@@ -1086,7 +1088,8 @@
   # there are multiple qunks in the first place!
   if ((scalar (@qunkrefs)) > 1) {
     foreach my $tag (keys (%non_unanimous_tags)) {
-      my $everyone_has_this_tag = 1;
+# tdb: we don't want to have unanimous tags
+      my $everyone_has_this_tag = 0;
       foreach my $qunkref (@qunkrefs) {
         if ((! (defined ($$qunkref{'tags'})))
             or (! (grep ($_ eq $tag, @{$$qunkref{'tags'}})))) {
@@ -1237,7 +1240,8 @@
     next if (defined ($$qunkref{'printed'}));   # skip if already printed

     if ($fbegun) {
-      $beauty .= ", ";
+# tdb: hacked to put a newline after each one
+      $beauty .= ",\n";
     }
     else {
       $fbegun = 1;
@@ -1286,7 +1290,8 @@

   # todo: still have to take care of branch_roots?

-  $beauty = "* $beauty:";
+# tdb: hacked to remove the prefixed *
+  $beauty = "$beauty:";

   return $beauty;
 }

Revision 1.23 - (view) (annotate) - [select for diffs]
Mon Mar 3 15:30:59 2003 UTC (21 years, 8 months ago) by tdb
Branch: MAIN
Branch point for: I-SCREAM_ORG
Changes since 1.22: +0 -0 lines
Diff to previous 1.22
Nothing changed, I just want to log a relevant change...

This is the latest modification to cvs2cl, revision 2.38. This is an
old and outdatted version of cvs2cl, but it's what we're using right
now. I've got rid of unanimous tags in this change. The patch given
below is a complete diff from 2.38.

777c777,778
<             $files = wrap ("\t", "	", "$files");
---
> # tdb: no-wrap shouldn't wrap ANYTHING!
>             #$files = wrap ("\t", "	", "$files");
934c935,936
<     if ((scalar (@qunkrefs)) > 1)
---
> # tdb: hacked to turn off the commondir feature
>     if ((scalar (@qunkrefs)) < 0)
978c980,981
<       my $everyone_has_this_tag = 1;
---
> # tdb: we don't want to have unanimous tags
>       my $everyone_has_this_tag = 0;
1126c1129,1130
<       $beauty .= ", ";
---
> # tdb: hacked to put a newline after each one
>       $beauty .= ",\n";
1175c1179,1180
<   $beauty = "* $beauty:";
---
> # tdb: hacked to remove the prefixed *
>   $beauty = "$beauty:";

Revision 1.22 - (view) (annotate) - [select for diffs]
Tue Feb 5 14:03:08 2002 UTC (22 years, 9 months ago) by tdb
Branch: MAIN
Changes since 1.21: +3 -3 lines
Diff to previous 1.21
A fix for version numbers with more than two parts - ie. branches (1.2.1.2)

Revision 1.21 - (view) (annotate) - [select for diffs]
Mon Feb 4 00:42:43 2002 UTC (22 years, 9 months ago) by tdb
Branch: MAIN
Changes since 1.20: +2 -1 lines
Diff to previous 1.20
It seems showing branches isn't actually working.

Revision 1.20 - (view) (annotate) - [select for diffs]
Sun Dec 9 02:53:36 2001 UTC (22 years, 11 months ago) by tdb
Branch: MAIN
Changes since 1.19: +8 -0 lines
Diff to previous 1.19
Added section to deal with users who don't have an e-mail address. Without
this the line doesn't get any special treatment, which doesn't look pretty!

Revision 1.19 - (view) (annotate) - [select for diffs]
Sun Dec 9 01:04:12 2001 UTC (22 years, 11 months ago) by tdb
Branch: MAIN
Changes since 1.18: +5 -4 lines
Diff to previous 1.18
Fixed the link to diffs when there was a tag associated with the commit.

Revision 1.18 - (view) (annotate) - [select for diffs]
Sun Dec 9 00:25:48 2001 UTC (22 years, 11 months ago) by tdb
Branch: MAIN
Changes since 1.17: +6 -0 lines
Diff to previous 1.17
Added option to show commits since a given date:
cvslog.cgi?period=since&days=2001/12/09

It should be noted that the defintion of "since" in this case does NOT
include the day given.

Revision 1.17 - (view) (annotate) - [select for diffs]
Sun Oct 21 17:38:55 2001 UTC (23 years, 1 month ago) by tdb
Branch: MAIN
Changes since 1.16: +1 -0 lines
Diff to previous 1.16
Bug which meant the cvs update wasn't correctly executed before generating
the cvslog output.

Revision 1.16 - (view) (annotate) - [select for diffs]
Mon Jun 18 15:19:37 2001 UTC (23 years, 5 months ago) by tdb
Branch: MAIN
Changes since 1.15: +50 -15 lines
Diff to previous 1.15
Major changes:
- Now supports period=date&date=yyyy/mm/dd query strings.
- The files/logs section of each commit has been broken into two seperate bits.
- The filenames are linked to their relevant viewcvs page.
- The revisions are linked to their diffs, allowing one to see the changes a
  certain commit has introduced.
- The log message itself has been unwrapped, for neatness.

Bugs:
- fails to know about "deleted" files. They simply show up as a new revision.
  This is a fault in the underlying cvs2cl script.

Notes:
- This uses a modified version of cvs2cl. The diff is given here to avoid any
  confusion as to what this script expects in the future.

777c777,778
<             $files = wrap ("\t", "    ", "$files");
---
> # tdb1: no-wrap shouldn't wrap ANYTHING!
>             #$files = wrap ("\t", "   ", "$files");
934c935,936
<     if ((scalar (@qunkrefs)) > 1)
---
> # tdb1: hacked to turn off the commondir feature
>     if ((scalar (@qunkrefs)) < 0)
1126c1128,1129
<       $beauty .= ", ";
---
> # tdb1: hacked to put a newline after each one
>       $beauty .= ",\n";
1175c1178,1179
<   $beauty = "* $beauty:";
---
> # tdb1: hacked to remove the prefixed *
>   $beauty = "$beauty:";

Revision 1.15 - (view) (annotate) - [select for diffs]
Fri Jun 15 16:11:17 2001 UTC (23 years, 5 months ago) by tdb
Branch: MAIN
Changes since 1.14: +1 -1 lines
Diff to previous 1.14
Looks a bit neater I think.

Revision 1.14 - (view) (annotate) - [select for diffs]
Wed Jun 13 23:07:43 2001 UTC (23 years, 5 months ago) by tdb
Branch: MAIN
Changes since 1.13: +2 -2 lines
Diff to previous 1.13
Some fixes to sort the colours of links.

Revision 1.13 - (view) (annotate) - [select for diffs]
Wed Jun 13 17:44:03 2001 UTC (23 years, 5 months ago) by tdb
Branch: MAIN
Changes since 1.12: +18 -7 lines
Diff to previous 1.12
Added the title and bottom in the correct fashion. This is inline with the i-scream
layout and style.

Revision 1.12 - (view) (annotate) - [select for diffs]
Wed Jun 13 17:36:35 2001 UTC (23 years, 5 months ago) by tdb
Branch: MAIN
Changes since 1.11: +17 -0 lines
Diff to previous 1.11
Added the left bar to the commit logs.

Revision 1.11 - (view) (annotate) - [select for diffs]
Wed Jun 13 16:32:41 2001 UTC (23 years, 5 months ago) by tdb
Branch: MAIN
Changes since 1.10: +5 -5 lines
Diff to previous 1.10
Improved the resulting HTML, making it vaguely readable.

Revision 1.10 - (view) (annotate) - [select for diffs]
Wed Jun 13 15:53:51 2001 UTC (23 years, 5 months ago) by tdb
Branch: MAIN
Changes since 1.9: +7 -6 lines
Diff to previous 1.9
Slight alteration to ensure that it only one module is checked by fullcvsupdate.sh
if it is specified in the query string.

Revision 1.9 - (view) (annotate) - [select for diffs]
Wed Jun 13 15:29:51 2001 UTC (23 years, 5 months ago) by tdb
Branch: MAIN
Changes since 1.8: +3 -2 lines
Diff to previous 1.8
Now accepts a module in the query string, should that be preferable.

Revision 1.8 - (view) (annotate) - [select for diffs]
Wed Jun 13 15:24:40 2001 UTC (23 years, 5 months ago) by tdb
Branch: MAIN
Changes since 1.7: +4 -4 lines
Diff to previous 1.7
Urg, yellow. No...

Revision 1.7 - (view) (annotate) - [select for diffs]
Wed Jun 13 15:18:55 2001 UTC (23 years, 5 months ago) by tdb
Branch: MAIN
Changes since 1.6: +24 -10 lines
Diff to previous 1.6
Some changes to layout, incorporated from a modified version by Paul ;-)

Revision 1.6 - (view) (annotate) - [select for diffs]
Tue Jun 5 17:20:12 2001 UTC (23 years, 5 months ago) by tdb
Branch: MAIN
Changes since 1.5: +1 -2 lines
Diff to previous 1.5
Uses the new script that fully checks out and updates a cvs local copy.

Revision 1.5 - (view) (annotate) - [select for diffs]
Tue Jun 5 16:19:00 2001 UTC (23 years, 5 months ago) by tdb
Branch: MAIN
Changes since 1.4: +57 -24 lines
Diff to previous 1.4
Now been "updated" to support some more funky features :)

Firstly the output is grouped by module, making it clearer to see what commits
belong where.
Secondly, query strings allow you to specify the period, rather than just the
current day that the old one did. This are:

Current Day: period=today
Current Week: period=thisweek
Last n Days: period=days&days=n

There are also subtle location changes to suit the location on the new webserver
rather than raptor.

Revision 1.4 - (view) (annotate) - [select for diffs]
Fri May 25 16:40:08 2001 UTC (23 years, 6 months ago) by tdb
Branch: MAIN
Changes since 1.3: +3 -2 lines
Diff to previous 1.3
Best update the checked out copy before doing the cvs2cl.

Revision 1.3 - (view) (annotate) - [select for diffs]
Mon May 7 18:39:36 2001 UTC (23 years, 6 months ago) by tdb
Branch: MAIN
Changes since 1.2: +1 -1 lines
Diff to previous 1.2
Now use viewcvs instead.

Revision 1.2 - (view) (annotate) - [select for diffs]
Wed Mar 14 23:47:26 2001 UTC (23 years, 8 months ago) by tdb
Branch: MAIN
CVS Tags: PROJECT_COMPLETION
Changes since 1.1: +1 -1 lines
Diff to previous 1.1
Changed the title on the page.

Revision 1.1 - (view) (annotate) - [select for diffs]
Fri Mar 9 00:22:30 2001 UTC (23 years, 8 months ago) by tdb
Branch: MAIN
CGI scripts used in various places around the project.

Convenience Links

Links to HEAD: (view) (annotate) Links to PRE_WWW_REDESIGN: (view) (annotate)

Compare Revisions

This form allows you to request diffs between any two revisions of this file. For each of the two "sides" of the diff, select a symbolic revision name using the selection box, or choose 'Use Text Field' and enter a numeric revision.

  Diffs between and
  Type of Diff should be a