/usr/local/CPAN/pfacter/Pfacter/fqdn.pm

• package Pfacter::fqdn
  • pfact
• EOF

package Pfacter::fqdn;

#

sub pfact {
    my $self  = shift;
    my ( $p ) = shift->{'pfact'};

    if ( $p->{'hostname'} && $p->{'domain'} ) {
        return( $p->{'hostname'} . '.' . $p->{'domain'} );
    }
    else {
        return( 0 );
    }
}

1;