Changeset 16771

Timestamp:

06/28/07 22:00:58 (17 months ago)

Author:

diakopter

Message:

adding new diff line to svnbot... tentatively.

Files:

• examples/network/svnbot.pl (modified) (4 diffs)

examples/network/svnbot.pl

@@ -7 +7 @@
 my $interval    = @*ARGS.shift // 300;
 my $repository  = @*ARGS.shift // ".";
+my $svndiffurl  = (@*ARGS[0] ~~ /http/) ?? @*ARGS.shift !! 0;
 my $show_branch = (@*ARGS[0] eq "true") ?? @*ARGS.shift !! 0;
 my $sep_header  = (@*ARGS[0] eq "true") ?? @*ARGS.shift !! 0;
@@ -28 +29 @@
 debug "        sep_header...    specifies whether a separate header line";
 debug "                         should be outputted (true|false).";
+debug "        svndiffurl...    specifies the base url for svn diff";
+debug "                         requests.  revision# is appended.";
 
 # Initialize $cur_svnrev. $cur_svnrev contains the last revision seen, and is
@@ -172 +175 @@
     my $branch;
     my $subst = "XXX-HACK-SVNBOT-SUBST-{rand}"; # XXX!
+    my $revnum;
 
     for =$fh -> $_ {
@@ -207 +211 @@
        }
     }
+    $commits ~= "diff: $svndiffurl$cur_entry\n" if $svndiffurl;
 
     return $commits;