SVN: toys/rsget.pl/Link/ShareBee

[sparky]

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