Alan Haggai Alavi > WWW-Rapidshare-Free-0.01 > WWW::Rapidshare::Free

Download:
WWW-Rapidshare-Free-0.01.tar.gz

Dependencies

Annotate this POD

CPAN RT

Open  2
View/Report Bugs
Module Version: 0.01   Source  

NAME ^

WWW::Rapidshare::Free - Automates downloading from Rapidshare.com and checking links for free users

VERSION ^

Version 0.01

SYNOPSIS ^

    use strict;
    use warnings;
    use WWW::Rapidshare::Free qw( verbose add_links check_links 
      download connection );

    # We are going to let the module be verbose and display a delay metre and 
    # progress bar.
    verbose(1);

    my @links = add_links(
        qw{
          http://rapidshare.com/files/175658683/perl-51.zip
          http://rapidshare.com/files/175662062/perl-52.zip
          }
    );

    print "Added links:\n";
    map print("\t$_\n"), @links;

    my @erroneous_links = check_links;
    map {
        my ( $uri, $error ) = @{$_};
        print "URI: $uri\nError: $error\n";
    } @erroneous_links;

    download(
        properties    => \&properties,
        file_complete => \&file_complete,
    );

    sub properties {
        my ( $file_name, $file_size ) = @_;
        print "Filename: $file_name\nFile size: $file_size bytes\n";
    }

    sub file_complete {
        # Let us restart the modem. I have updated my /etc/sudoers file to allow me
        # to execute sudo pppoe-start and sudo pppoe-stop without a password.
        connection(
            connect    => 'sudo pppoe-start',
            disconnect => 'sudo pppoe-stop',
        );
    }

FUNCTIONS ^

By default, the module does not export any function. An export tag all has been defined to export all functions. The following functions can be exported:

Check download.pl file inside example directory for usage example of the module.

AUTHOR ^

Alan Haggai Alavi, <alanhaggai at alanhaggai.org>

BUGS ^

Please report any bugs or feature requests to bug-www-rapidshare-free at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=WWW-Rapidshare-Free. I will be notified, and then you will automatically be notified of progress on your bug as I make changes.

SUPPORT ^

You can find documentation for this module with the perldoc command.

    perldoc WWW::Rapidshare::Free

You can also look for information at:

COPYRIGHT & LICENSE ^

Copyright 2008 Alan Haggai Alavi, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

syntax highlighting: