SVN: toys/rsget.pl/Get/ArchivTo
sparky
sparky at pld-linux.org
Thu Mar 11 17:21:28 CET 2010
Author: sparky
Date: Thu Mar 11 17:21:28 2010
New Revision: 11245
Modified:
toys/rsget.pl/Get/ArchivTo
Log:
- updated for web layout changes
Modified: toys/rsget.pl/Get/ArchivTo
==============================================================================
--- toys/rsget.pl/Get/ArchivTo (original)
+++ toys/rsget.pl/Get/ArchivTo Thu Mar 11 17:21:28 2010
@@ -9,20 +9,20 @@
short: AT
web: "http://archiv.to/"
tos: "http://archiv.to/?Module=Policy"
-uri: qr{archiv\.to/}
+uri: qr{archiv\.to/\?.*?HashID=FILE[0-9A-F]+}
slots: max
-status: OK 2009-10-21
+status: OK 2010-03-11
start:
GET( $-{_uri} );
ERROR( "file not found" )
- if /Datei wurde entfernt/;
+ if /The desired file could not be found/;
- ! m#<td width="23%">Originaldatei</td>\s*<td width="77%">: <a href="(.*?)" .*?>(.*?)</a></td></tr>#s;
+ ! m#>Originaldatei</td>\s*<td class="V">: <a href="(.*?)">(.*?)</a></td>#s;
my ( $file_uri, $name ) = ( $1, $2 );
- m#<td width="23%">Dateigröße</td>\s*<td width="77%">: (\d+) Bytes#s;
+ ! m#>Dateigröße</td>\s*<td class="V">: (\d+) Bytes #s;
my $size = $1;
INFO( name => $name, size => $size );
More information about the pld-cvs-commit
mailing list