Assalamualaikum kagem sedoyo sanak kadang..
Ing dino iki aku arep paring mangertos pripun sejatosipun ndamel monitoring menawi penjenenganipun mboten anggadahi arto tumbas NMS (Network Monitoring System).
1. Tukuo PC gawe server teko unix-->nek aku wes enek, digawekke mas Radenmas Danan (Konco Plek)
2. Nginstallo UBUNTU SERVER utowo sak sanak kadange (REDHAT, SLEC WER) LLL (lan liyo liyane)
3. NGGAWE script unix atau perl gawe njupuk data nang router
Meniko contonipun :
Router/Switch kuwi nek di sh ver kan ngene iki metune (iki nang router CISCO ya)
Cisco Internetwork Operating System Software
IOS (tm) s72033_rp Software (s72011_rp-IPSERVICESK9_WAN-M), Version x.2(18)SXF17, RELEASE SOFTWARE (fc1)
Technical Support: http://www.cisco.com/techsupport
Copyright (c) 1986-2009 by cisco Systems, Inc.
Compiled Fri 12-May-00 10:53 by ccai
Image text-base: 0x40101040, data-base: 0x42DD8950
ROM: System Bootstrap, Version 12.2(17r)S4, RELEASE SOFTWARE (fc1)
BOOTLDR: s72033_rp Software (s72033_rp-IPSERVICESK9_WAN-M), Version 12.2(18)SXF17, RELEASE SOFTWARE (fc1)
CECORE1 uptime is 2 years, 11 weeks, 6 days, 13 hours, 9 minutes
Time since CECORE1 switched to active is 2 years, 11 weeks, 6 days, 13 hours, 16 minutes
System returned to ROM by power cycle (SP by power on)
System restarted at 00:32:17 WIB Tue Feb 16 2010
System image file is "sup-bootdisk:/s72033-ipservicesk9_wan-mz.122-18.SXF17.bin"
Seng tak coret kuwi ora tak jupuk...nah seng tak tak paringi panenger biru tuwo, iku seng arep tak gawe referensi uptime router/switch CISCO.
Misale panjengan gadah katah router/Switch: CECORE1, CECORE2, CECORE3, CECORE4
daftarno disek IP lan jenenge router nang "/etc/hosts" neng servermu mau
#CECORE CISCO
10.10.10.1 CECORE1
10.10.10.2 CECORE2
10.10.10.3 CECORE3
10.10.10.4 CECORE4
Gawe command ben iso telnet
#!/usr/bin/expect-------------> nang server nginstalo expect yo
set ne [lindex $argv 0]
set cmd [lindex $argv 1]
set cmd1 [lindex $argv 2]
set cmd2 [lindex $argv 3]
set cmd3 [lindex $argv 4]
set cmd4 [lindex $argv 5]
set cmd5 [lindex $argv 6]
set cmd6 [lindex $argv 7]
set cmd7 [lindex $argv 8]
spawn telnet $ne ----------> telnet NE ne
expect "Username: "
send "kadal\r"
expect "Password: "
send "kuntul\r"
expect "*>"
send "en\r"
expect "Password: "
send "kuntul\r"
expect "*#"
send "terminal length 0 \r"
expect "*#"
send "$cmd $cmd1 $cmd2 $cmd3 $cmd4 $cmd5 $cmd6 $cmd7 \r"
sleep 2
expect "*TP*#"
sleep 2
send "exit\r"
Script Jobid, gawe misah data per tanggal
function jobid {
time=`date '+%H:%M:%S'`
sec=`echo $time | cut -d":" -f3`
mnt=`echo $time | cut -d":" -f2`
hr=`echo $time | cut -d":" -f1`
jobid=${hr}${mnt}${sec}
}
#END JOB ID
IKI SCRIPe gawe njupuk UP time ne
#!/usr/bin/ksh
date
. /home/ttmsc/commandfile/common
jobid
tanggal=`date '+%d%m%Y'`
#iki folder temporary wae
temp_cecore_ava=/home/ttmsc/AVAILABILITY/TEMP/cecore_node_ava${jobid}
#EDITING BY RADEN MAS INDRAJITCOOL PANGUOSO JAGAD KALIFAH ING ALAGA
#KERATON MOJOPAHIT
for i in CECORE1 CECORE2 CECORE3 CECORE4
do
echo $i
cmdstplus $i sh ver > $temp_cecore_ava ------------->iki telnet trus sh ver lan disimpen nang file
waktu=`date '+%Y-%m-%d %H:%M'`
detik=`date '+%s'`
echo "${waktu} ${region}" >> /home/ttmsc/AVAILABILITY/NODE_AVAILABILITY/CECORE/ne_ava_${i}
up_time=`grep uptime $temp_cecore_ava`
echo "${up_time}" >>/home/ttmsc/AVAILABILITY/NODE_AVAILABILITY/CECORE/ne_ava_${i}
sysres=`grep "System restarted" $temp_cecore_ava | nawk '{print $4, $5, $6, $7, $8, $9}'`
echo "${sysres}" >> /home/ttmsc/AVAILABILITY/NODE_AVAILABILITY/CECORE/ne_ava_${i}
echo "wedus">> /home/ttmsc/AVAILABILITY/NODE_AVAILABILITY/CECORE/ne_ava_${i}
done
HASILE mengko koyok iki :
2012-05-09 13:06 R1
Kernel uptime is 222 day(s), 9 hour(s), 3 minute(s), 51 second(s)
Last reset at 36564 usecs after Fri Sep 30 01:42:17 2011
wedus
2012-05-09 13:21 R1
Kernel uptime is 222 day(s), 9 hour(s), 18 minute(s), 52 second(s)
Last reset at 36564 usecs after Fri Sep 30 01:42:17 2011
wedus
2012-05-09 13:36 R1
Kernel uptime is 222 day(s), 9 hour(s), 33 minute(s), 50 second(s)
Last reset at 36564 usecs after Fri Sep 30 01:42:17 2011
wedus
2012-05-09 13:51 R1
Kernel uptime is 222 day(s), 9 hour(s), 48 minute(s), 49 second(s)
Last reset at 36564 usecs after Fri Sep 30 01:42:17 2011
wedus
2012-05-09 14:06 R1
Kernel uptime is 222 day(s), 10 hour(s), 3 minute(s), 47 second(s)
Last reset at 36564 usecs after Fri Sep 30 01:42:17 2011
wedus
2012-05-09 14:21 R1
Kernel uptime is 222 day(s), 10 hour(s), 18 minute(s), 48 second(s)
Last reset at 36564 usecs after Fri Sep 30 01:42:17 2011
wedus
Gawe moco file nang nduwur aku gawe perl
#!/usr/bin/perl
use Time::Local;
print "Folder lan file e' opo?\n";
print "Contone : /home/ttmsc/AVAILABILITY/NODE_AVAILABILITY/CECORE/ne_ava_CECORE1\n";
print "Ketiken =";
$folder_file=<>;
print "CECORE ENDI Kang mas?\n";
print " pilihen: CECORE1 CECORE2 CECORE3 CECORE4 \n";
print "Diketik sesuai pilihan =";
$itpstp= <>;
open(F, "$folder_file");
$sitedata="/home/ttmsc/jongringsaloka/log_".$itpstp;
$dataku = "";
open(DAT,">$sitedata") || die("Cannot Open File");
print DAT "$dataku";
close(DAT);
$total=0;
$jagad=0;
$j=0;
@agatha = (" ");
while ($data_log = <F>)
{
$count = grep /wedus$/, $data_log;
#print "$count\n";
if ($count >0)
{
$j=0;
#print "$data_log\n";
#print "$data_log\n";
#$ganti_baris = "\n";
#open(DAT,">>$sitedata") || die("Cannot Open File");
#print DAT "$ganti_baris";
#close(DAT);
#print $data[1]." ".$data[2]." ".$data[3];
@backup=$data[1];
@check3= $data[3];
($tgl,$jam,$region) = split(/ /,$data[1]);
my $hitung = split ' ',$data[2];
@data_semua = split(/ /,$data[2]);
$hitung=$hitung-1;
$kadalmu = @data_semua[$hitung];
for ($i=0;$i<=$hitung;$i++)
{
if (@data_semua[$i] eq "years," || @data_semua[$i] eq "year,")
{
$tahunnya = @data_semua[$i-1]*31536000;
}
elsif (@data_semua[$i] eq 'weeks,' || @data_semua[$i] eq 'week,')
{
$minggunya= @data_semua[$i-1]*604800;
}
elsif (@data_semua[$i] eq 'days,' || @data_semua[$i] eq 'day,')
{
$harinya = @data_semua[$i-1]*86400;
}
elsif(@data_semua[$i] eq 'hours,' || @data_semua[$i] eq 'hour,')
{
$jammnya = $data_semua[$i-1]*3600;
}
elsif (@data_semua[$i] eq $kadalmu || @data_semua[$i] eq $kadalmu)
{
$menitnya = @data_semua[$i-1]*60;
}
else
{
$total = 0;
}
}
if (@check3[$jagad] eq " " ){@check3[$jagad] = @check3[$jagad-1];}
$total = $tahunnya + $minggunya + $harinya + $jammnya + $menitnya;
@up_time=$total;
if (@up_time[$jagad] < @up_time[$jagad-1] )
{
($downgrade) = itungan ($jagad,@up_time,@backup);
if (@check3[$jagad] eq @check3[$jagad-1]){$status="Failover"; }
else {$status ="Restart";}
}
else {
$status = "AMAN";
$downgrade = 0;
}
$tahunnya = 0;
$minggunya = 0;
$harinya = 0;
$jammnya = 0;
$menitnya = 0;
if ($itpstp eq "PTPIS11") {@data_semua[0]=@data_semua[1];}
$joindata = join (" ", "@data_semua[0]","$region","$tgl","$jam","$total","$data[3]"." "."$status"." "."$downgrade");
print "$joindata\n";
}
else
{
$j++;
$data[$j] = $data_log;
}
$jagad++;
}
# Subtrack two values and return second
sub num_second {
($s_sec,$s_menit,$s_jam_1,$s_tglku,$s_blnku,$s_thnku,$e_sec,$e_menit,$e_jam_1,$e_tglku,$e_blnku,$e_thnku)= @_;
$st = timegm($s_sec,$s_menit,$s_jam_1,$s_tglku,$s_blnku-1,$s_thnku);
$end = timegm($e_sec,$e_menit,$e_jam_1,$e_tglku,$e_blnku-1,$e_thnku);
$calculation = $st - $end;
return $calculation;
}
sub pecah_data{
($data) = @_;
my $count = split ' ',$data;
}
sub pecah_ndok {
($tgl,$jam) = @_;
($tahun,$bulan,$tanggal) = split(/-/,$tgl);
($jamin,$menit)= split(/:/,$tgl);
$sec = '00';
return ($tahun, $bulan, $tanggal, $jamin, $menit, $sec);
}
sub itungan {
($jagad,@up_time,@backup)= @_;
if ($jagad > 0) {
$jadul= $jagad - 1;
$datanya = @backup[$jadul];
$datajuga= @backup[$jagad];
#end data
($tgl,$jam,$region) = split(/ /, $datanya);
($e_thnku, $e_blnku, $e_tglku, $e_jam_1, $e_menit, $e_sec) = pecah_ndok($tgl,$jam);
#start data
($tgls,$jams,$regions) = split(/ /, $datajuga);
($s_thnku, $s_blnku, $s_tglku, $s_jam_1, $s_menit, $s_sec) = pecah_ndok($tgls,$jams);
#compare uptime sekarang < uptime sebelumnya
$compare =$up_time[$jagad] cmp $up_time[$jadul];
#jika uptime sebelumnya "<" atau sama dengan uptime sekarang, maka downtimenya tidak ada
if ($compare < 0) { $downgrade = 0;}
elsif ($compare = 0){$downgrade = 0;}
#jika uptime sekarang "<" sebelumnya, maka di calculate downtimenya
else {
@st = ($s_sec,$s_menit,$s_jam_1,$s_tglku,$s_blnku,$s_thnku);
@end= ($e_sec,$e_menit,$e_jam_1,$e_tglku,$e_blnku,$e_thnku);
$num = num_second( @st, @end );
$downgrade = $num - $uptime;
}
}
if ($jagad<1){$downgrade = 0;}
if ($jam1 != $jam) {$status = "RESTART";}
else {$status = "Failover";}
return ($downgrade);
}
HASIL AKHIRE :
CECORE1 R2
2012-05-08 16:16 24677400 01:24:57 WIB Thu Jul 28 2011
AMAN 0
CECORE1 R2
2012-05-08 16:31 24678300 01:24:57 WIB Thu Jul 28 2011
AMAN 0
CECORE1 R2
2012-05-08 16:46 24679200 01:24:57 WIB Thu Jul 28 2011
AMAN 0
CECORE1 R2
2012-05-08 17:01 24680100 01:24:57 WIB Thu Jul 28 2011
AMAN 0
Ing dino iki aku arep paring mangertos pripun sejatosipun ndamel monitoring menawi penjenenganipun mboten anggadahi arto tumbas NMS (Network Monitoring System).
1. Tukuo PC gawe server teko unix-->nek aku wes enek, digawekke mas Radenmas Danan (Konco Plek)
2. Nginstallo UBUNTU SERVER utowo sak sanak kadange (REDHAT, SLEC WER) LLL (lan liyo liyane)
3. NGGAWE script unix atau perl gawe njupuk data nang router
Meniko contonipun :
Router/Switch kuwi nek di sh ver kan ngene iki metune (iki nang router CISCO ya)
Cisco Internetwork Operating System Software
Technical Support: http://www.cisco.com/techsupport
Copyright (c) 1986-2009 by cisco Systems, Inc.
Compiled Fri 12-May-00 10:53 by ccai
Image text-base: 0x40101040, data-base: 0x42DD8950
ROM: System Bootstrap, Version 12.2(17r)S4, RELEASE SOFTWARE (fc1)
BOOTLDR: s72033_rp Software (s72033_rp-IPSERVICESK9_WAN-M), Version 12.2(18)SXF17, RELEASE SOFTWARE (fc1)
CECORE1 uptime is 2 years, 11 weeks, 6 days, 13 hours, 9 minutes
Time since CECORE1 switched to active is 2 years, 11 weeks, 6 days, 13 hours, 16 minutes
System returned to ROM by power cycle (SP by power on)
System restarted at 00:32:17 WIB Tue Feb 16 2010
System image file is "sup-bootdisk:/s72033-ipservicesk9_wan-mz.122-18.SXF17.bin"
Seng tak coret kuwi ora tak jupuk...nah seng tak tak paringi panenger biru tuwo, iku seng arep tak gawe referensi uptime router/switch CISCO.
Misale panjengan gadah katah router/Switch: CECORE1, CECORE2, CECORE3, CECORE4
daftarno disek IP lan jenenge router nang "/etc/hosts" neng servermu mau
#CECORE CISCO
10.10.10.1 CECORE1
10.10.10.2 CECORE2
10.10.10.3 CECORE3
10.10.10.4 CECORE4
Gawe command ben iso telnet
#!/usr/bin/expect-------------> nang server nginstalo expect yo
set ne [lindex $argv 0]
set cmd [lindex $argv 1]
set cmd1 [lindex $argv 2]
set cmd2 [lindex $argv 3]
set cmd3 [lindex $argv 4]
set cmd4 [lindex $argv 5]
set cmd5 [lindex $argv 6]
set cmd6 [lindex $argv 7]
set cmd7 [lindex $argv 8]
spawn telnet $ne ----------> telnet NE ne
expect "Username: "
send "kadal\r"
expect "Password: "
send "kuntul\r"
expect "*>"
send "en\r"
expect "Password: "
send "kuntul\r"
expect "*#"
send "terminal length 0 \r"
expect "*#"
send "$cmd $cmd1 $cmd2 $cmd3 $cmd4 $cmd5 $cmd6 $cmd7 \r"
sleep 2
expect "*TP*#"
sleep 2
send "exit\r"
Script Jobid, gawe misah data per tanggal
function jobid {
time=`date '+%H:%M:%S'`
sec=`echo $time | cut -d":" -f3`
mnt=`echo $time | cut -d":" -f2`
hr=`echo $time | cut -d":" -f1`
jobid=${hr}${mnt}${sec}
}
#END JOB ID
IKI SCRIPe gawe njupuk UP time ne
#!/usr/bin/ksh
date
. /home/ttmsc/commandfile/common
jobid
tanggal=`date '+%d%m%Y'`
#iki folder temporary wae
temp_cecore_ava=/home/ttmsc/AVAILABILITY/TEMP/cecore_node_ava${jobid}
#EDITING BY RADEN MAS INDRAJITCOOL PANGUOSO JAGAD KALIFAH ING ALAGA
#KERATON MOJOPAHIT
for i in CECORE1 CECORE2 CECORE3 CECORE4
do
echo $i
cmdstplus $i sh ver > $temp_cecore_ava ------------->iki telnet trus sh ver lan disimpen nang file
waktu=`date '+%Y-%m-%d %H:%M'`
detik=`date '+%s'`
echo "${waktu} ${region}" >> /home/ttmsc/AVAILABILITY/NODE_AVAILABILITY/CECORE/ne_ava_${i}
up_time=`grep uptime $temp_cecore_ava`
echo "${up_time}" >>/home/ttmsc/AVAILABILITY/NODE_AVAILABILITY/CECORE/ne_ava_${i}
sysres=`grep "System restarted" $temp_cecore_ava | nawk '{print $4, $5, $6, $7, $8, $9}'`
echo "${sysres}" >> /home/ttmsc/AVAILABILITY/NODE_AVAILABILITY/CECORE/ne_ava_${i}
echo "wedus">> /home/ttmsc/AVAILABILITY/NODE_AVAILABILITY/CECORE/ne_ava_${i}
done
HASILE mengko koyok iki :
2012-05-09 13:06 R1
Kernel uptime is 222 day(s), 9 hour(s), 3 minute(s), 51 second(s)
Last reset at 36564 usecs after Fri Sep 30 01:42:17 2011
wedus
2012-05-09 13:21 R1
Kernel uptime is 222 day(s), 9 hour(s), 18 minute(s), 52 second(s)
Last reset at 36564 usecs after Fri Sep 30 01:42:17 2011
wedus
2012-05-09 13:36 R1
Kernel uptime is 222 day(s), 9 hour(s), 33 minute(s), 50 second(s)
Last reset at 36564 usecs after Fri Sep 30 01:42:17 2011
wedus
2012-05-09 13:51 R1
Kernel uptime is 222 day(s), 9 hour(s), 48 minute(s), 49 second(s)
Last reset at 36564 usecs after Fri Sep 30 01:42:17 2011
wedus
2012-05-09 14:06 R1
Kernel uptime is 222 day(s), 10 hour(s), 3 minute(s), 47 second(s)
Last reset at 36564 usecs after Fri Sep 30 01:42:17 2011
wedus
2012-05-09 14:21 R1
Kernel uptime is 222 day(s), 10 hour(s), 18 minute(s), 48 second(s)
Last reset at 36564 usecs after Fri Sep 30 01:42:17 2011
wedus
Gawe moco file nang nduwur aku gawe perl
#!/usr/bin/perl
use Time::Local;
print "Folder lan file e' opo?\n";
print "Contone : /home/ttmsc/AVAILABILITY/NODE_AVAILABILITY/CECORE/ne_ava_CECORE1\n";
print "Ketiken =";
$folder_file=<>;
print "CECORE ENDI Kang mas?\n";
print " pilihen: CECORE1 CECORE2 CECORE3 CECORE4 \n";
print "Diketik sesuai pilihan =";
$itpstp= <>;
open(F, "$folder_file");
$sitedata="/home/ttmsc/jongringsaloka/log_".$itpstp;
$dataku = "";
open(DAT,">$sitedata") || die("Cannot Open File");
print DAT "$dataku";
close(DAT);
$total=0;
$jagad=0;
$j=0;
@agatha = (" ");
while ($data_log = <F>)
{
$count = grep /wedus$/, $data_log;
#print "$count\n";
if ($count >0)
{
$j=0;
#print "$data_log\n";
#print "$data_log\n";
#$ganti_baris = "\n";
#open(DAT,">>$sitedata") || die("Cannot Open File");
#print DAT "$ganti_baris";
#close(DAT);
#print $data[1]." ".$data[2]." ".$data[3];
@backup=$data[1];
@check3= $data[3];
($tgl,$jam,$region) = split(/ /,$data[1]);
my $hitung = split ' ',$data[2];
@data_semua = split(/ /,$data[2]);
$hitung=$hitung-1;
$kadalmu = @data_semua[$hitung];
for ($i=0;$i<=$hitung;$i++)
{
if (@data_semua[$i] eq "years," || @data_semua[$i] eq "year,")
{
$tahunnya = @data_semua[$i-1]*31536000;
}
elsif (@data_semua[$i] eq 'weeks,' || @data_semua[$i] eq 'week,')
{
$minggunya= @data_semua[$i-1]*604800;
}
elsif (@data_semua[$i] eq 'days,' || @data_semua[$i] eq 'day,')
{
$harinya = @data_semua[$i-1]*86400;
}
elsif(@data_semua[$i] eq 'hours,' || @data_semua[$i] eq 'hour,')
{
$jammnya = $data_semua[$i-1]*3600;
}
elsif (@data_semua[$i] eq $kadalmu || @data_semua[$i] eq $kadalmu)
{
$menitnya = @data_semua[$i-1]*60;
}
else
{
$total = 0;
}
}
if (@check3[$jagad] eq " " ){@check3[$jagad] = @check3[$jagad-1];}
$total = $tahunnya + $minggunya + $harinya + $jammnya + $menitnya;
@up_time=$total;
if (@up_time[$jagad] < @up_time[$jagad-1] )
{
($downgrade) = itungan ($jagad,@up_time,@backup);
if (@check3[$jagad] eq @check3[$jagad-1]){$status="Failover"; }
else {$status ="Restart";}
}
else {
$status = "AMAN";
$downgrade = 0;
}
$tahunnya = 0;
$minggunya = 0;
$harinya = 0;
$jammnya = 0;
$menitnya = 0;
if ($itpstp eq "PTPIS11") {@data_semua[0]=@data_semua[1];}
$joindata = join (" ", "@data_semua[0]","$region","$tgl","$jam","$total","$data[3]"." "."$status"." "."$downgrade");
print "$joindata\n";
}
else
{
$j++;
$data[$j] = $data_log;
}
$jagad++;
}
# Subtrack two values and return second
sub num_second {
($s_sec,$s_menit,$s_jam_1,$s_tglku,$s_blnku,$s_thnku,$e_sec,$e_menit,$e_jam_1,$e_tglku,$e_blnku,$e_thnku)= @_;
$st = timegm($s_sec,$s_menit,$s_jam_1,$s_tglku,$s_blnku-1,$s_thnku);
$end = timegm($e_sec,$e_menit,$e_jam_1,$e_tglku,$e_blnku-1,$e_thnku);
$calculation = $st - $end;
return $calculation;
}
sub pecah_data{
($data) = @_;
my $count = split ' ',$data;
}
sub pecah_ndok {
($tgl,$jam) = @_;
($tahun,$bulan,$tanggal) = split(/-/,$tgl);
($jamin,$menit)= split(/:/,$tgl);
$sec = '00';
return ($tahun, $bulan, $tanggal, $jamin, $menit, $sec);
}
sub itungan {
($jagad,@up_time,@backup)= @_;
if ($jagad > 0) {
$jadul= $jagad - 1;
$datanya = @backup[$jadul];
$datajuga= @backup[$jagad];
#end data
($tgl,$jam,$region) = split(/ /, $datanya);
($e_thnku, $e_blnku, $e_tglku, $e_jam_1, $e_menit, $e_sec) = pecah_ndok($tgl,$jam);
#start data
($tgls,$jams,$regions) = split(/ /, $datajuga);
($s_thnku, $s_blnku, $s_tglku, $s_jam_1, $s_menit, $s_sec) = pecah_ndok($tgls,$jams);
#compare uptime sekarang < uptime sebelumnya
$compare =$up_time[$jagad] cmp $up_time[$jadul];
#jika uptime sebelumnya "<" atau sama dengan uptime sekarang, maka downtimenya tidak ada
if ($compare < 0) { $downgrade = 0;}
elsif ($compare = 0){$downgrade = 0;}
#jika uptime sekarang "<" sebelumnya, maka di calculate downtimenya
else {
@st = ($s_sec,$s_menit,$s_jam_1,$s_tglku,$s_blnku,$s_thnku);
@end= ($e_sec,$e_menit,$e_jam_1,$e_tglku,$e_blnku,$e_thnku);
$num = num_second( @st, @end );
$downgrade = $num - $uptime;
}
}
if ($jagad<1){$downgrade = 0;}
if ($jam1 != $jam) {$status = "RESTART";}
else {$status = "Failover";}
return ($downgrade);
}
HASIL AKHIRE :
CECORE1 R2
2012-05-08 16:16 24677400 01:24:57 WIB Thu Jul 28 2011
AMAN 0
CECORE1 R2
2012-05-08 16:31 24678300 01:24:57 WIB Thu Jul 28 2011
AMAN 0
CECORE1 R2
2012-05-08 16:46 24679200 01:24:57 WIB Thu Jul 28 2011
AMAN 0
CECORE1 R2
2012-05-08 17:01 24680100 01:24:57 WIB Thu Jul 28 2011
AMAN 0