Register - simple implementation of the Win32 registry in Unix

	use Register;

	* Register::System

	Vecchio Fabrizio <jacote@tiscalinet.in>

package Register;
require Exporter;

@ISA = qw (Exporter);
use vars qw($VERSION);

$Register::VERSION="0.0.2";

sub checkDef
{
   my ($type, $name, $value, $def)      = @_;

   if (!defined $value)
   {
      return ($def);
   }
   else
   {
      return ($value);
   }
}

sub checkReq
{
   my ($type, $name, $value)    = @_;

   if (! defined $value)
   {
      printf "ERROR:\n";
      printf "LOCATION: \<$type\>\n";
      printf "CAUSE: parameter \<$name\> required !!!\n";
      exit (1);
   } else {
      return ($value);
   }
}

use Register::System;
use Register::Generic;
1;
__END__