Changeset 2254 in ProjectBuilder for devel/pb/lib/ProjectBuilder/Filter.pm

Timestamp:

Aug 30, 2017, 5:07:34 PM (7 years ago)

Author:

Bruno Cornec

Message:

Automatically modify v0 filter files into v1 format

File:

• devel/pb/lib/ProjectBuilder/Filter.pm (modified) (3 diffs)

devel/pb/lib/ProjectBuilder/Filter.pm

@@ -24 +24 @@
 use ProjectBuilder::Distribution;
 use ProjectBuilder::Changelog;
+use ProjectBuilder::VCS;
 
 # Inherit from the "Exporter" module which handles exporting functions.
@@ -65 +66 @@
 
 my @ffiles;
+my @ffilestoconvert;
 my $pbpkg = shift || die "No package specified";
 my $pbos = shift;
@@ -79 +81 @@
     foreach my $file_basename (@file_basenames) {
         my $path = "$dir/${file_basename}.yml";
-        push(@ffiles, $path) if -f $path;
-    }
-}
+        if (-f $path) {
+            push(@ffiles, $path);
+        } else {
+            my $path2 = "$dir/${file_basename}.pbf";
+            push(@ffilestoconvert, $path2) if (-f $path2);
+        }
+    }
+}
+
+# Convert all old filter files into new ones
+if (@ffilestoconvert) {
+    foreach my $f (@ffilestoconvert) {
+        my $fyml = $f;
+        $fyml =~ s/\.pbf/.yml/;
+        pb_update_conf_v0($f,$fyml);
+        my ($pburl) = pb_conf_get("pburl");
+        my ($scheme, $account, $host, $port, $path) = pb_get_uri($pburl->{$ENV{'PBPROJ'}});
+        pb_vcs_add_if_not_in($scheme,$fyml);
+        push(@ffiles, $fyml);
+    }
 
 if (@ffiles) {