[Rt-commit] r4557 - in rt/branches/3.5-TESTING: .

[kevinr at bestpractical.com]

Author: kevinr
Date: Mon Feb 20 21:50:53 2006
New Revision: 4557

Modified:
   rt/branches/3.5-TESTING/   (props changed)
   rt/branches/3.5-TESTING/bin/rt.in

Log:
 r11043 at sad-girl-in-snow:  kevinr | 2006-02-20 21:49:38 -0500
 * Added a 'quit' command (also 'exit') to exit from the shell.  This makes 
 testing via Test::Expect a *lot* easier.


Modified: rt/branches/3.5-TESTING/bin/rt.in
==============================================================================
--- rt/branches/3.5-TESTING/bin/rt.in	(original)
+++ rt/branches/3.5-TESTING/bin/rt.in	Mon Feb 20 21:50:53 2006
@@ -113,6 +113,7 @@
     link        => ["link", "ln"],
     merge       => ["merge"],
     grant       => ["grant", "revoke"],
+    quit        => ["quit", "exit"],
 );
 
 my %actions;
@@ -163,6 +164,11 @@
     submit("$REST/logout") if defined $session->cookie;
 }
 
+sub quit {
+    logout();
+    exit;
+}
+
 my %help;
 sub help {
     my ($action, $type) = @_;