way-cart1.6 ÀÎÁö, 2.0ÀÎÁö.....
way-cart.cgi ¾Æ·¡Âë¿¡ º¸½Ã¸é ÁÖ¹®ÆûÀ» ³ªÅ¸³»´Â Äڵ尡 ÀÖ½À´Ï´Ù.
±×°÷ÀÇ

µÇ¾îÀÖ´Â ³¡ºÎºÐ¿¡ "name=register" ¸¦ »ðÀÔÇÑÈÄ¿¡.
ÁÖ¹®¾ç½ÄÀ» ¼öÁ¤Çϼ¼¿ä.
ÁÖÀÇ: ¿ìÆí¹øÈ£ ¿¹½Ã¿¡ ³ª¿ÍÀÖ´Â ºÎºÐÀº »èÁ¦¸¦ ÇÏ°í, ³ª¸ÓÁö ºÎºÐÀ» ÁÖ¹®Æû¿¡ ³ÖÀ¸½Ã¸éµË´Ï´Ù.
ÇÊ¿äÇϽøé Á¦°¡ ¸¸µç ÁÖ¹®¾ç½Ä¼Ò½º¸¦ º¸¼¼¿ä.
http://erinyes.interpia98.net/~hancondo/public_html/way-cart/sample.html
±Ùµ¥...ÇÑ°¡Áö...
ÇöÀç´Â ¿ìÆí¹øÈ£ÀÔ·ÂâÀÌ µÎ°³°¡ Àִµ¥, ÀÌ°ÍÀ» Çϳª·Î ÅëÇÕÇÏ°í ½Í³×¿ä.
zipcode.cgi¸¦ ¼öÁ¤ÇÏ¸é µÈ´Ù°í Çϴµ¥ Ȥ½Ã ¾Æ½Ã´Â ºÐ ÀÖÀ¸½Ã¸é µµ¿òºÎŹµå¸³´Ï´Ù.
#! /usr/bin/perl
##############################################################
# ¿ìÆí¹øÈ£ °Ë»ö
##############################################################

&init;
if($GIL{
mode
} eq

) { &print_top; }
elsif($GIL{
mode
} eq
top
) { &show_top; }
elsif($GIL{
mode
} eq
down
) { &show_down; }
elsif($GIL{
mode
} eq
search
) { &search; }

##########################################################################
sub search {
my $query = $GIL{
query
};
print "Content-type: text/html

";
print<










END
require
zipcode.pm
;
if($GIL{searchmode} eq
address
) {
$ref = &zipcode_address($query);
} elsif($GIL{searchmode} eq
code
) {
$ref = &zipcode_code($query);
}
for(sort keys %$ref) {
my ($zip1, $zip2) = $_ =~ /(...)(...)/;
print qq&pip;
&pip;;
}
print <

¿ìÆí¹øÈ£	ÁÖ ¼Ò	È®ÀÎ
text name= zip1 value= $zip1 size=3>-text name= zip2 value= $zip2 size=3>	text name= address value= $$ref{$_} size=40 maxlength=50>

---

°Ë»öÀÌ ¿Ï·áµÇ¾ú½À´Ï´Ù.

---

°Ë»ö¾î:

ÁּҷΠã±â
¿ìÆí¹øÈ£·Î ã±â





END
}

##########################################################################
sub print_top {
print "Content-type: text/html

";
print<

¿ìÆí¹øÈ£/ÁÖ¼Ò °Ë»ö

ã°íÀÚ ÇÏ´Â ÁÖ¼ÒÀÇ µ¿/À¾/¸é À̸§À» ÀÔ·ÂÇϼ¼¿ä.      (¿¹:¾Ð±¸Á¤µ¿/´Ü¾çÀ¾/¼ö»ê¸é) °Ë»ö¾î: ÁּҷΠã±â ¿ìÆí¹øÈ£·Î ã±â

END
}


##########################################################################
sub init {
if ($ENV{
REQUEST_METHOD
} eq "POST") { read(STDIN, $buffer, $ENV{
CONTENT_LENGTH
}); }
else { $buffer = $ENV{
QUERY_STRING
}; }
for (split
&
, $buffer) {
my ($name, $value) = split
=
;
$name =~ tr/ / /; $name =~ s/%(..)/chr(hex($1))/ge;
$value =~ tr/ / /; $value =~ s/%(..)/chr(hex($1))/ge;
$GIL{$name} = $value;
}
}

__END__