Quit separate getting image to a function and rewrite image path in H…

…TML file for handling correctly images with kindlegen

webiblo.pl

@@ -116,7 +116,12 @@ sub get_content {
     for my $image ( @images ) {
         my $base = $uri->as_string;
         $base =~ s{/[^/]+$}{};
-        get_image(URI->new("$base/" . $image->attr('src')));
+
+        warn "Getting $uri ...\n";
+        my $uri  = URI->new("$base/" . $image->attr('src'));
+        my $file = ($uri->path_segments)[-1];
+        mirror($uri, "out/$file") unless -f "out/$file";
+        $image->attr('src', $file);
     }
 
     $file =~ s/\..+/.html/ unless $file =~ /\.html$/;
@@ -129,10 +134,3 @@ sub get_content {
     $file .= "#$fragment" if $fragment;
     $object->{href} = $file;
 }
-
-sub get_image {
-    my $uri = shift;
-    warn "Getting $uri ...\n";
-    my $file = ($uri->path_segments)[-1];
-    mirror($uri, "out/$file") unless -f "out/$file";
-}