find the profile dir for seamonkey on osx.

This commit is contained in:
cltbld 2004-11-15 22:40:09 +00:00
Родитель e32070d088
Коммит 6faa0371eb
1 изменённых файлов: 4 добавлений и 2 удалений

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

@ -24,7 +24,7 @@ use Config; # for $Config{sig_name} and $Config{sig_num}
use File::Find ();
use File::Copy;
$::UtilsVersion = '$Revision: 1.280 $ ';
$::UtilsVersion = '$Revision: 1.281 $ ';
package TinderUtils;
@ -1122,9 +1122,11 @@ sub get_profile_dir {
if ($Settings::ProductName eq 'Thunderbird') {
$profile_dir = "$ENV{HOME}/Library/$Settings::ProductName/Profiles";
($profile_dir) = <$profile_dir/*.$Settings::MozProfileName>;
} else {
} elsif ($Settings::ProductName eq 'Firefox') {
$profile_dir = "$ENV{HOME}/Library/Application Support/$Settings::ProductName/Profiles";
($profile_dir) = <"$profile_dir/*.$Settings::MozProfileName">;
} else { # Mozilla's Profiles/profilename/salt
$profile_dir = "$ENV{HOME}/Library/$Settings::ProductName/Profiles/$Settings::MozProfileName/";
}
} else {
# *nix