blob: 2556041dae11036971a142af85152dbc13df294f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
#!/usr/bin/perl
use File::Path;
use File::Copy;
use File::Glob ":glob";
use POSIX ":sys_wait_h";
$timeout = 60;
%{ENV}->{"MOZILLA_FIVE_HOME"}="/usr/lib/seamonkey";
%{ENV}->{"LD_LIBRARY_PATH"}="/usr/lib/seamonkey";
umask 022;
if ( -f "/usr/lib/seamonkey/regxpcom" )
{
# remove all of the old files
rmtree("/usr/lib/seamonkey/chrome/overlayinfo");
unlink </usr/lib/seamonkey/chrome/*.rdf>;
unlink("/usr/lib/seamonkey/component.reg");
unlink("/usr/lib/seamonkey/components/compreg.dat");
unlink("/usr/lib/seamonkey/components/xpti.dat");
# create a new clean path
mkpath("/usr/lib/seamonkey/chrome/overlayinfo");
# rebuild the installed-chrome.txt file from the installed
# languages
if ( -f "/usr/lib/seamonkey/chrome/lang/installed-chrome.txt" ) {
rebuild_lang_files();
}
# run regxpcom
$pid = fork();
# I am the child.
if ($pid == 0) {
exec("/usr/lib/seamonkey/regxpcom > /dev/null 2> /dev/null");
}
# I am the parent.
else {
my $timepassed = 0;
do {
$kid = waitpid($pid, &WNOHANG);
sleep(1);
$timepassed++;
} until $kid == -1 || $timepassed > $timeout;
# should we kill?
if ($timepassed > $timeout) {
kill (9, $pid);
# kill -9 can leave threads hanging around
system("/usr/bin/killall -9 regxpcom");
}
}
# and run regchrome for good measure
$pid = fork();
# I am the child.
if ($pid == 0) {
exec("/usr/lib/seamonkey/regchrome > /dev/null 2> /dev/null");
}
# I am the parent.
else {
my $timepassed = 0;
do {
$kid = waitpid($pid, &WNOHANG);
sleep(1);
$timepassed++;
} until $kid == -1 || $timepassed > $timeout;
# should we kill?
if ($timepassed > $timeout) {
kill (9, $pid);
# kill -9 can leave threads hanging around
system("/usr/bin/killall -9 regchrome");
}
}
}
sub rebuild_lang_files {
unlink("/usr/lib/seamonkey/chrome/installed-chrome.txt");
open (OUTPUT, "+>", "/usr/lib/seamonkey/chrome/installed-chrome.txt")||
die("Failed to open installed-chrome.txt: $!\n");
copy("/usr/lib/seamonkey/chrome/lang/installed-chrome.txt",
\*OUTPUT);
foreach (bsd_glob("/usr/lib/seamonkey/chrome/lang/lang-*.txt")) {
copy($_, \*OUTPUT);
}
copy("/usr/lib/seamonkey/chrome/lang/default.txt",
\*OUTPUT);
}
|
GitWeb