mirror of https://github.com/tLDP/LDP
Update for newer lyx file format
This commit is contained in:
parent
b1ef08fbdc
commit
731e053532
|
@ -5,6 +5,7 @@
|
||||||
# This program extracts URLs from a Lyx file and checks them
|
# This program extracts URLs from a Lyx file and checks them
|
||||||
|
|
||||||
# 20060822/PB: major improvement, add support for persistent XML database
|
# 20060822/PB: major improvement, add support for persistent XML database
|
||||||
|
# 20081109/PB: enhancement to detect URLs in newer lyx file format
|
||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
use Net::HTTP;
|
use Net::HTTP;
|
||||||
|
@ -39,6 +40,8 @@ sub quote($) {
|
||||||
|
|
||||||
sub extract_urls($) {
|
sub extract_urls($) {
|
||||||
|
|
||||||
|
my ($url, $desc);
|
||||||
|
|
||||||
print STDERR "DEBUG/extract_urls: open file: $_[0]\n";
|
print STDERR "DEBUG/extract_urls: open file: $_[0]\n";
|
||||||
|
|
||||||
open FILE, "<" . $_[0] || die "ERROR : can't open file: " . $_[0];
|
open FILE, "<" . $_[0] || die "ERROR : can't open file: " . $_[0];
|
||||||
|
@ -50,7 +53,6 @@ sub extract_urls($) {
|
||||||
chomp $_;
|
chomp $_;
|
||||||
|
|
||||||
if ($_ =~ /LatexCommand \\url\[([^]]*)\]{([^}]*)}/) {
|
if ($_ =~ /LatexCommand \\url\[([^]]*)\]{([^}]*)}/) {
|
||||||
my ($url, $desc);
|
|
||||||
|
|
||||||
$desc = $1;
|
$desc = $1;
|
||||||
$url = $2;
|
$url = $2;
|
||||||
|
@ -74,6 +76,37 @@ sub extract_urls($) {
|
||||||
$$p_urls{$url}->{'time'} = $time;
|
$$p_urls{$url}->{'time'} = $time;
|
||||||
$$p_urls{$url}->{'line'} = $linecounter;
|
$$p_urls{$url}->{'line'} = $linecounter;
|
||||||
};
|
};
|
||||||
|
|
||||||
|
$url = "";
|
||||||
|
$desc = "";
|
||||||
|
|
||||||
|
} elsif ($_ =~ /name \"([^"]*)\"/) {
|
||||||
|
# name "IPv6 & Linux - HowTo"
|
||||||
|
$desc = $1;
|
||||||
|
|
||||||
|
} elsif ($_ =~ /target \"([^"]*)\"/) {
|
||||||
|
# target "http://www.bieringer.de/linux/IPv6/"
|
||||||
|
$url = $1;
|
||||||
|
|
||||||
|
print STDERR "DEBUG/extract_urls: desc='$desc' URL=$url\n" if ($debug & 0x10);
|
||||||
|
|
||||||
|
if (defined $$p_urls{$url}->{'line'}) {
|
||||||
|
print STDERR "DEBUG/extract_urls: URL already found earlier - skip\n" if ($debug & 0x10);
|
||||||
|
|
||||||
|
if ($$p_urls{$url}->{'time'} == $time) {
|
||||||
|
|
||||||
|
} else {
|
||||||
|
# from database, update now
|
||||||
|
$$p_urls{$url}->{'time'} = $time;
|
||||||
|
$$p_urls{$url}->{'line'} = $linecounter;
|
||||||
|
$$p_urls{$url}->{'desc'} = quote($desc);
|
||||||
|
};
|
||||||
|
next;
|
||||||
|
} else {
|
||||||
|
$$p_urls{$url}->{'desc'} = quote($desc);
|
||||||
|
$$p_urls{$url}->{'time'} = $time;
|
||||||
|
$$p_urls{$url}->{'line'} = $linecounter;
|
||||||
|
};
|
||||||
};
|
};
|
||||||
};
|
};
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue