Changeset 452 in ProjectBuilder

Timestamp:

May 27, 2008, 1:46:52 AM (16 years ago)

Author:

Bruno Cornec

Message:

• Make newproj action work again
• Add pb_cms_add function
• Change interface of pb_cms_checkin (third param)

Location:

devel/pb

Files:

• bin/pb (modified) (1 diff)
• lib/ProjectBuilder/CMS.pm (modified) (3 diffs)
• lib/ProjectBuilder/Env.pm (modified) (5 diffs)

devel/pb/bin/pb

@@ -1331 +1331 @@
 
     pb_log(2,"Checkin $ENV{'PBROOTDIR'}/../$newver\n");
-    pb_cms_checkin($scheme,"$ENV{'PBROOTDIR'}/../$newver");
+    pb_cms_checkin($scheme,"$ENV{'PBROOTDIR'}/../$newver",undef);
 }
 

devel/pb/lib/ProjectBuilder/CMS.pm

@@ -29 +29 @@
  
 our @ISA = qw(Exporter);
-our @EXPORT = qw(pb_cms_init pb_cms_export pb_cms_get_uri pb_cms_copy pb_cms_checkout pb_cms_up pb_cms_checkin pb_cms_isdiff pb_cms_get_pkg pb_cms_compliant pb_cms_log);
+our @EXPORT = qw(pb_cms_init pb_cms_export pb_cms_get_uri pb_cms_copy pb_cms_checkout pb_cms_up pb_cms_checkin pb_cms_isdiff pb_cms_get_pkg pb_cms_compliant pb_cms_log pb_cms_add);
 
 =pod
@@ -336 +336 @@
 The first parameter is the schema of the CMS systems (svn, cvs, svn+ssh, ...)
 The second parameter is the directory to update from.
+The third parameter indicates if we are in a new version creation (undef) or in a new project creation (1)
 
 =cut
@@ -342 +343 @@
 my $scheme = shift;
 my $dir = shift;
+my $pbinit = shift || undef;
 
 my $ver = basename($dir);
-if ($scheme =~ /^svn/) {
-    pb_system("svn ci -m \"updated to $ver\" $dir","Checking in $dir");
+my $msg = "updated to $ver";
+$msg = "Project $ENV{PBPROJ} creation" if (defined $pbinit);
+
+if ($scheme =~ /^svn/) {
+    pb_system("svn ci -m \"$msg\" $dir","Checking in $dir");
 } elsif ($scheme eq "flat") {
 } elsif ($scheme =~ /^cvs/) {
-    pb_system("cvs ci -m \"updated to $ver\" $dir","Checking in $dir");
+    pb_system("cvs ci -m \"$msg\" $dir","Checking in $dir");
 } else {
     die "cms $scheme unknown";
 }
 pb_cms_up($scheme,$dir);
+}
+
+=item B<pb_cms_add>
+
+This function adds to a CMS content from a local directory.
+The first parameter is the schema of the CMS systems (svn, cvs, svn+ssh, ...)
+The second parameter is the directory/file to add.
+
+=cut
+
+sub pb_cms_add {
+my $scheme = shift;
+my $f = shift;
+
+if ($scheme =~ /^svn/) {
+    pb_system("svn add $f","Adding $f to SVN");
+} elsif ($scheme eq "flat") {
+} elsif ($scheme =~ /^cvs/) {
+    pb_system("cvs add $f","Adding $f to CVS");
+} else {
+    die "cms $scheme unknown";
+}
+pb_cms_up($scheme,$f);
 }
 

devel/pb/lib/ProjectBuilder/Env.pm

@@ -168 +168 @@
 
 pb_log(2,"PBDEFDIR: $ENV{'PBDEFDIR'}\n");
+
+# Put under CMS the PBPROJ dir
+if (defined $pbinit) {
+    if (! -d "$ENV{'PBDEFDIR'}/$ENV{'PBPROJ'}") {
+        pb_mkdir_p("$ENV{'PBDEFDIR'}/$ENV{'PBPROJ'}") || die "Unable to recursively create $ENV{'PBDEFDIR'}/$ENV{'PBPROJ'}";
+    }
+    pb_cms_add($pbconf{$ENV{'PBPROJ'}},"$ENV{'PBDEFDIR'}/$ENV{'PBPROJ'}");
+}
+
 #
 # Set delivery directory
@@ -212 +221 @@
 # return values in that case are useless
 #
-if (($action =~ /^cms2/) || ($action =~ /^newver$/) || ($action =~ /^pbinit$/)) {
+if (($action =~ /^cms2/) || ($action =~ /^newver$/) || ($action =~ /pbinit/) || ($action =~ /^newproj$/)) {
 
     #
@@ -240 +249 @@
             }
             closedir(DIR);
-            die "No directory found under $ENV{'PBCONFDIR'}" if (not defined $ENV{'PBROOTDIR'});
             pb_log(1,"WARNING: no pbroot defined, using $ENV{'PBROOTDIR'}\n");
             pb_log(1,"         Please use -r release if you want to use another release\n");
+            die "No directory found under $ENV{'PBCONFDIR'}" if (not defined $ENV{'PBROOTDIR'});
         } else {
             my ($pbroot) = pb_conf_read_if("$ENV{'PBDESTDIR'}/pbrc","pbroot");
@@ -318 +327 @@
     } else {
         if (defined $pbinit) {
-            my $ptr = pb_get_pkg();
-            my @pkgs = @$ptr;
+            my @pkgs = @ARGV;
             @pkgs = ("pkg1") if (not @pkgs);
     
@@ -837 +845 @@
                 pb_mkdir_p("$ENV{'PBROOTDIR'}/$pp/pbfilter") || die "Unable to create $ENV{'PBROOTDIR'}/$pp/pbfilter";
     
-                pb_log(0,"\nDo not to forget to commit the pbconf directory in your CMS if needed\n");
             }
+            pb_cms_add($pbconf{$ENV{'PBPROJ'}},$ENV{'PBCONFDIR'});
+            pb_cms_checkin($pbconf{$ENV{'PBPROJ'}},"$ENV{'PBDEFDIR'}/$ENV{'PBPROJ'}",$pbinit);
         } else {
             die "Unable to open $ENV{'PBROOTDIR'}/$ENV{'PBPROJ'}.pb";