Remove unused pretty name links for right now. (cmp)

git-svn-id: svn://10.0.0.236/trunk@165038 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
cltbld 2004-11-05 21:44:36 +00:00
parent 72b2354f38
commit 5be1cd07f9

View File

@ -480,15 +480,6 @@ sub pushit {
TinderUtils::run_shell_command "ssh $ssh_opts -l $Settings::ssh_user $ssh_server mkdir -p $upload_path";
TinderUtils::run_shell_command "scp $scp_opts -r $upload_directory $Settings::ssh_user\@$ssh_server:$upload_path";
for my $longName (<$upload_directory/*>) {
my $prettyName = $longName;
if ($prettyName =~ s/^([a-z])([a-z]+)-((?:\d+\w*\.)+\d+\w*)\.([a-z]{2,3}-[A-Z]{2})\.win32\.installer\.exe$/\u$1$2 Setup $3 $4.exe/ ||
$prettyName =~ s/^([a-z])([a-z]+)-((?:\d+\w*\.)+\d+\w*)\.([a-z]{2,3}-[A-Z]{2})\.mac\.dmg\.gz$/\u$1$2 $3 $4.dmg.gz/) {
TinderUtils::run_shell_command "ssh $ssh_opts -l $Setting::ssh_user $ssh_server ln -s $longName $upload_path/$short_ud/$prettyName";
}
}
TinderUtils::run_shell_command "ssh $ssh_opts -l $Settings::ssh_user $ssh_server chmod -R 775 $upload_path/$short_ud";
if ($cachebuild) {