os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

This script is no longer needed now that we have INSTALLS_OMF.

Browse source
This commit is contained in:
Joe Marcus Clarke 2004-11-25 04:24:17 +00:00
parent 1a85cc5975
commit 72fc8352c6
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=23021
1 changed files with 0 additions and 58 deletions
Download patch file Download diff file Expand all files Collapse all files

58
en/gnome/omf.pl
View file

@ -1,58 +0,0 @@
#!/usr/bin/perl
#
# omf.pl - a script to add proper OMF handling to port PLISTs
# usage: omf.pl [plist] [plist] [...]
#
# $Id: omf.pl,v 1.1 2004-06-27 21:41:07 marcus Exp $
#
use strict;
if (scalar(@ARGV) == 0) {
# If no arguments were given, assume we're using the pkg-plist in the
# current directory.
push @ARGV, "./pkg-plist";
}
foreach (@ARGV) {
unless (open(INFILE, $_)) {
warn "Unable to open $_: $!\n";
next;
}
my @file = <INFILE>;
close(INFILE);
my @omfs;
for (my $i = 0 ; $i < scalar(@file) ; $i++) {
next unless $file[$i] =~ /\.omf\n$/;
my $omf = $file[$i];
chomp $omf;
my $install =
"\@exec scrollkeeper-install -q \%D/$omf 2>/dev/null || /usr/bin/true\n";
if ($file[$i + 1] eq $install) {
next;
}
splice @file, $i + 1, 0, $install;
push (@omfs, $omf);
$i++;
}
foreach my $omf (@omfs) {
my $uninstall =
"\@unexec scrollkeeper-uninstall -q \%D/$omf 2>/dev/null || /usr/bin/true\n";
push @file, $uninstall;
}
unless (open(OUTFILE, ">" . $_)) {
warn "Failed to open $_: $!\n";
next;
}
print OUTFILE @file;
close(OUTFILE);
}