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 ); _______________________________________________ pld-cvs-commit mailing list [email protected] http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
