Changeset 226 in ProjectBuilder for devel/pb/lib/ProjectBuilder/Base.pm
- Timestamp:
- Oct 17, 2007, 6:38:20 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/lib/ProjectBuilder/Base.pm
r212 r226 288 288 $ENV{'PBCMSLOG'}="svn log"; 289 289 $ENV{'PBCMSLOGFILE'}="svn.log"; 290 } elsif ($cms->{$proj} eq "flat") { 291 $ENV{'PBREVISION'}="flat"; 292 $ENV{'PBCMSLOG'}="/bin/true"; 293 $ENV{'PBCMSLOGFILE'}="/dev/null"; 290 294 } elsif ($cms->{$proj} eq "cvs") { 291 295 # Way too slow … … 321 325 } 322 326 pb_system("svn export $source $tmp","Exporting $source from SVN to $tmp"); 327 } elsif ($cms->{$ENV{'PBPROJ'}} eq "flat") { 328 if (-d $source) { 329 $tmp = $destdir; 330 } else { 331 $tmp = $destdir."/".basename($source); 332 } 333 pb_system("cp -a $source $tmp","Exporting $source from DIR to $tmp"); 323 334 } elsif ($cms->{$ENV{'PBPROJ'}} eq "cvs") { 324 335 my $dir=dirname($destdir); … … 346 357 if ($cms->{$ENV{'PBPROJ'}} eq "svn") { 347 358 pb_system("svn log -v $pkgdir > $destfile","Extracting log info from SVN"); 359 } elsif ($cms->{$ENV{'PBPROJ'}} eq "flat") { 360 # Nothing to do 348 361 } elsif ($cms->{$ENV{'PBPROJ'}} eq "cvs") { 349 362 my $tmp=basename($pkgdir); … … 367 380 close(PIPE); 368 381 chomp($url); 382 } elsif ($cms->{$ENV{'PBPROJ'}} eq "flat") { 369 383 } elsif ($cms->{$ENV{'PBPROJ'}} eq "cvs") { 370 384 } else { … … 381 395 if ($cms->{$ENV{'PBPROJ'}} eq "svn") { 382 396 pb_system("svn copy -m \"Creation of $newurl from $oldurl\" $oldurl $newurl","Copying $oldurl to $newurl "); 397 } elsif ($cms->{$ENV{'PBPROJ'}} eq "flat") { 383 398 } elsif ($cms->{$ENV{'PBPROJ'}} eq "cvs") { 384 399 } else { … … 394 409 if ($cms->{$ENV{'PBPROJ'}} eq "svn") { 395 410 pb_system("svn co $url $destination","Checking $url to $destination "); 411 } elsif ($cms->{$ENV{'PBPROJ'}} eq "flat") { 396 412 } elsif ($cms->{$ENV{'PBPROJ'}} eq "cvs") { 397 413 } else { … … 408 424 pb_system("svn ci -m \"Updated to $ver\" $dir","Checking in $dir"); 409 425 pb_system("svn up $dir","Updating $dir"); 426 } elsif ($cms->{$ENV{'PBPROJ'}} eq "flat") { 410 427 } elsif ($cms->{$ENV{'PBPROJ'}} eq "cvs") { 411 428 } else { … … 424 441 } 425 442 return($l); 443 } elsif ($cms->{$ENV{'PBPROJ'}} eq "flat") { 426 444 } elsif ($cms->{$ENV{'PBPROJ'}} eq "cvs") { 427 445 } else {
Note:
See TracChangeset
for help on using the changeset viewer.