view release on metacpan or  search on metacpan

mmdscvt.pl  view on Meta::CPAN

	($::STANDARD=1, $::ENUM1, $::ENUM2, $::HEADER1, $::HEADER2,
	 $::HEADER3, $::CAPTION1, $::CAPTION2);
    &::enum
	($::LEADER_NONE=0, $::LEADER_DEFAULT, $::LEADER_ALPH, $::LEADER_NUM,
	 $::LEADER_BULLET, $::LEADER_DASH, $::LEADER_EMPTY);
    &::enum
	($::TBCTL_INIT=0, $::TBCTL_ROW, $::TBCTL_COL, $::TBCTL_END,
	 $::TBCTL_HEAD);

    # Provide defaults
    local (@pw) = getpwuid ($<);
    ($::headers[$::HDR_MHID] = $ENV{"MMDS_ID"}
     || $cfg->gps("general.id", $pw[0])) =~ tr/[a-z]/[A-Z]/;
    $::headers[$::HDR_AUTHOR] = $::headers[$::HDR_FROM] =
     $ENV{"MMDS_FULLNAME"} || $ENV{"FULLNAME"}
     || $cfg->gps("general.author", $pw[6]);
    $::headers[$::HDR_CITY] = $cfg->gps("general.city", "Doolin");
    $::headers[$::HDR_VERSION] = "X0.0";
    $::headers[$::HDR_COMPANY] = $cfg->gps("general.company",
				       "Free Software Foundation");
    $::headers[$::HDR_DEPT] = $ENV{"MMDS_DEPT"} || $ENV{"MMDS_DEPARTMENT"}

mmdscvt.pl  view on Meta::CPAN

    $_;
}

sub pathexpand {
    my ($path, $mustexist) = @_;
    local($[) = 0;

    if ( $path =~ m|^~/| ) {
	setpwent;
	if ( defined ($home = $ENV{'HOME'} || $ENV{'LOGDIR'}
		      || (getpwuid($>))[7]) ) {
	    $path = $home . '/' . $';
	}
    }
    elsif ( $path =~ m|^~([^/]+)/| ) {
	setpwent;
	if ( defined ($home = (getpwnam($1))[7]) ) {
	    $path = $home . '/' . $';
	}
    }