LDP
/
LDP
mirror of https://github.com/tLDP/LDP
0
1
Fork 0
Code Releases Activity

support ldp: namespace

This commit is contained in:
david 2002-01-21 23:26:37 +00:00
parent bf245fd09e
commit 69aaac55c1
2 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
LDP/txt2db/sample.txt
View File

@ -1,5 +1,7 @@
=Introduction|intro-to-the-program=
[[ldp:Distributions-HOWTO]]
The following list should be rendered as a qandaset:
Q: Why?|why-id

21
LDP/txt2db/txt2db.pl
View File

@ -2,6 +2,12 @@
#
#Converts txt files into docbook.
#
# Requirements:
#
# If you use the "ldp:" namespace, you must have wget installed.
# Wget is used to request a name-to-url conversion from the LDP
# database, http://db.linuxdoc.org.
#
my($txtfile, $dbfile) = '';
#These keep track of which constructs we're in the middle of
@ -296,7 +302,20 @@ sub proc_txt {
} else {
$linkname = $link;
}
$line =~ s/\[\[.*?\]\]/<ulink url='$link'><citetitle>$linkname<\/citetitle><\/ulink>/;
# LDP links
#
if ($link =~ /^ldp:/) {
$link =~ s/^ldp://;
$linkname =~ s/^ldp://;
system("wget -q http://db.linuxdoc.org/cgi-pub/name-to-url.pl?name=$link -O /tmp/name-to-url.txt");
open(URL, "/tmp/name-to-url.txt") || die "txt2db: cannot open temporary file ($!)\n";
$ldp_url = <URL>;
$line =~ s/\[\[.*?\]\]/<ulink url='$ldp_url'><citetitle>$linkname<\/citetitle><\/ulink>/;
close(URL);
} else {
$line =~ s/\[\[.*?\]\]/<ulink url='$link'><citetitle>$linkname<\/citetitle><\/ulink>/;
}
}
# emphasis