#!/usr/bin/perl 
use lib "../lib";
use Rest;
use CGI;
use Poetaster;

my $file = $ARGV[0] || "twain";
my $data = load_data($file);
$data =~ s/<[^>]+>//g;
$data =~ s/\r\n/ /g;
$data =~ s/\s+/ /g;
$data =~ s/\. \. \. /... /g;
my $self = new Poetaster;
my $poem = $self->poem($data);
print $poem;

sub load_data
	{
	my ($file) = @_;
	my $data = '';
	if ($file =~ /^http/)
		{
		$data = Rest->new->rest_get_raw($file);
		}
	else
		{
		local $/;
		open F, $file;
		$data = <F>;
		close F;
		}
	return $data;
	}