Moving Classic to new server

Print Thread

Hop To

Re: Moving Classic to new server

Gizmo #181460 03/23/2007 10:25 PM

Joined: Feb 2007

Posts: 1,294

Likes: 2

Pennsylvania

JAISP

Veteran

JAISP

Veteran

Joined: Feb 2007

Posts: 1,294

Likes: 2

Pennsylvania

Here is the un-compiled code. It was compiled as many times I give stuff away and I find it with some one elses name on it free some where else.

Code


#!/usr/bin/perl

 read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
 @pairs = split(/&/, $buffer);
  foreach $pair (@pairs) {
   ($name, $value) = split(/=/, $pair);
   $value =~ tr/+/ /;
   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
   $value =~ s/\n/ /g;
   $request{$name} = $value;
  }

 print "Content-type: text/html\n\n";

 use Socket;
 $IPu99=qq($ENV{'REMOTE_ADDR'});


 $host = qq($ENV{'REMOTE_HOST'});

 if ($host eq "") {
   $host = gethostbyaddr(inet_aton($IPu99), AF_INET);
   $host1 = qq("FAILED - USE SOCKET"&nbsp;&nbsp;&nbsp;);
   $hostres=qq($host1 $host);
 } else {
   $hostres = qq($host);
 }

 print qq(
 <HTML>
 <HEAD>
 <TITLE>JAISP Software - Server Varriables</TITLE>
 </HEAD>
 <BODY BGCOLOR="#B8DBFE" LINK="Black" ALINK="Black" VLINK="Black">
 <TABLE BGCOLOR="#0069D4" BORDER="0" WIDTH="95%" CELLSPACING="1" CELLPADDING="5" ALIGN=CENTER>
  <TR>
   <TD BGCOLOR="#69B3FF" ALIGN=CENTER><FONT FACE="Verdana" COLOR="#B8DBFE" SIZE="5"><B>JAISP Server Information Script</B></FONT></TD>
  </TR>
 </TABLE>
 <P>
 <TABLE BGCOLOR="#0069D4" BORDER="0" WIDTH="95%" CELLSPACING="1" CELLPADDING="2" ALIGN=CENTER>
  <TR>
   <TD WIDTH="160" BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">GATEWAY_INTERFACE</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'GATEWAY_INTERFACE'}</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">SERVER_ADMIN</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'SERVER_ADMIN'}</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">SERVER_NAME</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'SERVER_NAME'}</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">SERVER_SOFTWARE</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'SERVER_SOFTWARE'}</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">AUTH_TYPE</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'AUTH_TYPE'}</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">CONTENT_LENGTH</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'CONTENT_LENGTH'}</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">CONTENT_TYPE</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'CONTENT_TYPE'}</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">REQUEST_METHOD</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'REQUEST_METHOD'}</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">PATH</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'PATH'}</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">PATH_INFO</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'PATH_INFO'}</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">PATH_TRANSLATED</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'PATH_TRANSLATED'}</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">QUERY_STRING</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'QUERY_STRING'}</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">REMOTE_ADDR</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'REMOTE_ADDR'}</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">REMOTE_HOST</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$hostres</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">REMOTE_PORT</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'REMOTE_PORT'}</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">REMOTE_INDENT</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'REMOTE_INDENT'}</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">REMOTE_USER</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'REMOTE_USER'}</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">REMOTE_NAME</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'REMOTE_NAME'}</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">SCRIPT_FILENAME</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'SCRIPT_FILENAME'}</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">SCRIPT_NAME</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'SCRIPT_NAME'}</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">SERVER_PORT</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'SERVER_PORT'}</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">SERVER_PROTOCOL</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'SERVER_PROTOCOL'}</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">HTTP_USER_AGENT</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'HTTP_USER_AGENT'}</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">HTTP_REFERER</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'HTTP_REFERER'}</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">HOST_TYPE</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'HOST_TYPE'}</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">DOCUMENT_ROOT</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'DOCUMENT_ROOT'}</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">HTTP_ACCEPT</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'HTTP_ACCEPT'}</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">HTTP_IDENT</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'HTTP_IDENT'}</FONT></TD>
  </TR>
  <TR>
   <TD BGCOLOR="#69B3FF"><FONT FACE="Verdana" COLOR="Black" SIZE="2">HTTP_FROM</FONT></TD>
   <TD BGCOLOR="#B8DBFE"><FONT FACE="Arial" COLOR="Black" SIZE="2">$ENV{'HTTP_FROM'}</FONT></TD>
  </TR>
 </TABLE>
 <P>
 <TABLE BGCOLOR="#0069D4" BORDER="0" WIDTH="95%" CELLSPACING="1" CELLPADDING="5" ALIGN=CENTER>
  <TR>
   <TD BGCOLOR="#69B3FF" ALIGN=CENTER><FONT FACE="Verdana" COLOR="Black" SIZE="1"><B>&copy;2007 JAISP - WWW.JAISP.COM</B></FONT></TD>
  </TR>
 </TABLE>
 </BODY>
 </HTML>
 );

 exit;

Entire Thread
Subject	Posted By	Posted
Moving Classic to new server	Steve C	03/22/2007 9:56 PM
Re: Moving Classic to new server	Gizmo	03/22/2007 10:23 PM
Re: Moving Classic to new server	Steve C	03/22/2007 10:56 PM
Re: Moving Classic to new server	Gizmo	03/22/2007 11:42 PM
Re: Moving Classic to new server	Steve C	03/23/2007 12:30 AM
Re: Moving Classic to new server	Gizmo	03/23/2007 12:39 AM
Re: Moving Classic to new server	JAISP	03/23/2007 12:54 AM
Re: Moving Classic to new server	Steve C	03/23/2007 6:41 AM
Re: Moving Classic to new server	Gizmo	03/23/2007 6:46 AM
Re: Moving Classic to new server	JAISP	03/24/2007 2:25 AM
Re: Moving Classic to new server	Gizmo	03/24/2007 2:56 AM
Re: Moving Classic to new server	JAISP	03/24/2007 12:14 PM
Re: Moving Classic to new server	Gizmo	03/24/2007 10:29 PM
Re: Moving Classic to new server	JAISP	03/25/2007 12:28 AM
Re: Moving Classic to new server	Gizmo	03/25/2007 9:31 AM
Re: Moving Classic to new server	AllenAyres	03/26/2007 2:24 AM
Re: Moving Classic to new server	Gizmo	03/26/2007 3:05 AM

Link Copied to Clipboard

ShoutChat

Comment Guidelines: Do post respectful and insightful comments. Don't flame, hate, spam.

UBB.threads PHP Forum Software Community Forums UBB.classic UBB.classic 6 Support Moving Classic to new server