SVN: toys/rsget.pl: Get/MegaShares Get/MegaUpload Get/OdSiebie Get/RapidShare Get/RapidShark Get/Sto...

[sparky]

Author: sparky
Date: Fri Aug 28 01:07:40 2009
New Revision: 10503

Modified:
   toys/rsget.pl/Get/MegaShares
   toys/rsget.pl/Get/MegaUpload
   toys/rsget.pl/Get/OdSiebie
   toys/rsget.pl/Get/RapidShare
   toys/rsget.pl/Get/RapidShark
   toys/rsget.pl/Get/StorageTo
   toys/rsget.pl/Makefile
   toys/rsget.pl/RSGet/Curl.pm
   toys/rsget.pl/RSGet/MicroHTTP.pm
Log:
- minor changes


Modified: toys/rsget.pl/Get/MegaShares
==============================================================================
--- toys/rsget.pl/Get/MegaShares	(original)
+++ toys/rsget.pl/Get/MegaShares	Fri Aug 28 01:07:40 2009
@@ -4,7 +4,7 @@
 short: MS
 uri: qr{d01\.megashares\.com/\?d01=}
 cookie: ms
-status: OK ?
+status: OK 2009-08-28
 
 pre:
 	use IPC::Open2;

Modified: toys/rsget.pl/Get/MegaUpload
==============================================================================
--- toys/rsget.pl/Get/MegaUpload	(original)
+++ toys/rsget.pl/Get/MegaUpload	Fri Aug 28 01:07:40 2009
@@ -8,7 +8,7 @@
 pre:
 	use Image::Magick;
 
-	my $mu_font_db = $main::data_path . "/mu_font_db.png";
+	my $mu_font_db = $main::data_path . "/data/mu_font_db.png";
 	die "Font DB '$mu_font_db' does not exist\n" unless -r $mu_font_db;
 
 start:

Modified: toys/rsget.pl/Get/OdSiebie
==============================================================================
--- toys/rsget.pl/Get/OdSiebie	(original)
+++ toys/rsget.pl/Get/OdSiebie	Fri Aug 28 01:07:40 2009
@@ -5,7 +5,7 @@
 uri: qr{odsiebie\.com/pokaz/}
 cookie: os
 slots: 8
-status: OK 2009-08-25
+status: OK 2009-08-28
 
 start:
 	GET( $-{_uri} );

Modified: toys/rsget.pl/Get/RapidShare
==============================================================================
--- toys/rsget.pl/Get/RapidShare	(original)
+++ toys/rsget.pl/Get/RapidShare	Fri Aug 28 01:07:40 2009
@@ -3,7 +3,7 @@
 name: RapidShare
 short: RS
 uri: qr{rapidshare\.com/}
-status: OK 2009-08-24
+status: OK 2009-08-28
 
 start:
 	GET( $-{_uri} );

Modified: toys/rsget.pl/Get/RapidShark
==============================================================================
--- toys/rsget.pl/Get/RapidShark	(original)
+++ toys/rsget.pl/Get/RapidShark	Fri Aug 28 01:07:40 2009
@@ -3,7 +3,7 @@
 name: RapidShark
 short: RK
 uri: qr{rapidshark\.pl/}
-status: OK 2009-08-26
+status: OK 2009-08-28
 
 start:
 	GET( $-{_uri} );

Modified: toys/rsget.pl/Get/StorageTo
==============================================================================
--- toys/rsget.pl/Get/StorageTo	(original)
+++ toys/rsget.pl/Get/StorageTo	Fri Aug 28 01:07:40 2009
@@ -3,7 +3,7 @@
 name: StorageTo
 short: ST
 uri: qr{storage\.to/}
-status: OK 2009-08-24
+status: OK 2009-08-28
 
 start:
 	GET( $-{_uri} );

Modified: toys/rsget.pl/Makefile
==============================================================================
--- toys/rsget.pl/Makefile	(original)
+++ toys/rsget.pl/Makefile	Fri Aug 28 01:07:40 2009
@@ -14,10 +14,11 @@
 	rm -f {RSGet,Get,Link,data}/*~
 	install -d $(PKGDIR)/{RSGet,Get,Link,data}
 	install rsget.pl $(PKGDIR)
-	cp Makefile $(PKGDIR)
+	cp Makefile README $(PKGDIR)
 	cp RSGet/*.pm $(PKGDIR)/RSGet
 	cp Get/* $(PKGDIR)/Get
 	cp Link/* $(PKGDIR)/Link
+	grep "status:\s*BROKEN" $(PKGDIR)/{Get,Link}/* | sed 's/:.*//' | xargs -r rm -v
 	cp data/* $(PKGDIR)/data
 	tar -cjf $(PKGDIR).tar.bz2 $(PKGDIR)
 endif

Modified: toys/rsget.pl/RSGet/Curl.pm
==============================================================================
--- toys/rsget.pl/RSGet/Curl.pm	(original)
+++ toys/rsget.pl/RSGet/Curl.pm	Fri Aug 28 01:07:40 2009
@@ -237,7 +237,7 @@
 
 	if ( $err ) {
 		my $error = $curl->errbuf;
-		warn "error($err): $error\n";
+		#warn "error($err): $error\n";
 		$get_obj->print( "error($err): $error" );
 		if ( $error =~ /Couldn't bind to '(.*)'/ ) {
 			my $if = $1;

Modified: toys/rsget.pl/RSGet/MicroHTTP.pm
==============================================================================
--- toys/rsget.pl/RSGet/MicroHTTP.pm	(original)
+++ toys/rsget.pl/RSGet/MicroHTTP.pm	Fri Aug 28 01:07:40 2009
@@ -52,14 +52,10 @@
 	return @ret;
 }
 
-my $actual_client;
-
 sub request
 {
 	my $client = shift;
-	$actual_client = $client;
 	local $SIG{ALRM} = sub {
-		print $actual_client "Close !\n";
 		die "HTTP Frozen !\n";
 	};
 	alarm 5; # XXX: this must be fixed