Apa itu CHIP-CD Library?

**CCL** · 05-02-2006 00:11

Mr.Aprinto,

Tampaknya Anda telah mengenal CCL sebelumnya. Saya ucapkan terima kasih atas atensi Anda. Ide Anda memang brilian dan persis sama dgn ide yg pernah terlintas dalam pikiran saya utk menambahkan fungsi pencarian artikel majalah CHIP beserta nomor halaman artikel tersebut (embedded ke fungsi CCL yg asli).

Satu hal yg perlu diketahui bahwa database CCL sama sekali tdk perlu diupdate selayaknya update Antivirus. Karena dgn demikian harus ada seseorang atau sekelompok orang (team) serta sebuah server yg khusus utk melayani update tersebut seperti team Network Associates nya McAfee. (Sekalian menjawab pertanyaan Mas Yossie).

Metode yg diimplementasikan ke CCL adalah update database dari CD/DVD yg dimiliki pemilik aslinya. Jadi bila Anda beli edisi 1/2006 misalnya, maka Anda dpt mengupdate database Anda hanya dgn memasukkan CD/DVD Anda ke CD/DVDROM. Selain itu Anda juga dpt bertukar database dgn teman yg kebetulan memilikinya.

Jadi karena "Content List" utk artikel majalah CHIP tdk dpt diextract secara digital seperti "Daftar Isi Software", maka diperlukan seseorang/sekelompok orang seperti disebutkan diatas utk mengetikkan secara manual daftar isi tsb. Pernah saya mencoba mengextract data digital berupa file PDF CHIP, tetapi karena ketidakjelasan struktur daftar isi (misalnya Tes Hardware, tetapi tdk disebutkan nama hardware) dan tdk tetapnya kemunculan PDF CHIP (seperti pada edisi tahun 90an tdk ada) maka utk sementara ini feature tsb tdk dpt diimplementasikan.

Technical Info Sumber Data Digital:
* CHIP-CD diextract dari file CHIP.INI (readable plain text, private profile format)
* CHIP-DVD diextract dari file AUTORUN.CDD (binary, hacked password protection)

Semoga bermanfaat. Terima Kasih.

Sekilas tampilan CCL:

**omanx** · 09-06-2006 15:57

File Not Found ???

om CCL apa ada link laennya....

tks

**Dikta-BOY** · 15-06-2006 05:46

Kok gk ada respon dr yg punya LINK????

**irgaa** · 20-12-2006 00:47

aiy...gw jg bikin nih..kurang kurang (gada lebihnya) sama..tapi pake perl (Perl-nya ada di chip dvd 9)..trus keluarannya html..bagi2 aja..

############### mulai disini ##############
# idxchip : membuat idex chip dvd (katalog html)
# 1. ganti $drv jadi drive dvdrom lo
# 2. masukin dvd chip,tunggu autorun selesai load (biar ga berat)
# 3. jalanin skrip ini..tunggu bentar (biasanya si 5mnt)
# 4. di direktori tempat lo naro skrip ini bakal ada direktori
# ' chip_dvd_mm_yyyy' nah tinggal buka 'index.html' didalemnya
# 5. hehehehe- irg

use strict;
use Win32API::File 0.08 qw( :Func );
use File::Basename;

my $drv="E:/"; # <=== GANTI INI DENGAN DRIVE DVD-ROM

die "$drv bukan dvdrom!!\n" if GetDriveType($drv) ne "5";
GetVolumeInformation($drv,my $ed,my $a,$a,$a,$a,$a,$a);
my $title=$ed;$title=~s!_! !g; #get dvd_title and "_"->" " for nicer look
my $outpath="./".lc $ed; #output path = ./dvd_title

my @sec=qw(bonus chipcam entertainment mobile software spesial); #section on chip dvd
my %all;

mkdir $outpath if ! -d $outpath;
mkdir "$outpath/pkg"; #direktori buat html files
mkdir "$outpath/pic"; #direktori buat pics
&mkcss; #make style file $outpath/idxchip.css
&mkid; #make index file n top

open(toc,">$outpath/toc.html") || die ">$outpath/toc.html"; #toc files
print toc "<html>\n<head>\n<title>$title</title>\n";
print toc "<link rel='stylesheet' type='text/css' href='idxchip.css'>\n";
print toc "<base target='main'>\n</head>\n<body>\n";

#open(tf,">$outpath/tes.html");
#print tf "<html><body><ol>\n";

foreach(@sec){
print toc "<h2><a name=$_>$_<a></h2>\n<ul>\n";
lsd1($drv.$_);
print toc "\n</ul>\n</body>\n</html>";
};
close toc;

#print tf "</ol></body></html>\n";
#close tf;

open(ap,">$outpath/all.html") || die ">$outpath/all.html"; #all package files
print ap "<html>\n<head>\n<title>$title</title>\n";
print ap "<link rel='stylesheet' type='text/css' href='idxchip.css'>\n";
print ap "</head>\n<body>\n<h1> All Packages (Alphabetical Order)</h1>\n<ol>\n";
foreach (sort keys %all){
if ($all{$_}){ print ap "<li><a href='./pkg/$all{$_}.html'>$_</a>\n</li>" ;
}else{ print ap "<li>$_</li>\n" ;
};
};
print ap "</ol>\n</body></html>\n";
close ap;

