The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

WWW::Zorpia::Upload - upload photos to www.zorpia.com

SYNOPSIS

    use WWW::Zorpia::Upload;

    my $zorpia = WWW::Zorpia::Upload->new();
    $zorpia->login('username', 'password');
    
    # upload files in local machine
    $zorpia->upload( {
        file => '/home/fayland/upload.gif',
        album_id => 12345, # optional, default is -1 ( profile album )
                           # be sure that's your album
    } );
    
    # upload internet pictures
    $zorpia->upload( {
        url => 'http://www.fayland.org/images/camel/kiss.jpg',
        album_id => -1, # optional, the same as above
    } );
    
    # upload a photo to a group
    $zorpia->upload_for_group( {
        file => 'E:/Fayland/love.jpg',
        album_id => '780190',
        group_code => 'faylands_group',
    } );

AUTHOR

Fayland Lam, <fayland at gmail.com>

ACKNOWLEDGEMENTS

Zorpia http://www.zorpia.com Company Ltd.

COPYRIGHT & LICENSE

Copyright 2007 Fayland Lam and Zorpia Company Ltd., all rights reserved.

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