[AppDB] Add deleteOldComments to admin control center

[Rosanne DiMesio]

Adds a function to delete comments older than one year from
unmaintained entries. Fixes bug 18287.

Signed-off-by: Rosanne DiMesio <dimesio at earthlink.net>
---
 admin.php | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/admin.php b/admin.php
index 11e3aba..81fa430 100644
--- a/admin.php
+++ b/admin.php
@@ -262,6 +262,14 @@ function purgeRejectedVendors()
     echo "Removed " .query_affected_rows()." rejected vendors from database.<br>";
 }
 
+function deleteOldComments()
+{
+    $sQuery = "DELETE FROM appComments USING appComments, appVersion WHERE appComments.versionId = appVersion.versionId AND appVersion.hasMaintainer = 'false' AND appComments.time <= DATE_SUB(CURDATE(), INTERVAL '12' MONTH)";
+    $hResult = query_parameters($sQuery);
+    
+    echo "Deleted " .query_affected_rows()." comments older than 12 months from unmaintained entries.<br>";
+}
+
 function deleteOldErrorLogs()
 {
     $sQuery = "DELETE FROM error_log WHERE submitTime <= DATE_SUB(CURDATE(), INTERVAL '12' MONTH)";
@@ -337,6 +345,8 @@ function showChoices()
  
     echo '<a href="admin.php?sAction=purgeRejectedVendors" class="list-group-item"><h4>Purge rejected vendors</h4></a>';
     
+    echo '<a href="admin.php?sAction=deleteOldComments" class="list-group-item"><h4>Delete old comments</h4></a>';
+    
     echo '<a href="admin.php?sAction=deleteOldErrorLogs" class="list-group-item"><h4>Delete old error logs</h4></a>';
 
     echo '<a href ="'.BASE.'objectManager.php?sClass=error_log&sTitle=View+Error_log" class="list-group-item"><h4>View Error log entries</h4></a>';
@@ -385,6 +395,10 @@ switch(getInput('sAction', $aClean))
         purgeRejectedVendors();
         break; 
         
+    case 'deleteOldComments':
+        deleteOldComments();
+        break;
+        
     case 'deleteOldErrorLogs':
         deleteOldErrorLogs();
         break;
-- 
2.12.3