summaryrefslogtreecommitdiff
path: root/source3/script
diff options
context:
space:
mode:
authorGerald Carter <jerry@samba.org>2003-09-09 04:14:19 +0000
committerGerald Carter <jerry@samba.org>2003-09-09 04:14:19 +0000
commit7f438c3b9e8913a7836b4851ef7c40a7b97a986d (patch)
treed2fdfbca7af359deeb260acd4b6955b19c55b85c /source3/script
parent4093bf7ff8c8861cf7b941945ede53a8ec5bb6c8 (diff)
downloadsamba-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-xsource3/script/cvslog.pl102
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;
-}
-
-