#!/usr/bin/perl
use strict;
use warnings;
use RFC::Main qw();
use Sys::Hostname;
my $remote  = &RFC::Main::get_cv('passwds','passwd_server');
my $port    = &RFC::Main::get_cv('passwds','passwd_server_port');
if ($remote eq hostname())
{
    print &RFC::Main::passwd_client_raw($remote,$port,@ARGV);
}
else
{
    print &RFC::Main::passwd_client(@ARGV);
}
