Author: sparky Date: Mon Dec 6 00:44:43 2010 New Revision: 11952 Added: toys/rsget.pl/Premium/.template (contents, props changed) Log: - simple template
Added: toys/rsget.pl/Premium/.template ============================================================================== --- (empty file) +++ toys/rsget.pl/Premium/.template Mon Dec 6 00:44:43 2010 @@ -0,0 +1,37 @@ +# $Id$ +# Premium::[NAME] - Premium file getter plugin for rsget.pl +# +# 2010 (c) ??? <?...@???.??> +# This program is free software, +# you may distribute it under GPL v2 or newer. + +name: [NAME] +short: *[NAME] +web: "http://gsite.com/"; +uri: qr{gsite\.com/} +slots: max +status: OK [DATE] + +pre: + my ($user, $pass); + + if ( my $s = setting("premium_" . lc "[NAME]" ) ) { + ($user, $pass) = ($s =~ /^(.+?):(.+)/) or die "Premium user:pass incorrect\n"; + } else { + die "Premium user:pass not given\n"; + } + +unify: + return $_; + +start: + GET( $-{_uri} ); + + ERROR( "file not found: $1" ) + if /^ERROR: (File .*)/; + + CLICK( "http://login";, post => { user => $user, password => $pass } ); + + DOWNLOAD( "file" ); + +# vim: filetype=perl:ts=4:sw=4 _______________________________________________ pld-cvs-commit mailing list [email protected] http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
