ServDoc_template

• NAME
• VERSION
• SYNOPSIS
• DESCRIPTION
• OPTIONS
• AUTHORS

Code Index:

• package main
  • debug
• EOF

NAME

ServDoc_template - the skeleton of a ServDoc description module

VERSION

$Id: ServDoc_template,v 1.3 2003/01/03 17:01:41 uherbst Exp $

SYNOPSIS

ServDoc_template [-h|help] [-v|version] [--debug TMPL,intensity]

DESCRIPTION

ServDoc_template describe nothing. It is just a skeleton for a useful description module.

OPTIONS

-h|help

This help.

-v|version

Version

--debug TMPL,intensity

Turn on Debugging for that module.

The debug feature for that module is named ``TMPL''.

AUTHORS

Ulrich Herbst <Ulrich.Herbst@gmx.de>

#!/usr/bin/perl -w

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

# standard perl modules
use strict;                       # print error about unknown variables ...
use English;                      # long internal variable names;
use FindBin;                      # In which directory is ServDoc itself ?
                                  # There has to be the module and the lib dir!
use lib $FindBin::Bin. "/lib";    # Here are the ServDoc-perl-modules

# our own perl modules
use ServDoc;

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

my $options;
$options->{Version} = '$Id: ServDoc_template,v 1.3 2003/01/03 17:01:41 uherbst Exp $';

# We need the cmdline to call the modules with the same debug options.
$options->{cmdline} = join " ", @ARGV;

sub debug { ServDoc_debug( "TMPL", $options, shift, shift ); }

$options = &process_cmdline($options);

debug( 9, "ServDoc_template is running" );

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

# Main

# Here is your useful code.

# If we are not on HP/UX,Solaris, AIX, Linux, return silently.
if ( $OSNAME !~ /hpux|linux|solaris|aix/ ) {
  debug( 1, "ServDoc_template: $OSNAME is not supported" );
  exit 0;
}

exit 0;