Kamis, 19 November 2015

Mi-key Xiaomi

Sejak kenal xiaomi, banyak pernik pernik yg berfungsi dari xiaomi.

saya tertarik dengan Mi-Key Xiaomi, harga kisaran 30rb, dan berguna tuk menggantikan power on/off.

ini yang asli xiaomi
dari bungkusnya kertas, dengan banyak tulisan dan dibaliknya dua dimensi barcode untuk aplikasinya

TAPI APLIKASINYA SAYA GA SUKA, JADI SAYA TUKAR DENGAN iKey dari playstore 

untuk alatnya, perhatikan bahwa yang asli, button nya agak gelap warnanya, dan lebih besar, serta mempunyai 3 section untuk tangkainya, perhatikan ada 3 bulatan hitam.


untuk aplikasi saya gunakan iKey dari playstore,
nah setelan spt ini


klik about ikey, dia akan ke browser, dan download aplikasi terbaru, install yaa, hasilnya akan lebih cepat program dan sensitif, tanpa hidupkan enhanced mode.
saat buka pertama akan nampak blank, tutup lagi dan buka lagi


ini untuk setelah double triple klik
Autostart berguna, agar saat reboot, iKey akan langsung dikenali sebagai Mikey dan bukan sebagai headset,
masuk security apps, permission, autostart, dan cari iKey dan on kan.
beri ijin tuk pilihan headset atau mikey pop-up windows. pergi setelan, apps, ikey, turun paling bawah ke permission, sentuh, dan akan terlihat semua setelan permissionnya iKey.

bila semua dah selesai, coba reboot, masuk layar home, tgu sebentar, maka iKey akan otomatis bekerja, bila terlihat icon headset menghilang. bila tidak menghilang dalam beberapa menit, jalankan iKey dan beri ijin ke iKey.
hati hati, bila anda menelpon tidak ada suara di speaker, coba segera cabut Mikey, kemungkinan tidak bekerja sempurna.

semoga berguna bagi pembaca



Sabtu, 14 November 2015

Redmi Note 4G dual sim

pernah sekali redmi note 4g dual sim saya, hanya munculkan logo Mi aja.
gara gara flashing yg salah.
habisnya kepengen bahasa indonesia, sementara barang ini ga dijual diluar china, memang aku beli langsung ke toko onlen di china.
juga cara sederhana ini digunakan tuk yg memiliki rom abal abal ke rom miui asli

untung dapat caranya, yang mudah.

1. donlot dan install mi pc suite terbaru dari http://pcsuite.mi.com/
2. setelah install, buka mi pc suite, dan tetap konek ke internet
3. ambil hape yang posisi off dengan baterai terisi banyak, tekan tombol volume down dan lalu power on.
4. bila muncul logo Mi lepaskan tombol power on saja.
5. bila kemudian lagi muncul Mi Bunny lagi mau nyolok listrik ke android, lepaskan tombol volume down.
6. sambungkan kabel hape ke pc/laptop.
7. tunggu sebentar, akan muncul pilihan rom di layar mi pc suite.
8. pilih dah flash
9. lamanya flash tergantung kecepatan koneksi internet dan quota internet 1GB tersedia.
10. makin lambat internet, makin lama.
11. progress download dan flash akan muncul.
12. bila selesai, hape akan reboot sendiri dan tgu lagi 5 menit sampai layar menu muncul
(logo Mi akan muncul sendirian, lama, dan lalu muncul garis progress putih dibawah)

semoga pembaca dapat mudah menghidupkan kembali hapenya spt saya.

untuk GAPPS ambil disini dan diextract, jalankan spt aplikasi biasa

catatan utk cara pakai cwm flashing :
ini ada foto foto cwm.
clean for install new rom lalu install rom from sdcard1













Senin, 19 Oktober 2015

jBart 2a

Redmi Note Gucci HM 1 S CT ataupun CS, dual sim 2GB/16GB ataupun 1GB/8GB hanya dijual di China.
Jadi tidak memiliki global rom. Artinya hanya ada bahasa China dan English. Itupun thema dalamnya bahasa China. Bisa juga ke xiaomi.eu tuk cari bagian rom download, trus pageone ada link ke androidhost, tinggal cari yang codename gucci, hanya ada bahasa eropa dan vietnam saja.

