Settingan storeurl.pl Q
================================== Cut Here =========================================
#!/usr/bin/perl
# $Rev$
# by chudy_fernandez@yahoo.com
# rev by ucok_karnadi@yahoo.com
# rev date 02/04/2012
# visit my facebook account http://www.facebook.com/stressss
$|=1;
while (<>) {
@X = split;
# $X[1] =~ s/&sig=.*//;
$x = $X[0] . " ";
$_ = $X[1];
$u = $X[1];
# photos-X.ak.fbcdn.net where X a-z
if (m/^http:\/\/photos-[a-z]?(.ak.fbcdn.net.*)/) {
print $x . "http://photos" . $1 . "\n";
# photo
#} elsif (m/^http:\/\/photos-ash[1-5]?(.fbcdn.net.*)/) {
# print $x . "http://ash.photos" . $1 . "\n";
# photos.ak.fbcdn.net where X i(0-9)
# a5.sphotos.ak.fbcdn.net
#} elsif (m/^http:\/\/[a-z][0-9]?.(sphotos.ak.fbcdn.net.*)/) {
# print $x . "http://cdn.photos" . $1 . "\n";
# BLOGSPOT
} elsif (m/^http:\/\/[1-4].bp.(blogspot.com.*)/) {
print $x . "http://blog-cdn." . $1 . "\n";
# AVAST
#} elsif (m/^http:\/\/download[0-9]{3}.(avast.com.*)/) {
# print $x . "http://avast-cdn." . $1 . "\n";
# KAV
#} elsif (m/^http:\/\/dnl-[0-9]{2}.(geo.kaspersky.com.*)/) {
# print $x . "http://kav-cdn." . $1 . "\n";
# AVG
#} elsif (m/^http:\/\/update.avg.com/) {
# print $x . "http://avg-cdn." . $1 . "\n";
# Mediafire
#} elsif (m/^http:\/\/199\.91\.15\d\.\d*\/\w{12}\/(\w*)\/(.*)/) {
# print $x . "http://www.mediafire.com.SQUIDINTERNAL/" . $1 ."/" . $2 . "\n";
# Fileserve
#} elsif (m/^http:\/\/fs\w*\.fileserve\.com\/file\/(\w*)\/[\w-]*\.\/(.*)/) {
# print $x . "http://www.fileserve.com.SQUIDINTERNAL/" . $1 . "./" . $2 . "\n";
# Filesonic
#} elsif (m/^http:\/\/s[0-9]*\.filesonic\.com\/download\/([0-9]*)\/(.*)/) {
# print $x . "http://www.filesonic.com.SQUIDINTERNAL/" . $1 . "\n";
# 4Shared
#} elsif (m/^http:\/\/[a-zA-Z]{2}\d*\.4shared\.com(:8080|)\/download\/(.*)\/(.*\..*)\?.*/) {
# print $x . "http://www.4shared.com.SQUIDINTERNAL/download/$2\/$3\n";
# 4Shared preview
#} elsif (m/^http:\/\/[a-zA-Z]{2}\d*\.4shared\.com(:8080|)\/img\/(\d*)\/\w*\/dlink__2Fdownload_2F(\w*)_3Ftsid_3D[\w-]*\/preview\.mp3\?sId=\w*/) {
# print $x . "http://www.4shared.com.SQUIDINTERNAL/$2\n";
# maps.google.com
} elsif (m/^http:\/\/(cbk|mt|khm|khms|mlt|tbn)[0-9]?(.google\.co(m|\.uk|\.id).*)/) {
print $x . "http://" . $1 . $2 . "\n";
# maps.google.com
} elsif (m/^http:\/\/(khm|khms|mt)[0-9]?(.google.com.*)/) {
print $x . "http://" . $1 . $2 . "\n";
# gstatic and/or wikimapia
} elsif (m/^http:\/\/([a-z])[0-9]?(\.gstatic\.com.*|\.wikimapia\.org.*)/) {
print $x . "http://" . $1 . $2 . "\n";
# video google / youtube
#} elsif ($X[1] =~ /(youtube|google).*videoplayback\?/){
# @itag = m/[&?](itag=[0-9]*)/;
# @id = m/[&?](id=[^\&]*)/;
# @range = m/[&?](range=[^\&\s]*)/;
# @begin = m/[&?](begin=[^\&\s]*)/;
# @redirect = m/[&?](redirect_counter=[^\&]*)/;
# print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/@itag&@id&@range@begin@redirect\n";
# youtube fix
#} elsif (m/^http:\/\/([0-9.]{4}|.*\.youtube\.com|.*\.googlevideo\.com|.*\.video\.google\.com)\/videoplayback\?(.*)/) {
# $p_str = $2;
# $tag = "";
# $alg = "";
# $id = "";
# $range = "";
# if ($p_str =~ m/(itag=[0-9]*)/){$tag = "&".$1}
# if ($p_str =~ m/(algorithm=[a-z]*\-[a-z]*)/){$alg = "&".$1}
# if ($p_str =~ m/(id=[a-zA-Z0-9]*)/){$id = "&".$1}
# if ($p_str =~ m/(range=[0-9\-]*)/){$range = "&".$1; $range =~ s/-//; $range =~ s/range=//; }
# print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $tag . "&" . $alg . "&" . $id . "&" . $range . "\n";
# ini untuk youtube cache partial
#} elsif (m/^http:\/\/([0-9.]{4}|.*\.youtube\.com|.*\.googlevideo\.com|.*\.video\.google\.com).*?(id=[a-zA-Z0-9]*).*?\&(range=[0-9]*).*/) {
# print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $2 . $3 . "\n";
# compatibility for old cached get_video?video_id
#} elsif (m/^http:\/\/([0-9.]{4}|.*\.youtube\.com|.*\.googlevideo\.com|.*\.video\.google\.com).*?(videoplayback\?id=.*?|video_id=.*?)\&(.*?)/) {
# $z = $2; $z =~ s/video_id=/get_video?video_id=/;
# print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $z . "\n";
# youtube All itag (semua resolusi)
#} elsif (m/^http:\/\/([0-9.]{4}|.*\.youtube\.com|.*\.googlevideo\.com|.*\.video\.google\.com).*?(itag=[0-9]*).*?\&(id=[a-zA-Z0-9]*).*/) {
# print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $2 . "&" . $3 . "\n";
# youtube All itag (semua resolusi) posisi kebalikan
#} elsif (m/^http:\/\/([0-9.]{4}|.*\.youtube\.com|.*\.googlevideo\.com|.*\.video\.google\.com).*?(id=[a-zA-Z0-9]*).*?\&(itag=[0-9]*).*/) {
# print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $3 . "&" . $2 . "\n";
# Google
} elsif (m/^http:\/\/www\.google-analytics\.com\/__utm\.gif\?.*/) {
print $x . "http://www.google-analytics.com/__utm.gif\n";
# Cache High Latency Ads
#} elsif (m/^http:\/\/([a-z0-9.]*)(\.doubleclick\.net|\.quantserve\.com|\.googlesyndication\.com|yieldmanager|cpxinteractive)(.*)/) {
# $y = $3;$z = $2;
# for ($y) {
# s/pixel;.*/pixel/;
# s/activity;.*/activity/;
# s/(imgad[^&]*).*/\1/;
# s/;ord=[?0-9]*//;
# s/;×tamp=[0-9]*//;
# s/[&?]correlator=[0-9]*//;
# s/&cookie=[^&]*//;
# s/&ga_hid=[^&]*//;
# s/&ga_vid=[^&]*//;
# s/&ga_sid=[^&]*//;
# s/&prev_slotnames=[^&]*//
# s/&u_his=[^&]*//;
# s/&dt=[^&]*//;
# s/&dtd=[^&]*//;
# s/&lmt=[^&]*//;
# s/(&alternate_ad_url=http%3A%2F%2F[^(%2F)]*)[^&]*/\1/;
# s/(&url=http%3A%2F%2F[^(%2F)]*)[^&]*/\1/;
# s/(&ref=http%3A%2F%2F[^(%2F)]*)[^&]*/\1/;
# s/(&cookie=http%3A%2F%2F[^(%2F)]*)[^&]*/\1/;
# s/[;&?]ord=[?0-9]*//;
# s/[;&]mpvid=[^&;]*//;
# s/&xpc=[^&]*//;
# yieldmanager
# s/\?clickTag=[^&]*//;
# s/&u=[^&]*//;
# s/&slotname=[^&]*//;
# s/&page_slots=[^&]*//;
# }
# print $x . "http://" . $1 . $2 . $y . "\n";
# cache high latency ads
#} elsif (m/^http:\/\/(.*?)\/(ads)\?(.*?)/) {
# print $x . "http://" . $1 . "/" . $2 . "\n";
# Ziddu
#} elsif (m/^http:\/\/(www\.ziddu\.com.*\.[^\/]{3,4})\/(.*?)/) {
# print $x . "http://" . $1 . "\n";
# cdn, varialble 1st path
#} elsif (($u =~ /filehippo/) && (m/^http:\/\/(.*?)\.(.*?)\/(.*?)\/(.*)\.([a-z0-9]{3,4})(\?.*)?/)) {
# @y = ($1,$2,$4,$5);
# $y[0] =~ s/[a-z0-9]{2,5}/cdn./;
# print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";
# rapidshare
#} elsif (($u =~ /rapidshare/) && (m/^http:\/\/(([A-Za-z]+[0-9-.]+)*?)([a-z]*\.[^\/]{3}\/[a-z]*\/[0-9]*)\/(.*?)\/([^\/\?\&]{4,})$/)) {
# print $x . "http://cdn." . $3 . "/SQUIDINTERNAL/" . $5 . "\n";
#} elsif (($u =~ /maxporn/) && (m/^http:\/\/([^\/]*?)\/(.*?)\/([^\/]*?)(\?.*)?$/)) {
# print $x . "http://" . $1 . "/SQUIDINTERNAL/" . $3 . "\n";
# domain/path/.*/path/filename
#} elsif (($u =~ /fucktube/) && (m/^http:\/\/(.*?)(\.[^\.\-]*?[^\/]*\/[^\/]*)\/(.*)\/([^\/]*)\/([^\/\?\&]*)\.([^\/\?\&]{3,4})(\?.*?)$/)) {
# @y = ($1,$2,$4,$5,$6);
# $y[0] =~ s/(([a-zA-A]+[0-9]+(-[a-zA-Z])?$)|([^\.]*cdn[^\.]*)|([^\.]*cache[^\.]*))/cdn/;
# print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "/" . $y[3] . "." . $y[4] . "\n";
# like porn hub variables url and center part of the path, filename etention 3 or 4 with or without ? at the end
#} elsif (($u =~ /tube8|pornhub|xvideos/) && (m/^http:\/\/(([A-Za-z]+[0-9-.]+)*?(\.[a-z]*)?)\.([a-z]*[0-9]?\.[^\/]{3}\/[a-z]*)(.*?)((\/[a-z]*)?(\/[^\/]*){4}\.[^\/\?]{3,4})(\?.*)?$/)) {
# print $x . "http://cdn." . $4 . $6 . "\n";
# for yimg.com video
#} elsif (m/^http:\/\/(.*yimg.com)\/\/(.*)\/([^\/\?\&]*\/[^\/\?\&]*\.[^\/\?\&]{3,4})(\?.*)?$/) {
# print $x . "http://cdn.yimg.com/" . $3 . "\n";
# print $x . "http://" . $y[0] . ".ytimg.com/" . $3 . "\n";
# for yimg.com doubled
#} elsif (m/^http:\/\/(.*?)\.yimg\.com\/(.*?)\.yimg\.com\/(.*?)\?(.*)/) {
# print $x . "http://cdn.yimg.com/" . $3 . "\n";
# print $x . "http://" . $y[0] . ".ytimg.com/" . $3 . "\n";
# for yimg.com with &sig=
#} elsif (m/^http:\/\/([^\.]*)\.yimg\.com\/(.*)/) {
# @y = ($1,$2);
# $y[0] =~ s/[a-z]+([0-9]+)?/cdn/;
# $y[1] =~ s/&sig=.*//;
# print $x . "http://" . $y[0] . ".yimg.com/" . $y[1] . "\n";
# for ytimg.com doubled
#} elsif (m/^http:\/\/(.*?)\.ytimg\.com\/(.*?)\.ytimg\.com\/(.*?)\?(.*)/) {
# print $x . "http://cdn.ytimg.com/" . $3 . "\n";
# print $x . "http://" . $y[0] . ".ytimg.com/" . $3 . "\n";
# for ytimg.com with &sig=
#} elsif (m/^http:\/\/([^\.]*)\.ytimg\.com\/(.*)/) {
# @y = ($1,$2);
# $y[0] =~ s/[a-z]+([0-9]+)?/cdn/;
# $y[1] =~ s/&sig=.*//;
# print $x . "http://" . $y[0] . ".ytimg.com/" . $y[1] . "\n";
# youjizz. We use only domain and filename
#} elsif (($u =~ /media[0-9]{1,5}\.youjizz/) && (m/^http:\/\/(.*?)(\.[^\.\-]*?\.[^\/]*)\/(.*)\/([^\/\?\&]*)\.([^\/\?\&]{3,4})(\?.*?)$/)) {
# @y = ($1,$2,$4,$5);
# $y[0] =~ s/(([a-zA-A]+[0-9]+(-[a-zA-Z])?$)|([^\.]*cdn[^\.]*)|([^\.]*cache[^\.]*))/cdn/;
# print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";
# general purpose for cdn servers. add above your specific servers.
#} elsif (m/^http:\/\/([0-9.]*?)\/\/(.*?)\.(.*)\?(.*?)/) {
# print $x . "http://squid-cdn-url/" . $2 . "." . $3 . "\n";
# spicific extention
#} elsif (m/^http:\/\/(.*?)\.(jp(e?g|e|2)|gif|png|tiff?|bmp|ico|flv|wmv|3gp|mp(4|3)|exe|msi|zip|on2|mar|swf|deb|udeb|tar|gz|html|htm|php|css|js).*?/) {
# @y = ($1,$2);
# $y[0] =~ s/((cache|cdn)[-\d]*)|([a-zA-A]+-?[0-9]+(-[a-zA-Z]*)?)/cdn/;
# print $x . "http://" . $y[0] . "." . $y[1] . "\n";
# generic http://variable.domain.com/path/filename."ex", "ext" or "exte"
# http://cdn1-28.projectplaylist.com
# http://s1sdlod041.bcst.cdn.s1s.yimg.com
#} elsif (m/^http:\/\/(.*?)(\.[^\.\-]*?\..*?)\/([^\?\&\=]*)\.([\w\d]{2,4})\??.*$/) {
# @y = ($1,$2,$3,$4);
# $y[0] =~ s/([a-z][0-9][a-z]dlod[\d]{3})|((cache|cdn)[-\d]*)|([a-zA-A]+-?[0-9]+(-[a-zA-Z]*)?)/cdn/;
# print $x . "storeurl://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";
# generic http://variable.domain.com/path/filename."ex" "ext" or "exte" with or withour "? or %"
#} elsif (m/^http:\/\/(.*)(\.[^\.\-]*?\..*?)\/(.*)\.([^\/\?\&]{2,4})((\?|\%).*)?$/) {
# @y = ($1,$2,$3,$4);
# $y[0] =~ s/(([a-zA-A]+[0-9]+(-[a-zA-Z])?$)|(.*cdn.*)|(.*cache.*))/cdn/;
# print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";
# generic http://variable.domain.com/...
#} elsif (m/^http:\/\/(([A-Za-z]+[0-9-]+)*?|.*cdn.*|.*cache.*)\.(.*?)\.(.*?)\/(.*)$/) {
# print $x . "http://cdn." . $3 . "." . $4 . "/" . $5 . "\n";
# all that ends with ;
#} elsif (m/^http:\/\/(.*?)\/(.*?)\;(.*)/) {
# print $x . "http://" . $1 . "/" . $2 . "\n";
# Edit By Me
# ====================================================================================
# Facebook game store
} elsif (m/^https:\/\/apps.facebook.com\/empiresandallies\/(.*\.(php|html|htm|css|js|jp(e?g|e|2)|txt|swf|gif|png|cgi|xml))\?(.*)/) {
print $x . "https://apps.facebook.com/empiresandallies/" . $2 . "." . $3 . "\n";
} elsif (m/^https:\/\/apps.facebook.com\/cityville\/(.*\.(php|html|htm|css|js|jp(e?g|e|2)|txt|swf|gif|png|cgi|xml))\?(.*)/) {
print $x . "https://apps.facebook.com/cityville/" . $2 . "." . $3 . "\n";
} elsif (m/^https:\/\/apps.facebook.com\/texas_holdem\/(.*\.(php|html|htm|css|js|jp(e?g|e|2)|txt|swf|gif|png|cgi|xml))\?(.*)/) {
print $x . "https://apps.facebook.com/texas_holdem/" . $2 . "." . $3 . "\n";
} elsif (m/^https:\/\/apps.facebook.com\/mafiawars-two\/(.*\.(php|html|htm|css|js|jp(e?g|e|2)|txt|swf|gif|png|cgi|xml))\?(.*)/) {
print $x . "https://apps.facebook.com/mafiawars-two/" . $2 . "." . $3 . "\n";
} elsif (m/^https:\/\/apps.facebook.com\/thesimssocial\/(.*\.(php|html|htm|css|js|jp(e?g|e|2)|txt|swf|gif|png|cgi|xml))\?(.*)/) {
print $x . "https://apps.facebook.com/thesimssocial/" . $2 . "." . $3 . "\n";
# Speedtest store
#speedtest (no edit by me)
#} elsif (m/^http:\/\/(.*)\/speedtest\/(.*\.(php|html|htm|css|js|jp(e?g|e|2)|txt|swf|gif|png|cgi|xml))\?(.*)/) {
# print $x . "http://www.speedtest.net.SQUIDINTERNAL/speedtest/" . $2 . "." . $3 . "\n";
#speedtest
} elsif (m/^http:\/\/www.speedtest.net\/(.*\.(php|html|htm|css|js|jp(e?g|e|2)|txt|swf|gif|png|cgi|xml))\?(.*)/) {
print $x . "http://www.speedtest.net.SQUIDINTERNAL/speedtest/" . $2 . "." . $3 . "\n";
#speedtest Jogja Speedy
} elsif (m/^http:\/\/jogja.speedtest.telkomspeedy.com\/(.*\.(php|html|htm|css|js|jp(e?g|e|2)|txt|swf|gif|png|cgi|xml))\?(.*)/) {
print $x . "http://jogja.speedtest.telkomspeedy.com.SQUIDINTERNAL/speedtest/" . $2 . "." . $3 . "\n";
#speedtest Speedy 6
} elsif (m/^http:\/\/6.speedtest.telkomspeedy.com\/(.*\.(php|html|htm|css|js|jp(e?g|e|2)|txt|swf|gif|png|cgi|xml))\?(.*)/) {
print $x . "http://6.speedtest.telkomspeedy.com.SQUIDINTERNAL/speedtest/" . $2 . "." . $3 . "\n";
#speedtest Dnet
} elsif (m/^http:\/\/speedtest.sby.dnet.net.id\/(.*\.(php|html|htm|css|js|jp(e?g|e|2)|txt|swf|gif|png|cgi|xml))\?(.*)/) {
print $x . "http://speedtest.sby.dnet.net.id.SQUIDINTERNAL/speedtest/" . $2 . "." . $3 . "\n";
#speedtest Hypernet
} elsif (m/^http:\/\/speedtest-sby.hyper.net.id\/(.*\.(php|html|htm|css|js|jp(e?g|e|2)|txt|swf|gif|png|cgi|xml))\?(.*)/) {
print $x . "http://speedtest-sby.hyper.net.id.SQUIDINTERNAL/speedtest/" . $2 . "." . $3 . "\n";
#speedtest Biznetwork
} elsif (m/^http:\/\/speedtest-surabaya.biznetnetworks.com\/(.*\.(php|html|htm|css|js|jp(e?g|e|2)|txt|swf|gif|png|cgi|xml))\?(.*)/) {
print $x . "http://speedtest-surabaya.biznetnetworks.com.SQUIDINTERNAL/speedtest/" . $2 . "." . $3 . "\n";
#speedtest transmediahost
} elsif (m/^http:\/\/vps.transmediahost.com\/(.*\.(php|html|htm|css|js|jp(e?g|e|2)|txt|swf|gif|png|cgi|xml))\?(.*)/) {
print $x . "http://vps.transmediahost.com.SQUIDINTERNAL/mini/speedtest/" . $2 . "." . $3 . "\n";
#speedtest iconpln
} elsif (m/^http:\/\/1speedtest.iconpln.net.id\/(.*\.(php|html|htm|css|js|jp(e?g|e|2)|txt|swf|gif|png|cgi|xml))\?(.*)/) {
print $x . "http://1speedtest.iconpln.net.id.SQUIDINTERNAL/speedtest/" . $2 . "." . $3 . "\n";
# File deb store
# Debcache
} elsif (m/^http:\/\/singo.ub.ac.id\/(.*\.(deb|udeb|gpg|bz2|gz|html|src|dsc))\?(.*)/) {
print $x . "http://singo.ub.ac.id/ubuntu/" . $1 . "\n";
# Debcache 2
} elsif (m/^http:\/\/cdn.foss-id.web.id\/(.*\.(deb|udeb|gpg|bz2|gz|html|src|dsc))\?(.*)/) {
print $x . "http://cdn.foss-id.web.id/ubuntu/" . $1 . "\n";
# CDN store
# Akamai
# https://fbcdn-sphotos-a.akamaihd.net/hphotos-ak-snc7/417104_223403571091068_756876996_n.jpg
} elsif (m/^http:\/\/(.*)\/akamaihd\/(.*\.(php|html|htm|css|js|jp(e?g|e|2)|txt|swf|gif|png|cgi|xml))\?(.*)/) {
# print $x . "http://fbcdn-sphotos-a.akamaihd.net/hphotos-ak-snc7/" . $1 . "\n";
# print $x . "http://fbcdn-sphotos-a.akamaihd.net/" . $1 . "/" . $2 . "\n";
print $x . "http://" . $1 . ".akamaihd." . $2 . "/" . $3 . "\n";
# Zynga
} elsif (m/^http:\/\/(.*)\/zynga\/(.*\.(php|html|htm|css|js|jp(e?g|e|2)|txt|swf|gif|png|cgi|xml))\?(.*)/) {
print $x . "http://" . $1 . ".zynga." . $2 . "/" . $3 . "\n";
#(m/^http:\/\/(www\.ziddu\.com.*\.[^\/]{3,4})\/(.*?)/)
#} elsif (m/^http:\/\/i[0-9]\.ytimg\/(.*\.(php|html|htm|css|js|jp(e?g|e|2)|txt|swf|gif|png|cgi|xml))\?(.*)/) {
# print $x . "i1.ytimg.com" . $2 . "/" . $3 . "\n";
# print $x . "i2.ytimg.com" . $2 . "/" . $3 . "\n";
# print $x . "i3.ytimg.com" . $2 . "/" . $3 . "\n";
# print $x . "i4.ytimg.com" . $2 . "/" . $3 . "\n";
#o-o---preferred---pttelkom-sub2---v23---lscache5.c.youtube.com
#http://tc.v6.cache5.c.youtube.com
# for ytimg.com video
} elsif (m/^http:\/\/(.*ytimg.com)\/\/(.*)\/([^\/\?\&]*\/[^\/\?\&]*\.[^\/\?\&]{3,4})(\?.*)?$/) {
print $x . "http://cdn.ytimg.com/" . $3 . "\n";
print $x . "http://" . $y[0] . ".ytimg.com/" . $3 . "\n";
# for ytimg.com doubled
} elsif (m/^http:\/\/(.*?)\.ytimg\.com\/(.*?)\.ytimg\.com\/(.*?)\?(.*)/) {
print $x . "http://cdn.ytimg.com/" . $3 . "\n";
print $x . "http://" . $1 . ".ytimg.com/" . $3 . "\n";
# for ytimg.com with &sig=
} elsif (m/^http:\/\/([^\.]*)\.ytimg\.com\/(.*)/) {
@y = ($1,$2);
$y[0] =~ s/[a-z]+([0-9]+)?/cdn/;
$y[1] =~ s/&sig=.*//;
print $x . "http://" . $y[0] . ".ytimg.com/" . $y[1] . "\n";
# for ytimg.com doubled
} elsif (m/^http:\/\/(.*?)\.ytimg\.com\/(.*?)\.ytimg\.com\/(.*?)\?(.*)/) {
print $x . "http://cdn.ytimg.com/" . $3 . "\n";
print $x . "http://" . $y[0] . ".ytimg.com/" . $3 . "\n";
# for ytimg.com with &sig=
} elsif (m/^http:\/\/([^\.]*)\.ytimg\.com\/(.*)/) {
@y = ($1,$2);
$y[0] =~ s/[a-z]+([0-9]+)?/cdn/;
$y[1] =~ s/&sig=.*//;
print $x . "http://" . $y[0] . ".ytimg.com/" . $y[1] . "\n";
# ====================================================================================
} else {
print $x . $_ . "\n";
}
}
================================== Cut Here =========================================