Return to template.pl CVS log

Up to [Local Repository] / templates

Annotation of templates/template.pl, revision 1.1.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