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