Imported Upstream version 1.2.18upstream/1.2.18

1 files changed, 20 insertions, 0 deletions

diff --git a/scripts/remove-gtkdoclink.pl b/scripts/remove-gtkdoclink.pl
new file mode 100755
index 00000000..84ab625c
--- /dev/null
+++ b/scripts/remove-gtkdoclink.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+my $file;
+while ($file = shift @ARGV) {
+    print "Processing $file..\n";
+    open (IN, $file) || die "Can't open $file: $!";
+    my $entire_file;
+    while(<IN>) {
+	$entire_file = $entire_file . $_;
+    }
+    close (IN);
+    $entire_file =~ s%<GTKDOCLINK\s+HREF="([^"]*)"\s*>(.*?)</GTKDOCLINK\s*>% "<font>$2</font>" %ge;
+
+    open (OUT, ">$file") || die "Can't open $file: $!";
+    print OUT $entire_file;
+    close (OUT);	
+}
+