From e76b691e78e273226cba9284cb8cd22a423319ed Mon Sep 17 00:00:00 2001
From: Jules Laplace <carbon@melanarchy.org>
Date: Fri, 2 Aug 2013 17:23:25 -0500
Subject: bucky2

---
 bucky2/bin/poetaster | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100755 bucky2/bin/poetaster

(limited to 'bucky2/bin/poetaster')

diff --git a/bucky2/bin/poetaster b/bucky2/bin/poetaster
new file mode 100755
index 0000000..fe973a5
--- /dev/null
+++ b/bucky2/bin/poetaster
@@ -0,0 +1,33 @@
+#!/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;
+	}
-- 
cgit v1.2.3-70-g09d2