Subversion Repositories DevTools

Rev

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

Rev 1347 Rev 1348
Line 203... Line 203...
203 
        $uref = NewSessionByWS($opt_path, 0, 1);
 203 
        $uref = NewSessionByWS($opt_path, 0, 1);
204 
        my $ws_root = $uref->SvnLocateWsRoot(1);
 204 
        my $ws_root = $uref->SvnLocateWsRoot(1);
205 
        $uref->CalcRmReference($uref->FullWs());
 205 
        $uref->CalcRmReference($uref->FullWs());
206 
    }
 206 
    }
207 
 
 207 
 
208 
    Message ("Tag is: " . $uref->RmRef() );
 208 
    Message ("Tag is  : " . $uref->RmRef() );
- 
 
 209 
    Message ("Vcs Tag : " . $uref->SvnTag  );
- 
 
 210
209 
    $opr_done = 1;
 211 
    $opr_done = 1;
210 
}
 212 
}
211 
#-------------------------------------------------------------------------------
 213 
#-------------------------------------------------------------------------------
212 
# Function        : ShowUrl
 214 
# Function        : ShowUrl
213 
#
 215 
#
Line 519... Line 521...
519 
    my $opt_author;
 521 
    my $opt_author;
520 
    my $opt_date;
 522 
    my $opt_date;
521 
    my $opt_log = '';
 523 
    my $opt_log = '';
522 
    my $opt_branch;
 524 
    my $opt_branch;
523 
    my $opt_datafile;
 525 
    my $opt_datafile;
- 
 
 526 
    my $opt_printfiles;
524 
 
 527 
 
525 
    #
 528 
    #
526 
    #   Other globals
 529 
    #   Other globals
527 
    #
 530 
    #
528 
    my $url_label;
 531 
    my $url_label;
Line 541... Line 544...
541 
                    'branch=s'      => \$opt_branch,
 544 
                    'branch=s'      => \$opt_branch,
542 
                    'replace'       => \$opt_replace,
 545 
                    'replace'       => \$opt_replace,
543 
                    'reuse'         => \$opt_reuse,
 546 
                    'reuse'         => \$opt_reuse,
544 
                    'workspace=s'   => \$opt_workdir,
 547 
                    'workspace=s'   => \$opt_workdir,
545 
                    'delete!'       => \$opt_delete,
 548 
                    'delete!'       => \$opt_delete,
- 
 
 549 
                    'printfiles=i'  => \$opt_printfiles,
546 
                    'author=s'      => \$opt_author,
 550 
                    'author=s'      => \$opt_author,
547 
                    'date=s'        => \$opt_date,
 551 
                    'date=s'        => \$opt_date,
548 
                    'log=s'         => \$opt_log,
 552 
                    'log=s'         => \$opt_log,
549 
                    'datafile=s'    => \$opt_datafile,
 553 
                    'datafile=s'    => \$opt_datafile,
550 
 
 554 
 
Line 633... Line 637...
633 
                            'target' => $svn->Full,
 637 
                            'target' => $svn->Full,
634 
                            'require' => 1,
 638 
                            'require' => 1,
635 
                            );
 639 
                            );
636 
 
 640 
 
637 
        my $url_co = $opt_branch ? $url_branch : $svn->Full . '/trunk';
 641 
        my $url_co = $opt_branch ? $url_branch : $svn->Full . '/trunk';
638 
        $svn->SvnCo ( $url_co, $opt_workdir, $opt_verbose ? '--Print' : '--NoPrint' );
 642 
        $svn->SvnCo ( $url_co, $opt_workdir, $opt_printfiles ? '--Print' : '--NoPrint' );
639 
        Error ("Cannot locate the created Workspace")
 643 
        Error ("Cannot locate the created Workspace")
640 
            unless ( -d $opt_workdir );
 644 
            unless ( -d $opt_workdir );
641 
    }
 645 
    }
642 
    else
 646 
    else
643 
    {
 647 
    {