nah jadi ga ada bahasa indonesianya.
patiblog sudah membuat bahasa indonesianya, bisa gunakan tuk yg CS/CT.
pilih yang rom yang sudah ada gapps nya. (tulisan mirror + gapps)
karena sudah ada phonebook google sinkronnya.

KABAR GEMBIRA, GUCCI SUDAH BISA PAKAI GLOBAL STABLE V7.1
INI LINK NYA

UTK LINK MIUI LANGSUNG

GUNAKAN CWM PHILZ TOUCH RECOVERY, SPT PATIBLOG SARANKAN

ini saya buat tuk kalau bikin sendiri, bagaimana caranya, ternyata mudah

1. download master zip jBart2a disini

2. extract dan jalankan jbart2a.exe, saya menggunakan Windows7.

3. lalu ikuti petunjuk di gambar ini


4. bila telah selesai, akan berada di folder output, nah dari folder output dikopikan ke SDCard tuk flash menggunakan CWM/TWRP.

selamat mencoba
note: miui7 belum ada terjemahan di github, mesti cari cari lagi, kemungkinan bukan di jBart.



Rabu, 14 Oktober 2015

Merubah isi rom MIUI V6

ingin rasanya masukkan Xperia keyboard dengan mudah, tanpa perlu root, cwm dll
soalnya Xperia Keyboard senang pakainya, sugestion nya spt mengerti apa kita maui

ini link Xperia Keyboard, dalamnya dah ada petunjuk caranya

tapi kali ini saya hendak share menggunakan 7zip free spt winrar winzip dll boleh juga pakai

letakkan rom yg hendak dimodifikasi, ke folder baru.
lalu buka rom tsb dalam zip manager, alias jangan di extract.
JANGAN DI EXTRACT

bila di extract, akan menyebabkan rom tidak bisa di flashing alias gagal flashing.

dari dalam windows zip manager, bisa lakukan copy paste dari windows explorer keluar dan masuk

jadi, saya kopikan dari Xperia folder, ke folder yg sesuai di ZIP manager.
kemudian karena hendak ubah build.prop, saya kopikan keluar, untuk di edit dengan notepad++
kemuidan saya kopi kan kembali ke ZIP manager.

lalu saya cari di ZIP manager, google pinyin, dan hapus.
AWAS, FILE LAIN JANGAN DIHAPUS, MIUI GA PERKENANKAN HAPUS.
(rom akan rusak kalau salah hapus apk)

kemudian, klik X dipojok kanan ZIP manager, alias close windows nya.

NAH, ROM DAH SIAP DI FLASHING KE HAPE MIUI, DENGAN AMAN

edit :
1. cara flashing menggunakan metode patiblog
2. root terlebih dahulu dengan SuperSu, ambil dimari
    a. buka updater
    b. klik titik tiga dipojok kanan atas
    c. choose update package
    d. arahkan ke file tsb, dan lanjutkan
    e. tunggu dengan sabar, sampai selesai
    f. setelah masuk menu, buka supersu, klik Continue, lalu klik Normal (jangan yg twrp/cwm, hang nanti)
3. tuk flashnya, buka updater
    a. klik titiktiga di pojok kanan atas
    b. pilih tuk masuk recovery, lanjut
    c. hape masuk mode CWM touch recovery, lalu cari clean for new rom, laksanakan
    d. setelahnya install, dan tgu sabar sekali, hingga reboot sendiri, dan nanti ada garis dibawah perlahan kekanan.

ini ada beberapa screenshoot laptop saya tuk lebih jelasnya



Tadi main main lagi, cari dalam windows zip manager, apk yg ga ada temen odex, di delete.
Eh ternyata masih oke flashing dan hape hidup.
Juga isi gapps, langsung ada dalam rom dan kontak langsung masuk dari google setelah isi akun

Tema english di Redmi Note Gucci

ada rekan yang menitipkan Redmi Note 4G, dengan model HM 1S CT, codename GUCCI.
hape ini ternyata hanya dijual di china, sehingga ga ada global rom apalagi bahasa indonesianya.

akhirnya setelah browsing sana sini, dapat rom v6.6.4.0 yang sudah di isi bahasa indonesia, link nya 

