Subversion Repositories DevTools

Rev

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

Rev 391 Rev 1270
Line 477... Line 477...
477 
                      );
 477 
                      );
478 
    #
 478 
    #
479 
    # Report RmPath as using a pegged version of a new package is a bit silly
 479 
    # Report RmPath as using a pegged version of a new package is a bit silly
480 
    #
 480 
    #
481 
    Message ("Repository Ref: " . $uref->RmPath);
 481 
    Message ("Repository Ref: " . $uref->RmPath);
- 
 
 482 
    if ( $uref->{REVNO} )
- 
 
 483 
    {
482 
    $uref->setRepoProperty('svn:author', $opt_author) if (defined ($opt_author));
 484 
        $uref->setRepoProperty('svn:author', $opt_author) if (defined ($opt_author));
483 
    $uref->setRepoProperty('svn:date', $opt_date) if (defined ($opt_date));
 485 
        $uref->setRepoProperty('svn:date', $opt_date) if (defined ($opt_date));
- 
 
 486 
    }
484 
    $opr_done = 1;
 487 
    $opr_done = 1;
485 
}
 488 
}
486 
 
 489 
 
487 
#-------------------------------------------------------------------------------
 490 
#-------------------------------------------------------------------------------
488 
# Function        : ImportPackage
 491 
# Function        : ImportPackage
Line 629... Line 632...
629 
                            'target' => $svn->Full,
 632 
                            'target' => $svn->Full,
630 
                            'require' => 1,
 633 
                            'require' => 1,
631 
                            );
 634 
                            );
632 
 
 635 
 
633 
        my $url_co = $opt_branch ? $url_branch : $svn->Full . '/trunk';
 636 
        my $url_co = $opt_branch ? $url_branch : $svn->Full . '/trunk';
634 
        $svn->SvnCo ( $url_co, $opt_workdir );
 637 
        $svn->SvnCo ( $url_co, $opt_workdir, $opt_verbose ? '--Print' : '--NoPrint' );
635 
        Error ("Cannot locate the created Workspace")
 638 
        Error ("Cannot locate the created Workspace")
636 
            unless ( -d $opt_workdir );
 639 
            unless ( -d $opt_workdir );
637 
    }
 640 
    }
638 
    else
 641 
    else
639 
    {
 642 
    {
Line 654... Line 657...
654 
                                       "--FilterOutRe=^/${opt_workdir}/",
 657 
                                       "--FilterOutRe=^/${opt_workdir}/",
655 
                                       );
 658 
                                       );
656 
    my @ws = $search->search($opt_workdir);
 659 
    my @ws = $search->search($opt_workdir);
657 
    my @dir = $search->search($opt_dir);
 660 
    my @dir = $search->search($opt_dir);
658 
 
 661 
 
- 
 
 662 
    #
- 
 
 663 
    #   Scan for a source file
- 
 
 664 
    #   Trying to detect empty views
- 
 
 665 
    #   Look for file, not directory
- 
 
 666 
    #
- 
 
 667 
    {
- 
 
 668 
        my $fileFound = 0;
- 
 
 669 
        foreach ( @dir )
- 
 
 670 
        {
- 
 
 671 
            next if ( m~/$~ );
- 
 
 672 
            $fileFound++;
- 
 
 673 
            last;
- 
 
 674 
        }
- 
 
 675 
 
- 
 
 676 
        unless ( $fileFound )
- 
 
 677 
        {
- 
 
 678 
            Warning ("No source files found in source view");
- 
 
 679 
            $opr_done = 1;
- 
 
 680 
            return;
- 
 
 681 
        }
- 
 
 682 
    }
- 
 
 683 
 
659 
    #Information ("WS Results", @ws);
 684 
    #Information ("WS Results", @ws);
660 
    #Information ("DIR Results", @dir);
 685 
    #Information ("DIR Results", @dir);
- 
 
 686 
    #Information ("WS Results: ", scalar @ws);
- 
 
 687 
    #Information ("DIR Results:", scalar @dir);
661 
 
 688 
 
662 
    #
 689 
    #
663 
    #   Create a hash the Workspace and the User dir
 690 
    #   Create a hash the Workspace and the User dir
664 
    #   The key will be file names
 691 
    #   The key will be file names
665 
    #
 692 
    #