One Hat Cyber Team

Your IP : 216.73.216.135

Server IP : 194.44.31.54

Server : Linux zen.imath.kiev.ua 4.18.0-553.77.1.el8_10.x86_64 #1 SMP Fri Oct 3 14:30:23 UTC 2025 x86_64

Server Software : Apache/2.4.37 (Rocky Linux) OpenSSL/1.1.1k

PHP Version : 5.6.40

View File Name : pbmtox10bm

#! /usr/bin/perl

#============================================================================
#  This is a compatibility interface to Pbmtoxbm.
#
#  It exists so existing programs and procedures that rely on Pbmtox10bm
#  syntax continue to work.  You should not make new use of Pbmtox10bm and
#  if you modify an old use, you should upgrade it to use Pbmtoxbm.
#
#  Pbmtoxbm with the -x10 option is backward compatible with Pbmtox10bm.
#============================================================================

use strict;
use File::Basename;
use Cwd 'abs_path';

my $infile;

foreach (@ARGV) {
    if (/^-/) {
        # It's an option.  But Pbmtox10bm didn't have any options.
        print(STDERR "Invalid option '$_'\n");
        exit(10);
    } else {
        # It's a parameter
        if (defined($infile)) {
            print(STDERR
                  "You may specify at most one non-option parameter.\n");
            exit(10);
        } else {
            $infile = $_;
        }
    }
}

my $infileParm = defined($infile) ? $infile : "-";

# We want to get Pbmtoxbm from the same directory we came from if
# it's there.  Frequently, the directory containing Netpbm programs is
# not in the PATH and we were invoked by absolute path.

my $my_directory = abs_path(dirname($0));
$ENV{"PATH"} = $my_directory . ":" . $ENV{"PATH"};

exec('pbmtoxbm', '-x10', $infileParm);