sub lsd1{ # listing subsection level
my $dir=shift;
local (*fo,*cur);
my $sc=basename $dir;
opendir(cur,$dir) || die "gagal buka direktori : $dir";
while(my $sbsc=readdir(cur)){
next if $sbsc eq "." || $sbsc eq "..";
print toc " <li><strong>$sbsc</strong></li>\n<ul>";
lsd2("$dir/$sbsc");
print toc "</ul><br>";
};
close cur;
}
sub lsd2{ # listing item level
my $dir=shift;
local (*fo,*ct,*cur);
opendir(cur,$dir) || die "gagal buka direktori : $dir";
while(my $et=readdir(cur)){
next if $et eq "." || $et eq ".." || ! -d $dir."/".$et;
(lsd2("$dir/$et"),next) if ($et eq "updateav");
my $fn=$et; $fn=~s!\W!!sg; #buang non word char buat nama file
if ( -f "$dir/$et/chip.txt"){ #klo chip.txt, bikin package katalog file,n link dari index
open(fo,">$outpath/pkg/$fn.html") || die ">$outpath/pkg/$fn.html";
print toc " <li><a href='pkg/$fn.html'>$et</a></li>\n";
open (ct,"$dir/$et/chip.txt");my @tt=<ct>;close ct;
CopyFile("$dir/$et/scrshot.jpg","$outpath/pic/$fn.jpg",0); #copy screenshot file
unshift @tt,$fn;
print fo mkpi(@tt);
$all{$et}=$fn;
}else{ #if theres no chip.txt then just put in toc w/o link
print toc " <li>$et</li>\n";
$all{$et}=0;
}
close fo;
};
close cur;
}
sub mkpi{ #make package index
my $fn=shift;
my @tt;
foreach(@_){push @tt,$_ if $_ ne "\n";}; #buang line kosong
my $pkg=shift @tt;chomp $pkg; #get package name
my $link;
if ($tt[-1] =~ /\binfo\b\s*\:\s+http.*\s*/sig){ #info dijadiin link

my $ln=$tt[-1];
$ln =~ s!info\:\s+(http.*)\s*!$1!sig;
$link="<p>Info: <a href='$ln'>$ln</a>\n";
pop @tt;
}elsif ($tt[-1] =~ /\binfo\b\:\s+www.*\s*/sig){
my $ln=$tt[-1];
$ln =~ s!info\:\s+(www.*)\s*!$1!sig;
$link="<p>Info: <a href='http://$ln'>$ln</a>\n";
pop @tt;
}
#foreach(@_){ #->for better link recognition
# next if $_ eq "\n";
# if (m{(\b.*?)((?:http(?:s*)|www).*)}sg){
# print tf "<li>$pkg : $1($2)\n";
# };
#}
my $rt="<html>\n<head><title>$title : $fn </title>\n";
$rt.="<link rel='stylesheet' type='text/css' href='../idxchip.css'>\n";
$rt.="</head>\n<body>\n<h1>".$pkg."</h1>";
$rt.="<img class='right' src='../pic/$fn.jpg' title='$fn.jpg' alt='$fn.jpg'>\n";
$rt.=join("<br>",@tt);
$rt.=$link;
$rt.="</body>\n</html>";
return $rt;
}

