#!/usr/bin/perl -w
#===============================================================================
#
#         FILE:  testimageshack.pl
#
#        USAGE:  ./testimageshack.pl 
#
#  DESCRIPTION:  a test file for ImagesHack.pm
#
#      OPTIONS:  ---
# REQUIREMENTS:  ---
#         BUGS:  ---
#        NOTES:  ---
#       AUTHOR:  Axioplase (Axioplase), <dev@pied.mine.nu>
#      COMPANY:  None
#      VERSION:  1.0
#      CREATED:  15.09.2005 03:08:31 CEST
#     REVISION:  ---
#===============================================================================

use strict;


use lib '/home/Pied/Code/Perl/WWW::ImagesHack/';
use WWW::ImagesHack;


my $img='/tmp/foo.jpg'; #edit this....


my $ih=WWW::ImagesHack->new($img);
$ih->upload;
my %res=%{$ih->get_all};
foreach (keys %res){
print "$_ => $res{$_}\n";
}

print "\n\n";

print $ih->get_thumbnailForWebsite,"\n";
print $ih->get_thumbnailForForums1,"\n";
print $ih->get_thumbnailForForums2,"\n";
print $ih->get_hotlinkForForums1,"\n";
print $ih->get_hotlinkForForums2,"\n";
print $ih->get_hotlinkForWebsite,"\n";
print $ih->get_showImage,"\n";
print $ih->get_directLinkToImage,"\n";