Thanks!  I've opened the bugzilla ticket.

BTW, the script is in perl, I forgot the first line of the script (sorry!):

---------------------------------
#!/usr/bin/perl
$|=1;
while (<>) {
  @X = split;
  $url = $X[0];
  $url =~ [EMAIL PROTECTED]://(.*?)/get_video\?(.*)video_id=(.*?)&[EMAIL 
PROTECTED]://videos.youtube.INTERNAL/ID=$3@;
  $url =~ [EMAIL PROTECTED]://(.*?)/get_video\?(.*)video_id=(.*?)[EMAIL 
PROTECTED]://videos.youtube.INTERNAL/ID=$3@;
  $url =~ [EMAIL PROTECTED]://(.*?)/videodownload\?(.*)docid=(.*?)[EMAIL 
PROTECTED]://videos.google.INTERNAL/ID=$3@;
  $url =~ [EMAIL PROTECTED]://(.*?)/videodownload\?(.*)docid=(.*?)&[EMAIL 
PROTECTED]://videos.google.INTERNAL/ID=$3@;

# Uncomment this if the use of "squid://" is unaceptable:
#  $url =~ [EMAIL PROTECTED]://@^http://@;

  print "$url\n";
}

Reply via email to