зеркало из https://github.com/mozilla/pjs.git
35 строки
1.2 KiB
Perl
35 строки
1.2 KiB
Perl
#!/perl
|
|
|
|
# add-chrome <jar-file-name> <pkg-name> <chrome-type> <installed-chrome.txt-file>
|
|
|
|
my $jarFileName = $ARGV[0];
|
|
my $pkgName = $ARGV[1];
|
|
my $chromeType = $ARGV[2];
|
|
my $installedChromeFile = $ARGV[3];
|
|
|
|
#print "add-chrome $jarFileName $pkgName $chromeType $installedChromeFile\n";
|
|
|
|
my $line = "$chromeType,install,url,jar:resource:/chrome/$jarFileName!/";
|
|
#coming...
|
|
#my $line = "$chromeType,install,url,jar:resource:/chrome/$jarFileName!/$chromeType/$pkgName/";
|
|
|
|
if (open(FILE, "<$installedChromeFile")) {
|
|
while (<FILE>) {
|
|
chomp;
|
|
if ($_ =~ $line) {
|
|
# line already appears in installed-chrome.txt file
|
|
# just update the mod date
|
|
my $now = time;
|
|
utime($now, $now, $installedChromeFile) || die "couldn't touch $installedChromeFile";
|
|
print "+++ updating chrome $installedChromeFile\n+++\t$line\n";
|
|
exit;
|
|
}
|
|
}
|
|
close(FILE) || die "error: can't close $installedChromeFile: $!";
|
|
}
|
|
|
|
open(FILE, ">>$installedChromeFile") || die "can't open $installedChromeFile: $!";
|
|
print FILE "$line\n";
|
|
close(FILE) || die "error: can't close $installedChromeFile: $!";
|
|
print "+++ adding chrome $installedChromeFile\n+++\t$line\n";
|