[Catalyst-commits] r6636 - trunk/examples/CatPaste/lib/CatPaste/Controller

[jshirley at dev.catalyst.perl.org]

Author: jshirley
Date: 2007-08-09 22:07:47 +0100 (Thu, 09 Aug 2007)
New Revision: 6636

Modified:
   trunk/examples/CatPaste/lib/CatPaste/Controller/Root.pm
Log:
Better notification

Modified: trunk/examples/CatPaste/lib/CatPaste/Controller/Root.pm
===================================================================
--- trunk/examples/CatPaste/lib/CatPaste/Controller/Root.pm	2007-08-09 21:05:02 UTC (rev 6635)
+++ trunk/examples/CatPaste/lib/CatPaste/Controller/Root.pm	2007-08-09 21:07:47 UTC (rev 6636)
@@ -119,6 +119,12 @@
             "Paste: $title at "  .
             $c->uri_for( $c->controller->action_for('paste'), $pk1 )
         );
+        $c->model('IKC')->notify(
+            "Paste: " .
+                $entry->title . " from " .
+                $entry->author . "(" . $entry->ip_address . ") at "  .
+                $c->uri_for( $c->controller->action_for('paste'), $pk1 )
+        );
     };
     $c->model('Schema')->schema->txn_do( $create_txn );