|
|
InstallPoint will install the EditWrx content manager in the $ENV{'HTTP_HOST'} domain on your server.
During the installation InstallPoint will guide you through:
- Establishing the PATHs and URLs to files
- Creating folders and transferring necessary files
- Configuring site's basic installation & admin login
- Creating a default editing user
|
~;
}#begin
if($action eq 'none'){
print "Content-type: text/html\n\n";
print qq~~;
}#none
sub css{
$css=qq~ body,td {
font-family: arial, verdana, times, helvetica;
font-size: 11px;
color: #000000;
}
body {
margin:0; margin-top:10px;
}
.header {
font-weight:bold;
font-size:16px;
color:#1E79D2;
font-family:Arial;
padding-bottom:6px
}
.topic{font-size:11px;font-weight:normal;color:#1E79D2;padding-left:20px}
.pagecontent { margin:15px 25px 10px 25px; }
.smhead { color: #1E79D2; font-weight: bold;font-size: 14px; }
.bottom { color: #666666; }
.href{cursor:hand;color:#1E79D2; text-decoration: none;}
.nothref{cursor:default;color:#ff3300; text-decoration: none;}
.input{border-bottom:1px #aaaaaa solid;border-right:1px #aaaaaa solid;border-top:1px #333333 solid;border-left:1px #333333 solid;
background:#E7E2E7;
font-family:arial;
font-size:12px;
padding-left:2px
}
select{
background:#E7E2E7;
font-family:tahoma;
font-size:12px;
}
.fieldset{padding:12px;}
.legend{color:#ff3300;font-size:10px;font-family:arial}
.combut{
background-color:buttonface;
color:#333333;
border-top:1px solid #eeeeee;
border-left:1px solid #eeeeee;
border-right:1px solid #aaaaaa;
border-bottom:1px solid #aaaaaa;
font-family:tahoma;
font-weight:bold;
padding:1px;
font-size:10px
}
.uncombut{
background-color:buttonface;
color:#000000;
border-top:1px solid #ffffff;
border-left:1px solid #ffffff;
border-right:1px solid #666666;
border-bottom:1px solid #666666;
font-family:tahoma;
font-weight:bold;
padding:1px;
font-size:10px
}
.buttonborder{
border:1px solid #666666;
}
.xcombut{font-size:20px}
form{margin:0px}
~;
}#css
sub fetch{
my ($output,$n) = undef;
my $fullurl = $_[0];
$fullurl =~ s/ /\%20/g;
$fullurl =~ s!http://!!;
$fullurl =~ m!(.+?)/(.+)!;
require IO::Socket;
my $host_name = $1;
my $file_path = $2;
local($^W) = 0;
my $connect = IO::Socket::INET->new(PeerAddr=>$host_name, PeerPort=>80, Proto=>'tcp', Timeout=>60);
if(!$connect){
if($FCH<9){
++$FCH;
sleep(5);
&fetch;
}else{
¬_connected;exit;
}
}else{
$connect->autoflush;
print $connect join("\n"=>"GET /$file_path HTTP/1.0","Host: $host_name","User-Agent: Fetch1.5\n","","");
1 while $n = sysread($connect, $output, 8*1024, length($output));
$output =~ s/.+?\012?\015\012?\015//s;
$output =~ s/^\s+//;
return $output;
}
}#fetch
sub not_suexec{
unlink($test);
if($^O ne 'MSWin32'){$message=qq~Your server is not running SuExec.It is unsafe to install any content management system on this server. InstallPonit has aborted the installation.~}
else{$message=qq~Your server does not allow cgi scripts to write to files in the doman space. Consult with your system administrator about enabling write privileges for the domain. InstallPoint has aborted the installation. Could not write to: $test~}
print "Content-type: text/html\n\n";
print qq~
$message
~;
exit;
}
sub no_modify{
if($^O ne 'MSWin32'){$message=qq~Your server does not allow scripts to create files.It is unsafe to install any content management system on this server. InstallPonit has aborted the installation. Could not create $test~}
else{$message=qq~Your server does not allow cgi scripts to create files in the doman space. Consult with your system administrator about enabling MODIFY privileges for the domain. InstallPoint has aborted the installation. Could not create : $test (screenshot1) (screenshot2)~}
print "Content-type: text/html\n\n";
print qq~
$message
~;
exit;
}#no_modify
sub not_found{
print "Content-type: text/html\n\n";
print qq~
$_[0]
~;
exit;
}
sub print_wrx_cgi{
$mod_dir=$cycle."/library/mods";
if(-d $mod_dir){$useit=qq~\nuse lib '$cycle/library/mods';~}
$origin_path=~m`/([^/]+)$`;$cgiDIR=$1;$cgiDIR=~s`/$``;
if($cgiDIR !~ /cgi-bin|editwrx$/){$cgiDIR=""}
$cycle=~m`(.+)/$dir`;$domain=$1;
$script = q`#!/usr/bin/perl --
use CGI::Carp qw(fatalsToBrowser);
$editwrx_folder_name="editwrx";
$child=0;
$demo_mode=0;
#################################################
$url_to_editor = "http://".$ENV{'HTTP_HOST'}.$ENV{'SCRIPT_NAME'};
&get_root;
$path_to_data = "$path_to_domain/$editwrx_folder_name/library/data";
$lib = "$path_to_library/mods";
push(@INC,$lib);
$routines = $path_to_library."/routines.txt";
require "$routines";
sub parent{
$url_to_library = "url_to_library_in_parent_domain";
$url_to_ikons = "url_to_ikons_in_parent_domain";
$path_to_library = "path_to_library_in_parent_domain";
}
sub get_root{
$path_to_domain = $ENV{'DOCUMENT_ROOT'} || $ENV{'SCRIPT_FILENAME'} || $ENV{'PATH_TRANSLATED'} ;
$path_to_domain=~s-\\\-/-g;
$script_uri = $ENV{'SCRIPT_NAME'} || $ENV{'PATH_INFO'};
$path_to_domain =~ s-$script_uri$--;
$path_to_domain=~s-^.+\:--;
$path_to_domain=~s-/$--;
if($path_to_domain eq ''){&no_root}
if(!$child){
$url_to_library = "http://$ENV{'HTTP_HOST'}/$editwrx_folder_name/library";
$url_to_ikons = "http://$ENV{'HTTP_HOST'}/$editwrx_folder_name/ikons";
$path_to_library = "$path_to_domain/$editwrx_folder_name/library";
}else{
&parent;
}
$path_to_library =~ s!/$!!;
if(!-f $path_to_library."/routines.txt"){
&get_root2;
}
}
sub get_root2{
$path_to_domain = $ENV{'SCRIPT_FILENAME'} || $ENV{'PATH_TRANSLATED'} ;
$path_to_domain=~s-\\\-/-g;
$script_uri = $ENV{'SCRIPT_NAME'} || $ENV{'PATH_INFO'};
$path_to_domain =~ s-$script_uri$--;
$path_to_domain=~s-^.+\:--;
$path_to_domain=~s-/$--;
if($path_to_domain eq ''){&no_root}
if(!$child){
$url_to_library = "http://$ENV{'HTTP_HOST'}/$editwrx_folder_name/library";
$url_to_ikons = "http://$ENV{'HTTP_HOST'}/$editwrx_folder_name/ikons";
$path_to_library = "$path_to_domain/$editwrx_folder_name/library";
}else{
&parent;
}
$path_to_library =~ s!/$!!;
if(!-f $path_to_library."/routines.txt"){
&no_root;
}
}
sub no_root{
print "Content-type: text/html\n\n";
print "Your server does not have a usable environment variable for determining your site's root path
$path_to_library/routines.txt does not exist";
for (sort keys %ENV) {
print "
$_=$ENV{$_}\n";
}
exit;
}
`;
$first=$origin_path."/wrx.".$CGI_EXT;
open(X,">$first") || &fakeit;
if(-e $first){
$path_to_wrx=$first;
print X "$script";
close(X);
chmod(0755,"$first");
}
$url_to_editor = "$ENV{'HTTP_HOST'}/$cgiDIR/wrx.$CGI_EXT";
$url_to_editor =~ s`//`/`g;
$url_to_editor = "http://".$url_to_editor;
}#print_wrx_cgi
sub fakeit{
$second=$cycle."/wrx.".$CGI_EXT;
open(SC,">$second");
print SC "$script";
close(SC);
chmod(0755,"$second");
$path_to_wrx=$second;
$fakeit=1;
}#fakeit
sub create_folders{
$lib=$cycle."/library";
mkdir($lib,0755);
chmod(0755,$lib);
$smp=$dr."/sample_pages";
mkdir($smp,0755);
chmod(0755,$smp);
if($size_check !=1){
$mod=$lib."/mods";
mkdir($mod,0755);
chmod(0755,$mod);
}
elsif($sendmail_check!=1){
$mod=$lib."/mods";
mkdir($mod,0755);
chmod(0755,$mod);
}
if($sendmail_check !=1){
$ema=$mod."/Mail";
mkdir($ema,0755);
chmod(0755,$ema);
}
if($size_check !=1){
$img=$mod."/Image";
mkdir($img,0755);
chmod(0755,$img);
}
$dat=$lib."/data";
mkdir($dat,0755);
chmod(0755,$dat);
$ini=$lib."/ini";
mkdir($ini,0755);
chmod(0755,$ini);
$htm=$lib."/htm";
mkdir($htm,0755);
chmod(0755,$htm);
$iko=$cycle."/ikons";
mkdir($iko,0755);
chmod(0755,$iko);
$nts=$cycle."/ikons/notes";
mkdir($nts,0755);
chmod(0755,$nts);
$lan=$lib."/lang";
mkdir($lan,0755);
chmod(0755,$lan);
$eng=$lib."/lang/english";
mkdir($eng,0755);
chmod(0755,$eng);
$hel=$lib."/lang/english/help";
mkdir($hel,0755);
chmod(0755,$hel);
}#create_folders
sub mods_not{
if($cgi_check!=1){$MODS.=qq~CGI.pm
~;}
if($socket_check!=1){$MODS.=qq~Sockets.pm
~;}
if($exporter_check!=1){$MODS.=qq~Exporter.pm
~;}
print "Content-type: text/html\n\n";
print qq~REQUIRED PERL MODULES ARE NOT AVAILABLE YOU CAN NOT INSTALL EDITWRX 6 ON THIS SERVER
Missing Modules
$MODS~;
exit;
}#mods_not
sub return_complete{
if($use_cgibin==1){$WRX="cgi-bin"}else{$WRX=$dir}
$SRC="http://editwrx.com/installpoint/ikons/point_help.gif";
$SRC=qq~src="$SRC" width="14" height="14" border="0" alt="Description"~;
$CGI_EXTadmin_write_config=$CGI_EXT."?admin_write_config";
$RETURN=qq~
~;
}#return_complete
sub return_user{
if($use_cgibin==1){$WRX="cgi-bin"}else{$WRX=$editwrx_path}
$CGI_EXTadmin_write_user=$CGI_EXT."?admin_write_user";
$RETURN=qq~ |
$u