Changeset 890 in ProjectBuilder for devel/pb/lib/ProjectBuilder/CMS.pm
- Timestamp:
- Oct 27, 2009, 11:54:28 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/lib/ProjectBuilder/CMS.pm
r873 r890 779 779 } 780 780 781 if ( $scheme =~ /^svn/) {782 if ( ! -f "$dest/ChangeLog") {781 if (! -f "$dest/ChangeLog") { 782 if ($scheme =~ /^svn/) { 783 783 # In case we have no network, just create an empty one before to allow correct build 784 784 open(CL,"> $dest/ChangeLog") || die "Unable to create $dest/ChangeLog"; … … 790 790 pb_system("$vcscmd log -v $pkgdir > $dest/$ENV{'PBCMSLOGFILE'}","Extracting log info from SVN"); 791 791 } 792 } 793 } elsif ($scheme =~ /^svk/) { 794 if (! -f "$dest/ChangeLog") { 792 } elsif ($scheme =~ /^svk/) { 795 793 pb_system("$vcscmd log -v $pkgdir > $dest/$ENV{'PBCMSLOGFILE'}","Extracting log info from SVK"); 796 } 797 } elsif ($scheme =~ /^hg/) { 798 if (! -f "$dest/ChangeLog") { 794 } elsif ($scheme =~ /^hg/) { 799 795 # In case we have no network, just create an empty one before to allow correct build 800 796 open(CL,"> $dest/ChangeLog") || die "Unable to create $dest/ChangeLog"; 801 797 close(CL); 802 798 pb_system("$vcscmd log -v $pkgdir > $dest/$ENV{'PBCMSLOGFILE'}","Extracting log info from SVN"); 803 } 804 } elsif ($scheme =~ /^git/) { 805 if (! -f "$dest/ChangeLog") { 799 } elsif ($scheme =~ /^git/) { 806 800 # In case we have no network, just create an empty one before to allow correct build 807 801 open(CL,"> $dest/ChangeLog") || die "Unable to create $dest/ChangeLog"; 808 802 close(CL); 809 803 pb_system("$vcscmd log -v $pkgdir > $dest/$ENV{'PBCMSLOGFILE'}","Extracting log info from GIT"); 810 } 811 } elsif (($scheme eq "file") || ($scheme eq "dir") || ($scheme eq "http") || ($scheme eq "ftp")) { 812 if (! -f "$dest/ChangeLog") { 804 } elsif (($scheme eq "file") || ($scheme eq "dir") || ($scheme eq "http") || ($scheme eq "ftp")) { 813 805 pb_system("echo ChangeLog for $pkgdir > $dest/ChangeLog","Empty ChangeLog file created"); 814 } 815 } elsif ($scheme =~ /^cvs/) { 816 my $tmp=basename($pkgdir); 817 # CVS needs a relative path ! 818 if (! -f "$dest/ChangeLog") { 806 } elsif ($scheme =~ /^cvs/) { 807 my $tmp=basename($pkgdir); 808 # CVS needs a relative path ! 819 809 # In case we have no network, just create an empty one before to allow correct build 820 810 open(CL,"> $dest/ChangeLog") || die "Unable to create $dest/ChangeLog"; … … 826 816 pb_system("$vcscmd log $tmp > $dest/$ENV{'PBCMSLOGFILE'}","Extracting log info from CVS"); 827 817 } 828 } 829 } else { 830 die "cms $scheme unknown";818 } else { 819 die "cms $scheme unknown"; 820 } 831 821 } 832 822 }
Note:
See TracChangeset
for help on using the changeset viewer.