di kaskus forum, banyak ditemukan 4G dual sim yang meragukan, disini saya beri foto doos utk yg 2GB/16GB, tak ada tempelan tempelan yang menggangu.
about phone/ antutu / cpu-z harus berisi data yang sama, cpu qualcomm 1.2GHz
lalu ada kesulitan kedua yaitu, tema diklik, bahasa china tetap.
googling lagi deh, lihat di kaskus lounge redmi note, ko ribet amat.

akhirnya nemu, hanya nambah beberapa baris di build.prop
dan berhasil,
syarat sudah root dan menggunakan root browser, root eplorer dan lain sejenisnya

tambahkan kata kata ini dibaris paling bawah build.prop :

# themes in english and indonesia
persist.sys.timezone=Asia/Jakarta
ro.product.locale.language=en
ro.product.locale.region=US
ro.miui.region=ID
ro.miui.mcc=9404
ro.miui.mnc=9999
ro.miui.cust_variant=id

ini jelasnya foto fotonya langkah :
selamat mencoba

Source (alias sumur perubahan theme english)  atau juga dimari source kumplit

Files needed at my google drive (file yang diperlukan)








Senin, 13 April 2015

Terbilang Rupiah bahasa Indonesia basic programming

Waktu menggunakan microsoft access, saya kesulitan menemukan program yang bagus dalam membuat terbilang pada kwitansi.
Saat uji coba, program program yang ada di internet foxpro dll, tidak sesuai dengan kaidah bahasa indonesia.

Kemudian saya temukan program terbilang English, yang ternyata ada pada Help file microsoft access.
Wow, hebat, menggunakan metode recursif, yaitu program yang memanggil dirinya sendiri. Sehingga pemograman sederhana dan kecepatan tinggi.

dibawah ini program terbilang bahasa indonesia serta program aslinya bahasa English,
saya lakukan modifikasi sedikit dari program aslinya

taruh textbox untuk terbilang pada form
lalu klik-klik propertynya, lalu isikan data source
=" (# " & ConvertCurrencyToIndonesia(Int([rupiahangkanya])) & " #)"
atau
=" (# " & ConvertCurrencyToEnglish(Int([dollarangkanya])) & " #)"

