From: Tara L Andrews <tla@mit.edu>
Date: Sat, 8 Oct 2011 11:31:41 +0000 (+0200)
Subject: add simple conversion service, dot to stemma graph
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3f9bd25295d0dc9718a45d20c99f547d9820fbea;p=scpubgit%2Fstemmatology.git

add simple conversion service, dot to stemma graph
---

diff --git a/TreeOfTexts/lib/TreeOfTexts/Controller/Stemmagraph.pm b/TreeOfTexts/lib/TreeOfTexts/Controller/Stemmagraph.pm
new file mode 100644
index 0000000..f2fcccc
--- /dev/null
+++ b/TreeOfTexts/lib/TreeOfTexts/Controller/Stemmagraph.pm
@@ -0,0 +1,85 @@
+package TreeOfTexts::Controller::Stemmagraph;
+use Moose;
+use namespace::autoclean;
+use Text::Tradition::Collation;
+use Text::Tradition::Stemma;
+
+BEGIN { extends 'Catalyst::Controller' }
+
+#
+# Sets the actions in this controller to be registered with no prefix
+# so they function identically to actions created in MyApp.pm
+#
+__PACKAGE__->config(namespace => '');
+
+=head1 NAME
+
+TreeOfTexts::Controller::Root - Root Controller for TreeOfTexts
+
+=head1 DESCRIPTION
+
+[enter your description here]
+
+=head1 METHODS
+
+=head2 index
+
+The root page (/)
+
+=cut
+
+sub index :Path :Args(0) {
+    my ( $self, $c ) = @_;
+    $c->stash->{template} = 'dotinput.tt2';  
+}
+
+sub get_graph :Local {
+	my( $self, $c ) = @_;
+	# If called interactively, we have params 'display', 'output', 'witnesses'
+	# If called non-interactively, we look at headers and content.
+	# The body is actually a File::Temp object; this is undocumented but 
+	# so it seems to be.
+	my $dot_fh = $c->request->body;
+	my $format = 'svg';
+
+    # Render the dot in the given format.
+    my $collation = Text::Tradition::Collation->new();
+    my $stemma = Text::Tradition::Stemma->new( 'collation' => $collation, 'dot' => $dot_fh );
+    $c->stash->{result} = $stemma->as_svg;
+    $c->forward( "View::SVG" );
+}
+
+=head2 default
+
+Standard 404 error page
+
+=cut
+
+sub default :Path {
+    my ( $self, $c ) = @_;
+    $c->response->body( 'Page not found' );
+    $c->response->status(404);
+}
+
+=head2 end
+
+Attempt to render a view, if needed.
+
+=cut
+
+sub end : ActionClass('RenderView') {}
+
+=head1 AUTHOR
+
+Tara L Andrews
+
+=head1 LICENSE
+
+This library is free software. You can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
+
+__PACKAGE__->meta->make_immutable;
+
+1;
diff --git a/TreeOfTexts/lib/TreeOfTexts/View/SVG.pm b/TreeOfTexts/lib/TreeOfTexts/View/SVG.pm
new file mode 100644
index 0000000..c27dc2e
--- /dev/null
+++ b/TreeOfTexts/lib/TreeOfTexts/View/SVG.pm
@@ -0,0 +1,14 @@
+package TreeOfTexts::View::SVG;
+
+use strict;
+use base 'Catalyst::View';
+use Encode qw( decode_utf8 );
+
+sub process {
+        my( $self, $c ) = @_;
+        $c->res->content_type( 'image/svg+xml' );
+        $c->res->content_encoding( 'UTF-8' );
+        $c->res->output( decode_utf8( $c->stash->{result} ) );
+}
+
+1;