cvs: CVSROOT / loginfo.pl

goba Mon Jan 19 07:12:38 2004 EDT Modified files: /CVSROOT loginfo.pl Log: include link to online diff in cvs commit messages (preparing to link to online diffs in case the diffmsg variable will contain a too long string) Index: CVSROOT/loginfo.pl diff -u CVSROOT/loginfo.pl:1.68 CVSROOT/loginfo.pl:1.69 --- CVSROOT/loginfo.pl:1.68 Fri Dec 19 10:26:34 2003 +++ CVSROOT/loginfo.pl Mon Jan 19 07:12:37 2004 @@ -124,6 +124,7 @@ foreach my $info (@modified_files_info) { my ($file, $old, $new) = @$info; + $diffmsg .= "http://cvs.php.net/diff.php/$file?r1=$old&r2=$new&ty=u\n"; open(LOG, "$cvs -Qn rdiff -r $old -r $new -u $file|") || die; while(<LOG>) { s/\r\n/\n/; $diffmsg .= $_; } close(LOG); @@ -134,6 +135,7 @@ foreach my $file (@added_files) { next if $file =~ /\.(gif|jpe|jpe?g|pdf|png|exe|class|tgz|tar.gz|jar)$/i or $file !~ /\./; + $diffmsg .= "http://cvs.php.net/co.php/$file?r=1.1&p=1\n"; $diffmsg .= "\nIndex: $file\n+++ $file\n"; open(LOG, "$cvs -Qn checkout -p -r1.1 $file |") || die; while(<LOG>) { s/\r\n/\n/; $diffmsg .= $_; }