i3 server-to-server Install/Setup

The installer requires Perl, please enter the first line of your perl files (the shebang line)
, if ok continue

print "Content-Type: text/html\n\n\n";
my $provider = '_i3install.pl';
my $i3dom = 'http://www.kitchenpages.com';
my $i3dir = 'mirror';
my $i3file = 'kitcadi3_setup.conf';
my $storage = "1";
getconfig($i3dom, $i3dir, $i3file, $htdocsdir, $pathseperator, $provider, $i3dom, $i3dir, $i3file, $htdocsdir, $htdocstmp );
runconfig( readconfig($i3dom, $i3dir, $i3file, $htdocsdir, $pathseperator, $provider, $htdocstmp), $pathseperator, $i3dom, $i3dir, $i3file, $htdocsdir, $perlexec, $storage, $htdocstmp );
exit 0;
sub httpcopy {
my $i3dom = $_[0];
my $i3dir = $_[1];
my $i3file = $_[2];
my $htdocsdir = $_[3];
my $pathseperator = $_[4];
my $provider = $_[5];
my $chmods = $_[6];
my $oi3dom = $_[7];
my $oi3dir = $_[8];
my $oi3file = $_[9];
my $ohtdocsdir = $_[10];
my $perlexec = $_[11];
my $storage = $_[12];
my $i3version = $_[13];
my $htdocstmp = $_[14];
my $idfile = $i3dom . "/" . $i3dir . "/" . $i3file;
$idfile =~ s/\/\//\//g;
$idfile =~ s/http:\//http\:\/\//gi;
$idfile =~ s/https:\//https\:\/\//gi;
$idfile =~ s/file:\//file\:\/\//gi;
$idfile =~ s/ftp:\//ftp\:\/\//gi;
$i3file =~ s/\//$pathseperator/g;
$htdocsdir =~ s/\//$pathseperator/g;
my $cgidir = getcwd();
$htdocsdir = $htdocsdir . $pathseperator . $i3dir;
my $s1targetfile = $htdocsdir.$pathseperator.$i3file;
$s1targetfile =~ s/$pathseperator$pathseperator/$pathseperator/g;
print "source, http: $idfile ";
print "+target, file: $s1targetfile ";
print "+working, exec: $cgidir$pathseperator$provider ";
my $targetfile = $htdocsdir.$pathseperator.$i3file;
$targetfile =~ s/$pathseperator$pathseperator/$pathseperator/g;
my $s2targetfile = $pathseperator.$i3dir.$pathseperator.$i3file;
$s2targetfile =~ s/$pathseperator$pathseperator/$pathseperator/g;
select(undef, undef, undef, 1);
my @imagefile;
 my $ua = LWP::UserAgent->new;
 $ua->agent("KitCAD.com i3 _i3install.pl for ".$ENV{"REMOTE_ADDR"}." using ");
 $ua->timeout(15);
 $ua->max_size(70000);
 $ua->max_redirect(4);
if ($storage == "1"){
 $ua->mirror( $idfile, $targetfile ); }
 my $kpget_import = $ua->request(HTTP::Request->new(GET => $idfile));
 if ($kpget_import->is_success) {
 my $kpdfilereturn = $kpget_import->content;
 push(@imagefile,split(/\r\n/, $kpdfilereturn));
 } else { print "=error: can't open http import $idfile"; exit; }
if (-d "$htdocsdir") {
 print "+status: There is a directory named $htdocsdir "; }
else { print "+mkdir: $htdocsdir "; mkdir $htdocsdir; }
print "+open, write: $s2targetfile";
open OUTFILE, ">", "$targetfile" or die "=error: can't write; $!";
foreach my $line (@imagefile) { 
$line =~ s/\<pathseperator\>/$pathseperator/g;
$line =~ s/\<htdocsdir\>/$ohtdocsdir/g;
$line =~ s/\<provider\>/$provider/g;
$line =~ s/\<i3dom\>/$oi3dom/g;
$line =~ s/\<i3dir\>/$oi3dir/g;
$line =~ s/\<i3file\>/$oi3file/g;
$line =~ s/\<perlexec\>/$perlexec/g;
$line =~ s/\<storage\>/$storage/g;
$line =~ s/\<version\>/$i3version/g;
$line =~ s/\<cgibindir\>/$cgidir/g;
$line =~ s/\<htdocstmp\>/$htdocstmp/g;
 print OUTFILE "$line";
 print "."; }
close(OUTFILE);
print " ";
if (-e "$targetfile") {
 if($chmods != '0'){ 
 if(chmod( oct($chmods), $targetfile)){ print "+chmod: " . $chmods . " "; }}
 print "=status: ok "; }
else { print "=error: no file $htdocsdir "; exit; } }
sub getconfig { httpcopy($_[0], $_[1], $_[2], $_[3], $_[4], $_[5], $_[6], $_[7], $_[8], $_[9], $_[10], $_[11], $_[12], $_[13], $_[14]); }
sub readconfig {	
my $lines = '';
my $i3dom = $_[0];
my $i3dir = $_[1];
my $i3file = $_[2];
my $htdocsdir = $_[3];
my $pathseperator = $_[4];
my $provider = $_[5];
my $htdocstmp = $_[6];
$i3file =~ s/\//$pathseperator/g;
$htdocsdir = $htdocsdir . $pathseperator . $i3dir;
$htdocsdir =~ s/\//$pathseperator/g;
my $cgidir = getcwd();
print "open, read: $htdocsdir$pathseperator$i3file ";
print "+working, exec: $cgidir$pathseperator$provider ";
my $targetfile = $htdocsdir.$pathseperator.$i3file;
$targetfile =~ s/$pathseperator$pathseperator/$pathseperator/g;
if (-e "$targetfile") {
 open CONFIGFILE, "<", "$targetfile" or die "=error: can't read; $!";
 foreach my $line (<CONFIGFILE>) { 
 $lines.=$line; }
 close(CONFIGFILE);
 print "=status: ok "; }
else { print "=error: missing file; $targetfile"; exit; }
return($lines); }
sub runconfig {
my $oi3dom = $_[2];
my $oi3dir = $_[3];
my $oi3file = $_[4];
my $ohtdocsdir = $_[5];
my $perlexec = $_[6];
my $storage = $_[7];
my $htdocstmp = $_[8];
my $runstat = "none";
my $nochmods = "0";
my @configfile;
my $i3version = "";
my $provider = '_i3install.pl';
my $htdocstmp = $_[8];
push(@configfile,split(/\r|\n/, $_[0]));
foreach my $line (@configfile) { 
my @configfrag;
push(@configfrag,split(/\*\*/, $line));
 if ($line =~ s/version\*\*//i){
 print "install: $line ";
 $i3version = $line;
 }else{
if($configfrag[0] == '1'){ 
 print "command: $configfrag[1] => $configfrag[2]$_[1]$configfrag[3] "; 
 $configfrag[1] =~ s/$configfrag[2]\/$configfrag[3]//;
 httpcopy($configfrag[1], $configfrag[2], $configfrag[3], $htdocsdir, $pathseperator, $provider, $nochmods, $oi3dom, $oi3dir, $oi3file, $ohtdocsdir, $perlexec, $storage, $i3version, $htdocstmp );
 $runstat = "ok";
}else{
if($configfrag[0] == '3'){ 
 print "command: $configfrag[1] => $configfrag[2]$_[1]$configfrag[3] "; 
 $configfrag[1] =~ s/$configfrag[2]\/$configfrag[3]//;
 $configfrag[1] =~ s/cgi-bin//;
 httpcopy($configfrag[1], $configfrag[2], $configfrag[3], getcwd(), $pathseperator, $provider, $configfrag[4], $oi3dom, $oi3dir, $oi3file, $ohtdocsdir, $perlexec, $storage, $i3version, $htdocstmp );
 $runstat = "ok";
}else{
if($configfrag[0] == '5'){ 
 print "command: $configfrag[1] => $configfrag[2]$_[1]$configfrag[3] "; 
 $configfrag[1] =~ s/$configfrag[2]\/$configfrag[3]//;
 $configfrag[1] =~ s/cgi-bin//;
 httpcopy($configfrag[1], $configfrag[2], $configfrag[3], getcwd(), $pathseperator, $provider, $configfrag[4], $oi3dom, $oi3dir, $oi3file, $ohtdocsdir, $perlexec, $storage, $i3version, $htdocstmp );
 print script( "\ndocument.location.href = document.location.href.replace('_i3install.pl', '$configfrag[3]');\n" );
 $runstat = "ok";
}else{ print "remarked: $line "; }}}}}}

1. Create a file named _i3install.pl
2. copy and paste the text above into _i3install.pl
3. Upload the _i3install.pl to the cgi-bin folder of your server
4. CHMOD the _i3install.pl file to 775, and view it from a web browser to continue the install process.

Welcome to the webserver wizard

PERL

HTML

PHP