Changeset 285 in ProjectBuilder for devel/pb/lib/ProjectBuilder/Base.pm
- Timestamp:
- Nov 15, 2007, 12:04:08 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/lib/ProjectBuilder/Base.pm
r273 r285 803 803 $ENV{'PBREVISION'}=`(cd "$ENV{'PBROOT'}" ; svnversion .)`; 804 804 chomp($ENV{'PBREVISION'}); 805 $ENV{'PBCMSLOG'}="svn log";806 805 $ENV{'PBCMSLOGFILE'}="svn.log"; 807 806 } elsif ($cms->{$proj} eq "flat") { 808 807 $ENV{'PBREVISION'}="flat"; 809 $ENV{'PBCMSLOG'}="/bin/true";810 808 $ENV{'PBCMSLOGFILE'}="flat.log"; 811 809 } elsif ($cms->{$proj} eq "cvs") { … … 814 812 #chomp($ENV{'PBREVISION'}); 815 813 $ENV{'PBREVISION'}="CVS"; 816 $ENV{'PBCMSLOG'}="cvs log";817 814 $ENV{'PBCMSLOGFILE'}="cvs.log"; 818 815 # … … 868 865 } 869 866 867 868 sub pb_create_authors { 869 870 my $authors=shift; 871 my $dest=shift; 872 my $cms=shift; 873 874 return if ((not defined $authors) || (! -f $authors)); 875 open(AUT,$authors) || die "Unable to open $authors"; 876 open(DAUTH,"> $dest/AUTHORS") || die "Unable to create $dest/AUTHORS"; 877 print DAUTH "Authors of the project are:\n"; 878 print DAUTH "===========================\n"; 879 while (<AUT>) { 880 my ($nick,$gcos) = split(/:/); 881 print DAUTH "$gcos"; 882 print DAUTH " ($nick under $cms)\n" if (defined $cms); 883 } 884 close(DAUTH); 885 close(AUTH); 886 } 887 870 888 sub pb_cms_log { 871 889 my $cms = shift; 872 890 my $pkgdir = shift; 873 my $destfile = shift; 891 my $dest = shift; 892 my $authors = shift; 893 894 pb_create_authors($authors,$dest,$cms->{$ENV{'PBPROJ'}}); 874 895 875 896 if ($cms->{$ENV{'PBPROJ'}} eq "svn") { 876 pb_system("svn log -v $pkgdir > $destfile","Extracting log info from SVN"); 897 pb_system("svn log -v $pkgdir > $dest/$ENV{'PBCMSLOGFILE'}","Extracting log info from SVN"); 898 if ((-x "/usr/bin/svn2cl") && (! -f $dest/ChangeLog)) { 899 pb_system("/usr/bin/svn2cl --group-by-day --authors=$authors -i -o $dest/ChangeLog $pkgdir","Generating ChangeLog from SVN"); 900 } 877 901 } elsif ($cms->{$ENV{'PBPROJ'}} eq "flat") { 878 902 # Nothing to do … … 880 904 my $tmp=basename($pkgdir); 881 905 # CVS needs a relative path ! 882 pb_system("cvs log $tmp > $destfile","Extracting log info from CVS"); 906 pb_system("cvs log $tmp > $dest/$ENV{'PBCMSLOGFILE'}","Extracting log info from CVS"); 907 if ((-x "/usr/bin/svn2cl") && (! -f $dest/ChangeLog)) { 908 pb_system("/usr/bin/cvs2cl --group-by-day -U $authors -f $dest/ChangeLog $pkgdir","Generating ChangeLog from SVN"); 909 } 883 910 } else { 884 911 die "cms $cms->{$ENV{'PBPROJ'}} unknown"; … … 1055 1082 my $extpkgdir = shift; 1056 1083 my $pbpackager = shift; 1084 my $chglog = shift || undef; 1057 1085 1058 1086 # For the moment not dynamic … … 1079 1107 my $p = $defpkgdir->{$pbpkg}; 1080 1108 $p = $extpkgdir->{$pbpkg} if (not defined $p); 1081 pb_changelog($dtype, $pbpkg, $pbver, $pbtag, $pbsuf, $p, \*DEST, $tmp );1109 pb_changelog($dtype, $pbpkg, $pbver, $pbtag, $pbsuf, $p, \*DEST, $tmp, $chglog); 1082 1110 $tmp = ""; 1083 1111 }
Note:
See TracChangeset
for help on using the changeset viewer.