#!/usr/bin/perl -w

use strict;
use warnings;
use diagnostics;
use File::Copy;

$path = "/mnt/ldmdata/";
@site_array = {"karx", "kdlh", "kfsd", "kmpx", "kmvx", "kwbc"};
$poll_time = 20; # # of sec between polls of all specified directories

for (;;)
{
	foreach $site (@site_array)
	{
		$file_dir = $path . $site;
		$archive_dir = $file_dir . "/archive";
		mkdir "$archive_dir", 0755 unless -d "$archive_dir";

		opendir(FILE, $file_dir) || die "Cannot open $file_dir";
		@files = readdir(FILE);
		closedir(FILE);

		if(@files)
		{
			foreach $file (@files)
			{
				pqinsert $file_dir . $file;
				move($file_dir . $file, $archive_dir . $file);
			}
		}
	}

	sleep $poll_time;
}