rupiahangkanya atau dollarangkanya adalah nama textbox yang berisi angka yang hendak dibuat
terbilang, bisa juga dari hasil penjumlahan(misalnya textbox [totalrupiah]

-------------------------------------

Option Compare Database
Option Explicit


Function ConvertCurrencyToIndonesia(ByVal Angkanya)
  Dim temp
         Dim Rupiahnya, Sennya
         Dim DecimalPlace, Count

         ReDim place(9) As String
         ' untuk nilai count=count+1, Angkanya dibagi atas 3 digit
         place(2) = "RIBU "
         place(3) = "JUTA "
         place(4) = "MILYAR "
         place(5) = "TRILYUN "

         ' ubah jadi string , dan hilangkan spasi.
       
       
         Angkanya = Trim(Str(Angkanya))

         ' cari sen.
         DecimalPlace = InStr(Angkanya, ".")

         ' bila ketemu sen...
         If DecimalPlace > 0 Then
            ' ubah ke sen
            temp = left(Mid(Angkanya, DecimalPlace + 1) & "00", 2)
            Sennya = ConvertPuluhan(temp)

            ' buang sen dari Angkanya.
            Angkanya = Trim(left(Angkanya, DecimalPlace - 1))
         End If

         Count = 1
         ' ini yang repot, soalnya seribu bukannya satu ribu
         Do While Angkanya <> ""
            ' jadi pakai if dengan count=2 dan angkanya=1 saja
            ' tapi bila angkanya diatas 999 trilyun harus tambah lagi if
            ' untuk count = 7
            If Right(Angkanya, 3) = 1 And Count = 2 Then
                temp = "SE"
            Else
            ' Ubah setiap 3 digit ke terbilang di Indonesia
                temp = ConvertRatusan(Right(Angkanya, 3))
            End If
           
            ' ini dia hasilnya.....
            If temp <> "" Then Rupiahnya = temp & place(Count) & Rupiahnya
         
            If Len(Angkanya) > 3 Then
               ' buang 3 angka terakhir dari Angkanya dan count boleh tambah.
               Angkanya = left(Angkanya, Len(Angkanya) - 3)
            Else
               Angkanya = ""
            End If
           
            Count = Count + 1
         Loop

         ' kosongkan nilai rupiahnya.
         Select Case Rupiahnya
            Case ""
               Rupiahnya = "NIL RUPIAH "
            Case "One"
               Rupiahnya = "SATU RUPIAH"
            Case Else
               Rupiahnya = Rupiahnya & " RUPIAH"
         End Select

         ' kosongkan nilai sennya.
         Select Case Sennya
            Case ""
               Sennya = " "
            Case "One"
               Sennya = "SATU SEN"
            Case Else
               Sennya = " DAN " & Sennya & " SEN"
         End Select

         ConvertCurrencyToIndonesia = Rupiahnya & Sennya
End Function


Private Function ConvertSatuan(ByVal Satuannya)
        Select Case Val(Satuannya)
            Case 1: ConvertSatuan = "SATU "
            Case 2: ConvertSatuan = "DUA "
            Case 3: ConvertSatuan = "TIGA "
            Case 4: ConvertSatuan = "EMPAT "
            Case 5: ConvertSatuan = "LIMA "
            Case 6: ConvertSatuan = "ENAM "
            Case 7: ConvertSatuan = "TUJUH "
            Case 8: ConvertSatuan = "DELAPAN "
            Case 9: ConvertSatuan = "SEMBILAN "
            Case Else: ConvertSatuan = ""
         End Select
       
End Function

Private Function ConvertRatusan(ByVal Angkanya)
    Dim Result As String

         ' Exit if there is nothing to convert.
         If Val(Angkanya) = 0 Then Exit Function

         ' Append leading zeros to number.
         Angkanya = Right("000" & Angkanya, 3)

         ' Do we have a hundreds place digit to convert?
         If left(Angkanya, 1) <> "0" Then
            Result = ConvertSeratus(left(Angkanya, 1)) & "RATUS" & Chr$(32)
         End If

         ' Do we have a tens place digit to convert?
         If Mid(Angkanya, 2, 1) <> "0" Then
            Result = Result & ConvertPuluhan(Mid(Angkanya, 2))
         Else
            ' If not, then convert the ones place digit.
            Result = Result & ConvertSatuan(Mid(Angkanya, 3))
         End If

         ConvertRatusan = Result
End Function


Private Function ConvertPuluhan(ByVal Puluhannya)
          Dim Result As String

         ' untuk bilangan sebelas,, kalau english itu juga ada dua
         ' eleventh dan twelve
         If Val(left(Puluhannya, 1)) = 1 Then
            Select Case Val(Puluhannya)
               Case 10: Result = "SEPULUH "
               Case 11: Result = "SEBELAS "
               Case 12: Result = "DUA BELAS "
               Case 13: Result = "TIGA BELAS "
               Case 14: Result = "EMPAT BELAS "
               Case 15: Result = "LIMA BELAS "
               Case 16: Result = "ENAM BELAS "
               Case 17: Result = "TUJUH BELAS "
               Case 18: Result = "DELAPAN BELAS "
               Case 19: Result = "SEMBILAN BELAS "
               Case Else
            End Select
         Else
            ' .. juga untuk sisanya.
            Select Case Val(left(Puluhannya, 1))
               Case 2: Result = "DUA PULUH "
               Case 3: Result = "TIGA PULUH "
               Case 4: Result = "EMPAT PULUH "
               Case 5: Result = "LIMA PULUH "
               Case 6: Result = "ENAM PULUH "
               Case 7: Result = "TUJUH PULUH "
               Case 8: Result = "DELAPAN PULUH "
               Case 9: Result = "SEMBILAN PULUH "
               Case Else
            End Select

            ' tambahkan dengan satuannya.
            Result = Result & ConvertSatuan(Right(Puluhannya, 1))
         End If

         ConvertPuluhan = Result
End Function

Private Function ConvertSeratus(ByVal Ratusannya)
        ' ini untuk ratusan dimana satu ratus diganti seratus
        Select Case Val(Ratusannya)
            Case 1: ConvertSeratus = "SE"
            Case 2: ConvertSeratus = "DUA "
            Case 3: ConvertSeratus = "TIGA "
            Case 4: ConvertSeratus = "EMPAT "
            Case 5: ConvertSeratus = "LIMA "
            Case 6: ConvertSeratus = "ENAM "
            Case 7: ConvertSeratus = "TUJUH "
            Case 8: ConvertSeratus = "DELAPAN "
            Case 9: ConvertSeratus = "SEMBILAN "
            Case Else: ConvertSeratus = ""
         End Select
       
End Function




---------------------


Option Compare Database
Option Explicit

Function ConvertCurrencyToEnglish(ByVal MyNumber)
  Dim Temp
         Dim dollars, Cents
         Dim DecimalPlace, Count

         ReDim place(9) As String
         place(2) = " Thousand "
         place(3) = " Million "
         place(4) = " Billion "
         place(5) = " Trillion "

         ' Convert MyNumber to a string, trimming extra spaces.
         MyNumber = Trim(Str(MyNumber))

         ' Find decimal place.
         DecimalPlace = InStr(MyNumber, ".")

         ' If we find decimal place...
         If DecimalPlace > 0 Then
            ' Convert cents
            Temp = left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)
            Cents = ConvertTens(Temp)

            ' Strip off cents from remainder to convert.
            MyNumber = Trim(left(MyNumber, DecimalPlace - 1))
         End If

         Count = 1
         Do While MyNumber <> ""
            ' Convert last 3 digits of MyNumber to English dollars.
            Temp = ConvertHundreds(Right(MyNumber, 3))
            If Temp <> "" Then dollars = Temp & place(Count) & dollars
            If Len(MyNumber) > 3 Then
               ' Remove last 3 converted digits from MyNumber.
               MyNumber = left(MyNumber, Len(MyNumber) - 3)
            Else
               MyNumber = ""
            End If
            Count = Count + 1
         Loop

         ' Clean up dollars.
         Select Case dollars
            Case ""
               dollars = "No"
            Case "One"
               dollars = "One"
         End Select

         ' Clean up cents.
         Select Case Cents
            Case ""
               Cents = " And No Cents"
            Case "One"
               Cents = " And One Cent"
            Case Else
               Cents = " And " & Cents & " Cents"
         End Select

         ConvertCurrencyToEnglish = dollars & Cents
