[Bast-commits] r9846 - in ironman/IronMan-Web/trunk: . lib/IronMan/Web/Controller

[dhoss at dev.catalyst.perl.org]

Author: dhoss
Date: 2011-03-29 22:28:58 +0000 (Tue, 29 Mar 2011)
New Revision: 9846

Modified:
   ironman/IronMan-Web/trunk/Makefile.PL
   ironman/IronMan-Web/trunk/lib/IronMan/Web/Controller/Root.pm
Log:
updated Makefile.PL and added stub action for updating feeds

Modified: ironman/IronMan-Web/trunk/Makefile.PL
===================================================================
--- ironman/IronMan-Web/trunk/Makefile.PL	2011-03-29 20:14:33 UTC (rev 9845)
+++ ironman/IronMan-Web/trunk/Makefile.PL	2011-03-29 22:28:58 UTC (rev 9846)
@@ -23,6 +23,7 @@
 requires 'DateTime::Format::HTTP';
 requires 'YAML::XS';
 requires 'IronMan::Schema';
+requires 'Term::Prompt';
 
 # We need DateTime::Format::SQLite for script/import_csv.pl if using SQLite
 recommends 'DateTime::Format::SQLite';

Modified: ironman/IronMan-Web/trunk/lib/IronMan/Web/Controller/Root.pm
===================================================================
--- ironman/IronMan-Web/trunk/lib/IronMan/Web/Controller/Root.pm	2011-03-29 20:14:33 UTC (rev 9845)
+++ ironman/IronMan-Web/trunk/lib/IronMan/Web/Controller/Root.pm	2011-03-29 22:28:58 UTC (rev 9846)
@@ -131,6 +131,23 @@
     $c->res->body($opml->as_string);
 }
 
+
+=head2 update_feed
+
+Update a feed give a user's unique key
+
+=cut
+
+sub update_feed : Local Args(1) {
+  my ($self, $c, $id) = @_;
+  my $feed = $c->model('FeedDB::Feed')->find({ id => $id });
+  if ( defined $feed ) {
+    $c->res->body("welcome " . $feed->owner);
+  } else {
+    $c->res->body("user not found");
+  }
+}
+
 =head2 end
 
 Attempt to render a view, if needed.