Return to template.pl CVS log

Up to [Local Repository] / templates

Annotation of templates/template.pl, revision 1.1

1.1     ! nick        1: #!/bin/sh
        !             2: #! -*- perl -*-
        !             3: eval 'exec $PERLLOCATION/usr/bin/perl -wTx $0 ${1+"$@"} ;'
        !             4:  if 0;
        !             5: 
        !             6: =begin comment info
        !             7: +------------------------------------------------------------------------------
        !             8: |
        !             9: | See end of script for comments and 'pod2man $NAME | nroff -man' to
        !            10: | view man page or pod2text $NAME for plain text.
        !            11: |
        !            12: |   Nicholas DeClario <nick@demandred.dyndns.org>
        !            13: |   March 2009
        !            14: |      $Id$
        !            15: |
        !            16: +------------------------------------------------------------------------------
        !            17: =end comment
        !            18: =cut
        !            19: BEGIN {
        !            20:         delete @ENV{ qw(IFS CDPATH ENV BASH_ENV PATH) };
        !            21:         $ENV{'PATH'} = "/bin:/usr/bin";
        !            22: # Flip this back on for more detailed error reporting
        !            23: #        $SIG{__DIE__} = sub { require Carp; Carp::confess(@_); }
        !            24:       }
        !            25: 
        !            26: use strict;
        !            27: use Getopt::Long;
        !            28: use Pod::Usage;
        !            29: use Data::Dumper;
        !            30: 
        !            31: my %opts = &fetchOptions( );
        !            32: 
        !            33: ###############################################################################
        !            34: ##
        !            35: ## &fetchOptions( );
        !            36: ##
        !            37: ##      Grab our command line arguments and toss them in to a hash
        !            38: ##
        !            39: ###############################################################################
        !            40: sub fetchOptions {
        !            41:         my %opts;
        !            42: 
        !            43:         &GetOptions(
        !            44:                         "help|?"        => \$opts{'help'},
        !            45:                         "man"           => \$opts{'man'},
        !            46:                    ) || &pod2usage( );
        !            47:         &pod2usage( ) if defined $opts{'help'};
        !            48:         &pod2usage( { -verbose => 2, -input => \*DATA } ) if defined $opts{'man'};
        !            49: 
        !            50:         return %opts;
        !            51: }
        !            52: 
        !            53: __END__
        !            54: 
        !            55: =head1 NAME
        !            56: 
        !            57: masterbuild.pl - blurb
        !            58: 
        !            59: =head1 SYNOPSIS
        !            60: 
        !            61: masterbuild.pl [options]
        !            62: 
        !            63:  Options:
        !            64:         --help,?        Display the basic help menu
        !            65:         --man,m         Display the detailed man page
        !            66: 
        !            67: =head1 DESCRIPTION
        !            68: 
        !            69: =head1 HISTORY
        !            70: 
        !            71: =head1 AUTHOR
        !            72: 
        !            73: Nicholas DeClario <nick@declario.com>
        !            74: 
        !            75: =head1 BUGS
        !            76: 
        !            77: This is a work in progress.  Please report all bugs to the author.
        !            78: 
        !            79: =head1 SEE ALSO
        !            80: 
        !            81: =head1 COPYRIGHT
        !            82: 
        !            83: =cut