- Timestamp:
- 2005-01-12T13:38:34+13:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/giget.pm
r7492 r8889 134 134 my ($img_ext) = ($img_url =~ m/\.(\w+)$/); 135 135 $img_ext = lc($img_ext); 136 137 # remove http:// if there, so later we can explicitly add it in 138 $img_url =~ s/^http:\/\///; 136 139 137 140 print "Downloading image url http://$img_url\n";
Note:
See TracChangeset
for help on using the changeset viewer.