SVN: toys/rsget.pl/Link: HotFile SharingMatrix

[sparky]

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