Software: Apache/2.2.3 (CentOS). PHP/5.1.6 

uname -a: Linux mx-ll-110-164-51-230.static.3bb.co.th 2.6.18-194.el5PAE #1 SMP Fri Apr 2 15:37:44
EDT 2010 i686 

uid=48(apache) gid=48(apache) groups=48(apache) 

Safe-mode: OFF (not secure)

/usr/sbin/   drwxr-xr-x
Free 52.23 GB of 127.8 GB (40.87%)
                            Encoder    Tools    Proc.    FTP brute    Sec.    SQL    PHP-code    Update    Feedback    Self remove    Logout    

Viewing file:     foomatic-replaceoldprinterids (2.54 KB)      -rwxr-xr-x

#!/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" 
bool(false)