mirror of https://github.com/tLDP/LDP
Upload Linux+IPv6-HOWTO.lyx file and another minor helper tool
Added Files: Linux+IPv6-HOWTO.lyx sgmllyxtabletagfix.pl
This commit is contained in:
parent
a282d282f3
commit
bc0d26c203
File diff suppressed because it is too large
Load Diff
|
@ -0,0 +1,37 @@
|
||||||
|
#!/usr/bin/perl
|
||||||
|
#
|
||||||
|
# $Id$
|
||||||
|
#
|
||||||
|
# SGML LyX table tag fix tool
|
||||||
|
#
|
||||||
|
# (P) & (C) 2002 by Peter Bieringer <pb@bieringer.de>
|
||||||
|
#
|
||||||
|
# Published under the GNU GPL licence
|
||||||
|
#
|
||||||
|
# Takes SGML output exported by LyX and fix a bug in the table tag.
|
||||||
|
# Don't know the reason what causes this, but it is wrong.
|
||||||
|
#
|
||||||
|
# Example:
|
||||||
|
# - <colspec colname="col0" align="center"/>
|
||||||
|
# + <colspec colname="col0" align="center">
|
||||||
|
#
|
||||||
|
# Changes:
|
||||||
|
# 20020119: Initial release
|
||||||
|
#
|
||||||
|
|
||||||
|
while (<STDIN>) {
|
||||||
|
my $line = $_;
|
||||||
|
chomp $line;
|
||||||
|
|
||||||
|
#print "$line";
|
||||||
|
#print "\n";
|
||||||
|
|
||||||
|
if ($line =~ /^<colspec/) {
|
||||||
|
print STDERR "INF: Find a 'colspec' line \n";
|
||||||
|
|
||||||
|
# Substitute '/>' with '>'
|
||||||
|
$line =~ s/\/>$/>/g;
|
||||||
|
};
|
||||||
|
|
||||||
|
print $line . "\n";
|
||||||
|
};
|
Loading…
Reference in New Issue