Viewing file:  foomatic-replaceoldprinterids (2.54 KB) -rwxr-xr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# This is foomatic-nonumericalids, it renames all printer entries with a
# numerical ID and generates a translation table.
use Foomatic::Defaults;
use Foomatic::DB;
# Read out the program name with which we were called, but discard the path
$0 =~ m!/([^/]+)\s*$!;
$progname = $1;
use Getopt::Std;
getopts("r:l:t:h");
if ($opt_h) {
print "
foomatic-replaceoldprinterids [ -l ] [ -r ] \
[ -t ] file1 [ file2 ... ]
-l : Regular expresasion (Perl) which has to be matched
at the left side of the old printer ID (default:
\"recnum=\")
-r : Regular expresasion (Perl) which has to be matched
at the right side of the old printer ID (default:
\"(?!\\d)\", this pattern means that on the right
side should be no further digit, see \"man perlre\")
-t : Translation table, every line an old ID, white space,
a new ID (default $libdir/db/oldprinterids)
file1, file2, ... File(s) to be processed
";
exit 0;
}
my $leftpattern = 'recnum=';
my $rightpattern = '(?!\d)';
$leftpattern = $opt_l if defined($opt_l);
$rightpattern = $opt_r if defined($opt_r);
my %idhash;
my $idtable = "$libdir/db/oldprinterids";
$idtable = $opt_t if $opt_t;
open IDTABLE, "< $idtable" ||
die "File $idtable cannot be read!\n";
while () {
if (/^\s*(\S+)\s+(\S+)\s*$/) {
$idhash{$1} = $2;
}
}
close IDTABLE;
my $changes = 0;
my $chfiles = 0;
my @chfilelist;
while (my $file = shift @ARGV) {
print "Processing $file";
open FILE, "< $file" ||
die "File $file cannot be read!\n";
my @lines = ;
close FILE;
my $ch = 0;
for my $id (keys %idhash) {
foreach (@lines) {
if (s!($leftpattern)$id($rightpattern)!$1$idhash{$id}$2!g) {
$ch = 1;
$changes ++;
print ".";
}
}
}
print "\n";
next if !$ch;
open FILE, "> $file" ||
die "File $file cannot be written!\n";
print FILE join('', @lines);
close FILE;
print " Wrote $file.\n";
$chfiles ++;
push(@chfilelist, "$file\n");
}
# List of files changed
$file = "modifiedfiles";
open FILE, "> $file" ||
die "File $file cannot be written!\n";
print FILE join('', @oldidlist, @chfilelist);
close FILE;
print " Wrote $file.\n";
print "$changes changes on $chfiles files applied.\n";
exit 0;
# member( $a, @b ) returns 1 if $a is in @b, 0 otherwise.
sub member { my $e = shift; foreach (@_) { $e eq $_ and return 1 } 0 };
|