view release on metacpan or  search on metacpan

examples/upload.pl  view on Meta::CPAN

			 'f' => 'NVH',
			 'g' => 'Design Parameters',
			 'k' => 'Kinematic',
			 'r' => 'Fracture Mechanics',
			 's' => 'Stress',
			 't' => 'Thermal',
			 'v' => 'VSA',
			 'p' => 'Performance' );

my $hostname = Sys::Hostname::hostname();
my @userinfo = getpwuid($<);

my $cp_prg = find_executable("cp");

my $metaphase_login;
my $metaphase_password;
my $metaphase_home_db;
my $metaphase_current_db;
my $metaphase_current_project;
my $metaphase_staging_path;
my $metaphase_staging_name;

examples/upload.pl  view on Meta::CPAN

	while ($size =~ s/^(-?\d+)(\d{3})/$1,$2/) { }
    }

    $size;
}

sub canonical_file_owner {
    my($uid, $gid) = @_;

    if (!exists $uid_to_name{$uid}) {
	my @info = getpwuid($uid);
	$uid_to_name{$uid} = $info[0];
    }
    $uid = $uid_to_name{$uid};

    if (!exists $gid_to_name{$gid}) {
	my @info = getgrgid($gid);
	$gid_to_name{$gid} = $info[0];
    }
    $gid = $gid_to_name{$gid};