[prev in list] [next in list] [prev in thread] [next in thread] 

List:       kde-commits
Subject:    kckde
From:       Peter Rockai <mornfall () logisys ! dyndns ! org>
Date:       2003-11-14 16:08:16
[Download RAW message or body]

CVS commit by mornfall: 

- mkkdetraf
  - can generate the stats now
  - parses $issuedir/00-issueinfo to get start and issue date
  - creates files in format kdeYYYYMMDD_II.suff
  - ignores non-xml files in $issuedir for purpose of xml generation
- mkstats-knode - generate stats from knode header cache files
- ktpub.diff - corrections for upstream ktpub
- README - instructions for use for mkkdetraf and related stuff


  A            README   1.1
  A            ktpub.diff   1.1
  A            mkstats-knode   1.1
  M +13 -5     mkkdetraf   1.2


--- kckde/mkkdetraf  #1.1:1.2
@@ -7,11 +7,17 @@
 use POSIX qw(strftime);
 my $issue = $ARGV[0];
-my $idate = $ARGV[1];
+#my $idate = $ARGV[1];
 my $idir = "kdetraf-$issue";
-my $of = "kdetraf-$issue.xml";
-my $fhtml = "kdetraf-$issue.html";
+my $isinf = `cat $idir/00-issueinfo`;
+$isinf =~ /^Start-Date:[ \t]*([0-9]+)$/sm;
+my $stdate = $1;
+$isinf =~ /^Issue-Date:[ \t]*([0-9]+)$/sm;
+my $idate = $1;
+my $of = "kde${idate}_$issue.xml";
+my $fhtml = "kde${idate}_$issue.html";
 my $day = strftime '%b', gmtime;
 $day =~ s/^(.)/$a = $1; $a =~ tr!a-z!A-Z!; $a/e;
-my $date = strftime "\%d $day \%Y \%H:\%M:\%S +0000", gmtime;
+#my $date = strftime "\%d $day \%Y \%H:\%M:\%S +0000", gmtime;
+my $date = `LANG= LC_ALL= date '+\%d \%b \%Y' -d $idate`;
 
 print "building $of...\n";
@@ -47,5 +53,5 @@
 ;
 opendir D, "$idir";
-for (sort grep (!/^\.|~$|.bak$/, (readdir D))) {
+for (sort grep (!/^\.|~$|.bak$/, grep (/\.xml$/, (readdir D)))) {
         print OUT `cat $idir/$_`;
 }
@@ -54,4 +60,6 @@
 close OUT;
 
+print "running mkstats...\n";
+system "./mkstats $stdate $idate > $idir/05-stats.xml";
 print "running make...\n";
 system "cp -f $of ktpub/ && make -C ktpub && cp -f ktpub/$fhtml .";


[prev in list] [next in list] [prev in thread] [next in thread]