#!/usr/bin/perl -w

$tabregex='deviantART';

$|=1;

use Data::Dumper;
use WWW::Mechanize::Firefox;

$ENV{'SHELL'}='/bin/bash';

$Data::Dumper::Maxdepth=3;

$www=WWW::Mechanize::Firefox->new( stack_depth=>5, autodie=>1, timeout=>60, tab=>qr/$tabregex/, bufsize => 50000000 );
$www->events(['load','onload','loaded','DOMFrameContentLoaded','DOMContentLoaded','error','abort','stop']);

print time." get #1\n";
$www->get('http://cmcc.deviantart.com/');
print time." after get #1\n";

print time." content #1\n";
$con=$www->content();
print time." after content #1\n";

print time." get #2\n";
$www->get('http://cmcc.deviantart.com/#/d1a8l1t');
print time." after get #2\n";

print time." content #2\n";
$con=$www->content();
print time." after content #2\n";

print time." saveurl #1\n";
$www->save_url('http://fc02.deviantart.net/fs30/i/2008/048/d/9/Wind_by_CMcC.jpg'=>'/tmp/Wind_by_CMcC');
print time." after get #2\n";

##</code><code>##

1291368442 get #1
1291368443 za before $self->_addEventListener($b,$events);
1291368443 zb before $callback->();
1291368443 zc before $self->_wait_while_busy($load_lock);
1291368443 testing elements, last element 0 ::: before for $element (@elements) {
1291368443 testing element, before if ::: before if ((my $s = $element->{busy} || 0) >= 1) {
1291368443 uc _wait_while_busy sleep 1 ::: before sleep 1;
1291368444 testing elements, last element 0 ::: before for $element (@elements) {
1291368444 testing element, before if ::: before if ((my $s = $element->{busy} || 0) >= 1) {
1291368509 returning from _wait_while_busy ::: before return $element;
1291368509 zd after wait
1291368509 after get #1
1291368509 content #1
1291368546 after content #1
1291368546 get #2
1291368547 za before $self->_addEventListener($b,$events);
1291368547 zb before $callback->();
1291368547 zc before $self->_wait_while_busy($load_lock);
1291368547 testing elements, last element 0 ::: before for $element (@elements) {
1291368547 testing element, before if ::: before if ((my $s = $element->{busy} || 0) >= 1) {
1291368547 uc _wait_while_busy sleep 1 ::: before sleep 1;
1291368548 testing elements, last element 0 ::: before for $element (@elements) {
1291368548 testing element, before if ::: before if ((my $s = $element->{busy} || 0) >= 1) {
Deep recursion on subroutine "MozRepl::RemoteObject::Instance::__attr" at /usr/lib/perl5/site_perl/5.10.0/MozRepl/RemoteObject.pm line 1342, <DATA> line 1.
Deep recursion on subroutine "MozRepl::RemoteObject::unjson" at /usr/lib/perl5/site_perl/5.10.0/MozRepl/RemoteObject.pm line 1000, <DATA> line 1.