ServDoc_raw

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

Code Index:

• package main
  • debug
• EOF

NAME

ServDoc_raw - put output of ServDoc modules to STDOUT without any formatting

VERSION

$Id: ServDoc_raw,v 1.1 2003/01/06 19:25:45 uherbst Exp $

SYNOPSIS

ServDoc_raw [-h|help] [-v|version] [--debug RAW,intensity]

DESCRIPTION

ServDoc_raw reads the collected output from different ServDoc modules from STDIN and put it without any formatting directly to STDOUT.

You will use this mainly for debugging purposes.

OPTIONS

-h|help

This help.

-v|version

Version

--debug RAW,intensity

Turn on Debugging for that module.

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

AUTHORS

Ulrich Herbst <Ulrich.Herbst@gmx.de>

#!/usr/bin/perl

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

# 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
use Sys::Hostname;

# our own perl modules
use ServDoc;

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

my $options;
$options->{Version} =
  '$Id: ServDoc_raw,v 1.1 2003/01/06 19:25:45 uherbst Exp $';

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

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

$options = &process_cmdline($options);
debug( 9, "ServDoc_raw is running" );

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

# Main

# Inputs are on STDIN
while (<>) {
  print;
}