Dolda2000 GitWeb
/
utils.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
61cdfff
)
ANN: Updated HTML patterns.
author
Fredrik Tolf
<fredrik@dolda2000.com>
Sat, 30 Nov 2013 04:06:37 +0000
(
05:06
+0100)
committer
Fredrik Tolf
<fredrik@dolda2000.com>
Sat, 30 Nov 2013 04:06:37 +0000
(
05:06
+0100)
ANN.pm
patch
|
blob
|
blame
|
history
diff --git
a/ANN.pm
b/ANN.pm
index
f10e869
..
6dd02e9
100644
(file)
--- a/
ANN.pm
+++ b/
ANN.pm
@@
-58,7
+58,7
@@
sub getlist
# The only way to recognize entries that seems sure is to look
# after the "HOVERLINE" class.
# The only way to recognize entries that seems sure is to look
# after the "HOVERLINE" class.
- while($html =~ /<A\s
.*CLASS=HOVERLINE\s.*HREF=\"([^\"]+)\"[^>]*>(<FONT[^>]*>)?(\<small\>.*\<\/small\
>)?\s*([^<]+)<\//ig) {
+ while($html =~ /<A\s
+CLASS="HOVERLINE"\s+HREF="([^"]+)"[^>]*>(<FONT[^>]*>)?(<small>[^<]*<\/small
>)?\s*([^<]+)<\//ig) {
if((substr "" . lc $4 , 0, length $name) eq lc $name) {
push @ret, $4;
}
if((substr "" . lc $4 , 0, length $name) eq lc $name) {
push @ret, $4;
}
@@
-83,7
+83,7
@@
sub getid
# The only way to recognize entries that seems sure is to look
# after the "HOVERLINE" class.
# The only way to recognize entries that seems sure is to look
# after the "HOVERLINE" class.
- while($html =~ /<A\s
.*CLASS=HOVERLINE\s.*HREF=\"([^\"]+)\"[^>]*>(<FONT[^>]*>)?(\<small\>.*\<\/small\
>)?\s*([^<]+)<\//ig) {
+ while($html =~ /<A\s
+CLASS="HOVERLINE"\s+HREF="([^"]+)"[^>]*>(<FONT[^>]*>)?(<small>[^<]*<\/small
>)?\s*([^<]+)<\//ig) {
if((substr "" . lc $4 , 0, length $name) eq lc $name) {
return ($1 =~ /id=(\d+)$/)[0];
}
if((substr "" . lc $4 , 0, length $name) eq lc $name) {
return ($1 =~ /id=(\d+)$/)[0];
}