view release on metacpan or  search on metacpan

lib/Term/RouterCLI/Base.pm  view on Meta::CPAN

    # Create an object to the debugger class
    $self->{'_oConfig'} = new Term::RouterCLI::Config();
}


sub _ExpandTildes
{
    my $self = shift;
    my $parameter = shift;
    
    $parameter =~ s/^~([^\/]*)/$1?(getpwnam($1))[7]:$ENV{HOME}||$ENV{LOGDIR}||(getpwuid($>))[7]/e;
    return $parameter;
}


return 1;

lib/Term/RouterCLI/Log.pm  view on Meta::CPAN

sub ExpandTildesInFilename
{
    # This method will expand any tildes that are in the file name so that it will work right
    my $self = shift;
    my $logger = $oDebugger->GetLogger($self);
    
    $logger->debug("$self->{'_sName'} - ", '### Entering Method ###');
    if (defined $self->{'_sFilename'}) 
    {
        $self->{'_sFilename'} =~ s/^~([^\/]*)/$1?(getpwnam($1))[7]:$ENV{HOME}||$ENV{LOGDIR}||(getpwuid($>))[7]/e;
    }    
    $logger->debug("$self->{'_sName'} - ", '### Leaving Method ###');
}

sub SetFilename
{
    # This method will set the filename for this logging method
    # Required:
    #   string (filename)
    my $self = shift;