WebSVN – DevTools – Diff – /core_devl/branches/dpurdie_devl/TOOLS/jats_svnlabel.pl



                'packagebase=s' => \$opt_packagebase,       # String
                'branch'        => \$opt_branch,            # Flag
                'list'          => \$opt_list,              # Flag
                'author=s'      => \$opt_author,            # String
                'date=s'        => \$opt_date,              # String
                'allowlocalmods!'   => \$opt_complexTag,    # [no]aaaaaa
                );
 
                #
                #   UPDATE THE DOCUMENTATION AT THE END OF THIS FILE !!!
                #

    #   Calculate the label name to delete
    #
    my $ws_label = make_src_label( $pkg_root, $label );
    $session->SvnDelete ( 'target' => $ws_label,
                          'comment' => $opt_comment ? $opt_comment : 'Deleted by Jats Svnlabel',
                          'noerror' => 0 );
    $opr_done = 1;
}
 
################################################################################
#

Subversion Repositories DevTools

(root)/core_devl/branches/dpurdie_devl/TOOLS/jats_svnlabel.pl – Rev 391 → 1270

Rev 391		Rev 1270
Line 82...		Line 82...
82	`'packagebase=s' => \$opt_packagebase, # String`	82	`'packagebase=s' => \$opt_packagebase, # String`
83	`'branch' => \$opt_branch, # Flag`	83	`'branch' => \$opt_branch, # Flag`
84	`'list' => \$opt_list, # Flag`	84	`'list' => \$opt_list, # Flag`
85	`'author=s' => \$opt_author, # String`	85	`'author=s' => \$opt_author, # String`
86	`'date=s' => \$opt_date, # String`	86	`'date=s' => \$opt_date, # String`
87	`'allowlocal!' => \$opt_complexTag, # [no]aaaaaa`	87	`'allowlocalmods!' => \$opt_complexTag, # [no]aaaaaa`
88	`);`	88	`);`
89		89
90	`#`	90	`#`
91	`# UPDATE THE DOCUMENTATION AT THE END OF THIS FILE !!!`	91	`# UPDATE THE DOCUMENTATION AT THE END OF THIS FILE !!!`
92	`#`	92	`#`
Line 245...		Line 245...
245	`# Calculate the label name to delete`	245	`# Calculate the label name to delete`
246	`#`	246	`#`
247	`my $ws_label = make_src_label( $pkg_root, $label );`	247	`my $ws_label = make_src_label( $pkg_root, $label );`
248	`$session->SvnDelete ( 'target' => $ws_label,`	248	`$session->SvnDelete ( 'target' => $ws_label,`
249	`'comment' => $opt_comment ? $opt_comment : 'Deleted by Jats Svnlabel',`	249	`'comment' => $opt_comment ? $opt_comment : 'Deleted by Jats Svnlabel',`
250	`'noerror' => 1 );`	250	`'noerror' => 0 );`
251	`$opr_done = 1;`	251	`$opr_done = 1;`
252	`}`	252	`}`
253		253
254	`################################################################################`	254	`################################################################################`
255	`#`	255	`#`