1 package NDWeb::Controller::TextExport;
5 use parent 'Catalyst::Controller';
9 NDWeb::Controller::TextExport - Catalyst Controller
25 my ( $self, $c ) = @_;
26 $c->stash(template => 'textexport/index.tt2');
29 sub alliance : Local {
30 my ( $self, $c, $ally ) = @_;
33 my $query = $dbh->prepare(q{SELECT coords(x,y,z), size, score, value,race, COALESCE(nick,'') AS nick
34 FROM current_planet_stats
37 $query->execute($ally);
39 $c->stash(titles => $query->{NAME});
40 $c->stash(values => $query->fetchall_arrayref);
43 sub end : ActionClass('RenderView') {
44 my ( $self, $c ) = @_;
45 $c->res->content_type('text/plain') if $c->stash->{template} =~ m{^textexport/};
50 Michael Andreen (harv@ruin.nu)