Mal ein bissl was Gehacktes...

[Erwin]

n' ahmd,

Serverumzug, andere Umgebung, shebang Zeile ändern, 100 CGI - Scripts?

Kein Thema, so gehts:

=shebang.pl
#!/usr/bin/perl

shebang Zeile anpassen

use strict;
use DB_File;

opendir DIR, '/home/netlab/htdocs/cgi-bin' or die $!;
my @files = grep { /.cgi$/ } readdir DIR;
closedir DIR;

foreach my $file( @files ){
 #print "$file\n";
 tie my @h, "DB_File", $file, O_RDWR|O_CREAT, 0640, $DB_RECNO
  or die "Cannot open file 'text': $!\n" ;
 $h[0] = '#!perl'; # the new shebang
 untie @h;
}
=Verwendung auf eigene Gefahr ;-)

Gruss, Erwin