28 lines
624 B
Perl
28 lines
624 B
Perl
|
$hhpfile = $ARGV[0];
|
||
|
|
|
||
|
|
($hhpfile) || die "Usage: RemovePathFromHHP.pl <HHP File>\n";
|
||
|
|
|
||
|
|
if ( -f "$hhpfile.bak" ) {
|
||
|
|
system ("del /f $hhpfile.bak");
|
||
|
|
}
|
||
|
|
|
||
|
|
rename ("$hhpfile", "$hhpfile.bak") ||
|
||
|
|
die "Error renaming $hhpfile to $hhpfile.bak: $!.\n";
|
||
|
|
|
||
|
|
open (INFILE, "<$hhpfile.bak") || die "Error opening file $hhpfile.bak: $!.\n";
|
||
|
|
open (OUTFILE, ">$hhpfile") || die "Error opening file $hhpfile: $!.\n";
|
||
|
|
print "\n$hhpfile...\n";
|
||
|
|
|
||
|
|
while (<INFILE>) {
|
||
|
|
s/(.*file=).*[\\|\/](.*)$/$1$2/;
|
||
|
|
print OUTFILE;
|
||
|
|
}
|
||
|
|
close INFILE, OUTFILE;
|
||
|
|
chmod 0444, "$hhpfile";
|
||
|
|
|
||
|
|
if ( -f "$hhpfile.bak" ) {
|
||
|
|
system ("del /f $hhpfile.bak");
|
||
|
|
}
|
||
|
|
|
||
|
|
exit 0;
|