Changeset 1114 in ProjectBuilder for devel/pb/lib/ProjectBuilder/CMS.pm

Timestamp:

Nov 23, 2010, 4:57:01 PM (13 years ago)

Author:

Bruno Cornec

Message:

Adds some level 1 debug info for CMS module

File:

• devel/pb/lib/ProjectBuilder/CMS.pm (modified) (7 diffs)

devel/pb/lib/ProjectBuilder/CMS.pm

@@ -132 +132 @@
 }
 
+pb_log(1,"pb_cms_init returns $scheme,$pburl->{$ENV{'PBPROJ'}}\n");
 return($scheme,$pburl->{$ENV{'PBPROJ'}});
 }
@@ -372 +373 @@
     die "cms $scheme unknown";
 }
-pb_log(2,"Found CMS info: $res\n");
+pb_log(1,"pb_cms_get_uri returns $res\n");
 return($res);
 }
@@ -541 +542 @@
 my $dir =shift;
 my $vcscmd = pb_cms_cmd($scheme);
+my $l = undef;
 
 if (($scheme =~ /^svn/) || ($scheme =~ /^svk/) || ($scheme =~ /^hg/) || ($scheme =~ /^git/) || ($scheme =~ /^cvs/)) {
     open(PIPE,"$vcscmd diff $dir |") || die "Unable to get $vcscmd diff from $dir";
-    my $l = 0;
+    $l = 0;
     while (<PIPE>) {
         # Skipping normal messages in case of CVS
@@ -550 +552 @@
         $l++;
     }
-    return($l);
 } elsif (($scheme eq "flat") || ($scheme eq "ftp") || ($scheme eq "http"))   {
-    return(0);
+    $l = 0;
 } else {
     die "cms $scheme unknown";
 }
+pb_log(1,"pb_cms_isdiff returns $l\n");
+return($l);
 }
 
@@ -621 +624 @@
 }
 
-pb_log(2,"Real Package: $pbpkgreal\n");
+pb_log(1,"pb_cms_get_real_pkg returns $pbpkgreal\n");
 return($pbpkgreal);
 }
@@ -842 +845 @@
 
 $url =~ s/^$proto\+(http[s]*):/$1:/;
+pb_log(1,"pb_cms_mod_http returns $url\n");
 return($url);
 }
@@ -850 +854 @@
 
 $url =~ s/^([A-z0-9]+)\+(socks):/$1:/;
+pb_log(1,"pb_cms_mod_socks returns $url\n");
 return($url);
 }