File:
0.02.73a/server/bin/cleanup.sh (
View as Code)
1: #!/usr/bin/php -q
2: 3: require("include.php");
4: $NATS->Start();
5:
6: $day=60*60*24;
7: $nowx=time();
8:
9: $ret_alert=$NATS->Cfg->Get("retain,alert",356);
10: if ($ret_alert==0) $ret_alert=356;
11: $ret_testrun=$NATS->Cfg->Get("retain.testrun",30);
12: if ($ret_testrun==0) $ret_testrun=30;
13: $ret_records=$NATS->Cfg->Get("retain.record",356);
14: if ($ret_records==0) $ret_records=356;
15: $ret_syslog=$NATS->Cfg->Get("retain.syslog",30);
16: if ($ret_syslog==0) $ret_syslog=30;
17:
18: if ($ret_alert>0)
19: {
20: $q="SELECT alertid FROM fnalert WHERE closedx<".($nowx-($day*$ret_alert));
21: $r=$NATS->DB->Query($q);
22: $del_alert=0;
23: $del_aa=0;
24: while ($row=$NATS->DB->Fetch_Array($r))
25: {
26: $alid=$row['alertid'];
27: $q="DELETE FROM fnalertlog WHERE alertid=".$row['alertid'];
28: $NATS->DB->Query($q);
29: $del_aa+=$NATS->DB->Affected_Rows();
30: $q="DELETE FROM fnalert WHERE alertid=".$row['alertid'];
31: $NATS->DB->Query($q);
32: $del_alert++;
33: }
34: echo "Deleted ".$del_alert." Alerts\n";
35: echo "Deleted ".$del_aa." Alert Log Entries\n";
36: }
37:
38: if ($ret_testrun>0)
39: {
40: $q="DELETE FROM fntestrun WHERE startx<".($nowx-($day*$ret_testrun));
41: $NATS->DB->Query($q);
42: $del_testrun=$NATS->DB->Affected_Rows();
43: echo "Deleted ".$del_testrun." Test Runs\n";
44: }
45:
46: if ($ret_records>0)
47: {
48: $q="DELETE FROM fnrecord WHERE recordx<".($nowx-($day*$ret_records));
49: $NATS->DB->Query($q);
50: $del_records=$NATS->DB->Affected_Rows();
51: echo "Deleted ".$del_records." Result Records\n";
52: }
53:
54: if ($ret_syslog>0)
55: {
56: $q="DELETE FROM fnlog WHERE postedx<".($nowx-($day*$ret_syslog));
57: $NATS->DB->Query($q);
58: $del_syslog=$NATS->DB->Affected_Rows();
59: echo "Deleted ".$del_syslog." System Log Entries\n";
60: }
61:
62: $q="DELETE FROM fnsession WHERE updatex<".($nowx-$day); // live unaffected
63: $NATS->DB->Query($q);
64: $del_sessions=$NATS->DB->Affected_Rows();
65: echo "Deleted ".$del_sessions." Stale Sessions\n";
66:
67: $NATS->Stop();
68:
69: ?>
70:
71: