Permalink
Browse files

Merge branch 'master' of github.com:cgutteridge/SharePerltopus

  • Loading branch information...
Christopher Gutteridge
Christopher Gutteridge committed Apr 26, 2012
2 parents 54d7ccc + aa37651 commit ad8c39de677296b4b86555aca0bc0a98a12b4721
Showing with 14 additions and 1 deletion.
  1. +14 −1 bin/shareperltopus
View
@@ -70,10 +70,23 @@ elsif( $action eq "attachment-collection" )
}
else
{
- die "Unknown action: $action";
+ print STDERR "Unknown action: $action\n\n";
+ print STDERR usage();
+
+ exit 1;
}
exit;
+sub usage
+{
+ return <<END
+shareperltopus collections --site <site-url>
+shareperltopus list-info --site <site-url> --list <list-id>
+shareperltopus list-fields --site <site-url> --list <list-id>
+shareperltopus list-to-tsv --site <site-url> --list <list-id> [--fields-file <file>] [--view <view>]
+END
+}
+
sub action_list_info
{
my( $spc, %opts ) = @_;

0 comments on commit ad8c39d

Please sign in to comment.