Provide script to delete message attachments older than X days

common/scripts/clean_message_files.php

@@ -0,0 +1,63 @@
+<?php
+
+/**
+ * This script deletes old message attachments.
+ * 
+ * Files attached to member messages are not viewable by other users, but they
+ * take up space on the server. You may want to delete them after a certain
+ * number of days in order to prevent users from using messages as a sort of
+ * private storage space.
+ */
+require_once __DIR__ . '/common.php';
+
+// Delete attachments older than this number of days.
+$days = 30;
+
+// Initialize the exit status.
+$exit_status = 0;
+
+// Initialize objects.
+$oDB = DB::getInstance();
+$oFileController = getController('file');
+
+// Find and delete files where upload_target_type = msg.
+$args = new stdClass;
+$args->upload_target_type = 'msg';
+$args->list_count = 50;
+$args->regdate_before = date('YmdHis', time() - ($days * 86400));
+while (true)
+{
+	$output = executeQueryArray('file.getFileList', $args);
+	if ($output->toBool())
+	{
+		if ($output->data)
+		{
+			$oDB->begin();
+			foreach ($output->data as $file_info)
+			{
+				$oFileController->deleteFile($file_info->file_srl);
+			}
+			$oDB->commit();
+			
+			if ($output->page_navigation && $output->page_navigation->total_count == count($output->data))
+			{
+				break;
+			}
+		}
+		else
+		{
+			break;
+		}
+	}
+	else
+	{
+		echo "Error while deleting message attachments older than $days days.\n";
+		echo $output->getMessage() . "\n";
+		$exit_status = 11;
+		break;
+	}
+}
+if ($exit_status == 0)
+{
+	echo "Successfully deleted all message attachments older than $days days.\n";
+}

modules/file/queries/getFileList.xml

@@ -14,6 +14,8 @@
         <condition operation="in" column="files.module_srl" var="s_module_srl" />
         <condition operation="notin" column="files.module_srl" var="exclude_module_srl" pipe="and" />
         <condition operation="equal" column="files.isvalid" var="isvalid" pipe="and" />
+		<condition operation="equal" column="upload_target_srl" var="upload_target_srl" pipe="and" />
+		<condition operation="equal" column="upload_target_type" var="upload_target_type" pipe="and" />
         <condition operation="equal" column="files.direct_download" var="direct_download" pipe="and" />
 		<condition operation="below" column="files.regdate" var="regdate_before" pipe="and" />
         <group pipe="and">