diff options
Diffstat (limited to 'plugins/updater/bzip2-1.0.3/format.pl')
-rw-r--r-- | plugins/updater/bzip2-1.0.3/format.pl | 68 |
1 files changed, 0 insertions, 68 deletions
diff --git a/plugins/updater/bzip2-1.0.3/format.pl b/plugins/updater/bzip2-1.0.3/format.pl deleted file mode 100644 index f169fd9de2..0000000000 --- a/plugins/updater/bzip2-1.0.3/format.pl +++ /dev/null @@ -1,68 +0,0 @@ -#!/usr/bin/perl -w -# -# ------------------------------------------------------------------ -# This file is part of bzip2/libbzip2, a program and library for -# lossless, block-sorting data compression. -# -# bzip2/libbzip2 version 1.0.6 of 6 September 2010 -# Copyright (C) 1996-2010 Julian Seward <jseward@bzip.org> -# -# Please read the WARNING, DISCLAIMER and PATENTS sections in the -# README file. -# -# This program is released under the terms of the license contained -# in the file LICENSE. -# ------------------------------------------------------------------ -# -use strict; - -# get command line values: -if ( $#ARGV !=1 ) { - die "Usage: $0 xml_infile xml_outfile\n"; -} - -my $infile = shift; -# check infile exists -die "Can't find file \"$infile\"" - unless -f $infile; -# check we can read infile -if (! -r $infile) { - die "Can't read input $infile\n"; -} -# check we can open infile -open( INFILE,"<$infile" ) or - die "Can't input $infile $!"; - -#my $outfile = 'fmt-manual.xml'; -my $outfile = shift; -#print "Infile: $infile, Outfile: $outfile\n"; -# check we can write to outfile -open( OUTFILE,">$outfile" ) or - die "Can't output $outfile $! for writing"; - -my ($prev, $curr, $str); -$prev = ''; $curr = ''; -while ( <INFILE> ) { - - print OUTFILE $prev; - $prev = $curr; - $curr = $_; - $str = ''; - - if ( $prev =~ /<programlisting>$|<screen>$/ ) { - chomp $prev; - $curr = join( '', $prev, "<![CDATA[", $curr ); - $prev = ''; - next; - } - elsif ( $curr =~ /<\/programlisting>|<\/screen>/ ) { - chomp $prev; - $curr = join( '', $prev, "]]>", $curr ); - $prev = ''; - next; - } -} -print OUTFILE $curr; -close INFILE; -close OUTFILE; -exit; |