*** /dev/null Tue May 7 23:11:00 2024
--- - Tue May 7 23:12:34 2024
***************
*** 0 ****
--- 1,150 ----
+ #!/bin/sh -- # -*- perl -*- -p
+ eval 'exec perl -wS $0 ${1+"$@"}'
+ if $running_under_some_shell;
+ ##
+ ## OSSP cvsfusion - CVS Repository Fusion
+ ## Copyright (c) 2004 Ralf S. Engelschall <rse@engelschall.com>
+ ## Copyright (c) 2004 The OSSP Project <http://www.ossp.org/>
+ ## Copyright (c) 2004 Cable & Wireless <http://www.cw.com/>
+ ##
+ ## This file is part of OSSP cvsfusion, a CVS repository fusion
+ ## utility which can be found at http://www.ossp.org/pkg/tool/cvsfusion/.
+ ##
+ ## Permission to use, copy, modify, and distribute this software for
+ ## any purpose with or without fee is hereby granted, provided that
+ ## the above copyright notice and this permission notice appear in all
+ ## copies.
+ ##
+ ## THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
+ ## WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+ ## MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+ ## IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
+ ## CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+ ## SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+ ## LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
+ ## USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+ ## ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+ ## OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
+ ## OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ ## SUCH DAMAGE.
+ ##
+ ## cvsfusion.pl: main program
+ ##
+
+ require 5;
+ use strict;
+ use warnings;
+ use lib ".";
+ use Getopt::Long;
+ use IO::File;
+ use RCS;
+
+ # program information
+ my $prog = {
+ 'name' => "cvsfusion",
+ 'vers' => "0.0.1",
+ 'date' => "20-Apr-2004"
+ };
+
+ # program parameters (defaults)
+ my $opt = {
+ 'version' => 0,
+ 'verbose' => 0,
+ 'help' => 0,
+ 'tmpdir' => ($ENV{TMPDIR} || "/tmp") . "/" . $prog->{'name'},
+ 'cvsroot-source' => '',
+ 'cvsroot-target' => '',
+ 'cvs-branch' => '',
+ 'cvs-module' => [],
+ 'prog-rcs' => "rcs",
+ 'prog-diff' => "diff"
+ };
+
+ # exception handling support
+ $SIG{__DIE__} = sub {
+ my ($err) = @_;
+ $err =~ s|\s+at\s+.*||s if (not $opt->{'verbose'});
+ print STDERR $prog->{'name'} . ":ERROR: $err ". ($! ? "($!)" : "") . "\n";
+ exit(1);
+ };
+
+ # command line parsing
+ Getopt::Long::Configure("bundling");
+ my $result = GetOptions(
+ 'V|version' => \$opt->{'version'},
+ 'v|verbose' => \$opt->{'verbose'},
+ 'h|help' => \$opt->{'help'},
+ 't|tmpdir=s' => \$opt->{'tmpdir'},
+ 'f|cvsroot-source=s' => \$opt->{'cvsroot-source'},
+ 'l|cvsroot-target=s' => \$opt->{'cvsroot-target'},
+ 'b|cvs-branch=s' => \$opt->{'cvs-branch'},
+ 'm|cvs-module=s@' => $opt->{'cvs-module'},
+ 'R|prog-rcs=s' => \$opt->{'prog-rcs'},
+ 'D|prog-diff=s' => \$opt->{'prog-diff'},
+ ) || die "option parsing failed";
+ if ($opt->{-help}) {
+ print "Usage: ".$prog->{'name'}." [options]\n" .
+ "Available options:\n" .
+ " -V,--version print program version\n" .
+ " -v,--verbose enable verbose run-time mode\n" .
+ " -h,--help print out this usage page\n" .
+ " -t,--tmpdir=DIR filesystem path to temporary directory\n" .
+ " -f,--cvsroot-source=DIR filesystem path to source CVS repository\n" .
+ " -l,--cvsroot-target=DIR filesystem path to target CVS repository\n" .
+ " -b,--cvs-branch=TAG:REV selects the CVS branch tag and revision to use\n" .
+ " -m,--cvs-module=SUBDIR selects the CVS repository module(s)\n" .
+ " -R,--prog-rcs=FILE filesystem path to rcs(1) program\n" .
+ " -D,--prog-diff=FILE filesystem path to diff(1) program\n";
+ exit(0);
+ }
+ if ($opt->{-version}) {
+ print "OSSP ".$prog->{'name'}." ".$prog->{'vers'}." (".$prog->{'date'}.")\n";
+ exit(0);
+ }
+
+ # verbose message printing
+ sub msg_verbose {
+ my ($msg) = @_;
+ print STDERR "$msg\n" if ($opt->{'verbose'});
+ }
+
+ # warning message printing
+ sub msg_warning {
+ my ($msg) = @_;
+ print STDERR $prog->{'name'}.":WARNING: $msg\n";
+ }
+
+ # error message printing
+ sub msg_error {
+ my ($msg) = @_;
+ print STDERR $prog->{'name'}.":ERROR: $msg\n";
+ }
+
+ __END__
+
+ =pod
+
+ =head1 NAME
+
+ B<cvsfusion> - CVS Repository Fusion
+
+ =head1 SYNOPSIS
+
+ B<cvsfusion>
+ [B<--verbose>]
+ [B<--tmpdir=>I<dir>]
+ [B<--cvsroot-source=>I<dir>]
+ [B<--cvsroot-target=>I<dir>]
+ [B<--cvs-branch=>I<tag>B<:>I<rev>]
+ [B<--cvs-module=>I<subdir>]
+ [B<--prog-rcs=>I<file>]
+ [B<--prog-diff=>I<file>]
+
+ B<cvsfusion>
+ [--version]
+ [--help]
+
+ =head1 DESCRIPTION
+
+ =cut
+
|
