Changeset 1114


Ignore:
Timestamp:
Nov 23, 2010, 4:57:01 PM (8 years ago)
Author:
bruno
Message:

Adds some level 1 debug info for CMS module

File:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/pb/lib/ProjectBuilder/CMS.pm

    r1113 r1114  
    132132}
    133133
     134pb_log(1,"pb_cms_init returns $scheme,$pburl->{$ENV{'PBPROJ'}}\n");
    134135return($scheme,$pburl->{$ENV{'PBPROJ'}});
    135136}
     
    372373    die "cms $scheme unknown";
    373374}
    374 pb_log(2,"Found CMS info: $res\n");
     375pb_log(1,"pb_cms_get_uri returns $res\n");
    375376return($res);
    376377}
     
    541542my $dir =shift;
    542543my $vcscmd = pb_cms_cmd($scheme);
     544my $l = undef;
    543545
    544546if (($scheme =~ /^svn/) || ($scheme =~ /^svk/) || ($scheme =~ /^hg/) || ($scheme =~ /^git/) || ($scheme =~ /^cvs/)) {
    545547    open(PIPE,"$vcscmd diff $dir |") || die "Unable to get $vcscmd diff from $dir";
    546     my $l = 0;
     548    $l = 0;
    547549    while (<PIPE>) {
    548550        # Skipping normal messages in case of CVS
     
    550552        $l++;
    551553    }
    552     return($l);
    553554} elsif (($scheme eq "flat") || ($scheme eq "ftp") || ($scheme eq "http"))   {
    554     return(0);
     555    $l = 0;
    555556} else {
    556557    die "cms $scheme unknown";
    557558}
     559pb_log(1,"pb_cms_isdiff returns $l\n");
     560return($l);
    558561}
    559562
     
    621624}
    622625
    623 pb_log(2,"Real Package: $pbpkgreal\n");
     626pb_log(1,"pb_cms_get_real_pkg returns $pbpkgreal\n");
    624627return($pbpkgreal);
    625628}
     
    842845
    843846$url =~ s/^$proto\+(http[s]*):/$1:/;
     847pb_log(1,"pb_cms_mod_http returns $url\n");
    844848return($url);
    845849}
     
    850854
    851855$url =~ s/^([A-z0-9]+)\+(socks):/$1:/;
     856pb_log(1,"pb_cms_mod_socks returns $url\n");
    852857return($url);
    853858}
Note: See TracChangeset for help on using the changeset viewer.