Attachment 4305 Details for Bug 6429 – Patch 3/3

[patch] Patch 3/3

patch.txt (text/plain), 3.97 KB, created by Marcel de Rooy on 2011-05-30 12:02:25 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Marcel de Rooy

Created: 2011-05-30 12:02:25 UTC

Size: 3.97 KB

patch

obsolete

>From c62eb122594e81e1601f41a00cabdf52d304c3a7 Mon Sep 17 00:00:00 2001
>From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
>Date: Mon, 30 May 2011 13:51:21 +0200
>Subject: [PATCH 3/3] 6429: Sync history/about
>Content-Type: text/plain; charset="utf-8"
>
>Helpful script for syncing about with history.
>---
> docs/comp_about.pl |  119 ++++++++++++++++++++++++++++++++++++++++++++++++++++
> 1 files changed, 119 insertions(+), 0 deletions(-)
> create mode 100755 docs/comp_about.pl
>
>diff --git a/docs/comp_about.pl b/docs/comp_about.pl
>new file mode 100755
>index 0000000..50afbb8
>--- /dev/null
>+++ b/docs/comp_about.pl
>@@ -0,0 +1,119 @@
>+#!/usr/bin/perl
>+
>+# Copyright 2011 Rijksmuseum
>+#
>+# This file is part of Koha.
>+#
>+# Koha is free software; you can redistribute it and/or modify it under the
>+# terms of the GNU General Public License as published by the Free Software
>+# Foundation; either version 2 of the License, or (at your option) any later
>+# version.
>+#
>+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
>+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
>+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
>+#
>+# You should have received a copy of the GNU General Public License along
>+# with Koha; if not, write to the Free Software Foundation, Inc.,
>+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
>+
>+# This script prints the names of all new developers in history.txt, not found
>+# in about template (English version).
>+
>+use strict;
>+use warnings;
>+
>+use utf8;
>+use open  OUT=>':utf8', ":std";
>+use Encode;
>+
>+use constant HISTORY => '../docs/history.txt';
>+use constant ABOUT_T => '../koha-tmpl/intranet-tmpl/prog/en/modules/about.tt';
>+
>+my ($fh_about, $fh_history, $about_cont, $about_cont2, $lastnum);
>+
>+#-------------------------------------------------------------------------------
>+
>+init_vars();
>+show_new_committers();
>+exit_stuff();
>+
>+#-------------------------------------------------------------------------------
>+
>+sub init_vars {
>+  open $fh_about, '<:encoding(UTF-8)', ABOUT_T or die $!;
>+  open $fh_history, '<:encoding(UTF-8)', HISTORY or die $!;
>+
>+  my @a=<$fh_about>;
>+  $about_cont= join '', @a;
>+  if ($about_cont=~/id=\"team\"(.*)id=\"licenses\"/s ) {
>+    $about_cont= $1;
>+  }
>+  else {
>+    print "WARNING: Check about template for div ids\n";
>+  }
>+  $about_cont2= $about_cont;
>+  $about_cont2=~ tr/Ã¡Ã©ÃÃ³ÃºÃ Ã¨Ã¬Ã²Ã¹Ã¤Ã«Ã¯Ã¶Ã¼/aeiouaeiouaeiou/; #remove some diacritics
>+}
>+
>+sub show_new_committers {
>+  my @lines= <$fh_history>;
>+
>+  foreach(@lines) {
>+    if(/becomes?.*(developer|committer)/) {
>+      my $dev=extract_name($_);
>+      check_developer($dev) if $dev;
>+    }
>+  }
>+}
>+
>+sub extract_name {
>+  #get name from line
>+  #format looks like date name becomes ..
>+  my $line=shift;
>+  if($line=~/^\w+\s+\d+\s+\d{4}\s+(.*)become\D+(\d+)/) {
>+    my $found=$1; my $num=$2;
>+    print "MISSING NUMBER: ".($lastnum+1)."\n" if $lastnum && $num>$lastnum+1 && $lastnum>5; #first five not all mentioned?
>+    $lastnum=$num;
>+
>+    #strip some garbage
>+    $found=~s/$.*$//g;
>+    $found=~s/narrowly beats Jane to//;
>+    $found=~s/Katipo.s new developer//;
>+    $found=~s/^\s+//;
>+    $found=~s/\s+$//;
>+    #print "$num $found\n";
>+
>+    return "$found";
>+  }
>+  print 'NO MATCH:'.$line;
>+}
>+
>+sub check_developer {
>+  my $dev= shift;
>+  my $test;
>+
>+  #skip some names
>+  return if $dev=~/Polytechnic University|NCE|Koha production|Andy\?\?|doXulting|Gavin \?\?|Nicole Engard/; #tt lists Nicole C. Engard
>+
>+  return if index(lc $about_cont,lc $dev) >=0; #lowercase
>+
>+  #test removing some diacritics?
>+  $test= $dev;
>+  $test=~ tr/Ã¡Ã©ÃÃ³ÃºÃ Ã¨Ã¬Ã²Ã¹Ã¤Ã«Ã¯Ã¶Ã¼/aeiouaeiouaeiou/;
>+  #return if index(lc $about_cont,lc $test) >=0;
>+  return if index(lc $about_cont2, lc $test) >=0;
>+
>+  #remove middle initials
>+  #$test=$dev;
>+  #$test=~s/(?<=\s)[A-Z]\.\s//;
>+  #return if index(lc $about_cont,lc $test) >=0;
>+
>+  print "MISSING DEV: $dev\n";
>+}
>+
>+sub exit_stuff {
>+  close $fh_about;
>+  close $fh_history;
>+}
>+
>-- 
>1.6.0.6
>

Actions: View | Diff | Splinter Review

Attachments on bug 6429: 4303 | 4304 | 4305 | 4306