/home/uherbst/Daten/Projekte/ServDoc/servdoc/modules/ServDoc_0010hardware--MSWin32

package main
- debug
EOF
#!/usr/bin/perl -w

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

# standard perl modules
use strict;                       # print error about unknown variables ...
use English;                      # long internal variable names;
use Win32;
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 vars qw($options);

# our own perl modules
use ServDoc;

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

$options->{Version} = '$Id: ServDoc_0010hardware--MSWin32,v 1.2 2003/08/13 19:31:03 uherbst Exp $';

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

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

$options = &process_cmdline($options);

%{$options->{lang}->{en}}=
  (
   running         => 'ServDoc_0010hardware--MSWin32 is running.',

   cpu             => 'Hardware%%+CPU Architecture',
   cpu_short       => "Which CPU family do you have ?",
   cpu_long        => "Maybe this doesn't work for Windows 9x",

   cputyp          => 'Hardware%%+CPU Type',
   cputyp_short    => 'look at Win32::GetChipName',
   cputyp_long     => '',
);

%{$options->{lang}->{de}}=
  (
   running         => 'ServDoc_0010hardware--MSWin32 l&auml;ft jetzt.',

   cpu             => 'Hardware%%+CPU Architektur',
   cpu_short       => "Welche CPU-Familie ?",
   cpu_long        => "Dieses Feld funktioniert evtl. nicht für Win 9x",

   cputyp          => 'Hardware%%+CPU-Typ',
   cputyp_short    => 'steht in Win32::GetChipName',
   cputyp_long     => '',
);

debug( 9, i18n_mesg('running'));

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

# Main

report_i18n("string",'cpu',$ENV{PROCESSOR_ARCHITECTURE});
report_i18n("string","cputyp",Win32::GetChipName());

exit 0;