WebSVN – DevTools – Diff – /core_devl/trunk/TOOLS/jats_svnrelease.pl

 my $opt_branch;                             # Create config spec with branch
 my $opt_debug_build = 0;                    # Build Debug Only
 my $opt_prod_build = 0;                     # Build ion Only
 my $opt_view_root = $ENV{'GBE_VIEWBASE'};   # Root of the view
 my $opt_prefix = 1;                         # Prefix the view tag with user-name
+my $opt_tag;                                # View tag insert (build or export or user)
 my $bad_label_name = 0;                     # Badly formed label
+#
 #   Globals - Provided by the JATS environment
+#
                 "mkbranch=s"    => \$opt_branch,            # String
                 "prodOnly"      => \$opt_prod_build,        # flag
                 "debugOnly"     => \$opt_debug_build,       # flag
                 "root=s"        => \$GBE_VIEWBASE,          # string
                 "prefix!"       => \$opt_prefix,            # flag
+                "tag=s"         => \$opt_tag,               # string
                 );
+                #
                 #   UPDATE THE DOCUMENTATION AT THE END OF THIS FILE !!!
+                #
     #   into the workspace name
+    #
     $opt_viewname .= '_' . $opt_branch if ( $opt_branch );
+    #
-    #   Create a singe dir name
+    #   Create a simple dir name
-    #   Remove path sep characters and replace with _
+    #       Remove path sep characters and replace with _
+    #       Remove Peg marker (@) as this breaks svn
+    #       Replace multiple _ with a single _
+    #
+    $opt_viewname =~ s~[^\-.:0-9a-zA-Z_]~_~g;
-    $opt_viewname =~ tr~\\/:~_~s;
+    $opt_viewname =~ tr~_~_~s;
+}
 $opt_viewname =~ s~^$view_prefix~~ if (defined($opt_viewname) && $view_prefix && $opt_delete );
+#
 #   Create a clearcase view to be used for the view
 #   view, primarily for determining metrics.
+#
 #   Calculate where the dynmaic view will be
 #   This differ between UNIX/WINDOWS
+#
-if ( $opt_path && $GBE_ABT)
+if ( $GBE_ABT)
+{
     Message( "Create Build tagfile");
     my $cpath = $VIEWDIR . $opt_path;
     if ( -d $cpath )
+    {
     -path=xxx          - Source Path
     -view=xxx          - Modify the name of the created view
     -build=xxx         - Package Name to build
     -root=xxx          - Root directory for generated view
     -[mk]branch=xxx    - Will create a view with a branch rule
+    -tag=xxx           - Compatability. Not used
     -extract           - Extract the view and exit
     -extractfiles      - Extract files, without a view
     -cache             - Refresh local dpkg_archive cache
     -delete            - Remove any existing view and exit
     -debugOnly         - Make only the debug version
 check for its existence.
 The tool will copy the specified source version to the branch and then create a
 workspace based on the branch.
+=item B<-tag=text>
+This option is not used.
+It is present to maintain compatability with the buildtool interface.
 =item B<-extract>
 With this option the view is created and the left in place. The user may then
 access the files within the view. The view should not be used for a
 production release.

Subversion Repositories DevTools

(root)/core_devl/trunk/TOOLS/jats_svnrelease.pl – Rev 343 → 351