24 lines
514 B
Plaintext
24 lines
514 B
Plaintext
$NetBSD: patch-by,v 1.1.1.1 2008/10/14 11:02:24 hira Exp $
|
|
|
|
--- filter/source/config/fragments/langfilter.pl.orig 2007-03-19 22:40:51.000000000 +0900
|
|
+++ filter/source/config/fragments/langfilter.pl 2007-03-19 22:41:34.000000000 +0900
|
|
@@ -0,0 +1,18 @@
|
|
+#!/usr/pkg/bin/perl
|
|
+
|
|
+use strict;
|
|
+
|
|
+# XXX
|
|
+my $infile = $ARGV[1];
|
|
+my $lang = $ARGV[4];
|
|
+
|
|
+open(IN, $infile) || die "cannot open: $!";
|
|
+
|
|
+while (<IN>) {
|
|
+ if (/^\s*<value xml:lang="\s*(.*)\s*".*$/) {
|
|
+ next if ($1 ne $lang);
|
|
+ }
|
|
+ print $_;
|
|
+}
|
|
+
|
|
+close(IN);
|