storeurl edit

#!/usr/bin/perl

$|=1;

while(<>) {

@kangmus = split;

} if ($kangmus[0] =~ m/http.*\.(fbcdn|akamaihd)\.net\/h(profile|photos).*[\d\w].*\/([\w]\d+x\d+\/.*\.[\d\w]{3}).*/) {
    print "OK store-id=http://kangmus.setoran.kicimpring/fbcdn\n";

} elsif ($kangmus[0] =~ m/^https?:\/\/.*(profile|photo|creative).*\.ak\.fbcdn\.net\/((h|)(profile|photos)-ak-)(snc|ash|prn)[0-9]?(.*)/) {
        print "OK store-id=http://kangmus.setoran.kicimpring/fbcdn\n";

} elsif ($kangmus[0] =~ m/^http(.*)static(.*)(akamaihd|fbcdn).net\/rsrc.php\/(.*\/.*\/(.*).(js|css|png|gif))(\?(.*)|$)/) {
    print "OK store-id=http://kangmus.setoran.kicimpring/fbcdn\n";

} elsif ($kangmus[0] =~ m/^https?\:\/\/.*utm.gif.*/) {
    print "OK store-id=http://kangmus.setoran.kicimpring/gif\n";

} elsif ($kangmus[0] =~ m/^https?\:\/\/.*\/(.*\..*(mp4|3gp|flv))\?.*/) {
    print "OK store-id=http://kangmus.setoran.kicimpring/video\n";

} elsif ($kangmus[0] =~ m/^https?\:\/\/c2lo\.reverbnation\.com\/audio_player\/ec_stream_song\/(.*)\?.*/) {
    print "OK store-id=http://kangmus.setoran.kicimpring/reverbnation\n";

} elsif ($kangmus[0] =~ m/^http:\/\/(videos|photos|scontent)[\-a-z0-9\.]*instagram\.com\/hphotos[\-a-z0-9]*\/([\w\d\-\_\/\.]*.(mp4|jpg))/){
        print "OK store-id=http://kangmus.setoran.kicimpring/instagram\n";

} elsif ($kangmus[0] =~ m/^http:\/\/distilleryimage[\-a-z0-9\.]*instagram\.com\/(.*)/){
        print "OK store-id=http://kangmus.setoran.kicimpring/instagram\n";

} elsif ($kangmus[0] =~ m/^https?:\/\/attachment\.fbsbx\.com\/.*\?(id=[0-9]*).*/) {
        print "OK store-id=http://kangmus.setoran.kicimpring/fsbx\n";

} elsif ($kangmus[0] =~ m/^https:\/\/.*\.google\.com\/chrome\/win\/.+\/(.*\.exe)/) {
        print "OK store-id=http://kangmus.setoran.kicimpring/chrome\n";

} elsif ($kangmus[0] =~ m/^https?:\/\/i[1-4]\.ytimg\.com\/(.*)/) {
        print "OK store-id=http://kangmus.setoran.kicimpring/ytimg\n";

} elsif ($kangmus[0] =~ m/^https?:\/\/.*\.4shared\.com\/.*\/dlink__[23]F([\w]+)_[23]F(.*)\_3Ftsid_[\w].*/) {
        print "OK store-id=http://kangmus.setoran.kicimpring/4shared\n";

} elsif ($kangmus[0] =~ m/^https?:\/\/.*\.4shared\.com\/download\/([^\/]*).*/) {
        print "OK store-id=http://kangmus.setoran.kicimpring/4shared\n";

} elsif ($kangmus[0] =~ m/^https?:\/\/.*\.[a-z]+\.bing\.net\/(.*)\&w=.*/) {
        print "OK store-id=http://kangmus.setoran.kicimpring/bing\n";

} elsif ($kangmus[0] =~ m/^https?:\/\/.*\.bing\.(net|com)\/.*\?id=([a-zA-Z]\.[0-9]+)&pid=.*/) {
        print "OK store-id=http://kangmus.setoran.kicimpring/bing\n";

} elsif ($kangmus[0] =~ m/^https?:\/\/.*\.gstatic\.com\/images\?q=tbn\:(.*)/) {
        print "OK store-id=http://kangmus.setoran.kicimpring/gstatic\n";

} elsif ($kangmus[0] =~ m/^https?:\/\/.*\.reverbnation\.com\/.*\/(ec_stream_song|download_song_direct|stream_song)\/([0-9]*).*/){
        print "OK store-id=http://kangmus.setoran.kicimpring/reverbnation\n";

} elsif ($kangmus[0] =~ m/^https?:\/\/.*\.dl\.sourceforge\.net\/(.*\.(exe|zip|mp3|mp4))/) {
        print "OK store-id=http://kangmus.setoran.kicimpring/sourceforge\n";

} elsif ($kangmus[0] =~ m/^https?:\/\/.*\.facebook\.com\/(.*)/) {
    print "OK store-id=http://kangmus.setoran.kicimpring/facebook\n";

} elsif ($kangmus[0] =~ m/^https?:\/\/graph\.facebook\.com\/(\w+)\/.*/) {
    print "OK store-id=http://kangmus.setoran.kicimpring/facebook\n";

} elsif ($kangmus[0] =~ m/^https?:\/\/fs[0-9]+\.filehippo\.com\/[^\/]*\/[^\/]*\/(.*)/) {
        print "OK store-id=http://kangmus.setoran.kicimpring/filehipo\n";

} elsif ($kangmus[0] =~ m/^https?:\/\/download[0-9]+.mediafire\.com\/.*\/\w+\/(.*)/) {
        print "OK store-id=http://kangmus.setoran.kicimpring/mediafire\n";

} elsif ($kangmus[0] =~ m/^https?:\/\/.*(googleusercontent.com|blogspot.com)\/(.*)\/([a-z0-9]+)(-[a-z]-[a-z]-[a-z]+)?\/(.*\.(jpg|png))/) {
        print "OK store-id=http://kangmus.setoran.kicimpring/googleisercontent\n";

} elsif ($kangmus[0] =~ m/^https?:\/\/([a-z])[\d]{1,2}?(.gstatic\.com.*|\.wikimapia\.org.*)/) {
        print "OK store-id=http://kangmus.setoran.kicimpring/gstatic\n";


} elsif ($kangmus[0] =~ m/^https?\:\/\/.*youtube.*ptracking.*/){
    @video_id = m/[&?]video_id\=([^\&\s]*)/;
    @cpn = m/[&?]cpn\=([^\&\s]*)/;
    unless (-e "/tmp/@cpn"){
    open FILE, ">/tmp/@cpn";
    print FILE "@video_id";
    close FILE;
    }
    $out="ERR";

} elsif ($kangmus[0] =~ m/^https?\:\/\/.*youtube.*stream_204.*/){
    @docid = m/[&?]docid\=([^\&\s]*)/;
    @cpn = m/[&?]cpn\=([^\&\s]*)/;
    unless (-e "/tmp/@cpn"){
    open FILE, ">/tmp/@cpn";
    print FILE "@docid";
    close FILE;
    }
    $out="ERR";

} elsif ($kangmus[0] =~ m/^https?\:\/\/.*youtube.*player_204.*/){
    @v = m/[&?]v\=([^\&\s]*)/;
    @cpn = m/[&?]cpn\=([^\&\s]*)/;
    unless (-e "/tmp/@cpn"){
    open FILE, ">/tmp/@cpn";
    print FILE "@v";
    close FILE;
    }
    $out="ERR";

} elsif ($kangmus[0] =~ m/^https?\:\/\/.*(youtube|googlevideo).*videoplayback.*/){
    @itag = m/[&?](itag\=[0-9]*)/;
    @range = m/[&?](range\=[^\&\s]*)/;
    @cpn = m/[&?]cpn\=([^\&\s]*)/;
    @mime = m/[&?](mime\=[^\&\s]*)/;
    @id = m/[&?]id\=([^\&\s]*)/;

    if (defined(@cpn[0])){
        if (-e "/tmp/@cpn"){
        open FILE, "/tmp/@cpn";
        @id = <FILE>;
        close FILE;}
    }
    print "OK store-id=http://kangmus.setoran.kicimpring/youtube/id=@id@mime@range\n";

} else {
    print "ERR\n";
}

}