Page MenuHomeIn-Portal Phabricator
Files F772946

in-portal
No OneTemporary
Actions

File Metadata

Created
Sat, Feb 1, 9:09 PM

in-portal
View Options

Index: trunk/admin/tools/server_info.php
===================================================================
--- trunk/admin/tools/server_info.php (nonexistent)
+++ trunk/admin/tools/server_info.php (revision 349)
@@ -0,0 +1,164 @@
+<?php
+##############################################################
+##In-portal ##
+##############################################################
+## In-portal ##
+## Intechnic Corporation ##
+## All Rights Reserved, 1998-2002 ##
+## ##
+## No portion of this code may be copied, reproduced or ##
+## otherwise redistributed without proper written ##
+## consent of Intechnic Corporation. Violation will ##
+## result in revocation of the license and support ##
+## privileges along maximum prosecution allowed by law. ##
+##############################################################
+if(!strlen($pathtoroot))
+{
+ $path=dirname(realpath($_SERVER['SCRIPT_FILENAME']));
+ if(strlen($path))
+ {
+ /* determine the OS type for path parsing */
+ $pos = strpos($path,":");
+ if ($pos === false)
+ {
+ $gOS_TYPE="unix";
+ $pathchar = "/";
+ }
+ else
+ {
+ $gOS_TYPE="win";
+ $pathchar="\\";
+ }
+ $p = $path.$pathchar;
+ /*Start looking for the root flag file */
+ while(!strlen($pathtoroot) && strlen($p))
+ {
+ $sub = substr($p,strlen($pathchar)*-1);
+ if($sub==$pathchar)
+ {
+ $filename = $p."root.flg";
+ }
+ else
+ $filename = $p.$pathchar."root.flg";
+ if(file_exists($filename))
+ {
+ $pathtoroot = $p;
+ }
+ else
+ {
+ $parent = realpath($p.$pathchar."..".$pathchar);
+ if($parent!=$p)
+ {
+ $p = $parent;
+ }
+ else
+ $p = "";
+ }
+ }
+ if(!strlen($pathtoroot))
+ $pathtoroot = ".".$pathchar;
+ }
+ else
+ {
+ $pathtoroot = ".".$pathchar;
+ }
+}
+
+$sub = substr($pathtoroot,strlen($pathchar)*-1);
+if($sub!=$pathchar)
+{
+ $pathtoroot = $pathtoroot.$pathchar;
+}
+//echo $pathtoroot;
+
+require_once($pathtoroot."kernel/startup.php");
+//admin only util
+
+$rootURL="http://".ThisDomain().$objConfig->Get("Site_Path");
+$admin = $objConfig->Get("AdminDirectory");
+if(!strlen($admin))
+ $admin = "admin";
+$localURL=$rootURL."kernel/";
+$adminURL = $rootURL.$admin;
+$imagesURL = $adminURL."/images";
+//$pathtolocal = $pathtoroot."in-news/";
+
+require_once ($pathtoroot.$admin."/include/elements.php");
+require_once ($pathtoroot."kernel/admin/include/navmenu.php");
+//require_once ($pathtolocal."admin/include/navmenu.php");
+require_once($pathtoroot.$admin."/toolbar.php");
+
+$envar = "env=" . BuildEnv();
+$section = 'in-portal:server_info';
+$sec = $objSections->GetSection($section);
+
+$parent = $objSections->GetSection($sec->Get("parent"));
+
+if(strlen($ParentUrl)>0)
+{
+ $cancelUrl = $ParentUrl;
+}
+else
+ $cancelUrl = $_SERVER['PHP_SELF']."?".$envar;
+
+$cancelUrl = $admin."/subitems.php?section=in-portal:tools&".$envar;
+
+//$title = admin_language("la_tab_QueryDB");
+
+$ro_perm = $objSession->HasSystemPermission("SYSTEM_ACCESS.READONLY");
+
+$objCatToolBar = new clsToolBar();
+$objCatToolBar->Add("img_cancel", "la_Cancel","#","swap('img_cancel','toolbar/tool_cancel_f2.gif');", "swap('img_cancel', 'toolbar/tool_cancel.gif');","edit_submit('sinfoform','','$cancelUrl',2,'');","tool_cancel.gif");
+
+$extra = "<style type=\"text/css\"><!--
+ body {background-color: #ffffff; color: #000000;}
+ body, td, th, h1, h2 {font-family: sans-serif;}
+ pre {margin: 0px; font-family: monospace;}
+ a:link {color: #000099; text-decoration: none; background-color: #ffffff;}
+ a:hover {text-decoration: underline;}
+ table {border-collapse: collapse;}
+ .center {text-align: center;}
+ .center table { margin-left: auto; margin-right: auto; text-align: left;}
+ .center th { text-align: center !important; }
+ td, th { font-size: 75%; vertical-align: baseline;}
+ h1 {font-size: 150%;}
+ h2 {font-size: 125%;}
+ .p {text-align: left;}
+ .e {background-color: #ccccff; font-weight: bold; color: #000000;}
+ .h {background-color: #9999cc; font-weight: bold; color: #000000;}
+ .v {background-color: #cccccc; color: #000000;}
+ i {color: #666666; background-color: #cccccc;}
+ hr {width: 600px; background-color: #cccccc; border: 0px; height: 1px; color: #000000;}
+ //--></style>";
+
+int_header($objCatToolBar,NULL,$title, NULL, $extra);
+?>
+<table width="100%" border="0" cellspacing="0" cellpadding="4" class="tableborder">
+<form ID="sinfoform" name="sinfoform" action="" method=POST>
+<!-- before phpinfo -->
+<?
+
+ob_start();
+
+ phpinfo();
+ $php_info .= ob_get_contents();
+
+ob_end_clean();
+
+$php_info = str_replace(" width=\"600\"", " width=\"786\"", $php_info);
+$php_info = str_replace("</body></html>", "", $php_info);
+
+$php_info = str_replace('<a href="http://www.php.net/"><img border="0"', '<a href="http://www.php.net/"><img border="0" align="right" ', $php_info);
+
+$php_info = str_replace(";", "; ", $php_info);
+$php_info = str_replace(",", ", ", $php_info);
+
+$offset = strpos($php_info, "<table");
+
+print substr($php_info, $offset);
+
+?>
+<!-- after phpinfo -->
+</FORM>
+</TABLE>
+<?php int_footer(); ?>
\ No newline at end of file
Property changes on: trunk/admin/tools/server_info.php
___________________________________________________________________
Added: cvs2svn:cvs-rev
## -0,0 +1 ##
+1.1
\ No newline at end of property
Added: svn:executable
## -0,0 +1 ##
+*
\ No newline at end of property

Event Timeline

In-Portal CMS · In-Portal Community Pages · In-Portal Issue Tracker · In-Portal Repository Browser · Quality Assurance · In-Portal CI Server