End Function


Private Function ConvertDigit(ByVal MyDigit)
        Select Case Val(MyDigit)
            Case 1: ConvertDigit = "One"
            Case 2: ConvertDigit = "Two"
            Case 3: ConvertDigit = "Three"
            Case 4: ConvertDigit = "Four"
            Case 5: ConvertDigit = "Five"
            Case 6: ConvertDigit = "Six"
            Case 7: ConvertDigit = "Seven"
            Case 8: ConvertDigit = "Eight"
            Case 9: ConvertDigit = "Nine"
            Case Else: ConvertDigit = ""
         End Select
       
End Function

Private Function ConvertHundreds(ByVal MyNumber)
    Dim Result As String

         ' Exit if there is nothing to convert.
         If Val(MyNumber) = 0 Then Exit Function

         ' Append leading zeros to number.
         MyNumber = Right("000" & MyNumber, 3)

         ' Do we have a hundreds place digit to convert?
         If left(MyNumber, 1) <> "0" Then
            Result = ConvertDigit(left(MyNumber, 1)) & " Hundred "
         End If

         ' Do we have a tens place digit to convert?
         If Mid(MyNumber, 2, 1) <> "0" Then
            Result = Result & ConvertTens(Mid(MyNumber, 2))
         Else
            ' If not, then convert the ones place digit.
            Result = Result & ConvertDigit(Mid(MyNumber, 3))
         End If

         ConvertHundreds = Trim(Result)
End Function


