#!/usr/bin/perl -w
use strict;

use WRT54G;
use Util;

my %config = Util::parse_config('wrt54g.cfg');

my $wrt54g = WRT54G->new(%config);

my $in_filename = shift;

usage() unless $in_filename;

$wrt54g->send_file(filename => $in_filename,
		   subdir   => "incoming",
		  );

sub usage {
  print ("Usage: $0 <filename to put on wrt54g>\n");
  exit();
}