Subversion Repositories DevTools

Rev

Rev 361 | Rev 369 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 361 Rev 363
Line 88... Line 88...
88 
my $cmd = shift @ARGV || "help";
 88 
my $cmd = shift @ARGV || "help";
89 
CreatePackage()                        if ( $cmd =~ m/^create/ );
 89 
CreatePackage()                        if ( $cmd =~ m/^create/ );
90 
DeletePackage()                        if ( $cmd =~ m/^delete-package/ );
 90 
DeletePackage()                        if ( $cmd =~ m/^delete-package/ );
91 
ImportPackage()                        if ( $cmd =~ m/^import/ );
 91 
ImportPackage()                        if ( $cmd =~ m/^import/ );
92 
SvnRepoCmd($cmd, @ARGV)                if ( $cmd eq 'ls' );
 92 
SvnRepoCmd($cmd, @ARGV)                if ( $cmd eq 'ls' );
- 
 
 93 
TestSvn()                              if ($cmd eq 'test');
93 
 
 94 
 
94 
pod2usage(-verbose => 0, -message => "No valid operations specified") unless ( $opr_done );
 95 
pod2usage(-verbose => 0, -message => "No valid operations specified") unless ( $opr_done );
95 
exit 0;
 96 
exit 0;
96 
 
 97 
 
97 
#-------------------------------------------------------------------------------
 98 
#-------------------------------------------------------------------------------
- 
 
 99 
# Function        : TestSvn
- 
 
 100 
#
- 
 
 101 
# Description     : Test access to subversion
- 
 
 102 
#
- 
 
 103 
# Inputs          : None
- 
 
 104 
#
- 
 
 105 
# Returns         :
- 
 
 106 
#
- 
 
 107 
sub TestSvn
- 
 
 108 
{
- 
 
 109 
    #
- 
 
 110 
    #   Parse more options
- 
 
 111 
    #
- 
 
 112 
    GetOptions (
- 
 
 113 
                "help:+"        => \$opt_help,
- 
 
 114 
                "manual:3"      => \$opt_help,
- 
 
 115 
                ) || Error ("Invalid command line" );
- 
 
 116 
 
- 
 
 117 
    #
- 
 
 118 
    #   Subcommand specific help
- 
 
 119 
    #
- 
 
 120 
    SubCommandHelp( $opt_help, "Test Subversion") if ($opt_help || $#ARGV >= 0);
- 
 
 121 
 
- 
 
 122 
    SvnUserCmd( '--version');
- 
 
 123 
    $opr_done = 1;
- 
 
 124 
}
- 
 
 125 
 
- 
 
 126 
 
- 
 
 127 
#-------------------------------------------------------------------------------
98 
# Function        : SvnRepoCmd
 128 
# Function        : SvnRepoCmd
99 
#
 129 
#
100 
# Description     : Execute a SVN command, where the first argument
 130 
# Description     : Execute a SVN command, where the first argument
101 
#                   is a repository specifier
 131 
#                   is a repository specifier
102 
#
 132 
#
Line 654... Line 684...
654 
 
 684 
 
655 
    -help[=n]              - Help message, [n=1,2,3]
 685 
    -help[=n]              - Help message, [n=1,2,3]
656 
    -man                   - Full documentation [-help=3]
 686 
    -man                   - Full documentation [-help=3]
657 
 
 687 
 
658 
 Commands are:
 688 
 Commands are:
- 
 
 689 
    test                   - Test access to subversion
659 
    ls URL                 - List Repo contents for URL
 690 
    ls URL                 - List Repo contents for URL
660 
    delete-package URL     - Delete Package Subtree
 691 
    delete-package URL     - Delete Package Subtree
661 
    create URL             - Create a new package at URL
 692 
    create URL             - Create a new package at URL
662 
    import URL             - Import files to package at URL
 693 
    import URL             - Import files to package at URL
663 
 
 694 
 
Line 694... Line 725...
694 
 
 725 
 
695 
=head1 DESCRIPTION
 726 
=head1 DESCRIPTION
696 
 
 727 
 
697 
This program provides a number of useful Subversion based operations.
 728 
This program provides a number of useful Subversion based operations.
698 
 
 729 
 
- 
 
 730 
=head1 Test Subversion
- 
 
 731 
 
- 
 
 732 
=head2 NAME
- 
 
 733 
 
- 
 
 734 
Test Subversion
- 
 
 735 
 
- 
 
 736 
=head2 SYNOPSIS
- 
 
 737 
 
- 
 
 738 
    jats svn test
- 
 
 739 
 
- 
 
 740 
=head2 DESCRIPTION
- 
 
 741 
 
- 
 
 742 
This command will ensure that the subversion command line utility can be
- 
 
 743 
located. The command will report the version of the svn client found.
- 
 
 744 
 
699 
=head1 List Repository
 745 
=head1 List Repository
700 
 
 746 
 
- 
 
 747 
=head2 NAME
- 
 
 748 
 
- 
 
 749 
List Repository
- 
 
 750 
 
- 
 
 751 
=head2 SYNOPSIS
- 
 
 752 
 
- 
 
 753 
    jats svn ls <URL>
- 
 
 754 
 
- 
 
 755 
=head2 DESCRIPTION
- 
 
 756 
 
701 
This command will take a URL and perform a 'svn' list operation. The URL will
 757 
This command will take a URL and perform a 'svn' list operation. The URL will
702 
be expanded to include the site specific repository.
 758 
be expanded to include the site specific repository.
703 
 
 759 
 
704 
=head1 Delete a Package
 760 
=head1 Delete a Package
705 
 
 761