Followup to bug 257117 - Prettify the standard "longnames" for Windows installer and Mac DMG files, using symlinks. r=timeless

This commit is contained in:
bsmedberg%covad.net 2004-10-14 19:19:26 +00:00
Родитель 48812b8121
Коммит 527b12b3c8
1 изменённых файлов: 10 добавлений и 1 удалений

Просмотреть файл

@ -229,10 +229,19 @@ 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) {
TinderUtils::run_shell_command "ssh $ssh_opts -l $Settings::ssh_user $ssh_server cp -pf $upload_path/$short_ud/* $upload_path/latest-$Settings::milestone/";
TinderUtils::run_shell_command "ssh $ssh_opts -l $Settings::ssh_user $ssh_server cp -dpf $upload_path/$short_ud/* $upload_path/latest-$Settings::milestone/";
}
return 1;
}