diff options
| author | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-03-25 13:59:35 +0000 |
|---|---|---|
| committer | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-03-25 13:59:35 +0000 |
| commit | cf724d39baa6101da7ef202958a72d1c872f0656 (patch) | |
| tree | a6be4991d4bf634cd6f82414e395bb2e9350c3fe /lib/sbin/CVSStatus.pl | |
| parent | 000ff954435b6fbd92f14d3e872eedff207b2016 (diff) | |
Make output columns line up.
Print both directory and file names.
Use more columns for version numbers.
Enable autoflush to reduce waiting time.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3601 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/CVSStatus.pl')
| -rw-r--r-- | lib/sbin/CVSStatus.pl | 27 |
1 files changed, 15 insertions, 12 deletions
diff --git a/lib/sbin/CVSStatus.pl b/lib/sbin/CVSStatus.pl index d5fbfdad..5572df0f 100644 --- a/lib/sbin/CVSStatus.pl +++ b/lib/sbin/CVSStatus.pl @@ -2,13 +2,16 @@ # @file CVSStatus.pl # @date Mon Mar 6 01:20:01 CET 2000 # @author Gabrielle Allen -# @desc +# @desc # Processes output from cvs status and gives better messages # Original version by Paul Walker # $Header$ -# @enddesc +# @enddesc #@@*/ +use IO::Handle; +STDOUT->autoflush(1); + &writeheader(); $full = 0; @@ -24,7 +27,7 @@ while (<CS>) { $module = $1; if ($module ne $module_old) { print "\nRepository: $module\n";$module_old=$module; - } + } # Get differences between versions if ($case =~ /diff/i) { @@ -41,9 +44,9 @@ while (<CS>) { } $gotone = 0; $module=""; - $file = ""; - $status = ""; - $version=""; + $file = ""; + $status = ""; + $version=""; $rversion=""; } if (m/File: (\S+)/) {$file = $1;} @@ -63,8 +66,8 @@ while (<CS>) { exit; format STDOUT = -@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<< @<<<<<<</@<<<<<<< -$file, $status, $version, $rversion + @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<< @<<<<<<<</@<<<<<<<< +substr("$dir/$file", -37), $status, $version, $rversion . @@ -77,9 +80,9 @@ if ($case =~ /diff/) { print <<EOF; -CVS Diff report +CVS Diff report -File Status Local/Remote ver +File Status Local /Remote ver ------------------------------------------------------------------------------- EOF } @@ -87,9 +90,9 @@ else { print <<EOF; -CVS Status report +CVS Status report -File Status Local/Remote ver +File Status Local /Remote ver ------------------------------------------------------------------------------- EOF } |