Author: sparky
Date: Sat Oct 10 20:23:46 2009
New Revision: 10751
Added:
toys/rsget.pl/Link/ShareBee
Log:
- new
Added: toys/rsget.pl/Link/ShareBee
==============================================================================
--- (empty file)
+++ toys/rsget.pl/Link/ShareBee Sat Oct 10 20:23:46 2009
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+name: ShareBee
+short: L:ShareBee
+uri: qr{sharebee\.com/}
+slots: max
+status: OK 2009-10-10
+
+start:
+ GET( $-{_uri} );
+
+ ERROR( "file not found" ) if m{<title>404 - Page not found};
+ ! m{<table class="links".*?>(.*?)</table>}s;
+ my $tbody = $1;
+ my @links = ($tbody =~ /a href="(.*?)"/g);
+
+ LINK( @links );
+
+# vim:ts=4:sw=4
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
