view release on metacpan or  search on metacpan

contrib/mhastart.pl  view on Meta::CPAN

        popretrieve() if $pop3 and $checkpop;
        require File::Spec->catfile($mhonarc, $command)
            or die "Couldn't invoke $command\n$!";
    } else {
        print "That wasn't a MHonArc command, was it?";
    }
}

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

sub updatembox {
    my $msgref = shift;
    open FILE, ">> $mbox" or die "Couldn't open $mbox\n$!";
    flock FILE, 2;
    print FILE ($pop3 ? join '', @$msgref : $$msgref), "\n\n";
    close FILE;
}

sub updatearchive {
    @ARGV = (@_, '-outdir', $archive);
    push @ARGV, $mbox unless $in{routine} eq 'remove';
    require 'mhamain.pl' or die "Couldn't require mhamain.pl\n$!";
    mhonarc::initialize();       # skipped the 'mhonarc' program file in
    mhonarc::process_input();    # order to avoid the ending exit call
}

sub popretrieve {
    require Net::POP3;
    my $pop = Net::POP3->new($pophost);

lib/mhopt.pl  view on Meta::CPAN

##	Usage routine
##
sub usage {
    require 'mhusage.pl';
    &mhusage();
}

##---------------------------------------------------------------------------
##	Routine to update 1.x data structures to 2.0.
##
sub update_data_1_to_2 {
    local (%EntName2Char) = ('lt', '<', 'gt', '>', 'amp', '&',);
    #--------------------------------------
    sub entname_to_char {
        my ($name) = shift;
        my ($ret)  = $EntName2Char{$name};
        if (!$ret) {
            $ret = "&$name;";
        }
        $ret;
    }