#!/usr/bin/perl

my $file = shift(@ARGV);
my $pbasepath = shift(@ARGV);
# my $pscriptpath = shift(@ARGV);
my $phptype = shift(@ARGV); # php or php3
my $parms = shift(@ARGV); 
my $remoteip = shift(@ARGV); # just for fun
my $newsavingdirname = shift(@ARGV); # just for fun

require "$pbasepath/" . "reamweaver.conf";   # configuration file
require "$pbasepath/" . "reamweaverlib.pl";      # script lib

dealwithfile($file, 1, $pbasepath, 0, "$parms", 0, $phptype, $remoteip, $newsavingdirname);