use zUtil;

sub shermanslagoon
{
    my $html = shift;
    my $outname = shift;
    my ( @rValue ) = ();
    my ( $title, $url, $blurb );

    print "---------------------------- shermans --------------------------\n";
    print "html: $html\n";
    #exit 1;
    # $html =~ s/&/&/gixs;
    # $html =~ s/>/>/gixs;
    # $html =~ s/&lt;/</gixs;
    # print "hmtl: $html\n";

    while( $html =~ s/<meta property="og:image" content="(.*?)"//s )
    {
        $image=$1;

        print "shermans Found image: $image\n";

        push @rValue, {
            'description'  => $image,
        };
    }

    $resultHash = $rValue[0];
    $fetch_img=$resultHash->{'description'};

    print "running: wget \"$fetch_img\" -O /usr/local/zeddweb/zii/scratch/$outname";

    system( "wget \"$fetch_img\" -O /usr/local/zeddweb/zii/scratch/$outname");
    system( "chmod", "ugo+rw", "/usr/local/zeddweb/zii/scratch/$outname");

    #exit 1;
    return @rValue;
}

return 1;