Private Function ConvertTens(ByVal MyTens)
          Dim Result As String

         ' Is value between 10 and 19?
         If Val(left(MyTens, 1)) = 1 Then
            Select Case Val(MyTens)
               Case 10: Result = "Ten"
               Case 11: Result = "Eleven"
               Case 12: Result = "Twelve"
               Case 13: Result = "Thirteen"
               Case 14: Result = "Fourteen"
               Case 15: Result = "Fifteen"
               Case 16: Result = "Sixteen"
               Case 17: Result = "Seventeen"
               Case 18: Result = "Eighteen"
               Case 19: Result = "Nineteen"
               Case Else
            End Select
         Else
            ' .. otherwise it's between 20 and 99.
            Select Case Val(left(MyTens, 1))
               Case 2: Result = "Twenty "
               Case 3: Result = "Thirty "
               Case 4: Result = "Forty "
               Case 5: Result = "Fifty "
               Case 6: Result = "Sixty "
               Case 7: Result = "Seventy "
               Case 8: Result = "Eighty "
               Case 9: Result = "Ninety "
               Case Else
            End Select

            ' Convert ones place digit.
            Result = Result & ConvertDigit(Right(MyTens, 1))
         End If

         ConvertTens = Result
End Function


---------------------
selesai

Sekedar memindahkan catatan dari yahoo groups ke blog saya

Wassalam,
budi

Rabu, 25 Maret 2015

IPCop

baru saja selesai pasang kembali di kantor baru, IPCop
IPCop versi 2.1.8 lalu upgrade ke 2.1.9
saya gunakan motherboard intel atom D2500HN, dan menambahkan satu PCI ethernet, 4GB RAM sodimm, dan satu hdd 100GB bekas pakai.

rupanya enak yang IPCop versi baru, semua dah terintegrasi kecuali Update Accelerator

akses ke https://192.168.2.254:8443/

1. setelah running IPCop, saya coba koneksi ke fibre-optic, dalam hal ini Maxis malaysia
setup menggunakan PPPoE sehingga pada menu dialup akan ada pilihan PPPoE
karena Maxis menggunakan VLAN tag 621, syukurlah bisa menggunakan di IPCop
hasilnya spt gambar ini

2. hal berikutnya adalah utk NAT 1:1, karena memiliki multiple public IP addresses, rupanya IPCop bisa menghandel dan telah saya buktikan. 5 IP public bisa digunakan melalui IPCop, caranya dengan membuat Aliases dahulu spt ini dibawah ini. Dan untuk forwarding ke server tertentu dibuat di Firewall

3. Kemudian saya lakukan traffic shaping, Sehubungan pentingnya kelancaran email, maka yang high priority adalah port email saja, untuk surfing http dan https pada low position. Lainnya tak saya perdulikan, dan menjadikan medium



4. ini yang menarik dari IPCop, setelan Firewall Rules.
disini saya bisa lakukan blocking facebook, twitter dll
ipcop https facebook block bisa dilaksanakan dengan transparent proxy
disini saya bisa lakukan port forwarding utk CCTV, bisa menggunakan beberapa public IP utk masing masing server
disini juga bisa utk mengatur remote admin tuk IPCop maupun remote SSH tuk IPCop (remote administration, monitoring, updating, pokoke kerja dari rumah tuk setel IPCop)
must give access for remote IPCop utk bisa remote
spt contoh dibawah ini





5. Inilah akhirnya, setelah mencari kesana kemari add-on yang bisa tuk IPCop 2.1.9 yang integrasi.
dahulu waktu menggunakan IPCop 1.4 sangat menyukai update accelerator karena mengurangi pemakaian bandwith dan cepat dalam update windows/antivirus.
ini setelah berjalan 30 hari, lumayan besar data dihemat


