SVN: toys/rsget.pl/Link: HotFile SharingMatrix
sparky
sparky at pld-linux.org
Sun Jul 25 15:24:13 CEST 2010
Author: sparky
Date: Sun Jul 25 15:24:12 2010
New Revision: 11703
Modified:
toys/rsget.pl/Link/HotFile
toys/rsget.pl/Link/SharingMatrix
Log:
- return error if no links are found
Modified: toys/rsget.pl/Link/HotFile
==============================================================================
--- toys/rsget.pl/Link/HotFile (original)
+++ toys/rsget.pl/Link/HotFile Sun Jul 25 15:24:12 2010
@@ -18,6 +18,9 @@
start:
GET( $-{_uri} );
- LINK( /<td .*?><a href="(.*?)">/g );
+ my @list = /<td .*?><a href="(.*?)">/g;
+ ERROR( "no links" ) unless @list;
+
+ LINK( @list );
# vim: filetype=perl:ts=4:sw=4
Modified: toys/rsget.pl/Link/SharingMatrix
==============================================================================
--- toys/rsget.pl/Link/SharingMatrix (original)
+++ toys/rsget.pl/Link/SharingMatrix Sun Jul 25 15:24:12 2010
@@ -15,6 +15,9 @@
start:
GET( $-{_uri} );
- LINK( /<td><a href="(.*?)">/g );
+ my @list = /<td><a href="(.*?)">/g;
+ ERROR( "no links" ) unless @list;
+
+ LINK( @list );
# vim: filetype=perl:ts=4:sw=4
More information about the pld-cvs-commit
mailing list