#!/usr/bin/perl -w #setting CONST :-) my $DEBUG=1; my $PARSEHEAD=1; my $JSSOURCE="http://mysite/workaround.js“; # Working vars my $HeaderInserted=0; sub embed($$) { my $_obj=shift; my $_jsIncludeAlreadyInserted=shift; print “REPLACING: $_objn” if $DEBUG; $_obj=~s/f//g; $_obj=~s/r//g; $_obj=~s/n/n/g; if($_jsIncludeAlreadyInserted || $HeaderInserted==1){ return “”; }else{ $HeaderInserted=1; return “ ”; } } sub headAdapt($) { my $_head=shift; if($_head!~/functions.js/){ $_head=~s/(.*?)/$1/smgei; $_head=””.$_head.”nn”; } return $_head; } # Get file list while(){ my $fname=$_; print “BUSY with: $fnamen” if $DEBUG; # open file open(FHIN,”< $fname”) || die “Unable to open $_”; my $filecontent=”"; my $deep=”"; my $object=”"; while(){ $filecontent.=$_; } close(FHIN); # parse head and search for js my $insertedInHeader=1; if($PARSEHEAD) { $insertedInHeader=0; if($filecontent=~s/(.*?)/headAdapt($1)/smgei){ $insertedInHeader=1; } } # replace $filecontent=~s/(.*?)/embed($1,$insertedInHeader)/smgei; # save open(FHOUT,”> $fname”) || die “Unable to open (write) $_”; print FHOUT $filecontent; close(FHOUT); }