sub mkid{ #make index file, and top frame file
local *id;
open(id,">$outpath/index.html") || die ">$outpath/index.html";
print id "<html>\n<head>\n<title>$title</title>\n";
print id "<link rel='stylesheet' type='text/css' href='idxchip.css'>\n";
print id "<frameset rows='45,*' class='top'>\n";
print id "<frame name='topframe' src='top.html' scrolling='no' noresize>\n";
print id "<frameset cols='210,*' border='4' frameborder='yes' framespacing='1' bordercolor='#FFFFFF'>\n";
print id "<frame name='toc' src='toc.html' target='main'>\n<frame name='main' src='all.html'>\n";
print id "<noframes><body><h1>Maaf!</h1><h3>ganti browser yang dukung frame (..hari gini..)</h3></body></noframes>\n";
print id "</frameset></frameset>\n</html>";
close(id);
open(id,">$outpath/top.html") || die ">$outpath/top.html";
print id "<html>\n<head>\n<title>$title</title>\n";
print id "<link rel='stylesheet' type='text/css' href='idxchip.css'>\n";
print id "<base target='toc'></head>\n<body>\n";
my @tsp=split(/ /,$title);
print id "<h1 class='logo'>$tsp[0]<span class='ldvd'>$tsp[1]</span>  $tsp[2]$tsp[3]</h1>\n";
print id "<p class='right'>\n";
print id " ¤<a target='main' href='all.html'>all packages</a>\n";
foreach (@sec){ print id " ¤<a href='toc.html#$_'>$_</a>\n";}
print id "</p>\n</body>\n</html>";
close id;
}
sub mkcss{
local *css;
open(css,">$outpath/idxchip.css") || die ">$outpath/chip.css";
my $cs="p,td,li,ul,ol {font-family:verdana,arial;font-size:8pt}
h1 {font-family:verdana,arial;font-size:14pt;color:#666666}
h2 {font-family:verdana,arial;font-size:12pt;color:#999999}
ul {margin-left:-2em}
ul li {margin-left:-1em}
h1.logo {font-family:verdana,arial;font-size:20pt;color:#2f0000;margin-bottom:-1em}
.right {float:right; margin-right: 2em}
.ldvd{letter-spacing:-0.2em;color:#c32d1b}
.top{border-width:thin}";
print css $cs ;
close css;
}

__END__
+10142006
*fix,updateav depthnya 4
*add,html dipercantik, index now use frameset
*buy chip 0960--eh ada perl 5.8-- tested well on perl 5.8
+10132006
*add, check for drive, die if not cd/dvd rom
+10122006
*add, image scrshot.jpg
*add,"outsourcing" css
*add, packages index -> cat from $packagesdir/chip.txt
+10112006
*package level depth selalu 3 -> split listing subsection and pakege level
*ready...set...go
############### selesai disini ##############

**pije** · 25-01-2007 15:08

ada yg bisa posting aplikasi Chip CD Library gak? linknya udah mati tuh...

**aprinto** · 01-02-2007 12:21

Saya ada punya pikiran untuk database pencarian di CHIP:

1. CHIP kan sudah ada PDFnya, trus PDFnya di-convert to TXT pake software
PDF Converter (kalo nggak salah di CHIP Des 2006).

2. Dari file TXT kemudian di-index untuk menghapus entry yang ganda.
3. Dari Index itu baru disusun sebahai database CHIP Library.

Mirip dengan fungsi search file which containing text ....

Memang nggak praktis sih.

**haztyo** · 22-02-2007 23:29

Koq "file not found" yah??

gw dukung ide bwat bikin chip cd library..

semoga bisa cepet dibenerin link-nya karena prospect manfaatnya sangat besar ...

**CCL** · 01-04-2007 13:43

Berikut ini saya lampirkan kembali download link untuk CHIP-CD Library v3.x Beta yang sudah mendukung format CHIP-DVD & tetap kompatibel dengan format CHIP-CD yg lama. Link memakai jasa pihak ketiga sehingga mgkn tidak dpt bertahan lama krn kebijakan bandwidth & time limited, so buruan...

http://freefilehosting.net/download/MTYxNzky
http://www.filehosting.cc/?d=FE1D82034

Penting:
1. Baca instruksi dalam file readme.txt bila Anda kurang paham cara pemakaiannya krn tdk disertakan file setup nya.
2. Selalu scan virus krn link ini memakai jasa pihak ketiga.

Untuk sementara pengembangan CHIP-DVD mengalami sedikit hambatan krn sedang menangani byk proyek pembangunan (akibat kemajuan ekonomi maupun bencana di nias dan aceh), jadi harap maklum dan bersabarlah para user CCL...

Sekalian juga nih mau koreksi bahwa koleksi CHIP saya sampai hari ini telah mencapai angka 97 (non stop) sejak thn 1998 sampai 2007 ini. Wah kalo dihitung2 udah hampir 10 thn juga ya saya membeli CHIP. Anggota redaksi lama (Mas Edi Taslim, Andre M, AS Pratisto dkk) jg udah bertambah 10 thn umurnya dong... hehe Gak nyangka udah lama gitu ya, udah veteran pangkat jenderal nih...

Semoga CHIP tetap sukses dan jgn lupa utk terus menerus memperbaiki dan menjaga mutu tulisannya.

**Raiden** · 01-04-2007 18:16

Oke thanks bro!!Akhirnya bisa juga

**vyrthunder** · 18-04-2007 16:23

Ada yang punya file librarynya ga??? mungkin bisa di share dengan kita2... membutuhkan cukup banyak waktu kalo musti masukin cd keluar masuk lagi... heheheh

Welcome to the CHIP Forum.

Thread: Apa itu CHIP-CD Library?

Tweet

Thread Tools

Display

Re : Apa itu CCL?

Re: Apa itu CHIP-CD Library?

Re: Apa itu CHIP-CD Library?

CHIP-DVD Library

Re: CHIP-DVD Library

Re: Apa itu CHIP-CD Library?

Re: Apa itu CHIP-CD Library?

Download Link Baru

Re: Download Link Baru

Re: Apa itu CHIP-CD Library?

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions

Welcome to the CHIP Forum.

Search Forums

Thread Tools

Display

Re : Apa itu CCL?

Re: Apa itu CHIP-CD Library?

Re: Apa itu CHIP-CD Library?

CHIP-DVD Library

Re: CHIP-DVD Library

Re: Apa itu CHIP-CD Library?

Re: Apa itu CHIP-CD Library?

Download Link Baru

Re: Download Link Baru

Re: Apa itu CHIP-CD Library?

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions