Subversion Repositories DevTools

Rev

Rev 7319 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7319 Rev 7320
Line 80... Line 80...
80 
    my $BuildSignature;
 80 
    my $BuildSignature;
81 
    my @sigList;
 81 
    my @sigList;
82 
    my $sigText;
 82 
    my $sigText;
83 
 
 83 
 
84 
    Error ("No directory specified") unless $pkgBase;
 84 
    Error ("No directory specified") unless $pkgBase;
- 
 
 85 
    Debug("Build Directory: $pkgBase");
85 
    Error ("Not a directory: $pkgBase") unless -d $pkgBase;
 86 
    Error ("Not a directory: $pkgBase") unless -d $pkgBase;
86 
 
 87 
 
87 
    my $parsedInfo = JatsParser::processBuild ($pkgBase);
 88 
    my $parsedInfo = JatsParser::processBuild ($pkgBase);
88 
    #DebugDumpData("GeneratePackageSignature::parsedInfo", $parsedInfo);
 89 
    #DebugDumpData("GeneratePackageSignature::parsedInfo", $parsedInfo);
89 
    Error ('BuildName not found') unless exists $parsedInfo->{BuildName};
 90 
    Error ('BuildName not found') unless exists $parsedInfo->{BuildName};
Line 788... Line 789...
788 
 
 789 
 
789 
    $currentClass = $self;
 790 
    $currentClass = $self;
790 
    $self->{baseDir} = $baseDir;
 791 
    $self->{baseDir} = $baseDir;
791 
    $self->{filename} = $filename;
 792 
    $self->{filename} = $filename;
792 
    $filename =  ::CatPaths($baseDir,$filename);
 793 
    $filename =  ::CatPaths($baseDir,$filename);
793 
    ::Error("File not found: $filename") unless -f $filename;
 794 
    ::Error("parseFile. File not found: $filename") unless -f $filename;
794 
 
 795 
 
795 
    #
 796 
    #
796 
    #   Set Jats-global variables
 797 
    #   Set Jats-global variables
797 
    #       $ProjectBase
 798 
    #       $ProjectBase
798 
    #       $ScmRoot
 799 
    #       $ScmRoot