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

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)

File:

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

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);
 }