ini setelan usr/sbin/updxlrator

    # -----------------------------------------------------------
    #  Section: Windows Update / Windows Downloads
    # -----------------------------------------------------------

    if (
        (($source_url =~ m@^http://[^/]*\.microsoft\.com/.*\.(exe|psf|msi|msp|msu|dmg|cab)$@i) ||
         ($source_url =~ m@^http://[^/]*\.windowsupdate\.com/.*\.(exe|psf|msi|msp|msu|dmg|cab)$@i))
    &&   ($source_url !~ m@^http://[^/]*\.microsoft\.com/.*(/autoupd|selfupdate/).*\.cab@i)
    &&   ($source_url !~ m@\&@)
       )
    {
        $xlrator_url = &check_cache($source_url,$hostaddr,$username,"Microsoft",$unique);
    }

    # -----------------------------------------------------------
    #  Section: Adobe Downloads
    # -----------------------------------------------------------

    if (
        ($source_url =~ m@^http://(ar)?download\.adobe\.com/.*\.(exe|msi|bin|dmg|idx|gz)$@i) ||
        ($source_url =~ m@^http://swupdl\.adobe\.com/updates/.*\.(exe|msi|bin|dmg|idx|gz|[a-z][a-z]_[A-Z][A-Z])$@i) ||
        ($source_url =~ m@^http://armdl\.adobe\.com/.*\.(exe|msi|msp|bin|dmg|idx|gz)$@i) ||
        ($source_url =~ m@^http://swupmf\.adobe\.com/manifest/.*\.upd$@i)
       )
    {
        $xlrator_url = &check_cache($source_url,$hostaddr,$username,"Adobe",$unique);
    }

    # -----------------------------------------------------------
    #  Section: Linux Downloads
    # -----------------------------------------------------------

    if ($source_url =~ m@^[h|f]t?tp://[^?]+\.(deb|rpm)$@i)
    {
        $xlrator_url = &check_cache($source_url,$hostaddr,$username,"Linux",$mirror);
    }

# -----------------------------------------------------------
# Section: Kaspersky Downloads
# -----------------------------------------------------------

if (
($source_url =~ m@^http://.*\.kaspersky-labs\.com/.*\.(exe|cab)$@i) ||
($source_url =~ m@^http://.*\.geo.kaspersky\.com/.*\.*$@i)
)
{
$xlrator_url = &check_cache($source_url,$hostaddr,$username,"Kaspersky",$mirror);
}

# -----------------------------------------------------------
# Section: Java Downloads
# -----------------------------------------------------------

if (
($source_url =~ m@^http://javadl.oracle\.com/.*\.(exe|dmg)$@i)
)
{
$xlrator_url = &check_cache($source_url,$hostaddr,$username,"Java",$mirror);
}

    # -----------------------------------------------------------
    #  Section: Apple Downloads
    # -----------------------------------------------------------

    if (
        (($source_url =~ m@^http://swcdn\.apple\.com/content/downloads/.*\.(tar|pkg)$@i) ||
         ($source_url =~ m@^http://appldnld\.apple\.com\.edgesuite\.net/.*\.(exe|dmg)$@i) ||
         ($source_url =~ m@^http://.*\.g.akamai.net/.*/3093/1/.*\.(tar|pkg|dmg|exe)$@i))
       )
    {
        $xlrator_url = &check_cache($source_url,$hostaddr,$username,"Apple",$unique);
    }

    # -----------------------------------------------------------
    #  Section: AVG Downloads
    # -----------------------------------------------------------

if (
($source_url =~ m@^http://ctf.download.avg\.com/softw/.*\.(bin|ctf)$@i) ||
($source_url =~ m@^http://guru.avg\.com/softw/.*\.(bin|ctf)$@i) ||
($source_url =~ m@^http://av.download.avg\.com/softw/.*\.(bin|ctf)$@i)
)
{
$xlrator_url = &check_cache($source_url,$hostaddr,$username,"AVG",$mirror);
}

    # -----------------------------------------------------------


IPCop 2.1.9 dengan setting contoh dan aplikasi firewall, port forwarding, tag vlan PPPoE, multiple public IP dll.
Senangnya

ada yang ketinggalan, berhubung saya gunakan RAM 2GB, dan harddisk besar, dan untuk cache program android, iphone dll, maka saya besarkan maximum cache
RAM saya gunakan 512MB untuk HDD cache 10240MB, supaya tak terjadi SWAP memory.
nampaknya masih boleh saya naikkan, karena terlihat banyak free, tapi tunggu lagi lah



tanpa perlu memikirkan update accelerator, saya bisa gunakan proxy cache (squid) ini untuk menyimpan program program android yg begitu banyaknya.
dah lakukan test, android phone yg kedua hanya 5 detik tuk update aplikasi, dan bila pertama kali download atau update akan memakan waktu jauh lebih lama hingga 40 detik tuk 20MB update

E-bike pakai mini-on kit produk indonesia

Yah namanya orang listrik, gadget mainan, sekarang ingin pasang motor listrik di sepeda. Maklum jalanan naik turun di Purwakarta, jadi ingi...