Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
OS2	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
Changes	34.57 KB	-r--r--r--	2014-12-27 11:48
Makefile.SHs	16.44 KB	-r--r--r--	2014-12-27 11:48
diff.configure	0 B	-r--r--r--	2014-12-27 11:48
dl_os2.c	3.9 KB	-r--r--r--	2014-12-27 11:48
dlfcn.h	137 B	-r--r--r--	2014-12-27 11:48
os2.c	142.54 KB	-r--r--r--	2014-12-27 11:49
os2.sym	601 B	-r--r--r--	2014-12-27 11:48
os2_base.t	1.25 KB	-r--r--r--	2014-12-27 11:48
os2_pipe.t	7.31 KB	-r--r--r--	2014-12-27 11:48
os2add.sym	64 B	-r--r--r--	2014-12-27 11:48
os2ish.h	37.64 KB	-r--r--r--	2014-12-27 11:48
os2thread.h	523 B	-r--r--r--	2014-12-27 11:48
perl2cmd.pl	1.5 KB	-r--r--r--	2014-12-27 11:48
perlrexx.c	7.93 KB	-r--r--r--	2014-12-27 11:48
perlrexx.cmd	1.95 KB	-r--r--r--	2014-12-27 11:48

Rename

# This will put installed perl files into some other location
# Note that we cannot put hashbang to be extproc to make Configure work.

use Config;
use File::Compare;

$dir = shift;
$dir =~ s|/|\\|g ;
$nowarn = 1, $dir = shift if $dir eq '-n';

die <<EOU unless defined $dir and -d $dir;
usage:	$^X $0 [-n] directory-to-install
  -n	do not check whether the directory is not on path
EOU

@path = split /;/, $ENV{PATH};
$idir = $Config{installbin};
$indir =~ s|\\|/|g ;

my %seen;

foreach $file (<$idir/*>) {
  next if $file =~ /\.(exe|bak)/i;
  $base = $file;
  $base =~ s/\.$//;		# just in case...
  $base =~ s|.*/||;
  $base =~ s|\.pl$||;
  #$file =~ s|/|\\|g ;
  warn "Clashing output name for $file, skipping" if $seen{$base}++;
  my $new = (-f "$dir/$base.cmd" ? '' : ' (new file)');
  print "Processing $file => $dir/$base.cmd$new\n";
  my $ext = ($new ? '.cmd' : '.tcm');
  open IN, '<', $file or warn, next;
  open OUT, '>', "$dir/$base$ext" or warn, next;
  my $firstline = <IN>;
  my $flags = '';
  $flags = $2 if $firstline =~ /^#!\s*(\S+)\s+-([^#]+?)\s*(#|$)/;
  print OUT "extproc perl -S$flags\n$firstline";
  print OUT $_ while <IN>;
  close IN or warn, next;
  close OUT or warn, next;
  chmod 0444, "$dir/$base$ext";
  next if $new;
  if (compare "$dir/$base$ext", "$dir/$base.cmd") {	# different
    chmod 0666, "$dir/$base.cmd";
    unlink "$dir/$base.cmd";
    rename "$dir/$base$ext", "$dir/$base.cmd";
  } else {
    chmod 0666, "$dir/$base$ext";
    unlink "$dir/$base$ext";
    print "...unchanged...\n";
  }
}