1: 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: $q.="scheduleid=".ss($_REQUEST['scheduleid']).","; 104: if (isset($_REQUEST['efrom'])) $q.="efrom=\"".ss($_REQUEST['efrom'])."\","; 105: $q.="etolist=\"".ss($_REQUEST['etolist'])."\","; 106: if (isset($_REQUEST['esubject'])) $q.="esubject=".ss($_REQUEST['esubject']).","; 107: $q.="etype=".ss($_REQUEST['etype']); 108: if (isset($_REQUEST['awarnings'])) $q.=",awarnings=".ss($_REQUEST['awarnings']); 109: else $q.=",awarnings=0"; 110: if (isset($_REQUEST['adecrease'])) $q.=",adecrease=".ss($_REQUEST['adecrease']); 111: else $q.=",adecrease=0"; 112: $q.=" WHERE aaid=".ss($_REQUEST['aaid']); 113: //echo $q; 114: $NATS->DB->Query($q); 115: if ($NATS->DB->Affected_Rows()<=0) $amsg="Action Update Failed or Nothing Changed"; 116: else $amsg="Action Updated"; 117: break; 118: 119: case "action_test": 120: $q="SELECT mdata FROM fnalertaction WHERE aaid=".ss($_REQUEST['aaid'])." LIMIT 0,1"; 121: $r=$NATS->DB->Query($q); 122: $row=$NATS->DB->Fetch_Array($r); 123: $oldm=$row['mdata']; 124: $q="UPDATE fnalertaction SET mdata=\"** ACTION TEST **\" WHERE aaid=".ss($_REQUEST['aaid']); 125: $NATS->DB->Query($q); 126: $NATS->ActionFlush(); 127: $q="UPDATE fnalertaction SET mdata=\"".ss($oldm)."\" WHERE aaid=".ss($_REQUEST['aaid']); 128: $NATS->DB->Query($q); 129: $amsg="Alert Action Tested & Flushed"; 130: break; 131: 132: case "action_create": 133: $q="INSERT INTO fnalertaction(atype) VALUES(\"\")"; 134: $NATS->DB->Query($q); 135: $amsg="Created New Alert Action"; 136: $_REQUEST['aaid']=$NATS->DB->Insert_Id(); 137: break; 138: 139: case "action_delete": 140: if (!isset($_REQUEST['confirmed'])) 141: { 142: $back=urlencode("admin.php?mode=alertactions&aaid_del=".$_REQUEST['aaid_del']."&action=action_delete&confirmed=1"); 143: $url="confirm.php?action=Delete+alert+action&back=".$back; 144: header("Location: ".$url); 145: exit(); 146: } 147: // otherwise confirmed 148: $q="DELETE FROM fnalertaction WHERE aaid=".ss($_REQUEST['aaid_del']); 149: $NATS->DB->Query($q); 150: if ($NATS->DB->Affected_Rows()>0) $amsg="Alert Action Deleted"; 151: else $amsg="Alert Action Delete Failed"; 152: $q="DELETE FROM fnnalink WHERE aaid=".ss($_REQUEST['aaid_del']); 153: $NATS->DB->Query($q); 154: break; 155: 156: case "optimize": 157: $q="OPTIMIZE TABLE ".ss($_REQUEST['table']); 158: $NATS->DB->Query($q); 159: $msg="Optimised Table ".$_REQUEST['table']; 160: break; 161: 162: } 163: } 164: 165: ob_end_flush(); 166: Screen_Header("Administration Interface",1,1,"","main","admin"); 167: 168: if (isset($_REQUEST['mode'])) $mode=$_REQUEST['mode']; 169: else $mode=""; 170: 171: if (isset($_REQUEST['message'])) echo "
".$_REQUEST['message']."
"; 172: if (isset($amsg)) echo "
".$amsg."
"; 173: 174: echo "
"; 175: if (isset($_REQUEST['updatecheck'])) 176: { 177: // check for updates 178: $dq="?CheckVersion=".$NATS->Version."&JSMode=1"; 179: $dl="http://www.purplepixie.org/freenats/download.php"; 180: $du=$dl.$dq; 181: /* old method 182: $cp=@fopen($du,"r"); 183: if ($cp>0) 184: { 185: $cs=@fgets($cp,128); 186: @fclose($cp); 187: if ($cs=="0") echo "System Up to Date
"; 188: else echo "Update Available: ".$cs."
"; 189: } 190: else echo "Error Checking for Updates
"; 191: */ 192: echo "Checking Version: "; 193: echo "\n"; 194: echo "
"; 195: } 196: else if ($mode=="") 197: { 198: echo "Check for FreeNATS Updates
"; 199: } 200: 201: function tul($l) 202: { 203: if ($l>9) return "Administrator"; 204: if ($l>4) return "Power User"; 205: if ($l>0) return "Normal User"; 206: return "Disabled"; 207: } 208: 209: function aat_etype($type) 210: { 211: switch ($type) 212: { 213: case 0: return "Short"; 214: case 1: return "Long"; 215: default: return "Unknown"; 216: } 217: } 218: 219: function aat_esub($type) 220: { 221: switch ($type) 222: { 223: case 0: return "Blank"; 224: case 1: return "Short"; 225: case 2: return "Long"; 226: default: return "Unknown"; 227: } 228: } 229: 230: function aat_atype($type) 231: { 232: switch($type) 233: { 234: case "": case "Disabled": return "Disabled"; 235: case "email": return "EMail"; 236: case "url": return "URL"; 237: case "mqueue": return "Message Queue"; 238: default: return "Unknown (".$type.")"; 239: } 240: } 241: 242: if ($mode=="users") 243: { 244: echo "Users
"; 245: 246: 247: 248: 249: $q="SELECT username,realname,userlevel FROM fnuser"; 250: $r=$NATS->DB->Query($q); 251: echo "
| Username | "; 253: echo "Real Name | User Level | Password | Options |
| ".$row['username']." | "; 261: echo ""; 262: echo " | "; 269: echo " | "; 270: echo ""; 271: echo " | Delete | "; 272: echo "
| "; 279: echo " | "; 280: echo " | "; 286: echo " | "; 287: echo " | "; 288: echo " |
"; 290: echo "
"; 291: $NATS->DB->Free($r); 292: } 293: else if ($mode=="nodetestsessions") 294: { 295: echo "Test Sessions for ".$_REQUEST['nodeid']."
"; 296: echo "Running Sessions for ".$_REQUEST['nodeid']."
"; 297: $q="SELECT * FROM fntestrun WHERE fnode=\"".ss($_REQUEST['nodeid'])."\" AND finishx=0 ORDER BY trid DESC"; 298: $r=$NATS->DB->Query($q); 299: if ($NATS->DB->Num_Rows($r)==0) echo "No running test sessions
"; 300: echo "
| run/".$row['trid']." | "; 304: echo "".nicedt($row['startx'])." - "; 305: if ($row['finishx']>0) echo nicedt($row['finishx']); 306: else echo "Still Running"; 307: echo " (System Logs)"; 308: echo " |
"; 313: echo "
"; 314: 315: echo "Last 100 Previous Sessions for ".$_REQUEST['nodeid']."
"; 316: $q="SELECT * FROM fntestrun WHERE fnode=\"".ss($_REQUEST['nodeid'])."\" ORDER BY trid DESC LIMIT 0,100"; 317: $r=$NATS->DB->Query($q); 318: if ($NATS->DB->Num_Rows($r)==0) echo "No previous test sessions
"; 319: echo "
| run/".$row['trid']." | "; 323: echo "".nicedt($row['startx'])." - "; 324: if ($row['finishx']>0) echo nicedt($row['finishx']); 325: else echo "Still Running"; 326: echo " (System Logs)"; 327: echo " |
"; 332: echo "
"; 333: 334: } 335: else if ($mode=="testsessions") 336: { 337: echo "Running Test Sessions
"; 338: $q="SELECT * FROM fntestrun WHERE finishx=0 ORDER BY trid DESC"; 339: $r=$NATS->DB->Query($q); 340: if ($NATS->DB->Num_Rows($r)==0) echo "No running test sessions
"; 341: echo "
| run/".$row['trid']." | "; 345: echo "".nicedt($row['startx'])." - "; 346: if ($row['finishx']>0) echo nicedt($row['finishx']); 347: else echo "Still Running"; 348: echo " (System Logs)"; 349: echo " |
"; 354: echo "355: echo ""; 356: echo "Last 100 Test Sessions for "; 357: $q="SELECT nodeid,nodename FROM fnnode ORDER BY weight ASC"; 358: $r=$NATS->DB->Query($q); 359: echo "360: while ($row=$NATS->DB->Fetch_Array($r)) 361: { 362: echo ""; 363: } 364: echo "
"; 365: } 366: else if ($mode=="alertactions") 367: { 368: echo "Alert Actions
"; 369: 370: if (isset($_REQUEST['aaid'])) 371: { // view/edit aaid 372: $q="SELECT * FROM fnalertaction WHERE aaid=".ss($_REQUEST['aaid']); 373: $r=$NATS->DB->Query($q); 374: if (!$row=$NATS->DB->Fetch_Array($r)) 375: { 376: echo "Error Fetching AAID
"; 377: Screen_Footer(); 378: exit(); 379: } 380: echo "
| ID : | action/".$_REQUEST['aaid']." |
| Action Name : | "; 388: echo ""; 389: echo ""; 390: echo " |
| Type : | "; 393: echo "394: echo ""; 395: echo ""; 396: echo ""; 397: echo ""; 398: echo ""; 399: echo ""; 400: echo " |
| Schedule : | "; 403: echo "404: echo ""; 405: $sq="SELECT scheduleid,schedulename FROM fnschedule"; 406: $sr=$NATS->DB->Query($sq); 407: while ($sched=$NATS->DB->Fetch_Array($sr)) 408: { 409: if ($sched['scheduleid']==$row['scheduleid']) $s.=" selected"; 410: else $s=""; 411: echo ""; 412: } 413: echo ""; 414: $NATS->DB->Free($sr); 415: echo " ".hlink("AlertSchedule"); 416: echo " |
| Warnings : | "; 420: if ($row['awarnings']==1) $s=" checked"; 421: else $s=""; 422: echo "".hlink("AAction:Warnings")." |
| Decreases : | "; 425: if ($row['adecrease']==1) $s=" checked"; 426: else $s=""; 427: echo "".hlink("AAction:Decreases")." |
| Action Limit : | "; 430: echo ""; 431: echo " "; 432: echo hlink("AAction:Limit"); 433: echo " |
| Action Counter : | "; 436: echo ""; 437: echo " "; 438: echo hlink("AAction:Counter"); 439: echo " (for "; 440: if ($row['ctrdate']=="") echo "unknown"; 441: else echo substr($row['ctrdate'],6,2)."/".substr($row['ctrdate'],4,2)."/".substr($row['ctrdate'],0,4); 442: echo ")"; 443: echo " |
| Email From : | "; 449: echo ""; 450: echo ""; 451: echo " |
| Email Subject : | "; 454: echo "455: echo ""; 456: echo ""; 457: echo ""; 458: echo ""; 459: echo ""; 460: echo " |
| Msg Type : | "; 465: echo "466: echo ""; 467: echo ""; 468: echo ""; 469: echo ""; 470: echo " |
| Email To or URL : | "; 473: echo ""; 474: echo " |
| Cancel Update | "; 477: echo "Test Action | "; 478: echo "Delete Action"; 479: echo " | |
"; 482: $NATS->DB->Free($r); 483: } 484: 485: $q="SELECT aaid,atype,aname FROM fnalertaction"; 486: $r=$NATS->DB->Query($q); 487: echo "
| ID | Action Name | Action Type |
| "; 492: echo "".$row['aaid']." | "; 493: echo "".$row['aname']." | "; 494: echo aat_atype($row['atype']); 495: echo " |
Create New Alert Action
"; 500: echo "
"; 501: } 502: else if ($mode=="logs") 503: { 504: echo "System Logs
"; 505: echo "System Event Log
"; 506: 507: echo "
"; 508: } 509: else if ($mode=="status") 510: { 511: // system healthcheck 512: 513: // usage data 514: //$q="SELECT COUNT(fnnode.nodeid),COUNT(fngroup.groupid),COUNT( FROM fnnode,fngroup"; 515: $q="SHOW TABLE STATUS LIKE \"fn%\""; 516: $r=$NATS->DB->Query($q); 517: 518: echo "FreeNATS System Status
"; 519: 520: $tinfo=array(); 521: 522: echo "Table Sizes
"; 523: 524: echo "
| Table Name | Size (Rows) | Size (kb) | Other Information |
| ".$row['Name']." | ".$row['Rows']." | "; 529: echo "".round($row['Data_length']/1024,0)." | "; 530: if (isset($tinfo[$row['Name']])) echo $tinfo[$row['Name']]; 531: else echo " "; 532: if ($row['Data_free']>0) 533: { 534: echo " [".round($row['Data_free']/1024,0)."kb Free - Optimise]"; 535: } 536: echo " |
"; 541: 542: echo "Test Sessions
"; 543: $q="SELECT * FROM fntestrun WHERE finishx=0"; 544: $r=$NATS->DB->Query($q); 545: echo "".$NATS->DB->Num_Rows($r)." Open/Running Test Sessions
"; 546: if ($NATS->DB->Num_Rows($r)>0) 547: { 548: echo "
| ID | Node | Started | Notes |
| "; 556: echo $row['trid']." | "; 557: echo ""; 558: echo " | ".nicedt($row['startx'])." - ".dtago($row['startx'])." | "; 559: echo ""; 560: if ($row['startx']<$hourx) echo "Error: Over an hour old"; 561: else if($row['startx']<$fifteenx) echo "Warning: Over fifteen minutes old"; 562: else echo " "; 563: echo " |
"; 569: 570: echo "Environment
"; 571: 572: function test_funcs($funcs) 573: { 574: if (!is_array($funcs)) $funcs=array($funcs); 575: $out=""; 576: for($a=0; $a
"; 593: return true; 594: } 595: else 596: { 597: echo "".$mod." - ".$text."
"; 598: return false; 599: } 600: } 601: 602: if (!test_mod("IMAP","imap_open")) 603: { 604: echo "IMAP is not supported - don't configure IMAP tests or your environment will hang
"; 605: } 606: echo "
"; 607: if (!test_mod("Sockets","fsockopen")) 608: { 609: echo "Sockets are not supported - fatal error
"; 610: } 611: echo "
"; 612: if (!test_mod("Streams","fopen")) 613: { 614: echo "Streams are not supported - fatal error
"; 615: } 616: echo "
"; 617: if (!test_mod("MySQL","mysql_connect")) 618: { 619: echo "MySQL are not supported - fatal error
"; 620: } 621: echo "
"; 622: if (!test_mod("Mail","mail")) 623: { 624: echo "mail() not supported, may have to use direct SMTP or maybe no mail will work!
"; 625: } 626: echo "
"; 627: if (!test_mod("PHP5","str_split")) 628: { 629: echo "Don't appear to be running PHP5 - this may not work on PHP4
"; 630: } 631: echo "
"; 632: 633: echo "
"; 634: 635: echo "Please note this merely displays FreeNATS software status - not
the status of "; 636: echo "the underlying Virtual Machine (if applicable).
You should monitor disk space and "; 637: echo "performance for the VM via
the relevant system (such as the rPath interface).
"; 638: 639: } 640: else if ($mode=="variables") 641: { 642: echo "Variables ".hlink("Variable")."
"; 643: $q="SELECT * FROM fnconfig ORDER BY fnc_var ASC"; 644: $r=$NATS->DB->Query($q); 645: echo "
| "; 654: echo " | "; 655: echo "= | "; 656: echo ""; 657: echo " | "; 658: echo hlink("Var:".$row['fnc_var']); 659: echo " | "; 660: echo "
| "; 667: echo " | = | "; 668: echo ""; 669: echo " | "; 670: echo " |
"; 677: 678: echo "Version Information
"; 679: echo "
| Version: | ".$NATS->Version." |
| Release: | ".$NATS->Release." |
| Compound: | ".$NATS->Version.$NATS->Release." |
"; 684: 685: echo "Registered Test Modules
"; 686: echo "
| Name | Provides | Revision | Additional |
| "; 691: echo $NATS->Tests->Tests[$key]->name; 692: echo " | "; 693: echo $NATS->Tests->Tests[$key]->type; 694: echo " | "; 695: echo $NATS->Tests->Tests[$key]->revision; 696: echo " | "; 697: echo $NATS->Tests->Tests[$key]->additional; 698: echo " |
"; 701: 702: echo "Registered Event Handlers
"; 703: echo "
| Event | Handler(s) |
| ".$key." | ";
708: foreach($NATS->EventHandlers[$key] as $handler)
709: echo $handler." "; 710: echo " |
"; 713: } 714: else // catch-all 715: { 716: echo "
";
717: echo "User Administration"; 718: echo "
";
719: echo "System Event Log"; 720: echo "
";
721: echo "Alert Actions"; 722: echo "
";
723: echo "System Variables"; 724: echo "
";
725: echo "Test Sessions"; 726: echo "
";
727: echo "Test and Alert Schedules"; 728: echo "
";
729: echo "File Manager"; 730: 731: if ($NATS->Cfg->Get("site.enable.adminsql",0)==1) 732: { 733: echo "
";
734: echo "SQL Console"; 735: } 736: echo "
";
737: echo "DNS Query Console"; 738: echo "
";
739: echo "Backup and Restore"; 740: echo "
";
741: echo "System Status Report"; 742: echo "
";
743: echo "System Information"; 744: } 745: 746: if ($mode!="") echo "Back to Main Admin Menu
"; 747: ?> 748: 749: 750: 751: Screen_Footer(); 752: ?> 753: