#!/usr/bin/perl

#one line to give the program's name and an idea of what it does.
#Copyright (C) 2007 Richard Warburton, Dave Buckley

#This program is free software; you can redistribute it and/or
#modify it under the terms of the GNU General Public License
#as published by the Free Software Foundation; either version 2
#of the License, or (at your option) any later version.

#This program is distributed in the hope that it will be useful,
#but WITHOUT ANY WARRANTY; without even the implied warranty of
#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#GNU General Public License for more details.

#You should have received a copy of the GNU General Public License
#along with this program; if not, write to the Free Software
#Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.


use LWP::UserAgent;
$ua=LWP::UserAgent->new;

sub run {
	foreach $file (@_)
	{
		if(-d $file) {
			opendir(SUB_DIR,$file);
			@moo = readdir(SUB_DIR);
			closedir(SUB_DIR);
			@moo = reverse(@moo);			
			pop @moo;pop @moo;
			run(@moo);
		} else {
			$ua->post("http://192.168.0.251/",Content_Type=>"form-data",Content=>[upload=>[$file]]);
			print $file . "\n";
		}
	}
}

run(@ARGV)