Changeset 8889

Timestamp:

2005-01-12T13:38:34+13:00 (19 years ago)

Author:

davidb

Message:

Small modification of image URL manipulation remain consistent with
how Google Images generates its HTML.

File:

• trunk/gsdl/perllib/giget.pm (modified) (1 diff)

trunk/gsdl/perllib/giget.pm

@@ -134 +134 @@
         my ($img_ext) = ($img_url =~ m/\.(\w+)$/);
         $img_ext = lc($img_ext);
+
+        # remove http:// if there, so later we can explicitly add it in
+        $img_url =~ s/^http:\/\///; 
 
         print "Downloading image url http://$img_url\n";