Subversion Repositories DevTools

#! perl

########################################################################

# Copyright (c) VIX TECHNOLOGY (AUST) LTD

#

# Module name   : jats.sh

# Module type   : Makefile system

# Compiler(s)   : n/a

# Environment(s): jats

#

# Description   : Create a file - using the jats touch

#

#......................................................................#

require 5.006_001;

use strict;

use warnings;

#use Data::Dumper;

use Getopt::Long;

use Pod::Usage;                         # required for help support

use FileUtils;

my $opt_verbose = 0;                    # Verbosity

my $opt_help = 0;

my $opt_manual;

#

#   Globals

#

my $VERSION = "1.0";

#-------------------------------------------------------------------------------

# Function        : Main Entry

#

# Description     : This small program will process hijacked files in a

#                   static view. It will create a branch for the file and then

#                   check the file in on the branch

#

#

# Inputs          : None

#

# Returns         : Even less.

#

my $result = GetOptions (

                "help+"     => \$opt_help,          # flag, multiple use allowed

                "manual"    => \$opt_manual,        # flag

                "verbose+"  => \$opt_verbose,       # flag

                );

#

#   Process help and manual options

#

pod2usage(-verbose => 0, -message => "Version: $VERSION")  if ($opt_help == 1  || ! $result);

pod2usage(-verbose => 1)  if ($opt_help == 2 );

pod2usage(-verbose => 2)  if ($opt_manual || ($opt_help > 2));

error ("No files to process")

    unless ( $#ARGV >= 0  );

#

#   Process files one by one

#

foreach  ( @ARGV )

{

    process_file( $_ );

}

exit;

#-------------------------------------------------------------------------------

# Function        : process_file

#

# Description     : Process one file

#

# Inputs          : A single file

#

# Returns         :

#

sub process_file

{

    my ($file) = @_;

    my $info = "aa" x 10;

    FileAppend ( $file, $info );

}

#-------------------------------------------------------------------------------

#   Documentation

#

=pod

=head1 NAME

xxxxx - Save a hijacked file on a private branch

=head1 SYNOPSIS

  xxxxxx [options] files...

 Options:

    -help               - brief help message

    -help -help         - Detailed help message

    -man                - Full documentation

    -verbose            - Verbose operation

=head1 OPTIONS

=over 8

=item B<-help>

Print a brief help message and exits.

=item B<-help -help>

Print a detailed help message with an explanation for each option.

=item B<-man>

Prints the manual page and exits.

=item B<-verbose>

Increases program output. This option may be specified mutiple times

=back

=head1 DESCRIPTION

This small program will process hijacked files in a static view. It will create

a branch for the file and then check the file in on the branch

=cut