Changeset 10112

Timestamp:

2005-06-15T15:09:52+12:00 (19 years ago)

Author:

davidb

Message:

Minor tweak to pretty printing of "Searching Google images for"

File:

• trunk/gsdl/perllib/giget.pm (modified) (2 diffs)

trunk/gsdl/perllib/giget.pm

@@ -78 +78 @@
     if ((!-e $downloadto_fname) || (-z $downloadto_fname)) {
     my $cmd = "wget -nv -T 10 -nc -U \"Mozilla\" -O \"$downloadto_fname\" \"$full_url\"";
+##  print STDERR "*** wget cmd:\n $cmd\n";
+
     `$cmd`;
     }
@@ -238 +240 @@
     }
     
-    print STDERR "Searching Google Images for: ", join(" ",@$search_terms), "\n";
+    print STDERR "Searching Google Images for: ", join(", ",@$search_terms), "\n";
 
     my $gi_base = gi_url_base();