• Categories
  • Recent
  • Tags
  • Popular
  • Users
  • Search
  • Register
  • Login
Netgate Discussion Forum
  • Categories
  • Recent
  • Tags
  • Popular
  • Users
  • Search
  • Register
  • Login

(share) storeurl.pl bawaan lusca yg sekarang

Scheduled Pinned Locked Moved Indonesian
6 Posts 5 Posters 8.0k Views
Loading More Posts
  • Oldest to Newest
  • Newest to Oldest
  • Most Votes
Reply
  • Reply as topic
Log in to reply
This topic has been deleted. Only users with topic management privileges can see it.
  • C Offline
    cahndeso
    last edited by May 31, 2013, 6:13 AM

    Tadi coba reinstall lusca dan ternyata ada yg berubah di storeurl.pl bawaan lusca. dan tanpa mengganti storeurl.pl tsb langsung saya coba running eh.. ternyata youtube bisa tercache.
    berikut ini storeurl.pl setelah reinstall lusca

    #!/usr/bin/perl

    $Rev$

    by chudy_fernandez@yahoo.com

    Youtube updates at http://wiki.squid-cache.org/ConfigExamples/DynamicContent/YouTube/Discussion

    $|=1;
    while (<>) {
       @X = split;
           $x = $X[0] . " ";
           $_ = $X[1];
           $u = $X[1];

    #profile.ak.fbcdn.net/hprofile-ak-xxx/xxx.jpg
    if (m/^http://profile.ak.fbcdn.net/hprofile-ak-[a-z]{3}[0-9]/(.*)/) {
           print $x . "http://profile.ak.fbcdn.net/hprofile-ak-cdn/" . $1  . "\n";

    #(xx.sphotos|photos-x).ak.fbcdn.net/hphotos-ak-xxx/
    } elsif (m/^http://.?([a-z]{4,}).?.ak.fbcdn.net/([a-z])-ak-[a-z]{3}[0-9]/([^&?])/) {
           print $x . "http://$1.ak.fbcdn.net/$2-ak-cdn/$3\n";

    #maps.google.com
    } elsif (m/^http://(khm|mt)[0-9]?(.google.com.*)/) {
           print $x . "http://" . $1  . $2 . "\n";

    #youtube/google video with range
    } elsif ($X[1] =~ /(youtube|google).*(videoplayback|liveplay)?/){
    @itag = m/&?/;
    @id = m/&?/;
    @range = m/&?/;
           print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/@id&@itag@range\n";

    } elsif (m/^http://www.google-analytics.com/__utm.gif?.*/) {
           print $x . "http://STOREURL.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://STOREURL." . $1 . $2 . $y . "\n";

    #cache high latency ads
    } elsif (m/^http://(.?)/(ads)?(.?)/) {
           print $x . "http://STOREURL." . $1 . "/" . $2  . "\n";

    } elsif (m/^http://(www.ziddu.com..[^/]{3,4})/(.?)/) {
           print $x . "http://STOREURL." . $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://STOREURL." . $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://STOREURL." . $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|hardsextube/) && (#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";

    } elsif (m/^http://[^/](tube8|pornhub|xvideos|hardsextube)[^/]/(.)/([^/]).([^/.?&_;]{2,4}).*$/) {
           print $x . "http://cdn.$1/$3.$4\n";

    #for yimg.com video
    } elsif (m/^http://(.yimg.com)//(.)/([^/?&]/[^/?&].[^/?&]{3,4})(?.*)?$/) {
           print $x . "http://cdn.yimg.com//" . $3 . "\n";

    #for yimg.com doubled
    } elsif (m/^http://(.?).yimg.com/(.?).yimg.com/(.?)?(.)/) {
           print $x . "http://cdn.yimg.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://STOREURL." . $y[0] . ".yimg.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://STOREURL." . $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).?/) {

    # @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 . "http://STOREURL.$y[0]$y[1]/$y[2].$y[3]\n";

    # all that ends with ;
    } elsif (m/^http://(.?)/(.?);(.*)/) {
           print $x . "http://STOREURL." . $1 . "/" . $2  . "\n";

    } else {
           print $x . $_ . "\n";
    }
    }

    1 Reply Last reply Reply Quote 0
    • O Offline
      orkeys
      last edited by May 31, 2013, 6:34 PM

      Wah Iya bener juga bg…langsung ter cache tanpa setting apa pun.. langsung wush....wush...  :-* :-*
      Aq Fresh install td... thanks info nya bg...

      emang om chudy nih... the best lah pokoknya...  ;D ;D ;D

      1 Reply Last reply Reply Quote 0
      • C Offline
        cahndeso
        last edited by Jun 1, 2013, 2:32 AM

        sippp brow. ternyata empunya lusca masih perhatian.  om chuddy is the best lah pokoknya

        1 Reply Last reply Reply Quote 0
        • G Offline
          gombloh
          last edited by Jun 1, 2013, 2:48 AM

          Makasih banget infonya kang..
          Barusan aku jga reinstall package lusca dan bener banget, lusca sudah direvisi. Run langsung wuzzz wuzzzzzzz.
          thx's jg buat om Chuddy yg the best.

          1 Reply Last reply Reply Quote 0
          • T Offline
            transistor
            last edited by Jun 4, 2013, 7:46 AM Jun 4, 2013, 7:41 AM

            :) wah mantap tu…. perlu di coba nih, makasih om info nya n buat om chudy thanks.

            1 Reply Last reply Reply Quote 0
            • K Offline
              kambeeng
              last edited by Jun 8, 2013, 10:03 AM

              Kan sudah di clue .. oleh om Ucok Karnadi aka Syaifudin JW

              1 Reply Last reply Reply Quote 0
              6 out of 6
              • First post
                6/6
                Last post
              Copyright 2025 Rubicon Communications LLC (Netgate). All rights reserved.
                This community forum collects and processes your personal information.
                consent.not_received