Changelog section in rpms for rpmlint.
authorFrantišek Dvořák <valtri@civ.zcu.cz>
Wed, 7 Sep 2011 19:21:15 +0000 (19:21 +0000)
committerFrantišek Dvořák <valtri@civ.zcu.cz>
Wed, 7 Sep 2011 19:21:15 +0000 (19:21 +0000)
org.glite.lb/configure

index f4b0740..b582a03 100755 (executable)
@@ -24,6 +24,7 @@
 #
 
 use Getopt::Long;
+use POSIX qw(locale_h strftime);
 
 my $pwd = `pwd`; chomp $pwd;
 my $prefix = '/usr';
@@ -995,6 +996,7 @@ sub full
 sub mkinc
 {
        my %aux;
+       my ($old_locale, $date);
        undef %aux;
        my @m=qw/
 lb.client lb.doc lb.state-machine lb.ws-interface lb.logger lb.logger-msg lb.nagios lb.types lb.common lb.server lb.utils lb.ws-test lb.client-java lb.harvester lb.yaim lb.glite-LB
@@ -1031,10 +1033,23 @@ px.proxyrenewal px.myproxy-yaim px.glite-PX px.myproxy-config
                        }
                }
        }
+
+       mkdir $build."project" unless (-d $build."project");
+       open PKGCHL,">".$build."project/changelog"
+               or die $build."project/changelog: $!\n";
+       $old_locale = setlocale(LC_TIME);
+       setlocale(LC_TIME, "C");
+       $date = strftime("%a %b %d %Y", gmtime());
+       setlocale(LC_TIME, $old_locale);
+       print PKGCHL qq{* $date CESNET team <emi-lb\@metacentrum.cz>
+- automatically generated package
+};
+       close PKGCHL;
+
        unless ($top_srcdir eq '.') {
                unlink $build."Makefile";
                symlink "$top_srcdir/Makefile",$build."Makefile" or die "symlink $top_srcdir/Makefile ".$build."Makefile: $!\n";
-               for my $file ('.pre', '.post', '.preun', '.postun changelog') {
+               for my $file ('.pre', '.post', '.preun', '.postun') {
                        my $pfile = "project/$file";
                        if (-f "$full/$pfile") {
                                mkdir "$build/project" unless (-d "$build/project");