#!/usr/bin/perl

# bucky ftp monitor
# should be owned by bucky:psacln and chmod 0755

# nohup ./.buckypoll.pl > .output.log 2>&1 &

use strict;
my $localpath = "/var/www/vhosts/carbonpictures.com/bucky/incoming";

while (1)
	{
	if (-e "$localpath/.importnow")
		{
		system("mv", "$localpath/.importnow", "$localpath/.importing");
		system("chmod", "-R", "0777", $localpath);
		system("rm", "$localpath/.importing");
		}
	sleep(5);
	}