📄 tweak-log.cgi
字号:
#!/usr/bin/perl################################################################################ Tweak Subversion log messages# -----------------------------# # It sure would be nice to be able to change the log messages on# committed revisions of the Subversion repository via the web. This# is a quick attempt at making that happen.## The idea here is that you visit this script at the web page. With# no action supplied, it will present a form asking for the revision# of the log you wish to change.## Upon submitting the form, it will come back with yet another form,# which will:## - Display the current log message as static text. # - Present a textarea for editing, initialized with the current# log message.## The user can edit the message in the textarea, then submit that form,# which will return a confirmation and show the new log message.###############################################################################use strict;use CGI qw(:standard);################################################################################ Configuration Sectionmy $gSvnlookCmd = '/usr/local/bin/svnlook';my $gSvnadminCmd = '/usr/local/bin/svnadmin';my $gReposPath = '/usr/www/repositories/svn';my $gActionURL = './tweak-log.cgi';my $gTempfilePrefix = '/tmp/tweak-cgi';my $gHistoryFile = './TWEAKLOG';my $gBypassRevpropHooks = 0; # set to 1 to bypass the repository hook systemmy $gNumRecentCommits = 20; # number of recent commits to show on init form###############################################################################my %gCGIValues = &doCGI( );&main( );#-----------------------------------------------------------------------------#sub html_escape# (log)#-----------------------------------------------------------------------------#{ my $str = shift; $str =~ s/&/&/g; $str =~ s/>/>/g; $str =~ s/</</g; return $str;}#-----------------------------------------------------------------------------#sub doCGI# (void)#-----------------------------------------------------------------------------#{ my $lCGI = new CGI; my @lFields = $lCGI->param; my $lField; my %lCGIData = (); foreach $lField ( @lFields ) { $lCGIData{ uc $lField } = $lCGI->param( $lField ); } return( %lCGIData );}#-----------------------------------------------------------------------------#sub doError# (error)#-----------------------------------------------------------------------------#{ my $error = shift @_; print "<html><head><title>Tweak Log - Error</title></head>\n"; print "<body><h1>ERROR</h1>\n<p>$error</p></body></html>\n"; return;}#-----------------------------------------------------------------------------#sub main# (void)#-----------------------------------------------------------------------------#{ # Print out HTTP headers. print "Content-type: text/html; charset=UTF-8\n\n"; # Figure out what action to take. if( $gCGIValues{'ACTION'} =~ /fetch/i ) { &doFetchLog(); } elsif( $gCGIValues{'ACTION'} =~ /commit/i ) { &doCommitLog(); } else { &doInitialForm(); } return;}#-----------------------------------------------------------------------------#sub doInitialForm# (void)#-----------------------------------------------------------------------------#{ my $youngest = `$gSvnlookCmd youngest $gReposPath`; my $rev; my $oldest; print "<html>\n<head>\n<title>Tweak Log</title>\n</head>\n"; print "<body>\n<form action=\"$gActionURL\" method=\"post\">\n"; print "<a name=\"__top__\"></a>\n"; print "<p>\n"; print "Boy, I sure would like to modify that log message for \n"; print "revision <input type=\"text\" name=\"rev\" value\"\">\n"; print "<input type=\"submit\" name=\"action\" value=\"Fetch Log\">\n"; print "</p></form>\n"; print "<p>\n"; print "For convenience, here are the most recent $gNumRecentCommits\n"; print "commits (click the revision number to edit that revision's log):\n"; print "</p>\n"; chomp $youngest; $oldest = $youngest - $gNumRecentCommits + 1; $oldest = 1 if( $oldest < 1 ); $rev = $youngest; while( $rev >= $oldest ) { my @infolines = `$gSvnlookCmd info $gReposPath -r $rev`; my $author = shift @infolines; my $date = shift @infolines; my $log_size = shift @infolines; print "<hr />\n"; print "<a href=\"$gActionURL?action=Fetch+Log&rev=$rev\">Revision $rev</a>:<br />\n"; print "<i>Author: $author</i><br />\n"; print "<i>Date: $date</i><br />\n"; print "<i>Log: </i><br /><pre>\n"; map { $_ = &html_escape ($_); } @infolines; print @infolines; print "</pre><br />\n"; print "<a href=\"#__top__\">(back to top)</a>\n"; $rev--; } print "</body></html>\n"; return;}#-----------------------------------------------------------------------------#sub isValidRev# (rev)#-----------------------------------------------------------------------------#{ my $youngest = `$gSvnlookCmd youngest $gReposPath`; my $rev = shift @_; if(not (( $youngest =~ /^\d+$/) and ( $youngest > 0 ))) { &doError( "Unable to determine youngest revision" ); return 0; } if(not (( $rev =~ /^\d+$/) and ( $rev <= $youngest ))) { &doError( "'$rev' is not a valid revision number" ); return 0; } return 1;}#-----------------------------------------------------------------------------#sub doFetchLog# (void)#-----------------------------------------------------------------------------#{ my $rev = $gCGIValues{'REV'}; my $log; my $escaped_log; ## HTML-escaped version of $log # Make sure we've requested a valid revision. if( not &isValidRev( $rev )) { return; } # Fetch the log for that revision. $log = `$gSvnlookCmd log $gReposPath -r $rev`; $escaped_log = &html_escape ($log); # Display the form for editing the revision print "<html>\n<head>\n<title>Tweak Log - Log Edit</title>\n</head>\n"; print "<body>\n"; print "<h1>Editing Log Message for Revision $rev</h1>\n"; print "<h2>Current log message:</h2>\n"; print "<blockquote><hr /><pre>$escaped_log</pre><hr /></blockquote>\n"; print "<p><font color=\"red\">\n"; print "<i>Every change made is logged in <tt>${gHistoryFile}</tt>.\n"; print "If you make a bogus\n"; print "change, you can still recover the old message from there.</i>\n"; print "</font></p>\n"; print "<form action=\"$gActionURL\" method=\"post\">\n"; print "<h2>New log message:</h2>\n"; print "<blockquote>\n"; print "<textarea cols=\"80\" rows=\"25\" wrap=\"off\" name=\"log\">\n"; print $escaped_log; print "</textarea><br />\n"; print "<input type=\"hidden\" name=\"rev\" value=\"$rev\">\n"; print "<input type=\"submit\" name=\"action\" value=\"Commit Changes\">\n"; print "</blockquote>\n"; print "</form></body></html>\n"; return;}#-----------------------------------------------------------------------------#sub doCommitLog# (void)#-----------------------------------------------------------------------------#{ my $rev = $gCGIValues{'REV'}; my $log = $gCGIValues{'LOG'}; my $orig_log; my $tempfile = "$gTempfilePrefix.$$"; # Make sure we are about to change a valid revision. if (not &isValidRev( $rev )) { return; } # Get the original log from the repository. $orig_log = `$gSvnlookCmd log $gReposPath -r $rev`; # If nothing was changed, go complain to the user (shame on him for # wasting our time like that!) if ($log eq $orig_log) { &doError ("Log message doesn't appear to have been edited."); return; } # Open a tempfile if (not (open( LOGFILE, "> $tempfile"))) { &doError ("Unable to open temporary file."); return; } # Dump the new log into the tempfile (and close it) print LOGFILE $log; close LOGFILE; # Tell our history file what we're about to do. if ($gHistoryFile) { if (not (open (HISTORY, ">> $gHistoryFile"))) { &doError ("Unable to open history file."); return; } print HISTORY "====================================================\n"; print HISTORY "REVISION $rev WAS:\n"; print HISTORY "----------------------------------------------------\n"; print HISTORY $orig_log; print HISTORY "\n"; } # Now, make the mods if ($gBypassRevpropHooks) { `$gSvnadminCmd setlog $gReposPath -r$rev $tempfile --bypass-hooks`; } else { `$gSvnadminCmd setlog $gReposPath -r$rev $tempfile`; } # ...and remove the tempfile. It is, after all, temporary. unlink $tempfile; # Now, tell the history file what we did. if ($gHistoryFile) { print HISTORY "----------------------------------------------------\n"; print HISTORY "REVISION $rev IS:\n"; print HISTORY "----------------------------------------------------\n"; print HISTORY $log; print HISTORY "\n"; close HISTORY; } # Now, re-read that logfile $log = `$gSvnlookCmd log $gReposPath -r $rev`; $log = &html_escape ($log); print "<html>\n<head>\n<title>Tweak Log - Log Changed</title>\n</head>\n"; print "<body>\n"; print "<h1>Success!</h1>\n"; print "<h2>New Log Message for Revision $rev</h2>\n"; print "<blockquote><hr /><pre>$log</pre><hr /></blockquote>\n"; print "</body></html>\n"; return;}⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -