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
    {