Permalink
Browse files

Show message if getting files actually

  • Loading branch information...
1 parent e6fde63 commit 3f20037a052fa32224131bccfe40e428dad810f9 @mizzy committed Jan 14, 2012
Showing with 1 addition and 2 deletions.
  1. +1 −2 webiblo.pl
View
@@ -83,8 +83,6 @@ sub get_content {
my $object = shift;
return if !$object->{uri};
- warn "Getting $object->{title} ...\n";
-
my $uri = URI->new($object->{uri});
my $file = ($uri->path_segments)[-1];
my $fragment = $uri->fragment;
@@ -95,6 +93,7 @@ sub get_content {
return if -f "tmp/$file";
+ warn "Getting $object->{title} ...\n";
mirror($uri, "tmp/$file");
my $tree = HTML::TreeBuilder::XPath->new;

0 comments on commit 3f20037

Please sign in to comment.