97509efaaf
Will require additional work for 3.5 (shouldn't blindly remove perm_lock without asking the user; update comments; add standard headers) but I don't want to lose this code.
46 lines
950 B
Perl
Executable File
46 lines
950 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
# $Id$
|
|
# Wrapper for 3.4.3 recover to be called from Applescript to reset the Qt
|
|
# package after it locks up due to a bug in suspend handling.
|
|
|
|
# find the right place
|
|
($playground = $0) =~ s!/recover.pl$!!;
|
|
if(! -d $playground){
|
|
print "Cannot find playground $playground.";
|
|
exit 0
|
|
}
|
|
if(! -f "$playground/castle.lev"){
|
|
print "Failed to find playground $playground.";
|
|
exit 0
|
|
}
|
|
print "Playground is $playground.\n";
|
|
chdir $playground or do {
|
|
print "Can't get to playground.\n";
|
|
exit 0
|
|
};
|
|
if(-e 'perm_lock'){
|
|
print "Attempting to remove perm_lock.\n";
|
|
$try_perm = 1;
|
|
unlink 'perm_lock';
|
|
} else {
|
|
print "Did not find perm_lock (this is OK).\n";
|
|
}
|
|
if(-e 'perm_lock'){
|
|
print "Failed to remove perm_lock: $!\n";
|
|
exit 0
|
|
}
|
|
if($try_perm){
|
|
print "Removed perm_lock.\n";
|
|
}
|
|
|
|
# run recover, but only if there is something that looks promising
|
|
$uid = $<;
|
|
foreach ( <$uid*.0> ){
|
|
system ("./recover -d . $_);
|
|
}
|
|
|
|
print "Done.\n";
|
|
|
|
exit 0
|