bucky2

1 files changed, 140 insertions, 0 deletions

diff --git a/bucky2/lib/Poetaster.pm b/bucky2/lib/Poetaster.pm
new file mode 100644
index 0000000..da5b854
--- /dev/null
+++ b/bucky2/lib/Poetaster.pm
@@ -0,0 +1,140 @@
+package Bucky::Poetaster;
+use Digest::MD5;
+use Rest;
+
+# Maximum distance to indent a line of text
+my $MAX_INDENT = 3;
+
+# Maximum number of words per line
+my $MAX_WORD_COUNT = 6;
+
+# Maximum number of letters per line
+my $MAX_CHAR_COUNT = 36;
+
+# Number of spaces to print per level of indentation
+my $INDENT_WIDTH = 2;
+
+sub new
+	{
+	my ($class, $self) = @_;
+	$self ||= {};
+	$self->{'indent'} = 0;
+	bless $self, $class;
+	return $self;
+	}
+# Given a big block of text, reformat it to resemble a poem
+sub poem
+	{
+	my ($self, $text) = @_;
+	# Split the text into words
+	my @words = split / /, $text;
+	# Initialize all counters to zero
+	$self->{'indent'} = 0;
+	my $word_count = 0;
+	my $char_count = 0;
+	# variable to dump all data onto
+	my $stanza = '';
+	# loop over all words in the block
+	foreach my $word (@words)
+		{
+		# if word is undefined, skip it (two spaces next to each other)
+		next unless $word;
+		# if word starts with non-alphanumeric character
+		# make a new line and then print the word
+		if ($word =~ /^[^a-z0-9<>]/i)
+			{
+			$word_count = 1;
+			$char_count = length $word;
+			$stanza .= $self->indent;
+			$stanza .= $word;
+			next;
+			}
+		# if word ends with non-alphanumeric character,
+		# print the word and THEN start a new line
+		if ($word =~ /([^a-z<>])$/i)
+			{
+			my $punct = $1;
+			# if the word ends with a period, start a new stanza
+			if ($punct eq "." || $punct eq "?")
+				{ $self->{'indent'} = 0; }
+			$word_count = 0;
+			$char_count = 0;
+			$stanza .= " " . $word;
+			$stanza .= $self->indent;
+			next;
+			}
+		# otherwise, print the word
+		$stanza .=  " ". $word;
+		# tally the line length and number of words on the line
+		$word_count += 1;
+		$char_count += length($word)+ 1;
+		# if we've printed a whole line's worth, start a new line
+		if ($char_count > $MAX_CHAR_COUNT || $word_count > $MAX_WORD_COUNT)
+			{
+			$stanza .= $self->indent;
+			$word_count = 0;
+			$char_count = 0;
+			}
+		}
+	# return the new poem cuz we're done
+	return $stanza;
+	}
+# Modify the current indentation depth,
+# and return a string constituting the indent
+sub indent
+	{
+	my ($self) = @_;
+	# if we've already indented as far as we'd like, pull back
+	if ($self->{'indent'} > $MAX_INDENT)
+		{
+		$self->{'indent'} -= 1;
+		}
+	# otherwise, indent one notch further
+	else
+		{
+		$self->{'indent'} += 1;
+		}
+	# print a newline, then indent according to the indentation width
+	return "\n" . " " x ( $self->{'indent'} * $INDENT_WIDTH );
+	}
+sub url_cache
+	{
+	my ($self, $url) = @_;
+	my $hash = md5_hex($url);
+	my $path = $self->url_cache_path($hash);
+	while (-e $path)
+		{
+		open P, $path or last;
+		my @lines = <P>;
+		close P;
+		return join "", @lines;
+		}
+	my $data = Rest->new->rest_get_raw($url);
+	open P, ">$path" or return $data;
+	print P $data;
+	close $p;
+	return $data;
+	}
+sub url_cache_path
+	{
+	my ($self, $hash) = @_;
+	my $path = $self->bucky_data_path . "/poetaster/" . $hash;
+	return $path;
+	}
+sub log
+	{
+	my ($self, $date) = @_;
+	my $criteria = {};
+	$criteria->{'date'} = $date if $date;
+	return $self->db->select("poetaster_log", $criteria);
+	}
+sub log_query
+	{
+	my ($self, $query, $total) = @_;
+	return unless $query;
+	my $date = time;
+	$matches ||= '0';
+	$self->db->insert("poetaster_log", { query => $query, date => $date, matches => $total });
+	}
+1;
+