[Bps-public-commit] r11414 - in SVN-PropDB: . bin

[jesse at bestpractical.com]

Author: jesse
Date: Wed Apr  2 22:12:11 2008
New Revision: 11414

Modified:
   SVN-PropDB/   (props changed)
   SVN-PropDB/bin/sd
   SVN-PropDB/lib/Prophet/Sync/Source.pm

Log:
 r29028 at 70-5-158-116:  jesse | 2008-04-02 16:11:53 -1000
 * sd gets help


Modified: SVN-PropDB/bin/sd
==============================================================================
--- SVN-PropDB/bin/sd	(original)
+++ SVN-PropDB/bin/sd	Wed Apr  2 22:12:11 2008
@@ -44,10 +44,30 @@
 
 my $command = shift @ARGV;
 
-my $func = main->can('cmd_'.$command) or die "unknown command $command";
+my $func = main->can('cmd_'.$command) || main->can('cmd_help');
+
 $func->();
 
 
+sub cmd_help {
+
+print <<EOF
+
+$0 ticket create --summary "This is a summary" --status new --somekey value
+$0 ticket update --uuid <uuid> --status resolved
+$0 ticket search --regex .
+$0 ticket delete --uuid <uuid>
+$0 ticket show --uuid <uuid>
+$0 pull remote-url
+
+$0 help  
+    Show this file
+
+EOF
+
+}
+
+
 sub cmd_push {
 
     # Trivial first pass:

Modified: SVN-PropDB/lib/Prophet/Sync/Source.pm
==============================================================================
--- SVN-PropDB/lib/Prophet/Sync/Source.pm	(original)
+++ SVN-PropDB/lib/Prophet/Sync/Source.pm	Wed Apr  2 22:12:11 2008
@@ -128,7 +128,7 @@
         $conflict->resolvers( [ sub { $args{resolver}->(@_) } ] ) if $args{resolver};
         if ( $args{resolver_class} ) {
             $args{resolver_class}->require || die $@;
-            $conflict->resolvers( [ sub { warn "CAlling ".$args{resolver_class};
+            $conflict->resolvers( [ sub { 
                 $args{resolver_class}->new->run(@_); } ] )
 
         }