rev 1331 - trunk/siesta/bin

[prev] [thread] [next] [lurker] [Date index for 2003/08/13]

Author: richardc
Date: 2003-08-13 13:51:55 +0100 (Wed, 13 Aug 2003)
New Revision: 1331

Modified:
   trunk/siesta/bin/nacho
Log:
temporary blamelog


Modified: trunk/siesta/bin/nacho
===================================================================
--- trunk/siesta/bin/nacho	2003-08-13 12:23:03 UTC (rev 1330)
+++ trunk/siesta/bin/nacho	2003-08-13 12:51:55 UTC (rev 1331)
@@ -46,6 +46,8 @@
     exit;
 }
 
+use YAML;
+$siesta->log("nacho invoked by $< $> args: " . Dump \@ARGV);
 
 tie my %commands, 'Tie::IxHash';
 
@@ -614,7 +616,7 @@
 
 =head2 show-deferred [ deferred_id ]
 
-Show all the deferred messages or, if an id is 
+Show all the deferred messages or, if an id is
 passed in, show that deferred message.
 
 =cut
@@ -626,14 +628,14 @@
 
     # show an individual deferred message
     if (defined $mess_id) {
-        my $deferred = Siesta::Deferred->retrieve($mess_id) 
+        my $deferred = Siesta::Deferred->retrieve($mess_id)
             or die "No such deferred message\n";
         print $deferred->message->as_string;
         return;
     }
 
 
-    # otherwise 
+    # otherwise
     foreach my $deferred ( Siesta::Deferred->retrieve_all ) {
         print $deferred->id(),") ",$deferred->message->subject(), " (by ", $deferred->who->email(), " because '",$deferred->why,"')\n";
     }

• rev 1331 - trunk/siesta/bin richardc 13:51 on 13 Aug 2003

Generated at 13:57 on 01 Jul 2004 by mariachi 0.52