Viewing File server/web/admin.php of 1.00.7a
|
1: <?php 2: /* ------------------------------------------------------------- 3: This file is part of FreeNATS 4: 5: FreeNATS is (C) Copyright 2008 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("Admin Interface"); 32: 33: if (isset($_REQUEST['action'])) 34: { 35: switch($_REQUEST['action']) 36: { 37: case "save_user": 38: $q="UPDATE fnuser SET realname=\"".ss($_REQUEST['realname'])."\",userlevel=".ss($_REQUEST['userlevel']); 39: if ((isset($_REQUEST['pword']))&&($_REQUEST['pword']!="_NOTTHIS_")) $q.=",password=MD5(\"".ss($_REQUEST['pword'])."\")"; 40: $q.=" WHERE username=\"".ss($_REQUEST['username'])."\""; 41: $NATS->DB->Query($q); 42: if ($NATS->DB->Affected_Rows()<=0) $amsg="Save User Failed or Nothing Changed"; 43: else $amsg="Save User ".$_REQUEST['username']." Succeeded"; 44: break; 45: 46: case "create_user": 47: $q="INSERT INTO fnuser(username,password,realname,userlevel) VALUES(\"".ss($_REQUEST['username'])."\","; 48: $q.="MD5(\"".ss($_REQUEST['pword'])."\"),\"".ss($_REQUEST['realname'])."\",".ss($_REQUEST['userlevel']).")"; 49: $NATS->DB->Query($q); 50: //echo $q; 51: if ($NATS->DB->Affected_Rows()<=0) $amsg="Create User Failed"; 52: else $amsg="User ".$_REQUEST['username']." Created"; 53: break; 54: 55: case "delete_user": 56: /* - disabled for 0.02.44 to allow duplicate deletion 57: if ($_REQUEST['username']=="admin") 58: { 59: $amsg="Can't delete the admin user"; 60: break; 61: } 62: */ 63: if (!isset($_REQUEST['confirmed'])) 64: { 65: $back=urlencode("admin.php?action=delete_user&mode=users&username=".$_REQUEST['username']."&confirmed=1"); 66: $url="confirm.php?action=Delete+User+".$_REQUEST['username']."&back=".$back; 67: header("Location: ".$url); 68: exit(); 69: } 70: $q="DELETE FROM fnuser WHERE username=\"".ss($_REQUEST['username'])."\""; 71: $NATS->DB->Query($q); 72: $amsg="User ".$_REQUEST['username']." Deleted"; 73: break; 74: 75: case "var_save": 76: if ($_REQUEST['new_var']=="") // delete 77: { 78: $q="DELETE FROM fnconfig WHERE fnc_var=\"".ss($_REQUEST['orig_var'])."\""; 79: } 80: else // update 81: { 82: $q="UPDATE fnconfig SET fnc_var=\"".ss($_REQUEST['new_var'])."\",fnc_val=\"".ss($_REQUEST['new_val'])."\" "; 83: $q.="WHERE fnc_var=\"".ss($_REQUEST['orig_var'])."\""; 84: } 85: $NATS->DB->Query($q); 86: if ($NATS->DB->Affected_Rows()<=0) $amsg="Update/Delete Variable Failed"; 87: else $amsg="Updated/Deleted Variable"; 88: break; 89: case "var_new": 90: $q="INSERT INTO fnconfig(fnc_var,fnc_val) VALUES(\"".ss($_REQUEST['new_var'])."\",\"".ss($_REQUEST['new_val'])."\")"; 91: //echo $q; 92: $NATS->DB->Query($q); 93: if ($NATS->DB->Affected_Rows()<=0) $amsg="Create Variable Failed"; 94: else $amsg="Created Variable"; 95: break; 96: 97: case "save_aa": 98: $q="UPDATE fnalertaction SET "; 99: $q.="atype=\"".ss($_REQUEST['atype'])."\","; 100: $q.="ctrlimit=".ss($_REQUEST['ctrlimit']).","; 101: $q.="ctrtoday=".ss($_REQUEST['ctrtoday']).","; 102: $q.="aname=\"".ss($_REQUEST['aname'])."\","; 103: if (isset($_REQUEST['efrom'])) $q.="efrom=\"".ss($_REQUEST['efrom'])."\","; 104: $q.="etolist=\"".ss($_REQUEST['etolist'])."\","; 105: if (isset($_REQUEST['esubject'])) $q.="esubject=".ss($_REQUEST['esubject']).","; 106: $q.="etype=".ss($_REQUEST['etype']); 107: if (isset($_REQUEST['awarnings'])) $q.=",awarnings=".ss($_REQUEST['awarnings']); 108: else $q.=",awarnings=0"; 109: if (isset($_REQUEST['adecrease'])) $q.=",adecrease=".ss($_REQUEST['adecrease']); 110: else $q.=",adecrease=0"; 111: $q.=" WHERE aaid=".ss($_REQUEST['aaid']); 112: //echo $q; 113: $NATS->DB->Query($q); 114: if ($NATS->DB->Affected_Rows()<=0) $amsg="Action Update Failed or Nothing Changed"; 115: else $amsg="Action Updated"; 116: break; 117: 118: case "action_test": 119: $q="SELECT mdata FROM fnalertaction WHERE aaid=".ss($_REQUEST['aaid'])." LIMIT 0,1"; 120: $r=$NATS->DB->Query($q); 121: $row=$NATS->DB->Fetch_Array($r); 122: $oldm=$row['mdata']; 123: $q="UPDATE fnalertaction SET mdata=\"** ACTION TEST **\" WHERE aaid=".ss($_REQUEST['aaid']); 124: $NATS->DB->Query($q); 125: $NATS->ActionFlush(); 126: $q="UPDATE fnalertaction SET mdata=\"".ss($oldm)."\" WHERE aaid=".ss($_REQUEST['aaid']); 127: $NATS->DB->Query($q); 128: $amsg="Alert Action Tested & Flushed"; 129: break; 130: 131: case "action_create": 132: $q="INSERT INTO fnalertaction(atype) VALUES(\"\")"; 133: $NATS->DB->Query($q); 134: $amsg="Created New Alert Action"; 135: $_REQUEST['aaid']=$NATS->DB->Insert_Id(); 136: break; 137: 138: case "action_delete": 139: if (!isset($_REQUEST['confirmed'])) 140: { 141: $back=urlencode("admin.php?mode=alertactions&aaid_del=".$_REQUEST['aaid_del']."&action=action_delete&confirmed=1"); 142: $url="confirm.php?action=Delete+alert+action&back=".$back; 143: header("Location: ".$url); 144: exit(); 145: } 146: // otherwise confirmed 147: $q="DELETE FROM fnalertaction WHERE aaid=".ss($_REQUEST['aaid_del']); 148: $NATS->DB->Query($q); 149: if ($NATS->DB->Affected_Rows()>0) $amsg="Alert Action Deleted"; 150: else $amsg="Alert Action Delete Failed"; 151: $q="DELETE FROM fnnalink WHERE aaid=".ss($_REQUEST['aaid_del']); 152: $NATS->DB->Query($q); 153: break; 154: 155: case "optimize": 156: $q="OPTIMIZE TABLE ".ss($_REQUEST['table']); 157: $NATS->DB->Query($q); 158: $msg="Optimised Table ".$_REQUEST['table']; 159: break; 160: 161: } 162: } 163: 164: ob_end_flush(); 165: Screen_Header("Administration Interface",1,1,"","main","admin"); 166: 167: if (isset($_REQUEST['mode'])) $mode=$_REQUEST['mode']; 168: else $mode=""; 169: 170: if (isset($_REQUEST['message'])) echo "<br><b>".$_REQUEST['message']."</b><br>"; 171: if (isset($amsg)) echo "<br><b>".$amsg."</b><br>"; 172: 173: echo "<br>"; 174: if (isset($_REQUEST['updatecheck'])) 175: { 176: // check for updates 177: $dq="?CheckVersion=".$NATS->Version."&JSMode=1"; 178: $dl="http://www.purplepixie.org/freenats/download.php"; 179: $du=$dl.$dq; 180: /* old method 181: $cp=@fopen($du,"r"); 182: if ($cp>0) 183: { 184: $cs=@fgets($cp,128); 185: @fclose($cp); 186: if ($cs=="0") echo "System Up to Date<br>"; 187: else echo "Update Available: <a href=http://www.purplepixie.org/freenats>".$cs."</a><br>"; 188: } 189: else echo "Error Checking for Updates<br>"; 190: */ 191: echo "Checking Version: "; 192: echo "<script type=\"text/javascript\" src=\"".$du."\"></script>\n"; 193: echo "<br><br>"; 194: } 195: else if ($mode=="") 196: { 197: echo "<a href=admin.php?updatecheck=1><b>Check for FreeNATS Updates</b></a><br><br>"; 198: } 199: 200: function tul($l) 201: { 202: if ($l>9) return "Administrator"; 203: if ($l>4) return "Power User"; 204: if ($l>0) return "Normal User"; 205: return "Disabled"; 206: } 207: 208: function aat_etype($type) 209: { 210: switch ($type) 211: { 212: case 0: return "Short"; 213: case 1: return "Long"; 214: default: return "Unknown"; 215: } 216: } 217: 218: function aat_esub($type) 219: { 220: switch ($type) 221: { 222: case 0: return "Blank"; 223: case 1: return "Short"; 224: case 2: return "Long"; 225: default: return "Unknown"; 226: } 227: } 228: 229: function aat_atype($type) 230: { 231: switch($type) 232: { 233: case "": case "Disabled": return "Disabled"; 234: case "email": return "EMail"; 235: case "url": return "URL"; 236: case "mqueue": return "Message Queue"; 237: default: return "Unknown (".$type.")"; 238: } 239: } 240: 241: if ($mode=="users") 242: { 243: echo "<b class=\"subtitle\">Users</b><br><br>"; 244: 245: 246: 247: 248: $q="SELECT username,realname,userlevel FROM fnuser"; 249: $r=$NATS->DB->Query($q); 250: echo "<table border=0>"; 251: echo "<tr><td><b>Username </b></td>"; 252: echo "<td><b>Real Name</b></td><td><b>User Level</b></td><td><b>Password</b></td><td><b>Options</b></td></tr>"; 253: while ($row=$NATS->DB->Fetch_Array($r)) 254: { 255: echo "<form action=admin.php method=post>"; 256: echo "<input type=hidden name=action value=save_user>"; 257: echo "<input type=hidden name=mode value=users>"; 258: echo "<input type=hidden name=username value=\"".$row['username']."\">"; 259: echo "<tr><td>".$row['username']."</td>"; 260: echo "<td><input type=text name=realname value=\"".$row['realname']."\" size=20 maxlength=120></td>"; 261: echo "<td><select name=userlevel>"; 262: echo "<option value=".$row['userlevel'].">".tul($row['userlevel'])."</option>"; 263: echo "<option value=0>".tul(0)."</option>"; 264: echo "<option value=1>".tul(1)."</option>"; 265: echo "<option value=5>".tul(5)."</option>"; 266: echo "<option value=10>".tul(10)."</option>"; 267: echo "</select>"; 268: echo "</td>"; 269: echo "<td><input type=password name=pword value=\"_NOTTHIS_\" size=10 maxlength=128></td>"; 270: echo "<td><input type=submit value=\"Save\"> <a href=admin.php?action=delete_user&username=".$row['username'].">Delete</a></td>"; 271: echo "</tr>"; 272: echo "</form>"; 273: } 274: echo "<form action=admin.php method=post>"; 275: echo "<input type=hidden name=action value=create_user>"; 276: echo "<input type=hidden name=mode value=users>"; 277: echo "<tr><td><input type=text name=username size=20 maxlength=60></td>"; 278: echo "<td><input type=text name=realname size=20 maxlength=120></td>"; 279: echo "<td><select name=userlevel>"; 280: echo "<option value=1>".tul(1)."</option>"; 281: echo "<option value=0>".tul(0)."</option>"; 282: echo "<option value=5>".tul(5)."</option>"; 283: echo "<option value=10>".tul(10)."</option>"; 284: echo "</select></td>"; 285: echo "<td><input type=password name=pword size=10 maxlength=60></td>"; 286: echo "<td><input type=submit value=\"Create User\"></td>"; 287: echo "</tr></form>"; 288: echo "</table><br>"; 289: echo "<br>"; 290: $NATS->DB->Free($r); 291: } 292: else if ($mode=="nodetestsessions") 293: { 294: echo "<b class=\"subtitle\">Test Sessions for ".$_REQUEST['nodeid']."</b><br><br>"; 295: echo "<b>Running Sessions for ".$_REQUEST['nodeid']."</b><br>"; 296: $q="SELECT * FROM fntestrun WHERE fnode=\"".ss($_REQUEST['nodeid'])."\" AND finishx=0 ORDER BY trid DESC"; 297: $r=$NATS->DB->Query($q); 298: if ($NATS->DB->Num_Rows($r)==0) echo "<i>No running test sessions</i><br>"; 299: echo "<table border=0>"; 300: while ($row=$NATS->DB->Fetch_Array($r)) 301: { 302: echo "<tr><td><a href=testrun.php?trid=".$row['trid'].">run/".$row['trid']."</a></td>"; 303: echo "<td>".nicedt($row['startx'])." - "; 304: if ($row['finishx']>0) echo nicedt($row['finishx']); 305: else echo "Still Running"; 306: echo " (<a href=log.php?f_entry=Tester+".$row['trid'].">System Logs</a>)"; 307: echo "</td></tr>"; 308: } 309: echo "</table>"; 310: $NATS->DB->Free($r); 311: echo "<br>"; 312: echo "<br>"; 313: 314: echo "<b>Last 100 Previous Sessions for ".$_REQUEST['nodeid']."</b><br>"; 315: $q="SELECT * FROM fntestrun WHERE fnode=\"".ss($_REQUEST['nodeid'])."\" ORDER BY trid DESC LIMIT 0,100"; 316: $r=$NATS->DB->Query($q); 317: if ($NATS->DB->Num_Rows($r)==0) echo "<i>No previous test sessions</i><br>"; 318: echo "<table border=0>"; 319: while ($row=$NATS->DB->Fetch_Array($r)) 320: { 321: echo "<tr><td><a href=testrun.php?trid=".$row['trid'].">run/".$row['trid']."</a></td>"; 322: echo "<td>".nicedt($row['startx'])." - "; 323: if ($row['finishx']>0) echo nicedt($row['finishx']); 324: else echo "Still Running"; 325: echo " (<a href=log.php?f_entry=Tester+".$row['trid'].">System Logs</a>)"; 326: echo "</td></tr>"; 327: } 328: echo "</table>"; 329: $NATS->DB->Free($r); 330: echo "<br>"; 331: echo "<br>"; 332: 333: } 334: else if ($mode=="testsessions") 335: { 336: echo "<b class=\"subtitle\">Running Test Sessions</b><br><br>"; 337: $q="SELECT * FROM fntestrun WHERE finishx=0 ORDER BY trid DESC"; 338: $r=$NATS->DB->Query($q); 339: if ($NATS->DB->Num_Rows($r)==0) echo "<i>No running test sessions</i><br>"; 340: echo "<table border=0>"; 341: while ($row=$NATS->DB->Fetch_Array($r)) 342: { 343: echo "<tr><td><a href=testrun.php?trid=".$row['trid'].">run/".$row['trid']."</a></td>"; 344: echo "<td>".nicedt($row['startx'])." - "; 345: if ($row['finishx']>0) echo nicedt($row['finishx']); 346: else echo "Still Running"; 347: echo " (<a href=log.php?f_entry=Tester+".$row['trid'].">System Logs</a>)"; 348: echo "</td></tr>"; 349: } 350: echo "</table>"; 351: $NATS->DB->Free($r); 352: echo "<br>"; 353: echo "<form action=admin.php method=post>"; 354: echo "<input type=hidden name=mode value=nodetestsessions>"; 355: echo "<b>Last 100 Test Sessions for </b>"; 356: $q="SELECT nodeid,nodename FROM fnnode ORDER BY weight ASC"; 357: $r=$NATS->DB->Query($q); 358: echo "<select name=nodeid>"; 359: while ($row=$NATS->DB->Fetch_Array($r)) 360: { 361: echo "<option value=".$row['nodeid'].">".$row['nodename']." (".$row['nodeid'].")</option>"; 362: } 363: echo "</select> <input type=submit value=Go></form><br>"; 364: } 365: else if ($mode=="alertactions") 366: { 367: echo "<b class=\"subtitle\">Alert Actions</b><br><br>"; 368: 369: if (isset($_REQUEST['aaid'])) 370: { // view/edit aaid 371: $q="SELECT * FROM fnalertaction WHERE aaid=".ss($_REQUEST['aaid']); 372: $r=$NATS->DB->Query($q); 373: if (!$row=$NATS->DB->Fetch_Array($r)) 374: { 375: echo "<b>Error Fetching AAID</b><br><br>"; 376: Screen_Footer(); 377: exit(); 378: } 379: echo "<table border=0>"; 380: echo "<form action=admin.php method=post>"; 381: echo "<input type=hidden name=action value=save_aa>"; 382: echo "<input type=hidden name=mode value=alertactions>"; 383: echo "<input type=hidden name=aaid value=".$_REQUEST['aaid'].">"; 384: echo "<tr><td>ID : </td><td>action/".$_REQUEST['aaid']."</td></tr>"; 385: 386: echo "<tr><td>Action Name : </td>"; 387: echo "<td>"; 388: echo "<input type=text name=aname size=30 maxlength=120 value=\"".$row['aname']."\">"; 389: echo "</td></tr>"; 390: 391: echo "<tr><td>Type : </td><td>"; 392: echo "<select name=atype>"; 393: echo "<option value=".$row['atype'].">".aat_atype($row['atype'])."</option>"; 394: echo "<option value=Disabled>Disabled</option>"; 395: echo "<option value=email>EMail</option>"; 396: echo "<option value=url>URL</option>"; 397: echo "<option value=mqueue>Message Queue</option>"; 398: echo "</select>"; 399: echo "</td></tr>"; 400: 401: echo "<tr><td>Warnings : </td>"; 402: if ($row['awarnings']==1) $s=" checked"; 403: else $s=""; 404: echo "<td><input type=checkbox name=awarnings value=1".$s."> ".hlink("AAction:Warnings")."</td></tr>"; 405: 406: echo "<tr><td>Decreases : </td>"; 407: if ($row['adecrease']==1) $s=" checked"; 408: else $s=""; 409: echo "<td><input type=checkbox name=adecrease value=1".$s."> ".hlink("AAction:Decreases")."</td></tr>"; 410: 411: echo "<tr><td>Action Limit : </td>"; 412: echo "<td>"; 413: echo "<input type=text name=ctrlimit size=3 maxlength=6 value=\"".$row['ctrlimit']."\"> "; 414: echo hlink("AAction:Limit"); 415: echo "</td></tr>"; 416: 417: echo "<tr><td>Action Counter : </td>"; 418: echo "<td>"; 419: echo "<input type=text name=ctrtoday size=3 maxlength=6 value=\"".$row['ctrtoday']."\"> "; 420: echo hlink("AAction:Counter"); 421: echo " (for "; 422: if ($row['ctrdate']=="") echo "<i>unknown</i>"; 423: else echo substr($row['ctrdate'],6,2)."/".substr($row['ctrdate'],4,2)."/".substr($row['ctrdate'],0,4); 424: echo ")"; 425: echo "</td></tr>"; 426: 427: if ($row['atype']!="url") 428: { 429: 430: echo "<tr><td>Email From : </td>"; 431: echo "<td>"; 432: echo "<input type=text name=efrom size=30 maxlength=120 value=\"".$row['efrom']."\">"; 433: echo "</td></tr>"; 434: 435: echo "<tr><td>Email Subject : </td><td>"; 436: echo "<select name=esubject>"; 437: echo "<option value=".$row['esubject'].">".aat_esub($row['esubject'])."</option>"; 438: echo "<option value=0>Blank</option>"; 439: echo "<option value=1>Short</option>"; 440: echo "<option value=2>Long</option>"; 441: echo "</select>"; 442: echo "</td></tr>"; 443: 444: } 445: 446: echo "<tr><td>Msg Type : </td><td>"; 447: echo "<select name=etype>"; 448: echo "<option value=".$row['etype'].">".aat_etype($row['etype'])."</option>"; 449: echo "<option value=0>Short</option>"; 450: echo "<option value=1>Long</option>"; 451: echo "</select>"; 452: echo "</td></tr>"; 453: 454: echo "<tr><td valign=top>Email To<br>or URL : </td><td>"; 455: echo "<textarea name=etolist cols=40 rows=6>".$row['etolist']."</textarea>"; 456: echo "</td></tr>"; 457: 458: echo "<tr><td colspan=2><input type=submit value=\"Update Action\"> <a href=admin.php>Cancel Update</a> | "; 459: echo "<a href=admin.php?aaid=".$_REQUEST['aaid']."&mode=alertactions&action=action_test>Test Action</a> | "; 460: echo "<a href=admin.php?aaid_del=".$_REQUEST['aaid']."&mode=alertactions&action=action_delete>Delete Action</a>"; 461: echo "</td></tr>"; 462: 463: echo "</form></table><br><br>"; 464: $NATS->DB->Free($r); 465: } 466: 467: $q="SELECT aaid,atype,aname FROM fnalertaction"; 468: $r=$NATS->DB->Query($q); 469: echo "<table class=\"nicetable\"><tr>"; 470: echo "<td><b>ID</b></td><td><b>Action Name</b></td><td><b>Action Type</b></td></tr>"; 471: while ($row=$NATS->DB->Fetch_Array($r)) 472: { 473: echo "<tr><td>"; 474: echo "<a href=admin.php?mode=alertactions&aaid=".$row['aaid'].">".$row['aaid']."</a></td>"; 475: echo "<td><a href=admin.php?mode=alertactions&aaid=".$row['aaid'].">".$row['aname']."</a></td><td>"; 476: echo aat_atype($row['atype']); 477: echo "</td></tr>"; 478: } 479: echo "</table>"; 480: 481: echo "<br><a href=admin.php?mode=alertactions&action=action_create><b>Create New Alert Action</b></a><br>"; 482: echo "<br><br>"; 483: } 484: else if ($mode=="logs") 485: { 486: echo "<b class=\"subtitle\">System Logs</b><br><br>"; 487: echo "<a href=log.php>System Event Log</a><br><br>"; 488: 489: echo "<br><br>"; 490: } 491: else if ($mode=="status") 492: { 493: // system healthcheck 494: 495: // usage data 496: //$q="SELECT COUNT(fnnode.nodeid),COUNT(fngroup.groupid),COUNT( FROM fnnode,fngroup"; 497: $q="SHOW TABLE STATUS LIKE \"fn%\""; 498: $r=$NATS->DB->Query($q); 499: 500: echo "<b class=\"maintitle\">FreeNATS System Status</b><br><br>"; 501: 502: $tinfo=array(); 503: 504: echo "<b class=\"subtitle\">Table Sizes</b><br><br>"; 505: 506: echo "<table class=\"nicetable\">"; 507: echo "<tr><td><b>Table Name</b></td><td><b>Size (Rows)</b></td><td><b>Size (kb)</b></td><td><b>Other Information</b></td></tr>"; 508: while ($row=$NATS->DB->Fetch_Array($r)) 509: { 510: echo "<tr><td>".$row['Name']."</td><td>".$row['Rows']."</td>"; 511: echo "<td>".round($row['Data_length']/1024,0)."</td><td>"; 512: if (isset($tinfo[$row['Name']])) echo $tinfo[$row['Name']]; 513: else echo " "; 514: if ($row['Data_free']>0) 515: { 516: echo " [".round($row['Data_free']/1024,0)."kb Free - <a href=admin.php?mode=status&action=optimize&table=".$row['Name'].">Optimise</a>]"; 517: } 518: echo "</td></tr>"; 519: } 520: echo "</table>"; 521: $NATS->DB->Free($r); 522: echo "<br><br>"; 523: 524: echo "<b class=\"subtitle\">Test Sessions</b><br><br>"; 525: $q="SELECT * FROM fntestrun WHERE finishx=0"; 526: $r=$NATS->DB->Query($q); 527: echo "<b>".$NATS->DB->Num_Rows($r)." Open/Running Test Sessions</b><br><br>"; 528: if ($NATS->DB->Num_Rows($r)>0) 529: { 530: echo "<table class=\"nicetable\">"; 531: echo "<tr><td><b>ID</b></td><td><b>Node</b></td><td><b>Started</b></td><td><b>Notes</b></td></tr>"; 532: $nowx=time(); 533: $fifteenx=$nowx-(15*60); 534: $hourx=$nowx-(60*60); 535: while ($row=$NATS->DB->Fetch_Array($r)) 536: { 537: echo "<tr><td><a href=testrun.php?trid=".$row['trid'].">"; 538: echo $row['trid']."</a></td>"; 539: echo "<td><a href=node.php?nodeid=".$row['fnode']."</a></td>"; 540: echo "<td>".nicedt($row['startx'])." - ".dtago($row['startx'])."</td>"; 541: echo "<td>"; 542: if ($row['startx']<$hourx) echo "Error: Over an hour old"; 543: else if($row['startx']<$fifteenx) echo "Warning: Over fifteen minutes old"; 544: else echo " "; 545: echo "</td></tr>"; 546: } 547: echo "</table>"; 548: } 549: $NATS->DB->Free($r); 550: echo "<br><br>"; 551: 552: echo "<b class=\"subtitle\">Environment</b><br><br>"; 553: 554: function test_funcs($funcs) 555: { 556: if (!is_array($funcs)) $funcs=array($funcs); 557: $out=""; 558: for($a=0; $a<count($funcs); $a++) 559: { 560: if (!function_exists($funcs[$a])) 561: { 562: $out.=$funcs[$a]." "; 563: } 564: } 565: if ($out!="") $out.="functions required"; 566: return $out; 567: } 568: 569: function test_mod($mod,$funcs) 570: { 571: $text=test_funcs($funcs); 572: if ($text=="") 573: { 574: echo "<b style=\"color: green;\">".$mod."</b> - Ok<br>"; 575: return true; 576: } 577: else 578: { 579: echo "<b style=\"color: red;\">".$mod."</b> - ".$text."<br>"; 580: return false; 581: } 582: } 583: 584: if (!test_mod("IMAP","imap_open")) 585: { 586: echo "IMAP is not supported - don't configure IMAP tests or your environment will hang<br>"; 587: } 588: echo "<br>"; 589: if (!test_mod("Sockets","fsockopen")) 590: { 591: echo "Sockets are not supported - fatal error<br>"; 592: } 593: echo "<br>"; 594: if (!test_mod("Streams","fopen")) 595: { 596: echo "Streams are not supported - fatal error<br>"; 597: } 598: echo "<br>"; 599: if (!test_mod("MySQL","mysql_connect")) 600: { 601: echo "MySQL are not supported - fatal error<br>"; 602: } 603: echo "<br>"; 604: if (!test_mod("Mail","mail")) 605: { 606: echo "mail() not supported, may have to use direct SMTP or maybe no mail will work!<br>"; 607: } 608: echo "<br>"; 609: if (!test_mod("PHP5","str_split")) 610: { 611: echo "Don't appear to be running PHP5 - this may not work on PHP4<br>"; 612: } 613: echo "<br>"; 614: 615: echo "<br><br>"; 616: 617: echo "Please note this merely displays FreeNATS software status - not<br>the status of "; 618: echo "the underlying Virtual Machine (if applicable).<br><br> You should monitor disk space and "; 619: echo "performance for the VM via<br>the relevant system (such as the rPath interface).<br><br>"; 620: 621: } 622: else if ($mode=="variables") 623: { 624: echo "<b class=\"subtitle\">Variables</b> ".hlink("Variable")."<br><br>"; 625: $q="SELECT * FROM fnconfig ORDER BY fnc_var ASC"; 626: $r=$NATS->DB->Query($q); 627: echo "<table border=0>"; 628: while ($row=$NATS->DB->Fetch_Array($r)) 629: { 630: echo "<form action=admin.php method=post>"; 631: echo "<input type=hidden name=action value=var_save>"; 632: echo "<input type=hidden name=mode value=variables>"; 633: echo "<input type=hidden name=orig_var value=\"".$row['fnc_var']."\">"; 634: echo "<input type=hidden name=orig_val value=\"".$row['fnc_val']."\">"; 635: echo "<tr><td><input type=text size=20 maxlength=60 name=new_var value=\"".$row['fnc_var']."\"> "; 636: echo "</td>"; 637: echo "<td>=</td>"; 638: echo "<td><input type=text size=20 maxlength=60 name=new_val value=\"".$row['fnc_val']."\"></td>"; 639: echo "<td><input type=submit value=\"Save\"> "; 640: echo hlink("Var:".$row['fnc_var']); 641: echo "</td>"; 642: echo "</tr>"; 643: echo "</form>"; 644: } 645: echo "<form action=admin.php method=post>"; 646: echo "<input type=hidden name=action value=var_new>"; 647: echo "<input type=hidden name=mode value=variables>"; 648: echo "<tr><td><input type=text size=20 maxlength=60 name=new_var value=\"\"></td>"; 649: echo "<td>=</td>"; 650: echo "<td><input type=text size=20 maxlength=60 name=new_val value=\"\"></td>"; 651: echo "<td><input type=submit value=\"Create\"></td>"; 652: echo "</tr>"; 653: echo "</form>"; 654: echo "</table>"; 655: } 656: else if ($mode=="sysinfo") 657: { 658: echo "<b class=\"subtitle\">FreeNATS System Information</b><br><br>"; 659: 660: echo "<b>Version Information</b><br><br>"; 661: echo "<table border=0>"; 662: echo "<tr><td>Version:</td><td>".$NATS->Version."</td></tr>"; 663: echo "<tr><td>Release:</td><td>".$NATS->Release."</td></tr>"; 664: echo "<tr><td>Compound:</td><td>".$NATS->Version.$NATS->Release."</td></tr>"; 665: echo "</table><br><br>"; 666: 667: echo "<b>Registered Test Modules</b><br><br>"; 668: echo "<table class=\"nicetable\" width=600>"; 669: echo "<tr><td><b>Name</b></td><td><b>Provides</b></td><td><b>Revision</b></td><td><b>Additional</b></td></tr>"; 670: foreach($NATS->Tests->QuickList as $key => $val) 671: { 672: echo "<tr><td>"; 673: echo $NATS->Tests->Tests[$key]->name; 674: echo "</td><td>"; 675: echo $NATS->Tests->Tests[$key]->type; 676: echo "</td><td>"; 677: echo $NATS->Tests->Tests[$key]->revision; 678: echo "</td><td>"; 679: echo $NATS->Tests->Tests[$key]->additional; 680: echo "</td></tr>"; 681: } 682: echo "</table><br><br>"; 683: 684: echo "<b>Registered Event Handlers</b><br><br>"; 685: echo "<table class=\"nicetable\" width=600>"; 686: echo "<tr><td><b>Event</b></td><td><b>Handler(s)</b></td></tr>"; 687: foreach($NATS->EventHandlers as $key => $val) 688: { 689: echo "<tr><td valign=top>".$key."</td><td>"; 690: foreach($NATS->EventHandlers[$key] as $handler) 691: echo $handler."<br>"; 692: echo "</td></tr>"; 693: } 694: echo "</table><br><br>"; 695: } 696: else // catch-all 697: { 698: echo "<img src=images/options/user.png style=\"vertical-align: bottom;\"> "; 699: echo "<a href=admin.php?mode=users>User Administration</a><br><br>"; 700: echo "<img src=images/options/application.png style=\"vertical-align: bottom;\"> "; 701: echo "<a href=log.php>System Event Log</a><br><br>"; 702: echo "<img src=images/options/letter_open.png style=\"vertical-align: bottom;\"> "; 703: echo "<a href=admin.php?mode=alertactions>Alert Actions</a><br><br>"; 704: echo "<img src=images/options/action_add.png style=\"vertical-align: bottom;\"> "; 705: echo "<a href=admin.php?mode=variables>System Variables</a><br><br>"; 706: echo "<img src=images/options/file.png style=\"vertical-align: bottom;\"> "; 707: echo "<a href=admin.php?mode=testsessions>Test Sessions</a><br><br>"; 708: echo "<img src=images/options/time.png style=\"vertical-align: bottom;\"> "; 709: echo "<a href=schedule.php>Test Schedules</a><br><br>"; 710: echo "<img src=images/options/folder_open.png style=\"vertical-align: bottom;\"> "; 711: echo "<a href=filemanager.php>File Manager</a><br><br>"; 712: 713: if ($NATS->Cfg->Get("site.enable.adminsql",0)==1) 714: { 715: echo "<img src=images/options/folder_files.png style=\"vertical-align: bottom;\"> "; 716: echo "<a href=admin.sql.php>SQL Console</a><br><br>"; 717: } 718: echo "<img src=images/options/search.png style=\"vertical-align: bottom;\"> "; 719: echo "<a href=admin.dns.php>DNS Query Console</a><br><br>"; 720: echo "<img src=images/options/reply.png style=\"vertical-align: bottom;\"> "; 721: echo "<a href=admin.php?mode=status>System Status Report</a><br><br>"; 722: echo "<img src=images/help16.png style=\"vertical-align: bottom;\"> "; 723: echo "<a href=admin.php?mode=sysinfo>System Information</a><br><br>"; 724: } 725: 726: if ($mode!="") echo "<a href=admin.php>Back to Main Admin Menu</a><br><br>"; 727: ?> 728: 729: 730: <?php 731: Screen_Footer(); 732: ?> 733: