#!/usr/bin/perl ########################################################################### # List of Updates: # $year += 1900; close -> close(HANDLE); # $pcode : Time dependent passcode to avoid automatic input (2008/1/28) ########################################################################### $Error = ""; $post_path="index.html"; $dot=""; $HEADER="Content-type: text/html\n\n"; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); if ($year<1900) {$year += 1900;} $month=($mon+1); $date="$year년$month월$mday일"; $time="$hour시$min분"; # pcode : Time dependent passcode to avoid automatic input (2008/1/28) # p*43189669*832429 = p (mod n) where n=60*60*24*365=2^7*3^3*5^3*73 $pcode = time() % (60*60*24*365); # 1 (Year) = 31536000 (Second) # --------------------------------------------------------------------------- if (!defined($ENV{'CONTENT_LENGTH'})) { $pcode = $pcode*43189669%(60*60*24*365) + 40000000; # 400000000~71535999 print $HEADER; print <추천 Package 작성하기
추천하는 Scientific Software Package를 적어 주세요.

글을 쓰신후에 Send 버튼을 누르면 됩니다.
Package 종류 General-Purpose Document Misc
Sci-Comp-Pkg : GAMS_Class
Package 이름
Package URL
Package에 대한
간단한 설명

 

Package Status Commercial Public-Src Src+Binary Binary_only
Package 구성
관련 Remark

 

등록인증코드\n (이화여대 외부접속자는 $pcode를 입력하십시오.)

EOF exit; } # --------------------------------------------------------------------------- &ReadParse; ($class)=($in{'class'}=~/^\s*(\S.+\S)\s*$/); if ($class eq "Sci-Comp-Pkg") {$class = $class . ":" . substr($in{'gams'},0,1);} ($title)=($in{'title'}=~/^\s*(\S.+\S)\s*$/); $Title=uc($title); ($home)=($in{'home'}=~/^\s*(\S+)\s*$/); $desc=$in{'desc'}; $desc =~ tr/\001-\020/ /; $status=$in{'status'}; $install=$in{'install'}; $install =~ tr/\001-\020/ /; $Error = ""; $Nclass="Package 종류를"; $Ntitle="Package 이름을"; $Nhome="Package URL을"; if ($class eq "") { $Error .= "

$Nclass 쓰지 않으셨습니다.

\n"; } if ($title eq "") { $Error .= "

$Ntitle 쓰지 않으셨습니다.

\n"; } @URL = split(/\//,$home); if ($home eq "" || $home eq "http://" || $#URL < 2 || $URL[3] eq "~") { $Error .= "

$Nhome 쓰지 않으셨습니다.

\n"; } else { @HOST = split(/[.]/,$URL[2]); if ( $#HOST<1 || ($#HOST==1 && length($HOST[1])!=3) || (gethostbyname($URL[2]))[0] eq "" ) { $Error .= "

Site Host NAME($URL[2])을 확인할 수 없습니다.

"; } } $passcode = ($in{'passcode'}-40000000) * 832429 % (60*60*24*365); if ($host_ip !~ /203.255/ and $host_ip !~/192.168/ and $pcode+($passcode<=$pcode?0:60*60*24*365) > $passcode+3600) { $Error .= "

등록인증번호를 확인해 주십시오.

\n"; } if ( $Error ne "" ) { print "$HEADER $Error"; print "Back 키를 눌러 다시 입력하십시오.\n"; exit; } open(File,"$post_path") || die "$post_path 열기 실패: $!\n"; @lines=; close File; open(New,">$post_path") || die "$post_path 열기 실패: $!\n"; $found=0; for ($i=0; $i<=$#lines; $i++) { $Tfound = ($lines[$i] =~ /
.*(.*)<\/B>/) ? uc($1) : "" ; if ($lines[$i] =~ //) { print New "$lines[$i]"; $found=1; } elsif ($found==1 && $Tfound eq $Title) { print New "
$dot $title $desc", "
$status: $install\n"; $found=0; } elsif ($found==1 && ($Tfound gt $Title || $lines[$i]=~/<\/dl>/)) { print New "
$dot $title $desc", "
$status: $install\n"; print New "$lines[$i]"; $found=0; } else { print New "$lines[$i]"; } } close(New); open(Re,"$post_path") || die "화일 열기 실패\n"; @all=; close(Re); print "Content-Type: text/html\n\n"; print "
\n"; print @all; sub ReadParse{ $host_ip = $ENV{'REMOTE_ADDR'}; $host_name = $ENV{'REMOTE_HOST'}; read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); @pairs=split(/&/,$buffer); foreach $pair (@pairs) { ($name, $value)=split(/=/,$pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; $in{$name}=$value; } }