rev 1307 - trunk/siesta/bin

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

Author: richardc
Date: 2003-08-11 10:30:13 +0100 (Mon, 11 Aug 2003)
New Revision: 1307

Modified:
   trunk/siesta/bin/nacho
Log:
MOTHERFUCKINGTABS! (and other layout badness)


Modified: trunk/siesta/bin/nacho
===================================================================
--- trunk/siesta/bin/nacho	2003-08-11 09:24:32 UTC (rev 1306)
+++ trunk/siesta/bin/nacho	2003-08-11 09:30:13 UTC (rev 1307)
@@ -620,30 +620,26 @@
 
 
 $commands{'show-deferred'} = sub {
+    my $user_id = shift || die "You must pass a user name\n";
+    my $mess_id = shift;
 
-        my $user_id = shift || die "You must pass a user name\n";
-        my $mess_id = shift;
+    my $user = Siesta::Member->load($user_id)
+      or die "No such user $user_id\n";
 
-        my $user = Siesta::Member->load($user_id)
-                or die "No such user $user_id\n";
-
-        if (defined $mess_id) {
-
-                my $deferred = Siesta::Deferred->search( who => $user, id => $mess_id );
-                if (defined $deferred) {
-                        print $deferred->message->as_string;
-                } else {
-                        print "No such deferred message\n";
-                }
-
-        } else {
-
-                foreach my $deferred (Siesta::Deferred->search( who => $user ))
-                {
-                        print $deferred->id(),") ",$deferred->message->subject(),"\n";
-                }
+    if (defined $mess_id) {
+        my $deferred = Siesta::Deferred->search( who => $user, id => $mess_id );
+        if (defined $deferred) {
+            print $deferred->message->as_string;
         }
-
+        else {
+            print "No such deferred message\n";
+        }
+    }
+    else {
+        foreach my $deferred (Siesta::Deferred->search( who => $user )) {
+            print $deferred->id(),") ",$deferred->message->subject(),"\n";
+        }
+    }
 };
 
 
@@ -654,19 +650,16 @@
 =cut
 
 $commands{'resume-deferred'} = sub {
-
     my $user_id = shift || die "You must pass a user name\n";
     my $mess_id = shift;
 
-
     my $message = Siesta::Deferred->retrieve($mess_id)
-                        or die "No such deferred message\n";
+      or die "No such deferred message\n";
     return unless $user_id == $message->who;
 
     Siesta::Message->resume( $message->id );
 
-        print "Sucessfully resumed message $mess_id\n";
-
+    print "Sucessfully resumed message $mess_id\n";
 };
 
 #####
@@ -709,14 +702,14 @@
     my @members;
     my @lists;
 
-    # have we been passed a list
     if ($_[0]) {
+        # we have been passed a list
         my $list = Siesta::List->load($_[0]) || die "No such list '$_[0]'\n";
         push @lists, $list;
         @members = $list->members();
-
-    # other wise do everything
-    } else {
+    }
+    else {
+        # otherwise do everything
         @members = Siesta::Member->retrieve_all;
         @lists   = Siesta::List->retrieve_all;
     }

• rev 1307 - trunk/siesta/bin richardc 10:30 on 11 Aug 2003

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