File: 1.17.1a/server/web/admin.php (View as Code)

1: 2: /* ------------------------------------------------------------- 3: This file is part of FreeNATS 4: 5: FreeNATS is (C) Copyright 2008-2011 PurplePixie Systems 6: 7: FreeNATS is free software: you can redistribute it and/or modify 8: it under the terms of the GNU General Public License as published by 9: the Free Software Foundation, either version 3 of the License, or 10: (at your option) any later version. 11: 12: FreeNATS is distributed in the hope that it will be useful, 13: but WITHOUT ANY WARRANTY; without even the implied warranty of 14: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15: GNU General Public License for more details. 16: 17: You should have received a copy of the GNU General Public License 18: along with FreeNATS. If not, see www.gnu.org/licenses 19: 20: For more information see www.purplepixie.org/freenats 21: -------------------------------------------------------------- */ 22: 23: ob_start(); 24: require("include.php"); 25: $NATS->Start(); 26: if (!$NATS_Session->Check($NATS->DB)) 27: { 28: header("Location: ./?login_msg=Invalid+Or+Expired+Session"); 29: exit(); 30: } 31: if ($NATS_Session->userlevel<9) UL_Error($NATS->Lang->Item("admin.interface")); 32: 33: if (isset($_REQUEST['action'])) 34: { 35: switch($_REQUEST['action']) 36: { 37: case "save_user": 38: $glock = isset($_REQUEST['grouplock']) && $_REQUEST['grouplock']==1 ? 1 : 0; 39: $q="UPDATE fnuser SET realname=\"".ss($_REQUEST['realname'])."\",userlevel=".ss($_REQUEST['userlevel']); 40: $q.=",grouplock=".ss($glock); 41: if ((isset($_REQUEST['pword']))&&($_REQUEST['pword']!="_NOTTHIS_")) $q.=",password=MD5(\"".ss($_REQUEST['pword'])."\")"; 42: $q.=" WHERE username=\"".ss($_REQUEST['username'])."\""; 43: $NATS->DB->Query($q); 44: 45: $update=false; 46: if ($NATS->DB->Affected_Rows()>0) $update=true; 47: 48: // Grouplock! 49: $q="DELETE FROM fngrouplock WHERE username=\"".ss($_REQUEST['username'])."\""; 50: $NATS->DB->Query($q); 51: 52: 53: 54: if (isset($_REQUEST['gl'])) 55: { 56: foreach($_REQUEST['gl'] as $id => $state) 57: { 58: if ($state == 1) 59: { 60: $iq="INSERT INTO fngrouplock(username,groupid) VALUES(\"".ss($_REQUEST['username'])."\",".ss($id).")"; 61: //echo $iq; 62: $NATS->DB->Query($iq); 63: } 64: } 65: } 66: 67: if (!$update) $amsg=$NATS->Lang->Item("save.user.fail"); 68: else $amsg=$NATS->Lang->Item("save.user.ok"); 69: break; 70: 71: case "create_user": 72: $q="INSERT INTO fnuser(username,password,realname,userlevel) VALUES(\"".ss($_REQUEST['username'])."\","; 73: $q.="MD5(\"".ss($_REQUEST['pword'])."\"),\"".ss($_REQUEST['realname'])."\",".ss($_REQUEST['userlevel']).")"; 74: $NATS->DB->Query($q); 75: //echo $q; 76: if ($NATS->DB->Affected_Rows()<=0) $amsg=$NATS->Lang->Item("create.user.fail"); 77: else $amsg=$NATS->Lang->Item("create.user.ok"); 78: break; 79: 80: case "delete_user": 81: /* - disabled for 0.02.44 to allow duplicate deletion 82: if ($_REQUEST['username']=="admin") 83: { 84: $amsg="Can't delete the admin user"; 85: break; 86: } 87: */ 88: if (!isset($_REQUEST['confirmed'])) 89: { 90: $back=urlencode("admin.php?action=delete_user&mode=users&username=".$_REQUEST['username']."&confirmed=1"); 91: $url="confirm.php?action=".urlencode($NATS->Lang->Item("delete.user"))."+".$_REQUEST['username']."&back=".$back; 92: header("Location: ".$url); 93: exit(); 94: } 95: $q="DELETE FROM fnuser WHERE username=\"".ss($_REQUEST['username'])."\""; 96: $NATS->DB->Query($q); 97: $amsg=$_REQUEST['username'].$NATS->Lang->Item("user.deleted"); 98: break; 99: 100: case "var_save": 101: if ($_REQUEST['new_var']=="") // delete 102: { 103: $q="DELETE FROM fnconfig WHERE fnc_var=\"".ss($_REQUEST['orig_var'])."\""; 104: } 105: else // update 106: { 107: $q="UPDATE fnconfig SET fnc_var=\"".ss($_REQUEST['new_var'])."\",fnc_val=\"".ss($_REQUEST['new_val'])."\" "; 108: $q.="WHERE fnc_var=\"".ss($_REQUEST['orig_var'])."\""; 109: } 110: $NATS->DB->Query($q); 111: if ($NATS->DB->Affected_Rows()<=0) $amsg=$NATS->Lang->Item("save.var.fail"); 112: else $amsg=$NATS->Lang->Item("save.var.ok"); 113: break; 114: case "var_new": 115: $q="INSERT INTO fnconfig(fnc_var,fnc_val) VALUES(\"".ss($_REQUEST['new_var'])."\",\"".ss($_REQUEST['new_val'])."\")"; 116: //echo $q; 117: $NATS->DB->Query($q); 118: if ($NATS->DB->Affected_Rows()<=0) $amsg=$NATS->Lang->Item("new.var.fail"); 119: else $amsg=$NATS->Lang->Item("new.var.ok"); 120: break; 121: 122: case "save_aa": 123: $q="UPDATE fnalertaction SET "; 124: $q.="atype=\"".ss($_REQUEST['atype'])."\","; 125: $q.="ctrlimit=".ss($_REQUEST['ctrlimit']).","; 126: $q.="ctrtoday=".ss($_REQUEST['ctrtoday']).","; 127: $q.="aname=\"".ss($_REQUEST['aname'])."\","; 128: $q.="scheduleid=".ss($_REQUEST['scheduleid']).","; 129: if (isset($_REQUEST['efrom'])) $q.="efrom=\"".ss($_REQUEST['efrom'])."\","; 130: $q.="etolist=\"".ss($_REQUEST['etolist'])."\","; 131: if (isset($_REQUEST['esubject'])) $q.="esubject=".ss($_REQUEST['esubject']).","; 132: $q.="etype=".ss($_REQUEST['etype']); 133: if (isset($_REQUEST['awarnings'])) $q.=",awarnings=".ss($_REQUEST['awarnings']); 134: else $q.=",awarnings=0"; 135: if (isset($_REQUEST['adecrease'])) $q.=",adecrease=".ss($_REQUEST['adecrease']); 136: else $q.=",adecrease=0"; 137: $q.=" WHERE aaid=".ss($_REQUEST['aaid']); 138: //echo $q; 139: $NATS->DB->Query($q); 140: if ($NATS->DB->Affected_Rows()<=0) $NATS->Lang->Item("changes.fail"); 141: else $amsg=$NATS->Lang->Item("changes.ok"); 142: break; 143: 144: case "action_test": 145: $q="SELECT mdata FROM fnalertaction WHERE aaid=".ss($_REQUEST['aaid'])." LIMIT 0,1"; 146: $r=$NATS->DB->Query($q); 147: $row=$NATS->DB->Fetch_Array($r); 148: $oldm=$row['mdata']; 149: $q="UPDATE fnalertaction SET mdata=\"** ACTION TEST **\" WHERE aaid=".ss($_REQUEST['aaid']); 150: $NATS->DB->Query($q); 151: $NATS->ActionFlush(); 152: $q="UPDATE fnalertaction SET mdata=\"".ss($oldm)."\" WHERE aaid=".ss($_REQUEST['aaid']); 153: $NATS->DB->Query($q); 154: $amsg=$NATS->Lang->Item("aa.testflush"); 155: break; 156: 157: case "action_create": 158: $q="INSERT INTO fnalertaction(atype) VALUES(\"\")"; 159: $NATS->DB->Query($q); 160: $amsg=$NATS->Lang->Item("changes.ok"); 161: $_REQUEST['aaid']=$NATS->DB->Insert_Id(); 162: break; 163: 164: case "action_delete": 165: if (!isset($_REQUEST['confirmed'])) 166: { 167: $back=urlencode("admin.php?mode=alertactions&aaid_del=".$_REQUEST['aaid_del']."&action=action_delete&confirmed=1"); 168: $url="confirm.php?action=".urlencode($NATS->Lang->Item("aa.delete"))."&back=".$back; 169: header("Location: ".$url); 170: exit(); 171: } 172: // otherwise confirmed 173: $q="DELETE FROM fnalertaction WHERE aaid=".ss($_REQUEST['aaid_del']); 174: $NATS->DB->Query($q); 175: if ($NATS->DB->Affected_Rows()>0) $amsg=$NATS->Lang->Item("changes.ok"); 176: else $amsg=$NATS->Lang->Item("changes.fail"); 177: $q="DELETE FROM fnnalink WHERE aaid=".ss($_REQUEST['aaid_del']); 178: $NATS->DB->Query($q); 179: break; 180: 181: case "optimize": 182: $q="OPTIMIZE TABLE ".ss($_REQUEST['table']); 183: $NATS->DB->Query($q); 184: $amsg=$NATS->Lang->Item("optimised.ok")." ".$_REQUEST['table']; 185: break; 186: 187: } 188: } 189: 190: ob_end_flush(); 191: Screen_Header($NATS->Lang->Item("admin.interface"),1,1,"","main","admin"); 192: 193: if (isset($_REQUEST['mode'])) $mode=$_REQUEST['mode']; 194: else $mode=""; 195: 196: if (isset($_REQUEST['message'])) echo "
".$_REQUEST['message']."
"; 197: if (isset($amsg)) echo "
".$amsg."
"; 198: 199: echo "
"; 200: if (isset($_REQUEST['updatecheck'])) 201: { 202: // check for updates 203: $dq="?CheckVersion=".$NATS->Version."&JSMode=1"; 204: $dl="http://www.purplepixie.org/freenats/download.php"; 205: $du=$dl.$dq; 206: /* old method 207: $cp=@fopen($du,"r"); 208: if ($cp>0) 209: { 210: $cs=@fgets($cp,128); 211: @fclose($cp); 212: if ($cs=="0") echo "System Up to Date
"; 213: else echo "Update Available: ".$cs."
"; 214: } 215: else echo "Error Checking for Updates
"; 216: */ 217: echo $NATS->Lang->Item("checking.updates").": "; 218: echo "\n"; 219: echo "

"; 220: } 221: else if ($mode=="") 222: { 223: echo "".$NATS->Lang->Item("check.updates")."

"; 224: } 225: 226: function tul($l) 227: { 228: global $NATS; 229: if ($l>9) return $NATS->Lang->Item("ul.admin"); 230: if ($l>4) return $NATS->Lang->Item("ul.power"); 231: if ($l>0) return $NATS->Lang->Item("ul.normal"); 232: return $NATS->Lang->Item("ul.disabled"); 233: } 234: 235: function aat_etype($type) 236: { 237: global $NATS; 238: switch ($type) 239: { 240: case 0: return $NATS->Lang->Item("aae.short"); 241: case 1: return $NATS->Lang->Item("aae.long"); 242: default: return $NATS->Lang->Item("Unknown"); 243: } 244: } 245: 246: function aat_esub($type) 247: { 248: global $NATS; 249: switch ($type) 250: { 251: case 0: return $NATS->Lang->Item("aae.sub.blank"); 252: case 1: return $NATS->Lang->Item("aae.sub.short"); 253: case 2: return $NATS->Lang->Item("aae.sub.long"); 254: default: return $NATS->Lang->Item("unknown"); 255: } 256: } 257: 258: function aat_atype($type) 259: { 260: global $NATS; 261: switch($type) 262: { 263: case "": case "Disabled": return $NATS->Lang->Item("aatype.disabled"); 264: case "email": return $NATS->Lang->Item("aatype.email"); 265: case "url": return $NATS->Lang->Item("aatype.url"); 266: case "mqueue": return $NATS->Lang->Item("aatype.mqueue"); 267: default: return $NATS->Lang->Item("unknown")." (".$type.")"; 268: } 269: } 270: 271: if ($mode=="users") 272: { 273: echo "".$NATS->Lang->Item("user.admin")."

"; 274: 275: 276: 277: 278: $q="SELECT username,realname,userlevel,grouplock FROM fnuser"; 279: $r=$NATS->DB->Query($q); 280: echo ""; 281: echo ""; 282: echo ""; 283: echo ""; 284: while ($row=$NATS->DB->Fetch_Array($r)) 285: { 286: echo ""; 287: echo ""; 288: echo ""; 289: echo ""; 290: echo ""; 291: echo ""; 292: echo ""; 300: echo ""; 301: echo ""; 302: echo ""; 303: echo ""; 304: 305: echo ""; 306: echo ""; 338: echo ""; 339: 340: echo ""; 341: } 342: echo ""; 343: echo ""; 344: echo ""; 345: echo ""; 346: echo ""; 347: echo ""; 353: echo ""; 354: echo ""; 355: echo ""; 356: echo "

".$NATS->Lang->Item("username")."	".$NATS->Lang->Item("real.name")."	".$NATS->Lang->Item("user.level")."	".$NATS->Lang->Item("password")."	".$NATS->Lang->Item("options")."
".$row['username']."		"; 299: echo "		".$NATS->Lang->Item("extended.user")."	Lang->Item("save")."\"> ".$NATS->Lang->Item("delete")."
"; 307: 308: echo " "; 309: 310: $check = $row['grouplock'] == 1 ? " checked" : ""; 311: echo " "; 312: echo $NATS->Lang->Item("user.grouplock"); 313: echo " (".$NATS->Lang->Item("user.grouplock.warning").") "; 314: 315: $gq = "SELECT * FROM fngroup"; 316: $gr=$NATS->DB->Query($gq); 317: $groups=array(); 318: while ($grow=$NATS->DB->Fetch_Array($gr)) 319: $groups[$grow['groupid']]=$grow['groupname']; 320: $NATS->DB->Free($gr); 321: 322: $mygq = "SELECT * FROM fngrouplock WHERE username=\"".ss($row['username'])."\""; 323: $mygr = $NATS->DB->Query($mygq); 324: $mygroups=array(); 325: while ($myrow = $NATS->DB->Fetch_Array($mygr)) 326: $mygroups[]=$myrow['groupid']; 327: $NATS->DB->Free($mygr); 328: 329: foreach($groups as $id => $name) 330: { 331: $check = in_array($id,$mygroups) ? " checked" : ""; 332: echo " ".$name." "; 333: } 334: 335: echo " "; 336: 337: echo "
				Lang->Item("create.user")."\">

"; 357: echo "
"; 358: $NATS->DB->Free($r); 359: } 360: else if ($mode=="nodetestsessions") 361: { 362: echo "".$NATS->Lang->Item("sessions.for")." ".$_REQUEST['nodeid']."

"; 363: echo "".$NATS->Lang->Item("sessions.running.for")." ".$_REQUEST['nodeid']."
"; 364: $q="SELECT * FROM fntestrun WHERE fnode=\"".ss($_REQUEST['nodeid'])."\" AND finishx=0 ORDER BY trid DESC"; 365: $r=$NATS->DB->Query($q); 366: if ($NATS->DB->Num_Rows($r)==0) echo "".$NATS->Lang->Item("sessions.not.running")."
"; 367: echo ""; 368: while ($row=$NATS->DB->Fetch_Array($r)) 369: { 370: echo ""; 371: echo ""; 376: } 377: echo "

".nicedt($row['startx'])." - "; 372: if ($row['finishx']>0) echo nicedt($row['finishx']); 373: else echo $NATS->Lang->Item("sessions.stillrunning"); 374: echo " (".$NATS->Lang->Item("event.log").")"; 375: echo "

"; 378: $NATS->DB->Free($r); 379: echo "
"; 380: echo "
"; 381: 382: echo "100 ".$NATS->Lang->Item("sessions.previous")." ".$_REQUEST['nodeid']."
"; 383: $q="SELECT * FROM fntestrun WHERE fnode=\"".ss($_REQUEST['nodeid'])."\" ORDER BY trid DESC LIMIT 0,100"; 384: $r=$NATS->DB->Query($q); 385: if ($NATS->DB->Num_Rows($r)==0) echo "".$NATS->Lang->Item("sessions.previous.none")."
"; 386: echo ""; 387: while ($row=$NATS->DB->Fetch_Array($r)) 388: { 389: echo ""; 390: echo ""; 395: } 396: echo "

run/".$row['trid']."

".nicedt($row['startx'])." - "; 391: if ($row['finishx']>0) echo nicedt($row['finishx']); 392: else echo $NATS->Lang->Item("sessions.stillrunning"); 393: echo " (".$NATS->Lang->Item("event.log").")"; 394: echo "

"; 397: $NATS->DB->Free($r); 398: echo "
"; 399: echo "
"; 400: 401: } 402: else if ($mode=="testsessions") 403: { 404: echo "".$NATS->Lang->Item("sessions.running")."

"; 405: $q="SELECT * FROM fntestrun WHERE finishx=0 ORDER BY trid DESC"; 406: $r=$NATS->DB->Query($q); 407: if ($NATS->DB->Num_Rows($r)==0) echo "".$NATS->Lang->Item("sessions.not.running")."
"; 408: echo ""; 409: while ($row=$NATS->DB->Fetch_Array($r)) 410: { 411: echo ""; 412: echo ""; 417: } 418: echo "

run/".$row['trid']."

".nicedt($row['startx'])." - "; 413: if ($row['finishx']>0) echo nicedt($row['finishx']); 414: else echo $NATS->Lang->Item("sessions.stillrunning"); 415: echo " (".$NATS->Lang->Item("event.log").")"; 416: echo "

"; 419: $NATS->DB->Free($r); 420: echo "
"; 421: echo "432: } 433: else if ($mode=="alertactions") 434: { 435: echo "".$NATS->Lang->Item("alert.actions")."

"; 436: 437: if (isset($_REQUEST['aaid'])) 438: { // view/edit aaid 439: $q="SELECT * FROM fnalertaction WHERE aaid=".ss($_REQUEST['aaid']); 440: $r=$NATS->DB->Query($q); 441: if (!$row=$NATS->DB->Fetch_Array($r)) 442: { 443: echo "Error Fetching AAID

"; 444: Screen_Footer(); 445: exit(); 446: } 447: echo ""; 448: echo ""; 449: echo ""; 450: echo ""; 451: echo ""; 452: echo ""; 453: 454: echo ""; 455: echo ""; 458: 459: echo ""; 468: 469: echo ""; 484: 485: 486: echo ""; 487: if ($row['awarnings']==1) $s=" checked"; 488: else $s=""; 489: echo ""; 490: 491: echo ""; 492: if ($row['adecrease']==1) $s=" checked"; 493: else $s=""; 494: echo ""; 495: 496: echo ""; 497: echo ""; 501: 502: echo ""; 503: echo ""; 511: 512: if ($row['atype']!="url") 513: { 514: 515: echo ""; 516: echo ""; 519: 520: echo ""; 528: 529: } 530: 531: echo ""; 538: 539: echo ""; 542: 543: echo ""; 547: 548: echo "

".$NATS->Lang->Item("id")." :	action/".$_REQUEST['aaid']."
".$NATS->Lang->Item("aa.name")." :	"; 456: echo ""; 457: echo "
".$NATS->Lang->Item("aa.type")." :	"; 460: echo ""; 467: echo "
".$NATS->Lang->Item("schedule")." :	"; 470: echo ""; 481: $NATS->DB->Free($sr); 482: echo " ".hlink("AlertSchedule"); 483: echo "
".$NATS->Lang->Item("warnings")." :	".hlink("AAction:Warnings")."
".$NATS->Lang->Item("decreases")." :	".hlink("AAction:Decreases")."
".$NATS->Lang->Item("aa.limit")." :	"; 498: echo " "; 499: echo hlink("AAction:Limit"); 500: echo "
".$NATS->Lang->Item("aa.counter")." :	"; 504: echo " "; 505: echo hlink("AAction:Counter"); 506: echo " (for "; 507: if ($row['ctrdate']=="") echo "unknown"; 508: else echo substr($row['ctrdate'],6,2)."/".substr($row['ctrdate'],4,2)."/".substr($row['ctrdate'],0,4); 509: echo ")"; 510: echo "
".$NATS->Lang->Item("aa.efrom")." :	"; 517: echo ""; 518: echo "
".$NATS->Lang->Item("aa.esubj")." :	"; 521: echo ""; 527: echo "
".$NATS->Lang->Item("aa.mtype")." :	"; 532: echo ""; 537: echo "
".$NATS->Lang->Item("aa.eto")." :	"; 540: echo "".$row['etolist'].""; 541: echo "
Lang->Item("aa.update")."\"> ".$NATS->Lang->Item("aa.cancel")." \| "; 544: echo "".$NATS->Lang->Item("aa.test")." \| "; 545: echo "".$NATS->Lang->Item("aa.delete").""; 546: echo "

"; 549: $NATS->DB->Free($r); 550: } 551: 552: $q="SELECT aaid,atype,aname FROM fnalertaction"; 553: $r=$NATS->DB->Query($q); 554: echo ""; 555: echo ""; 556: while ($row=$NATS->DB->Fetch_Array($r)) 557: { 558: echo ""; 560: echo ""; 563: } 564: echo "

".$NATS->Lang->Item("id")."	".$NATS->Lang->Item("aa.name")."	".$NATS->Lang->Item("aa.type")."
"; 559: echo "".$row['aaid']."	".$row['aname']."	"; 561: echo aat_atype($row['atype']); 562: echo "

"; 565: 566: echo "
".$NATS->Lang->Item("aa.create")."
"; 567: echo "

"; 568: } 569: else if ($mode=="logs") 570: { 571: // Que ??!? 572: echo "System Logs

"; 573: echo "System Event Log

"; 574: 575: echo "

"; 576: } 577: else if ($mode=="status") 578: { 579: // system healthcheck 580: 581: // usage data 582: //$q="SELECT COUNT(fnnode.nodeid),COUNT(fngroup.groupid),COUNT( FROM fnnode,fngroup"; 583: $q="SHOW TABLE STATUS LIKE \"fn%\""; 584: $r=$NATS->DB->Query($q); 585: 586: echo "FreeNATS ".$NATS->Lang->Item("system.status")."

"; 587: 588: $tinfo=array(); 589: 590: echo "".$NATS->Lang->Item("status.size")."

"; 591: 592: echo ""; 593: echo ""; 594: echo ""; 595: while ($row=$NATS->DB->Fetch_Array($r)) 596: { 597: echo ""; 598: echo ""; 607: } 608: echo "

".$NATS->Lang->Item("status.tname")."	".$NATS->Lang->Item("status.tsize")."	".$NATS->Lang->Item("status.tsize.kb")."	".$NATS->Lang->Item("status.tother")."
".$row['Name']."	".$row['Rows']."	".round($row['Data_length']/1024,0)."	"; 599: if (isset($tinfo[$row['Name']])) echo $tinfo[$row['Name']]; 600: else echo " "; 601: if ($row['Data_free']>0) 602: { 603: echo " [".round($row['Data_free']/1024,0)."kb ".$NATS->Lang->Item("status.free")." - "; 604: echo "".$NATS->Lang->Item("status.optimise")."]"; 605: } 606: echo "

"; 609: $NATS->DB->Free($r); 610: echo "

"; 611: 612: echo "".$NATS->Lang->Item("status.running")."

"; 613: $q="SELECT * FROM fntestrun WHERE finishx=0"; 614: $r=$NATS->DB->Query($q); 615: echo "".$NATS->DB->Num_Rows($r)." ".$NATS->Lang->Item("status.running")."

"; 616: if ($NATS->DB->Num_Rows($r)>0) 617: { 618: echo ""; 619: echo ""; 620: $nowx=time(); 621: $fifteenx=$nowx-(15*60); 622: $hourx=$nowx-(60*60); 623: while ($row=$NATS->DB->Fetch_Array($r)) 624: { 625: echo ""; 627: echo ""; 628: echo ""; 629: echo ""; 634: } 635: echo "

ID	".$NATS->Lang->Item("node")."	".$NATS->Lang->Item("started")."	".$NATS->Lang->Item("notes")."
"; 626: echo $row['trid']."		".nicedt($row['startx'])." - ".dtago($row['startx'])."	"; 630: if ($row['startx']<$hourx) echo $NATS->Lang->Item("status.run.error"); 631: else if($row['startx']<$fifteenx) echo $NATS->Lang->Item("status.run.warn"); 632: else echo " "; 633: echo "

"; 636: } 637: $NATS->DB->Free($r); 638: echo "

"; 639: 640: echo "".$NATS->Lang->Item("status.env.http")."

"; 641: $env_test_web=1; 642: include("environment.test.php"); 643: echo "
"; 644: echo "".$NATS->Lang->Item("status.env.cli")."

"; 645: $output=array(); 646: $return=0; 647: exec("php -q environment.test.php",$output,$return); 648: if ($return!=1) 649: { 650: echo "Error: PHP CLI Script did not seem to execute. PHP-CLI is required for FreeNATS (fatal error)
"; 651: } 652: foreach($output as $line) 653: echo $line; 654: 655: echo "
"; 656: echo "Click here for very detailed PHP environment information for web and CLI"; 657: 658: echo "

"; 659: echo $NATS->Lang->Item("status.disclaim"); 660: echo "

"; 661: 662: } 663: else if ($mode=="phpinfo") 664: { 665: echo "

".$NATS->Lang->Item("status.env.http")."

"; 666: $env_test_web=1; 667: include("environment.test.php"); 668: echo "
"; 669: ob_start(); 670: phpinfo(); 671: $info=ob_get_contents(); 672: ob_end_clean(); 673: $info=preg_replace("//is","",$info); 674: echo "

"; 675: echo nl2br(strip_tags($info)); 676: echo "

\n"; 677: 678: echo "

".$NATS->Lang->Item("status.env.cli")."

"; 679: $output=array(); 680: $return=0; 681: exec("php -q environment.test.php full",$output,$return); 682: if ($return!=1) 683: { 684: echo "Error: PHP CLI Script did not seem to execute. PHP-CLI is required for FreeNATS (fatal error)
"; 685: } 686: foreach($output as $line) 687: echo $line; 688: } 689: else if ($mode=="variables") 690: { 691: echo "".$NATS->Lang->Item("variables")." ".hlink("Variable")."

"; 692: $q="SELECT * FROM fnconfig ORDER BY fnc_var ASC"; 693: $r=$NATS->DB->Query($q); 694: echo ""; 695: while ($row=$NATS->DB->Fetch_Array($r)) 696: { 697: echo ""; 698: echo ""; 699: echo ""; 700: echo ""; 701: echo ""; 702: echo ""; 704: echo ""; 705: echo ""; 706: echo ""; 709: echo ""; 710: echo ""; 711: } 712: echo ""; 713: echo ""; 714: echo ""; 715: echo ""; 716: echo ""; 717: echo ""; 718: echo ""; 719: echo ""; 720: echo ""; 721: echo "

"; 703: echo "	=		Lang->Item("save")."\"> "; 707: echo hlink("Var:".$row['fnc_var']); 708: echo "
	=		Lang->Item("create")."\">

"; 722: } 723: else if ($mode=="sysinfo") 724: { 725: echo "FreeNATS ".$NATS->Lang->Item("sys.info")."

"; 726: 727: echo "Version Information

"; 728: echo ""; 729: echo ""; 730: echo ""; 731: echo ""; 732: echo "

".$NATS->Lang->Item("version").":	".$NATS->Version."
".$NATS->Lang->Item("release").":	".$NATS->Release."
".$NATS->Lang->Item("compound").":	".$NATS->Version.$NATS->Release."

"; 733: 734: echo "".$NATS->Lang->Item("reg.modules")."

"; 735: echo ""; 736: echo ""; 737: echo ""; 738: foreach($NATS->Tests->QuickList as $key => $val) 739: { 740: echo ""; 749: } 750: echo "

".$NATS->Lang->Item("name")."	".$NATS->Lang->Item("provides")."	".$NATS->Lang->Item("revision")."	".$NATS->Lang->Item("additional")."
"; 741: echo $NATS->Tests->Tests[$key]->name; 742: echo "	"; 743: echo $NATS->Tests->Tests[$key]->type; 744: echo "	"; 745: echo $NATS->Tests->Tests[$key]->revision; 746: echo "	"; 747: echo $NATS->Tests->Tests[$key]->additional; 748: echo "

"; 751: 752: echo "".$NATS->Lang->Item("reg.events")."

"; 753: echo ""; 754: echo ""; 755: foreach($NATS->EventHandlers as $key => $val) 756: { 757: echo ""; 761: } 762: echo "

".$NATS->Lang->Item("event")."	".$NATS->Lang->Item("handlers")."
".$key."	"; 758: foreach($NATS->EventHandlers[$key] as $handler) 759: echo $handler." "; 760: echo "

"; 763: echo "".$NATS->Lang->Item("reg.languages")."

"; 764: $langs=$NATS->Lang->GetLanguages(); 765: foreach($langs as $code => $lang) 766: { 767: echo $code.": ".$lang."
"; 768: } 769: echo "

"; 770: } 771: else // catch-all 772: { 773: echo "

".$NATS->Lang->Item("tests.alerting")."

\n"; 774: 775: echo "

"; 776: echo "".$NATS->Lang->Item("alert.actions")."

"; 777: 778: echo "

"; 779: echo "".$NATS->Lang->Item("sessions")."

"; 780: 781: echo "

"; 782: echo "".$NATS->Lang->Item("schedules")."

"; 783: 784: echo "

"; 785: echo "".$NATS->Lang->Item("rss.feed")."

"; 786: 787: echo "

".$NATS->Lang->Item("system.settings")."

\n"; 788: 789: echo "

"; 790: echo "".$NATS->Lang->Item("user.admin")."

"; 791: 792: echo "

"; 793: echo "".$NATS->Lang->Item("variables")."

"; 794: 795: echo "

".$NATS->Lang->Item("tools")."

\n"; 796: 797: echo "

"; 798: echo "".$NATS->Lang->Item("file.manager")."

"; 799: 800: if ($NATS->Cfg->Get("site.enable.adminsql",0)==1) 801: { 802: echo "

"; 803: echo "".$NATS->Lang->Item("sql.console")."

"; 804: } 805: 806: echo "

"; 807: echo "".$NATS->Lang->Item("dns.console")."

"; 808: 809: echo "

"; 810: echo "".$NATS->Lang->Item("backup.restore")."

"; 811: 812: echo "

".$NATS->Lang->Item("logs.info")."

\n"; 813: 814: echo "

"; 815: echo "".$NATS->Lang->Item("event.log")."

"; 816: 817: echo "

"; 818: echo "".$NATS->Lang->Item("sys.status")."

"; 819: 820: echo "

"; 821: echo "".$NATS->Lang->Item("sys.info")."

"; 822: 823: /* 824: echo "

"; 825: echo "".$NATS->Lang->Item("user.admin")."

"; 826: echo "

"; 827: echo "".$NATS->Lang->Item("event.log")."

"; 828: echo "

"; 829: echo "".$NATS->Lang->Item("alert.actions")."

"; 830: echo "

"; 831: echo "".$NATS->Lang->Item("variables")."

"; 832: echo "

"; 833: echo "".$NATS->Lang->Item("sessions")."

"; 834: echo "

"; 835: echo "".$NATS->Lang->Item("schedules")."

"; 836: echo "

"; 837: echo "".$NATS->Lang->Item("file.manager")."

"; 838: 839: if ($NATS->Cfg->Get("site.enable.adminsql",0)==1) 840: { 841: echo "

"; 842: echo "".$NATS->Lang->Item("sql.console")."

"; 843: } 844: echo "

"; 845: echo "".$NATS->Lang->Item("dns.console")."

"; 846: echo "

"; 847: echo "".$NATS->Lang->Item("backup.restore")."

"; 848: echo "

"; 849: echo "".$NATS->Lang->Item("sys.status")."

"; 850: echo "

"; 851: echo "".$NATS->Lang->Item("sys.info")."

"; 852: echo "

"; 853: echo "".$NATS->Lang->Item("rss.feed")."

"; 854: */ 855: } 856: 857: if ($mode!="") echo "".$NATS->Lang->Item("back.to.admin")."

"; 858: ?> 859: 860: 861: 862: Screen_Footer(); 863: ?> 864: