URL. Last Visited: Maret Last Visited: Maret Last Visited: Desember INTRODUCTION TO THE INTERNET PROTOCOL, Steven E Newton, 1994

URL - INTRODUCTION TO THE INTERNET PROTOCOL, Steven E Newton, 1994 http://oac.hsc.uth.tmc.edulbios/steve.html

Last Visited: Maret 2000 - PORT TePlP http.llwww.s390.ibm.com.80Ibookmgr-cgi/bookmgr.cmdIBOOKSfEZ30620012%2elO%2el

Last Visited: Maret 2000 - WHAT IS P£RL http.llwww.ncsa.uiuc.edu/GenerallTrainingiPerlIntro/whatIs.htmI

Last Visited: Desember 1999 - WHATISPERL, TomChristianse http)llanguage.perl.com/info/synopsis.html

Last Visited: Maret 2000

58

I

I-

!

I

:

I

i

I" I I ii

I : :

I I

I

I

!"

II f--1

!

N

i !

I I

i,

I

I

:

I

!

U I

!

H 11

I

II

'.

i

I

I I

H I I I

I

I

__ _ ___ _.Ll_ _ __

I

Listing Program "control.pl"

$lokasi log="/website/cgi-shl/log.dat"; ## ## Program ini untuk keamanan Password ## ###### mulai disini mengkonfirmasi password dulu ##### $password2="kendali"; $username2="user";

# membaca CGI parameters &readparam; ## membaca parameter input form &tanggal; ## menjalankan sub tanggal print ("Content-type: text/html\n\n"); $username $password

$cgiVals{'username'}; $cgiVals{'password'};

## Tampilan kalau password & username salah unless (($password eq $password2) && ($username eq $username2)) {

print print print print exit;

"Tidak Diijinkan"; "$username
"; "Password = $c_password
"; "Tanggal = $date";

}

###### selesai pengkonfirmasi password

######

$c_password2=crypt ($password2, $password2) ; ## Encrypt Password supaya acak $c_password=crypt ($password, $password) ; ## Encrypt Password supaya acak ## penambahan menit di password supaya tidak bisa history $tambah=l707+$hour; $c password="$c_password$tambah"; ### membuat log yang login dan berhasil open (LOG, "»$lokasi log"); print LOG "Login: $date - $username \n"; close (LOG);

print «ETULIS; Online Electronic Control

ETULIS #### Kumpulan Sub ####### sub readparam { i f ( ($ENV { , REQUEST_METHOD'} eq , POST') I! ($ENV { , REQUEST_METHOD' } eq 'post') ) { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); #read for POST method to $buffer @cgiPairs = split(/\&/,$buffer);

else { #get the pairs of parameters passed to the script method @cgiPairs = split(/\&/,$ENV{'QUERY_STRING'});

for GET

#split the pairs into a %cgiVals hash foreach $pair ( @cgiPairs ) ($var,$val) = split("=",$pair); $val s/\+/ /g; $val s/%( .. )/pack("c",hex($I))/ge; $var s/\+/ /g; $var s/%( .. )/pack("c",hex($I))/ge; $cgiVals{"$var"} = "$val"; }

### akhir dari readparam

sub tanggal { @days = ('001', '002', '003', '004', '005', '006', '007'); ('1','2','3','4','5','6','7','8','9', @months '10','11','12');

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) localtime(time) ; if

($isdst eq "1") { $time_diff = ($yourtime - $zone - 1); } else { $time diff = ($yourtime - $zone) };

$time diff = $time diff * 3600; ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) localtime(time + $tirne diff); if ($min < 10) $min "O$min"; if ($sec < 10) $sec = "O$sec";

Listing Program "control.pl"

if ($format == 12) if ($hour == 12) else { $state

$state "am" i

"pm";

}

}

if ($hour == 0) $hour = $hour + 12; $state = "am";

if ($hour > 12) $hour = $hour - 12; $state = "pm";

# rectify Y2K problem $year += 1900; if ($mode == 1) \ $time = "$hour:$min:$sec$state"; else \ $time = "$hour:$min$state"; $date = "$mday-$months[$monj-$year [$timej"; #print "$date\n"; ## akhir dari sub tanggal

Listing Program "periksa.pl"

$lokasl data="/data/perlksa.dat"; $lokasi data_saklar="/data/hldup"; $alamat_url_awal= .. http://warik.wima.ac.id/cgi-shl/periksa.pl .. ; ###### mulai disini mengkonfirmasi password dulu ##### $password2="kendali"; $username2="user"; $c_password2=crypt($password2,$password2); supaya acak

## Encrypt Password

# membaca CGI parameters &readparam; ## membaca parameter input form &tanggal; ## menjalankan sub tanggal ## penambahan menit supaya tidak bisa history $tambah=1707+$hour; $c_password2="$c_password2$tambah";

print ("Content-type: text/html \n\n") ; $username = $cgiVals{'uN'}; $c_password = $cgiVals{'aM'}; #$c_password=crypt($password,$password); acak

## Encrypt Password supaya

## Tampilan kalau password & username salah unless (($c_password eq $c_password2) && ($username eq $username2)) {

print "
Tidak Diijinkan
"; print "Please try to Login again
"; #print "Password 1= $c_password
"; #print "Password 2= $c_password2
"; #print "Tangga1 = $date"; exit; }

###### selesai pengkonfirmasi password

######

$password=$c_password; ## 3 baris kebawah untuk perintah membuka file status perintah untuk saklar open (DATA2, "$lokasi_data_saklar"); $tulis_hasil_saklar=; close (DATA2); system("/data/periksa.exe"); # untuk mengeksekusi program periksa keadaan beban ## 3 baris kebawah untuk perintah membuka file status keadaan beban open (DATA2, "$lokasi data"!; $tulis hasil=; close (DATA2);


#print("Content-Type: text/html\n\n"); #print "Hasilnya dalam desimal : $tulis hasil";

if ($tulis hasil saklar =- /\n$/) bukan karakter chop($tulis_hasil saklar);

## untuk memastikan number,

}

if ($tulis hasil =- /\n$/) karakter chop($tulis hasil);

## untuk memastikan number, bukan

}

#print "Data

$tulis_hasil
";

## 31 if (kebawah) untuk perintah status perintah saklar if ($tulls_hasll saklar eq , 1') { #1 $tulis='l'; $15s=0;$14s=0;$13s=0;$12s=0;$11s=1; #1 i f ($tulis hasll saklar eq , 2')

{ #2 $tulis='2'; $15s=0;$14s=0;$13s=0;$12s=1;$11s=0; #2

i f ($tulls hasil saklar eq , 3')

{ #3 $tulis='3' ; $15s=0;$14s=0;$13s=0;$12s=1;$11s=1; #3

if ($tulis hasil - saklar eq , 4' ) { #4 $tulis='4' ; $15s=0;$14s=0;$13s=1;$12s=0;$11s=0; #4 if ($tulls hasll saklar eq '5' ) { #5 $tulis='5' ; $15s=0;$14s=0;$13s=1;$12s=0;$11s=1; #5 if

($tulis hasil saklar eq , 6') { #6 $tulis='6' ; $15s=0;$14s=0;$13s=1;$12s=1;$11s=0; #6

if

($tulis hasil saklar eq '7' ) { #7 $tulis='7' ; $15s=0;$14s=0;$13s=1;$12s=1;$11s=1; #7

if ($tulis hasil saklar eq '8' ) { #8 $tulis='S' ; $15s=0;$14s=1;$13s=0;$12s=0;$11s=0; #8 i f ($tulis hasil saklar eq '9' )

{ #9 $tulis='9' ; $15s=0;$14s=1;$13s=0;$12s=0;$11s=1; #9

if ($tulis hasil saklar eq , 10' ) { #10 $tulis='10' ; $15s=0;$14s=1;$13s=0;$12s=1;$11s=0; #10 }

if ($tulis - hasil saklar eq '11' ) $tulis='l1';

{

#11

Listing Program "periksa.p'"

$15s=0;$14s=1;$13s=0;$12s=1;$11s=1; #11 i f ($tu1is hasil sak1ar eq '12' )

{ #12 $tu1is='12'; $15s=0;$14s=1;$13s=1;$12s=0;$11s=0; #12

if ($tu1is hasi1 sak1ar eq '13' ) { #13 $tu1is='13' ; $15s=0;$14s=1;$13s=1;$12s=0;$11s=1; #13 i f ($tu1is hasil sak1ar eq '14' )

{ #14 $tu1is='14' ; $15s=0;$14s=1;$13s=1;$12s=1;$11s=0; #14

if

($tulis hasil sak1ar eq , 15' ) \ #15 $tu1is='15' ; $15s=0;$14s=1;$13s=1;$12s=1;$11s=1; #15

if ($tulis hasi1 sak1ar eq '16' ) { #16 $tu1is='16' ; $15s=1;$14s=0;$13s=0;$12s=0;$11s=0; #16 if ($tulis hasi1 sak1ar eq '17' ) { #17 $tu1is='17' ; $15s=1;$14s=0;$13s=0;$12s=0;$11s=1; #17 if

($tulis hasi1 sak1ar eq '18' ) { #18 $tu1is='lS' ; $15s=1;$14s=0;$13s=0;$12s=1;$11s=0; #18

if ($tulis hasi1- sak1ar eq '19' ) { #19 $tu1is='19' ; $15s=1;$14s=0;$13s=0;$12s=1;$11s=1; #19 if ($tulis hasi1 sak1ar eq '20' ) { #20 $tu1is='20'; $15s=1;$14s=0;$13s=1;$12s=0;$11s=0; #20 if

($tu1is hasi1 sak1ar eq '21' ) { #21 $tu1is='21'; $15s=1;$14s=0;$13s=1;$12s=0;$11s=1; #21

if ($tu1is hasi1 sak1ar eq '22' ) { #22 $tu1is='22'; $15s=1;$14s=0;$13s=1;$12s=1;$11s=0; #22 if

($tu1is hasi1 sak1ar eq '23' ) \ #23 $tu1is='23'; $15s=1;$14s=0;$13s=1;$12s=1;$11s=1; #23

if ($tulis hasi1 sak1ar eq '24' ) { #24 $tu1is='24'; $15s=1;$14s=1;$13s=0;$12s=0;$11s=0; #24 if ($tu1is hasil sak1ar eq '25' ) { #25 $tu1is='25' ; $15s=1;$14s=1;$13s=0;$12s=0;$11s=1; #25 if ($tulis hasil sak1ar eq '26' ) { #26 $tu1is='26' ; $15s=1;$14s=1;$13s=0;$12s=1;$11s=0; #26


if ($tulis hasil saklar eq '27' ) { #27 $tu1is='27' ; $15s=1;$14s=1;$13s=0;$12s=1;$11s=1; #27 i f ($tulis hasi1 sak1ar eq '28' )

{ #28 $tu1is='28' ; $15s=1;$14s=1;$13s=1;$12s=0;$11s=0; #28

if ($tu1is hasil sak1ar eq '29' ) { #29 $tu1is='29'; $15s=1;$14s=1;$13s=1;$12s=0;$11s=1; #29 if ($tu1is hasi1 sak1ar eq '30' ) { #30 $tu1is='30' ; $15s=1;$14s=1;$13s=1;$12s=1;$11s=0; #30 if ($tulis hasi1 sak1ar eq '31' ) { #31 $tu1is='31' ; $15s=1;$14s=1;$13s=1;$12s=1;$11s=1; #31

## ka1au semua kondisi diatas tidak terpenuhi, apakah $tu1is - hasi1 - sak1ar=0 ?? i f ($tu1is_hasil sak1ar eq 0) { #31 $tu1is='31'; $15s=0;$14s=0;$13s=0;$12s=0;$11s=0; #31

####5 baris ke bawah hanya untuk periksa saja #print "
L1s=$11s
"; #print "L2s=$12s
"; #print "L3s=$13s
"; #print "L4s=$14s
"; #print "L5s=$15s
";

## 31 if untuk perintah status beban if ($tu1is_hasi1 eq '1') { #1 $tu1is='1'; $15=0;$14=0;$13=0;$12=0;$11=1; #1 if ($tu1is - hasil eq '2' ) { #2 $tu1is='2'; $15=0;$14=0;$13=0;$12=1;$11=0; #2 i f ($tu1is - hasi1 eq '3' ) { #3

$tu1is='3'; $15=0;$14=0;$13=0;$12=1;$11=1; #3

if ($tu1is hasi1 eq '4' ) { #4 $tu1is='4'; $15=0;$14=0;$13=1;$12=0;$11=0; #4 if ($tu1is - hasi1 eq '5' ) { #5 $tu1is='5' ; $15=0;$14=0;$13=1;$12=0;$11=1; #5 if ($tu1is - hasil eq , 6' ) $tu1is='6';

(

#6


$15=0;$14=0;$13=1;$12=1;$11=0; #6 if ($tulis hasil eq , 7 ' ) \ #7 $tulis='7'; $15=0;$14=0;$13=1;$12=1;$11=1; #7 if

($tulis hasil eq '8' ) \ #8 $tulis='8'; $15=0;$14=1;$13=0;$12=0;$11=0; #8

if ($tulis - hasil eq '9' ) { #9 $tulis='9' ; $15=0;$14=1;$13=0;$12=0;$11=1; #9 if ($tulis_hasil eq '10') { #10 $tulis='10'; $15=0;$14=1;$13=0;$12=1;$11=0; #10 }

if ($tulis_hasil eq '11') { #11 $tu1is=' 11' ; $15=0;$14=1;$13=0;$12=1;$11=1; #11 if ($tulis - hasil eq '12' ) { #12 $tulis='12'; $15=0;$14=1;$13=1;$12=0;$11=0; #12 if


if ($tulis hasil eq '14' ) \ #14 $tulis='14'; $15=0;$14=1;$13=1;$12=1;$11=0; #14 if ($tulis hasil eq '15' ) \ #15 $tulis='15'; $15=0;$14=1;$13=1;$12=1;$11=1; #15 if ($tulis hasil eq '16' ) { #16 $tulis='16'; $15=1;$14=0;$13=0;$12=0;$11=0; #16 if


if ($tulis hasil eq '18' ) { #18 $tulis='18'; $15=1;$14=0;$13=0;$12=1;$11=0; #18 if

($tulis - hasil eq '19' ) { #19 $tulis='19'; $15=1;$14=0;$13=0;$12=1;$11=1; #19

if

($tulis_hasil eq '20' ) \ #20 $tu1is='20'; $15=1;$14=0;$13=1;$12=0;$11=0; #20

if

($tulis_hasil eq '21' ) { #21 $tulis='21'; $15=1;$14=0;$13=1;$12=0;$11=1; #21


if ($tulis hasil eq '22' ) { #22 $tulis='22' ; $15=1;$14=0;$13=1;$12=1;$11=0; #22 if ($tulis hasil eq '23' ) { #23 $tulis='23'; $15=1;$14=0;$13=1;$12=1;$11=1; #23 if ($tulis hasil eq '24' ) { #24 $tulis='24' ; $15=1;$14=1;$13=0;$12=0;$11=0; #24 if ($tulis hasil eq '25' ) { #25 $tulis='25' ; $15=1;$14=1;$13=0;$12=0;$11=1; #25 if

($tulis hasil eq '26' ) { #26 $tulis='26'; $15=1;$14=1;$13=0;$12=1;$11=0; #26

if


if


if ($tulis hasil eq '29' ) { #29 $tulis='29'; $15=1;$14=1;$13=1;$12=0;$11=1; #29 if


if


## kalau semua kondisi diatas tidak terpenuhi, apakah $tulis hasil=O ??

if ($tulis_hasil eq 0) { #31 $tulis='31'; $15=0;$14=0;$13=0;$12=0;$11=0; #31

$co1or1=""; Send color1=""; $tanda hidup="$color1Hidup Send color1"; $tanda-mati="Mati"; $huruf_petunjuk="";

#print #print #print #print

"
L1=$11
"; "L2=$12
"; "L3=$13
"; "L4=$14
";


#print "L5=$15
";

### pengenalan untuk masing-masing SAKLAR dari $l(n)s ke $status saklar(n) i f ($lls eq 1) { $status saklarl="$tanda_hidup"; $elsl="I"; # tanda untuk pilihan selain else }

if ($12s eq 1) $status saklar2="$tanda_hidup"; $elsl="I"; # tanda untuk pilihan selain else }

if ($13s eq 1) $status saklar3="$tanda hldup"; $els1="I"; # tanda untuk pilihan selain else ($14s eq 1) $status saklar4="$tanda_hidup"; $els1="I"; # tanda untuk pilihan selain else

if

($15s eq 1) $status_saklar5="$tanda hidup"; $elsl="I"; # tanda untuk pilihan selain else

if

}

if ($lls ne 1) $status sak1ar1="$tanda_mati"; }

($12s ne 1) $status sak1ar2="$tanda_rnati";

if }

if ($13s ne 1) $status saklar3="$tanda_mati"; } if

($14s ne 1) $status saklar4="$tanda mati";

}

if ($15s ne 1) Sstatus sak1ar5="$tanda_mati"; }

### pengenalan untuk masing-masing LOAD dari $l(n) ($ll eq 1) { $statusl="$tanda_hidup"; $els1="l"; # tanda untuk pilihan selain else

if

if ($12 eq 1) $status2="$tanda hidup"; $els1="1"; # tanda untuk pilihan selain else }

if ($13 eq 1) $status3="$tanda_hidup"; $e1s1="I"; # tanda untuk pilihan se1ain else }

($14 eq 1) $status4="$tanda_hidup"; $e1s1="I"; # tanda untuk pilihan selain else

if

ke $status(n)


($lS eq 1) $statusS="$tanda_hidup"; $elsl="l"; # tanda untuk pi1ihan selain else

if

}

($11 ne 1) $statusl="$tanda mati";

if }

($12 ne 1) $status2="$tanda mati";

if }

if ($13 ne 1) $status3="$tanda mati"; }


if ($lS ne 1) $statusS="$tanda mati"; }

#print #print #print #print #print #print

"
Decima1nya = $tulis
"; "Ll=$statusl ($11)
"; "L2=$status2 ($12)
"; "L3=$status3 ($13)
"; "L4=$status4 ($14)
"; "LS=$statusS ($lS)
";

############################## Tulisan HTML ################ print «ETULIS; Periksa Status Saklar
Status keadaan masing-masing Saklar
ETULIS print "";

print n\n\n"; print "\n"; print n\n\n"; print "\n"; print u\n\n\n"; print n\n\n"; print "\n"; print "\n\n"; print "\n"; ###-------

print «ETULIS;
";

if ($lls eq 1) print "
Status Saklar 1 = $status saklarl

" ,.

}

if ( $ 11 s ne 1) print "
Status Sak1ar 1 = $status saklarl "; }

print "
";


i f ($11 eq 1) print "---> status LOAD 1 = $statusl \n"; }

($11 ne 1) print "---> status LOAD 1 = $statusl \n"; if

I

print " "; if ($11s eq 1) \ print "$huruf_petunjuk (Hi1angkan Tanda Checknya untuk mematikan sak1ar) Send co1orl"; }

i f (($11s ne 1)

&& ($11 ne 1)) print "$huruf_petunjuk (Beri tanda Check untuk menghidupkan sak1ar) Send co1orl"; I

print "
"; if ($12s eq 1) print "
Status Sak1ar 2 = $status sak1ar2

" ,.

}

i f ($12s ne 1) print "
Status Sak1ar 2 = $status sak1ar2 "; )

print "
"; if ($12 eq 1) ( print "---> Status LOAD 2 = $status2 \n"; )

($12 ne 1) print "---> Status LOAD 2 = $status2 \n"; if }

print " "; i f ($12s eq 1) \ print "$huruf_petunjuk (Hi1angkan Tanda Checknya untuk mematikan sak1ar) $end_co1orl"; }

i f (($12s ne 1)

&& ($12 ne 1)) print "$huruf_petunjuk (Beri tanda Check untuk menghidupkan sak1ar) Send colorl"; print "
"i

if ($13s eq 1) print "

" ,.

}

Status Sak1ar 3 = $status sak1ar3 "; }

print "
"; i f ($13 eq 1) { print ,,---> Status LOAD 3 = $status3 \n"; }

if ($13 ne 1) print "---> Status LOAD 3 = $status3 \n";


print " "; i f ($13s eq 1) { print "$huruf_petunjuk (Hilangkan Tanda Checknya untuk mematikan saklar) Send color1"; }

(($13s ne 1) && ($13 ne 1)) print "$huruf_petunjuk (Beri tanda Check untuk menghidupkan sak1ar) Send color1"; if

}

print ""; print "
"; if ($14s eq 1) print "

" ,.

}

Status Saklar 4 = $status saklar4 ";

l print "
"; i f ($14 eq 1) { print "---> status LOAD 4 = $status4 \n"; }

if ($14 ne 1) print "---> status LOAD 4 = $status4 \n"; }

print " "; if ($145 eq 1) { print "$huruf_petunjuk (Hilangkan Tanda Checknya untuk mematikan saklar) Send color1"; }

i f (($14s ne 1)

&& ($14 ne 1)) print "$huruf_petunjuk (Beri tanda Check untuk menghidupkan saklar) Send color1"; }

print "
"; i f ($15s eq 1) print "
Status Saklar 5 = $status sak1ar5

" ,.

}

Status Saklar 5 = $status saklar5 "; }

print "
"; if ($15 eq 1) print "---> Status LOAD 5 = $status5 \n"; }

i f ($15 ne 1)

print "---> status LOAD 5 = $status5 \n"; }

print " "; i f ($15s eq 1) { print "$huruf_petunjuk (Hilangkan Tanda Checknya untuk mematikan saklar) Send color1";


i f (($15s ne 1) && ($15 ne 1)) print "$huruf_petunjuk (Beri tanda Check untuk menghidupkan saklar) Send color1"; }

print "

name="B2">

Pengendalian Peralatan Elektronik Melalui Internet
Berbasis Web
Oleh : Setiawan
NRP : 5103094040
E-mail : andi\@mail.wima.ac.id

Copyright 2000 Setiawan Widya Mandala Surabaya, Allright Reserved.

ETULIS ###################### Akhir HTML ################## ####################################################

#### Kumpulan Sub ####### sub readparam ( if ( ($ENV{'REQUEST_METHOD') eq 'POST') I I ($ENV{'REQUEST_METHOD') eq , post') ) ( read(STDIN, $buffer, $ENV('CONTENT LENGTH'}); #read for POST method to $buffer @cgiPairs = split(/\&/,$buffer); else ( #get the pairs of parameters passed to the script method @cgiPairs = split(/\&/,$ENV{'QUERY_STRING'});

for GET


#split the pairs into a lcgiVals hash foreach $pair ( @cgiPairs ) { ($var,$val) = split("=",$pair); $val s/\+/ /g; $val s/%( .. )/pack("c",hex($l))/ge; $var s/\+/ /g; $var s/~( .. )/pack("c",hex($l))/ge; $cgiVals{"$var"1 = "$val";

I ### akhir dari readparam

sub tanggal { @days = ('001','002','003','004','005','006','007'); ('1','2','3','4','5','6','7','8','9', @months '10','11','12');

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) localtime(time) ; if ($isdst eq "1") { $time_diff = ($yourtime - $zone - 1); ) else { $time diff = ($yourtime - $zone) I; $time diff = $time diff * 3600; ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) localtime(time + $time diff); if ($min < 10) $min "O$min"; if ($sec < 10) $sec = "O$sec"; if ($format == 12) if ($hour == 12) else {$state

$state "am";}

"pm" ;

}

if ($hour == 0) $hour = $hour + 12; $state

=

"am";

if ($hour > 12) $hour = $hour - 12; $state = "pm";

# rectify Y2K problem $year += 1900; if ($mode == 1) { $time = "$hour:$min:$sec$state"; else { $time = "$hour:$min$state"; } $date = "$mday-$months[$monj-$year [$time]"; #print "$date\n"; ## akhir dari sub tangga1

Listing Program "pilih.pl"

## ## Program untuk konfirmasi sebelum pilihan sebenarnya ## $url scriptl="http://warik.wima.ac.id/cgi-shl/finish.p1 •• ; # Get the input read(STDIN, $buffer, $ENV{'CONTENT LENGTH'}); # Split the name-value pairs @pairs = sp1it(/&I, $buffer); foreach $pair (@pairs) { ($name, $va1ue) = sp1it(/=I, $pair); # Un-Webify plus signs and %-encoding $va1ue tr/+1 I; $va1ue sF'; ( [a-fA- FO-9] [a-fA- FO-9] ) Ipack ("C", hex ($1) ) leg; $va1ue s///g; $va1ue s/< ([A>] ! \n) *>1 Ig; $FORM{$name} = $value;

# pin] = pi1ihan[n] $pl=$FORM{switchl}; $p2=$FORM{switch2}; $p3=$FORM{switch3}; $p4=$FORM{switch4); $p5=$FORM{switch5}; $username=$FORM{username}; $password=$FORM{password}; print ("Content-Type: text/htm1 \n \n") ; #print "p = $pl , f = $FORM{switchl}"; if (($p5 ne 'on') && ($p4 ne 'on') && ($p3 ne 'on') 'on' )) { #1 $tu1is='1' ; $15=0;$14=0;$13=0;$12=0;$11=1; #1

&&

($p2 ne 'on')

&&

($pl eq

if (($p5 ne 'on') && ($p4 ne 'on') && 'on')) { #2 $tu1is='2'; $15=0;$14=0;$13=0;$12=1;$11=0; #2

&& ($p2 eq 'on')

&&

($pl ne

if (($p5 ne 'on') && ($p4 ne 'on') && ($p3 ne 'on') 'on')) { #3 $tu1is='3'; $15=0;$14=0;$13=0;$12=1;$11=1; #3

&&

($p2 eq 'on')

&&

($p1 eq

if (($p5 ne 'on') && ($p4 ne 'on') && ($p3 eq 'on') 'on')) { #4 $tu1is='4'; $15=0;$14=0;$13=1;$12=0;$11=0; #4

&&

($p2 ne 'on')

&&

($pl ne

($p3 ne 'on')


if II$pS ne 'on') && l$p4 ne 'on') && 'on' )) { #S $tu1is='S' ; $lS=0;$14=0;$13=1;$12=0;$11=1; #S

l$p3 eq 'on')

&&

l$p2 ne 'on')

&&

I$pl eq

if I l$pS ne 'on') && l$p4 ne 'on') && 'on' )) { # 6 $tu1is='6'; $lS=0;$14=0;$13=1;$12=1;$11=0; #6

l$p3 eq 'on')

&&

l$p2 eq 'on')

&&

l$p1 ne

if I l$pS ne 'on') && l$p4 ne 'on') && 'on')) { #7 $tu1is='7'; $lS=0;$14=0;$13=1;$12=1;$11=1; #7

l$p3 eq 'on')

&& l$p2 eq 'on')

&&

l$p1 eq

if I l$pS ne 'on') && ($p4 eq 'on') && 'on' )) { #8 $tu1is='8'; $lS=0;$14=1;$13=0;$12=0;$11=0; #8

l$p3 ne 'on')

&&

l$p2 ne 'on')

&&

I$pl ne

if I l$pS ne 'on') && l$p4 eq 'on') && 'on' )) { #9 $tu1is=' 9'; $lS=0;$14=1;$13=0;$12=0;$11=1; #9

l$p3 ne 'on')

&& ($p2 ne 'on')

&&

l$p1 eq

if II$pS ne 'on') && l$p4 eq 'on') && 'on' )) { #10 $tu1is='10'; $lS=0;$14=1;$13=0;$12=1;$11=0; #10

l$p3 ne 'on')

&&

($p2 eq 'on')

&&

l$p1 ne

if I l$pS ne 'on') && l$p4 eq 'on') && 'on')) { #11 $tu1is='ll' ; $lS=0;$14=1;$13=0;$12=1;$11=1; #11

l$p3 ne 'on')

&& l$p2 eq 'on')

&&

l$p1 eq

if I l$pS ne 'on') && ($p4 eq 'on') && 'on' )) { #12 $tu1is='12'; $lS=0;$14=1;$13=1;$12=0;$11=0; #12

l$p3 eq 'on')

&&

($p2 ne 'on')

&&

l$p1 ne

if II$pS ne 'on') && ($p4 eq 'on') && 'on' )) { #13 $tu1is='13'; $lS=0;$14=1;$13=1;$12=0;$11=1; #13

l$p3 eq 'on')

&&

($p2 ne 'on')

&&

I$pl eq

if I l$pS ne 'on') && l$p4 eq 'on') && 'on' )) { #14 $tu1is='14' ; $lS=0;$14=1;$13=1;$12=1;$11=0; #14

l$p3 eq 'on')

&& l$p2 eq 'on')

&&

I$pl ne

if I l$pS ne 'on') && ($p4 eq 'on') && 'on' )) { #lS $tu1is='lS'; $lS=0;$14=1;$13=1;$12=1;$11=1; #lS

l$p3 eq 'on')

&&

l$p2 eq 'on')

&&

I$pl eq

($p3 ne 'on')

&& ($p2 ne 'on')

&&

l$p1 ne

if II$pS eq 'on') 'on' )) { #16

&& ($p4 ne 'on')

&&


$tu1is='16' ; $15=1;$14=0;$13=0;$12=0;$11=0; #16 if (($p5 eq 'on') && ($p4 ne 'on') && ($p3 ne 'on') 'on' )) { #17 $tu1is='17'; $15=1;$14=0;$13=0;$12=0;$11=1; #17

&& ($p2 ne 'on')

&& ($p1 eq

if (($p5 eq 'on') && ($p4 ne 'on') && 'on' )) { #18 $tu1is='18'; $15=1;$14=0;$13=0;$12=1;$11=0; #18

($p3 ne 'on')

&&

($p2 eq 'on')

&&

($p1 ne

if (($p5 eq 'on') && ($p4 ne 'on') && 'on' )) { #19 $tu1is='19' ; $15=1;$14=0;$13=0;$12=1;$11=1; #19

($p3 ne 'on')

&&

($p2 eq 'on')

&&

($p1 eq

if (($p5 eq 'on') && ($p4 ne 'on') && 'on')) { #20 $tu1is='20'; $15=1;$14=0;$13=1;$12=0;$11=0; #20

($p3 eq 'on')

&& ($p2 ne 'on') &&

($p1 ne

if (($p5 eq 'on') && ($p4 ne 'on') && ($p3 eq 'on') 'on')) { #21 $tu1is='21'; $15=1;$14=0;$13=1;$12=0;$11=1; #21

&& ($p2 ne 'on')

&&

($p1 eq

if (!$pS eq 'on') && ($p4 ne 'on') && ($p3 eq 'on') 'on')) {#22 $tu1is='22' ; $15=1;$14=0;$13=1;$12=1;$11=0; #22

&&

($p2 eq 'on')

&&

($p1 ne

if (($p5 eq 'on') && ($p4 ne 'on') && 'on')) { #23 $tu1is='23'; $15=1;$14=0;$13=1;$12=1;$11=1; #23

($p3 eq 'on')

&&

($p2 eq 'on')

&&

($p1 eq

if (($p5 eq 'on') && ($p4 eq 'on') && 'on' )) { #24 $tulis=' 24'; $15=1;$14=1;$13=0;$12=0;$11=0; #24

($p3 ne 'on')

&&

($p2 ne 'on')

&&

($p1 ne

if (($p5 eq 'on') && ($p4 eq 'on') && ($p3 ne 'on') 'on' )) { #25 $tu1is='2S' ; $15=1;$14=1;$13=0;$12=0;$11=1; #25

&&

($p2 ne 'on')

&&

($p1 eq

if (($p5 eq 'on') && ($p4 eq 'on') && 'on')) { #26 $tu1is='26'; $15=1;$14=1;$13=0;$12=1;$11=0; #26

($p3 ne 'on')

&& ($p2 eq 'on')

&&

($p1 ne

if (($p5 eq 'on') && ($p4 eq 'on') && 'on')) { #27 $tu1is='27'; $15=1;$14=1;$13=0;$12=1;$11=1; #27

($p3 ne 'on')

&&

&&

($p1 eq

($p2 eq 'on')


if (($p5 eq 'on') && ($p4 eq 'on') && 'on')) { #28 $tulis='28' ; $15=1;$14=1;$13=1;$12=0;$11=0; #28

($p3 eq 'on')

&&

($p2 ne 'on')

&&

($p1 ne

if (($p5 eq 'on') && ($p4 eq 'on') && ($p3 eq 'on') 'on')) { #29 $tulis='29'; $15=1;$14=1;$13=1;$12=0;$11=1; #29

&&

($p2 ne 'on')

&&

($p1 eq

if (($p5 eq 'on') && ($p4 eq 'on') && 'on' )) { #30 $tulis='30'; $15=1;$14=1;$13=1;$12=1;$11=0; #30

($p3 eq 'on')

&& ($p2 eq 'on')

&&

($p1 ne

if (($p5 eq 'on') && ($p4 eq 'on') && 'on')) { #31 $tulis='31'; $15=1;$14=1;$13=1;$12=1;$11=1; #31

($p3 eq 'on')

&&

($p2 eq 'on')

&&

($p1 eq

&&

($p2 ne 'on')

&&

($p1 ne

### jika semua pilihan diatas tidak ada if (($p5 ne 'on') && ($p4 ne 'on') && ($p3 ne 'on') 'on')) { #31 $tulis='O' ; $15=0;$14=0;$13=0;$12=0;$11=0; #0

$colorl~""; Send colorl=""; $tanda hidup="$color1Hidup Send colorl"; $tanda mati="Mati";

if ($11 eq 1) { $status1="$tanda hidup"; $e1s1="1"; # tanda untuk pilihan selain else i f ($12 eq 1)

$status2="$tanda hidup"; $els1="1"; # tanda untuk pilihan selain else }

if ($13 eq 1) $status3="$tanda_hidup"; $els1="1"; # tanda untuk pilihan selain else if ($14 eq 1) $status4="$tanda hidup"; $els1="1"; # tanda untuk pilihan se1ain else }

i f ($15 eq 1)

$status5="$tanda hidup"; $els1="1"; # tanda untuk pilihan selain else

if ($11 ne 1)

{


$statusl="$tanda mati"; }


if }


if }



if }

#print #print #print #print #print #print

"Decimalnya = $tulis
" ; "Ll=$status1
" ; "L2=$status2
"; "L3=$status3
"i "L4=$status4
lI i "L5=$status5
";

print «ETULIS; Konfirmasi Akhir
Konfirmasi akhir.

Anda telah memilih untuk mengatur saklar sebagai berikut :

Saklar 1 = $statusl

Saklar 2 = $status2

Saklar 3 = $status3

Saklar 4 = $status4

Saklar 5 = $status5

Apakah pilihan anda sudah benar ?

Benar &n bsp; Salah


ETULIS

Listing Program "finish.pl"

## ## Program akhir ## $iokasi_data="/data/hidup"; #$aiamat uri awai= .. http://warik.wima.ac.id/piiih2.htm .. ; $alamat jirl_awal= .. http://warik.wima.ac.id/cgi-shl/periksa.pl "; $alamat_url_periksa= .. http://warik.wima.ac.id/cgi-shl/periksa.pl .. ;

# Get the input read(STDIN, $buffer, $ENV{'CONTENT LENGTH'}); # Split the name-value pairs @pairs = split(/&/, $buffer); foreach $pair (@pairs) ($name, $value) = split(/=/, $pair); # Un-Webify plus signs and %-encoding $value tr/+/ /; $value s/%([a-fA-FO-9] [a-fA-FO-9])/pack("C", hex($l))/eg; $value s///g; $value s/< ([A>]I \n) *>/ /g; $FORM{$name} = $value;

# p[n] = pilihan[n] $konf=$FORM{konf}; $desimal=$FORM{desimal}; $username=$FORM{username}; $password=$FORM{password}; print ("Content-Type: text/html\n\n"); #print "konf $konf
"; #print "des = $desimal"; if ($konf eq 'tidak') print «ETULIS; <META HTTP-EQUIV="refresh" CONTENT="l; URL=http://warik.wima.ac.id/cgishl/periksa.pl?hi=qwoeriuter126adsf33218&uN=$username&aM=$password">

Anda tidak melakukan perubahan pada SAKLAR
Please wait, this page going to be redirect you to Main page.
P lease click here if your browser can not redirect you to Main page after serveral minutes

ETULIS exit;

Listing Program "finish. pI"

if ($konf eq 'ya') open (DATA2, ">$lokasi data"); #open (DATA2, '>axxa'); print DATA2 "$desimal"; close (DATA2); system("/data/jadi.exe") ; #print "
Sudah Selesai"; #print "
Cllck here to Maln Page"; #print "
"; print «ETULIS; <META HTTP-EQUIV="refresh" CONTENT="S; URL=http://warik.wima.ac.id/cgishl/periksa.pl?hi=qwoeriuter126adsf33218&uN=$username&aM=$password">

Sedang Proses ....
Please wait, this page going to be redirect you to Main page.
Please click here if your browser can not redirect you to Main page after serveral minutes

ETULIS

Listing Program "periksa.pas"

uses crt; const pa=$300; pb=$301; pc=$302; pcw=$303; cw=$90; var i,p,q,r,s t char; F : text;

byte;

{program utamaj begin clrscr; i: =port [pal; writeln('harga i = ',i); Assign(F, '\data\periksa.dat'); Rewrite (F) ; Writeln(F, i); Close(F);

end.

{ Standard output }

Listing Program "jadi.pas"

uses crt; const pa=$300; pb=$301; pc=$302; pcw=$303; cw=$90; var i,p,q,r,s,hasil baca t char; F : text;

byte;

{procedure untuk membaca input} procedure baca; begin clrscr; Assign(F, '\data\hidup'); { Standard output } Reset (F) ; readln(F, hasil baca); Close(F) ; end; {akhir dari procedure baca}

{program utama} begin clrscr; port [pcw] :=cw; baca; {menjalankan procedure baca} port[pc] :=hasil_baca; end.

"; if ($lls eq 1) print " Status Saklar 1 = $status saklarl " ,. } if ( $ 11 s ne 1) print " Status Sak1ar 1 = $status saklarl "; } print "	"; Listing Program "periksa.pl" i f ($11 eq 1) print "---> status LOAD 1 = $statusl \n"; } ($11 ne 1) print "---> status LOAD 1 = $statusl \n"; if I print "	"; if ($11s eq 1) \ print "$huruf_petunjuk (Hi1angkan Tanda Checknya untuk mematikan sak1ar) Send co1orl"; } i f (($11s ne 1) && ($11 ne 1)) print "$huruf_petunjuk (Beri tanda Check untuk menghidupkan sak1ar) Send co1orl"; I print "
"; if ($12s eq 1) print " Status Sak1ar 2 = $status sak1ar2 " ,. } i f ($12s ne 1) print " Status Sak1ar 2 = $status sak1ar2 "; ) print "	"; if ($12 eq 1) ( print "---> Status LOAD 2 = $status2 \n"; ) ($12 ne 1) print "---> Status LOAD 2 = $status2 \n"; if } print "	"; i f ($12s eq 1) \ print "$huruf_petunjuk (Hi1angkan Tanda Checknya untuk mematikan sak1ar) $end_co1orl"; } i f (($12s ne 1) && ($12 ne 1)) print "$huruf_petunjuk (Beri tanda Check untuk menghidupkan sak1ar) Send colorl"; print "
"i if ($13s eq 1) print " Status Sak1ar 3 = $status sak1ar3 " ,. } i f ($13s ne 1) print " Status Sak1ar 3 = $status sak1ar3 "; } print "	"; i f ($13 eq 1) { print ,,---> Status LOAD 3 = $status3 \n"; } if ($13 ne 1) print "---> Status LOAD 3 = $status3 \n"; Listing Program "periksa.pl" print "	"; i f ($13s eq 1) { print "$huruf_petunjuk (Hilangkan Tanda Checknya untuk mematikan saklar) Send color1"; } (($13s ne 1) && ($13 ne 1)) print "$huruf_petunjuk (Beri tanda Check untuk menghidupkan sak1ar) Send color1"; if } print ""; print "
"; if ($14s eq 1) print " Status Sak1ar 4 = $status sak1ar4 " ,. } i f ($14s ne 1) print " Status Saklar 4 = $status saklar4 "; l print "	"; i f ($14 eq 1) { print "---> status LOAD 4 = $status4 \n"; } if ($14 ne 1) print "---> status LOAD 4 = $status4 \n"; } print "	"; if ($145 eq 1) { print "$huruf_petunjuk (Hilangkan Tanda Checknya untuk mematikan saklar) Send color1"; } i f (($14s ne 1) && ($14 ne 1)) print "$huruf_petunjuk (Beri tanda Check untuk menghidupkan saklar) Send color1"; } print "
"; i f ($15s eq 1) print " Status Saklar 5 = $status sak1ar5 " ,. } i f ($15s ne 1) print " Status Saklar 5 = $status saklar5 "; } print "	"; if ($15 eq 1) print "---> Status LOAD 5 = $status5 \n"; } i f ($15 ne 1) print "---> status LOAD 5 = $status5 \n"; } print "	"; i f ($15s eq 1) { print "$huruf_petunjuk (Hilangkan Tanda Checknya untuk mematikan saklar) Send color1"; Listing Program "periksa.pl" i f (($15s ne 1) && ($15 ne 1)) print "$huruf_petunjuk (Beri tanda Check untuk menghidupkan saklar) Send color1"; } print "

URL. Last Visited: Maret Last Visited: Maret Last Visited: Desember INTRODUCTION TO THE INTERNET PROTOCOL, Steven E Newton, 1994

Recommend Documents

Tidak Diijinkan