diff options
author | Gerald Carter <jerry@samba.org> | 2003-09-09 04:14:19 +0000 |
---|---|---|
committer | Gerald Carter <jerry@samba.org> | 2003-09-09 04:14:19 +0000 |
commit | 7f438c3b9e8913a7836b4851ef7c40a7b97a986d (patch) | |
tree | d2fdfbca7af359deeb260acd4b6955b19c55b85c /source3/script | |
parent | 4093bf7ff8c8861cf7b941945ede53a8ec5bb6c8 (diff) | |
download | samba-7f438c3b9e8913a7836b4851ef7c40a7b97a986d.tar.gz samba-7f438c3b9e8913a7836b4851ef7c40a7b97a986d.tar.bz2 samba-7f438c3b9e8913a7836b4851ef7c40a7b97a986d.zip |
removing unused files
(This used to be commit 1a9145015d4b2ee7e7399099760cda13d619e740)
Diffstat (limited to 'source3/script')
-rwxr-xr-x | source3/script/cvslog.pl | 102 |
1 files changed, 0 insertions, 102 deletions
diff --git a/source3/script/cvslog.pl b/source3/script/cvslog.pl deleted file mode 100755 index f3d020aa72..0000000000 --- a/source3/script/cvslog.pl +++ /dev/null @@ -1,102 +0,0 @@ -#!/usr/bin/perl -w - -my ( $tag, $filename, $date ); -my ( $tmp, $change_flag ); - -if ( $#ARGV != 2 ) { - - print "Usage: ", $0, " cvstag date file\n"; - exit 1; -} - -$tag = $ARGV[0]; -$date = $ARGV[1]; -$filename = $ARGV[2]; - -print STDERR "$filename\n"; - -open ( CVSLOG, "cvs log -d\"$date\" $filename |" ) || die $!; - -## -## First get the branch revision number -## -undef $revision; -while ( !defined($revision) ) { - if ( eof( \*CVSLOG ) ) { - print STDERR "Premature end of cvs log output!\n"; - exit (1); - } - - $string = <CVSLOG>; - chomp( $string ); - - if ( $string =~ /$tag:/ ) { - ( $tmp, $revision ) = split( /:/, $string ); - $revision =~ s/\s+//g; - $revision =~ s/\.0\./\./g; - } -} - -## -## Setup the beginning of the first record -## -$string = ""; -while ( $string !~ /^-+/ ) { - $string = <CVSLOG>; - exit(0) if ( eof(\*CVSLOG) ); -} - -## -## Loop starting at the revision number for the entry -## - -while ( $string = <CVSLOG> ) { - - ($tmp, $entry_rev) = split( /\s+/, $string ); - if ( equal_revision( $revision, $entry_rev ) ) { - if ( ! defined($change_flag) ) { - print "++++++++++++++++++++++++++++++++++++++++++++++++++\n"; - print "## $filename\n"; - print "++\n"; - $change_flag = 1; - } - - while ( $string !~ /^-+/ && !eof(CVSLOG) ) { - print "$string"; - $string = <CVSLOG>; - } - } - else { - while ( ($string !~ /^-+/) && !eof(CVSLOG) ) { - $string = <CVSLOG>; - } - } -} - -close( CVSLOG ); -exit 0; - -############################################################## -## -sub equal_revision { - my ( $branch, $newfile ) = @_; - my ( $indx ); - my ( @branch_rev, @file_rev ); - - @branch_rev = split( /\./, $branch ); - @file_rev = split( /\./, $newfile ); - - return 0 if ( $#branch_rev != ($#file_rev - 1) ); - - $indx = 0; - while( $indx <= $#branch_rev ) { - if ( $branch_rev[$indx] != $file_rev[$indx] ) { - return 0; - } - $indx++; - } - - return 1; -} - - |