soturon2013

Size: px

Start display at page:

Download "soturon2013"

せいはかまや
5 years ago
Views:

4.4. CGI, CGI Web. UNIX, UNIX Windows. UNIX CGI. i ( ). mi- http://www.mimikaki.net/ 67 (mi- ),mi-, http://ugawalab.

1 4.4. CGI, CGI Web. UNIX, UNIX Windows. UNIX CGI. i ( ). mi (mi- ),mi-, Shift-JIS,CGI UTF-8. 63

2 #!/usr/bin/perl #!/usr/local/bin/perl #while (($key, $val) = each %ENV) { print "$key = $val<br> n"; #open(debug,">>/tmp/ugawa_debug_file_please_erase_anytime.txt"); $CurrentURL=$ENV{'REQUEST_URI'; ($WorkDir=$ENV{'SCRIPT_FILENAME')=~s/[^ /]*$/data/; $Remote=$ENV{'REMOTE_ADDR'; print << END_of_HEAD ; Content-type: text/html; charset=utf-8 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" " <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8"> <meta http-equiv="pragma" content="no-cache"> <meta http-equiv="expires" content="-1"> <meta name="viewport" content="width=device-width,initial-scale=1,maximum-scale=1,user-scalable=no,"> <title> </title> </head> <body> <link rel="shortcut icon" href="/suika.ico" /> END_of_HEAD $Query_string=$ENV{'QUERY_STRING'; #print DEBUG "QS -$Query_string- n"; 64

3 #print "$_<BR> n"; s/%0d%0a/--k-a-i-g-y-o--/g; s/ +/ /g; s/%([a-fa-f0-9][a-fa-f0-9])/pack('h2',$1)/ge; #print "$_<BR> n"; if(/name=(.*)/ && length($1)>0){$name=$1; if(/comment=(.*)/ && length($1)>0){$comment=$1; if(/button.*=(.*)/ && length($1)>0){$dousa=$1; if(/submit=(.*)/ && length($1)>0){$submit=1; $Dousa=$Comment; if(/query=(.*)/ && length($1)>0){$query=$1; $Dousa=$Query; if(length($dousa)>0){ $Query=$Dousa; if(($query=~/http: / //i) ($Query=~/ <a.*href =/i)){exit;; #if($query=~/ <a.*href =/i){exit;; $Query=~s/&/ /ge; #& $Query=~s/ "/ /ge; #" $Query=~s/ '/ /ge; #' $Query=~s/</ /ge; #< $Query=~s/>/ /ge; #> $Query=~s/--k-a-i-g-y-o--/<br>/g; if(length($name)==0){ $Name=' '. $$; $T=time(); open(out,">$workdir/$remote.$t.c.txt"); print OUT "$Query t$name n"; close(out); print << End_of_HTML ; 65

4 <FORM ACTION="wari.cgi" METHOD=POST> <table width="443" border="0"> <tr><td> <input name="name" value="$name" size="10" type="text"> <input name="comment" value="$query" size="13" type="text"> <input name="submit" value=" " type="submit"></td> </tr> </table> <table width="200" border="0" cellpadding="5"> <tr> <td align="center" valign="middle"><input type="submit" name="button7" value=" " /></td> <td align="center" valign="middle"><input type="submit" name="button6" value=" " /></td> <td align="center" valign="middle"><input type="submit" name="button1" value=" " /></td> <td align="center" valign="middle"><input type="submit" name="button8" value=" " /></td> </tr> <tr> <td align="center" valign="middle"><input type="submit" name="button10" value=" " /></td> <td align="center" valign="middle"><input type="submit" name="button16" value=" " /></td> <td align="center" valign="middle"><input type="submit" name="button9" value=" " /></td> <td align="center" valign="middle"><input type="submit" name="button10" value=" " /></td> </tr> <tr> <td align="center" valign="middle"><input type="submit" name="button12" value=" " /></td> <td align="center" valign="middle"><input type="submit" name="button13" value=" " /></td> <td align="center" valign="middle"><input type="submit" name="button5" value=" " /></td> <td align="center" valign="middle"><input type="submit" name="button11" value=" " /></td> </tr> </table> <table width="444" border="0" cellpadding="5"> <tr> <td width="94" height="28" align="center" valign="middle"><div align="center"> 66

5 <input type="submit" name="button14" value=" " /> </div></td> <td width="104" align="center" valign="middle"><input type="submit" name="button15" value=" " /></td> <td width="91" align="center" valign="middle"><input type="submit" name="button14" value=" (T_T)" /></td> <td width="105" align="center" valign="middle"><input type="submit" name="button14" value="(^^)" /></td> </tr> </table> <table width="443" border="0" align="left" cellpadding="5"> <tr> <td width="139" align="center" valign="middle"><div align="center"> <input type="submit" name="button4" value=" " /> </div></td> <td width="143" align="center" valign="middle"><input type="submit" name="button3" value=" " /></td> <td width="123" align="center" valign="middle"><input type="submit" name="button2" value=" " /></td> </tr> </table> </FORM><br /><br /> <p>$query</p> <br /> <hr /> <br /> <img src=" /> </body> </html> End_of_HTML exit(0); END <meta name="viewport" content="width=device-width, initial-scale=1.0, maximum-scale=2.0, user-scalable=yes,"/> 67

6 #!/usr/bin/perl $Long_time=60*3; #3 $MaxDisplayCount=20; $Current_URL=$ENV{'REQUEST_URI'; $Current_URL=~s/?.*$//; #QUERY_STRING # CGI data ($WorkDir=$ENV{'SCRIPT_FILENAME')=~s/[^ /]*$/data/; $Archive="$WorkDir/archive.txt"; open(archive,">>$archive"); # print << END_of_HEAD ; Content-type: text/html; charset=utf-8 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" " <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8"> <meta http-equiv="pragma" content="no-cache"> <meta http-equiv="expires" content="-1"> <meta http-equiv="refresh" content="1;url=$current_url"> <title> </title> </head> <body> <b> END_of_HEAD # open(files,"ls -lt $WorkDir "); while(<files>){ chomp; if((/ ([^ ]+).( d+).c.txt$/)){ 68

7 $file="$workdir/$1.$2.c.txt"; $passed=time-(stat($file))[9]; if($passed>$long_time){ open(file,"$file"); while(<file>){ print ARCHIVE "$2 t$1 t$_"; #Time,IP,, close FILE; unlink("$file");# next; open(file,"$file"); while(<file>){ if(m!([^ t]+) t(.*)!){ $Text=$1;$Name=$2; $Line="$Name $Text"; # close(file); close(files); # $filecount=0; foreach $Line (@DISPLAY){ $DC=@DuplicatedCount{$Line; $AP=@AlrearyPrinted{$Line; if($dc >1 && $AP==0){ # $AP=@AlrearyPrinted{$Line++; 69

8 print "$Line &nbsp ( $DC )<br> n"; # $filecount++; elsif($ap==0){ # $AP=@AlrearyPrinted{$Line++; print "$Line<br> n"; # $filecount++; if($filecount>$maxdisplaycount){last; #$MaxDisplayCount. $Remain=$Long_time-$passed; # if($passed==0){ $Remain=time-(stat("$Archive"))[9]; print << END_of_FOOT ; </b> <hr /> <font size=1> $Remain <br> <a href="/cgi-bin/wari.cgi" target="_blank" /> </a> <br> <a href="/cgi-bin/watch.cgi" onclick="window.open(this.href, 'w2', 'menubar=no, toolbar=no'); return false;"> </a> <br> </font> </body> </html> END_of_FOOT exit(0); END 70

9 CGI UTF-8 LF(UNIX), ( ) 68,, (mi ), wari.cgi watch.cgi.cgi CGI CGI-Excutable(, ) Macintosh HD Web Server CGI-Executabl 69 CGI 70 CGI (Finder) 71

10 CGI CGI,, chmod 755, CGI Finder &. chmod 755 /Library/WebServer/CGI-Executables/watch.cgi return CGI ( ). 71 CGI ( ) 72

11 Data cd /Library/WebServer/CGI-Executables,return,mkdir data,return data CGI-Executables (, ). 72 data ( ) 73 data (Finder) 73

12 chmod 777 cd /Library/WebServer/CGI-Executables/data return data ( ). 74 data ( ) IP ( ),IP ( ). 75 ( ) 74

13 76 IP ( ) IP Web. URL IP /cgi-bin/wari.cgi( ) IP /cgi-bin/watch.cgi( ) ( ). 77 IP CGI (Macintosh) Macintosh CGI. 75

Windows Apache,Perl,. Apache Apache HTTP SERVER PROJECT http://httpd.apache.org/download.

14 Windows Apache,Perl,. Apache Apache HTTP SERVER PROJECT Apache HTTP Server is also available Win32 Source:httpd win32-src.zip zip ( ) 78 Apache zip 76

15 . ( ), ( ). 79 ( ) (Apache) 80 (Apache) 77

16 Perl ActiveState ActivePerl Download Now Download ( ). 81 (Perl), ( ). 82 (Perl), :C Perl ( ). 83 Perl ( ) 78

MKEditor for Windows http://www.vector.co.jp/soft/win95/writing/se083554.html,., MKEditor for Windows ( ).

17 MKEditor for Windows MKEditor for Windows ( ). 84 MKEditor Suika Apache, :C ProgramFiles Apache Group Files. Apache Group Apache2 cgi-bin,cgi-bin suika ( ). CGI, suika 85 CGI (Windows) 79

CGI 86 MKEditor ( ), http://ugawalab.miyakyo-u.ac.jp/j3/chika/wari.cgi.

18 CGI 86 MKEditor ( ), Shift-JIS,CGI UTF-8. 80

19 #!c:/perl/bin/perl.exe #!/usr/local/bin/perl #!/usr/local/bin/perl #while (($key, $val) = each %ENV) { print "$key = $val<br> n"; #open(debug,">>/tmp/ugawa_debug_file_please_erase_anytime.txt"); $CurrentURL=$ENV{'REQUEST_URI'; ($WorkDir=$ENV{'SCRIPT_FILENAME')=~s/[^ /]*$/data/; $Remote=$ENV{'REMOTE_ADDR'; print << END_of_HEAD ; Content-type: text/html; charset=utf-8 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" " <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8"> <meta http-equiv="pragma" content="no-cache"> <meta http-equiv="expires" content="-1"> <meta name="viewport" content="width=device-width,initial-scale=1,maximum-scale=1,user-scalable=no,"> <title> </title> </head> <body> <link rel="shortcut icon" href="/suika.ico" /> END_of_HEAD $Query_string=$ENV{'QUERY_STRING'; 81

20 #print DEBUG "QS -$Query_string- n"; #print "$_<BR> n"; s/%0d%0a/--k-a-i-g-y-o--/g; s/ +/ /g; s/%([a-fa-f0-9][a-fa-f0-9])/pack('h2',$1)/ge; #print "$_<BR> n"; if(/name=(.*)/ && length($1)>0){$name=$1; if(/comment=(.*)/ && length($1)>0){$comment=$1; if(/button.*=(.*)/ && length($1)>0){$dousa=$1; if(/submit=(.*)/ && length($1)>0){$submit=1; $Dousa=$Comment; if(/query=(.*)/ && length($1)>0){$query=$1; $Dousa=$Query; if(length($dousa)>0){ $Query=$Dousa; if(($query=~/http: / //i) ($Query=~/ <a.*href =/i)){exit;; #if($query=~/ <a.*href =/i){exit;; $Query=~s/&/ /ge; #& $Query=~s/ "/ /ge; #" $Query=~s/ '/ /ge; #' $Query=~s/</ /ge; #< $Query=~s/>/ /ge; #> $Query=~s/--k-a-i-g-y-o--/<br>/g; if(length($name)==0){ $Name=' '. $$; $T=time(); open(out,">$workdir/$remote.$t.c.txt"); print OUT "$Query t$name n"; close(out); print << End_of_HTML ; 82

21 <FORM ACTION="wari.cgi" METHOD=POST> <table width="443" border="0"> <tr><td> <input name="name" value="$name" size="10" type="text"> <input name="comment" value="$query" size="13" type="text"> <input name="submit" value=" " type="submit"></td> </tr> </table> <table width="200" border="0" cellpadding="5"> <tr> <td align="center" valign="middle"><input type="submit" name="button7" value=" " /></td> <td align="center" valign="middle"><input type="submit" name="button6" value=" " /></td> <td align="center" valign="middle"><input type="submit" name="button1" value=" " /></td> <td align="center" valign="middle"><input type="submit" name="button8" value=" " /></td> </tr> <tr> <td align="center" valign="middle"><input type="submit" name="button10" value=" " /></td> <td align="center" valign="middle"><input type="submit" name="button16" value=" " /></td> <td align="center" valign="middle"><input type="submit" name="button9" value=" " /></td> <td align="center" valign="middle"><input type="submit" name="button10" value=" " /></td> </tr> <tr> 83

22 <td align="center" valign="middle"><input type="submit" name="button12" value=" " /></td> <td align="center" valign="middle"><input type="submit" name="button13" value=" " /></td> <td align="center" valign="middle"><input type="submit" name="button5" value=" " /></td> <td align="center" valign="middle"><input type="submit" name="button11" value=" " /></td> </tr> </table> <table width="444" border="0" cellpadding="5"> <tr> <td width="94" height="28" align="center" valign="middle"><div align="center"> <input type="submit" name="button14" value=" " /> </div></td> <td width="104" align="center" valign="middle"><input type="submit" name="button15" value=" " /></td> <td width="91" align="center" valign="middle"><input type="submit" name="button14" value=" (T_T)" /></td> <td width="105" align="center" valign="middle"><input type="submit" name="button14" value="(^^)" /></td> </tr> </table> <table width="443" border="0" align="left" cellpadding="5"> <tr> <td width="139" align="center" valign="middle"><div align="center"> <input type="submit" name="button4" value=" " /> </div></td> <td width="143" align="center" valign="middle"><input type="submit" name="button3" value=" " /></td> <td width="123" align="center" valign="middle"><input type="submit" name="button2" value=" " /></td> 84

23 </tr> </table> </FORM><br /><br /> <p>$query</p> <br /> <hr /> <br /> <img src=" /> </body> </html> End_of_HTML exit(0); END #!c:/perl/bin/perl.exe #!/usr/local/bin/perl $Long_time=60*3; #3 $MaxDisplayCount=20; $Current_URL=$ENV{'REQUEST_URI'; $Current_URL=~s/?.*$//; #QUERY_STRING # CGI data ($WorkDir=$ENV{'SCRIPT_FILENAME')=~s/[^ /]*$/data/; $Archive="$WorkDir/archive.txt"; open(archive,">>$archive"); # print << END_of_HEAD ; Content-type: text/html; charset=utf-8 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" " 85

24 <html> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8"> <meta http-equiv="pragma" content="no-cache"> <meta http-equiv="expires" content="-1"> <meta http-equiv="refresh" content="1;url=$current_url"> <title> </title> </head> <body> <b> END_of_HEAD # #open(files,"ls -lt $WorkDir "); chdir foreach(@files){######################################### #print"$_<br> n"; if((/([^ ]+).( d+).c.txt$/)){ =reverse foreach(@srfiles){ #print"$_<br> n"; chomp; if((/ d+ t([^ ]+).( d+).c.txt$/)){################## $file="$workdir $1.$2.c.txt"; $passed=time-(stat($file))[9]; if($passed>$long_time){ 86

25 open(file,"$file"); while(<file>){ print ARCHIVE "$2 t$1 t$_"; #Time,IP,, close FILE; unlink("$file");# next; open(file,"$file"); while(<file>){ if(m!([^ t]+) t(.*)!){ $Text=$1;$Name=$2; $Line="$Name $Text"; # close(file); close(files); # $filecount=0; foreach $Line (@DISPLAY){ $DC=@DuplicatedCount{$Line; $AP=@AlrearyPrinted{$Line; if($dc >1 && $AP==0){ # $AP=@AlrearyPrinted{$Line++; print "$Line &nbsp ( $DC )<br> n"; # $filecount++; elsif($ap==0){ # 87

26 print "$Line<br> n"; # $filecount++; if($filecount>$maxdisplaycount){last; #$MaxDisplayCount. $Remain=$Long_time-$passed; # if($passed==0){ $Remain=time-(stat("$Archive"))[9]; print << END_of_FOOT ; </b> <hr /> <font size=1> $Remain <br> <a href="/cgi-binvlwari.cgi" target="_blank" /> </a> <br> <a href="/cgi-bin/suika/watch.cgi" onclick="window.open(this.href, 'w2', 'menubar=no, toolbar=no'); return false;"> </a> <br> </font> </body> </html> END_of_FOOT exit(0); END 88

27 CGI. wari.cgi, watch.cgi. ( ), UTF-8N(BOM )( ) CR+LF( ). ( ApacheGroup suika ( :C )) 87 CGI 88 CGI 89

28 89 CGI Archive Data,. archive.txt *.txt,cgi suika ( ). 90 archive.txt suika., ( ). data. CGI. 91 data 90

29 IP, (, ) cmd ( ). 92 ipcomfig /all ( ) 93, IP... IP ( ). 91

30 94 IP (Windows) IP web IP Web URL IP /cgi-bin/wari.cgi( ) IP /cgi-bin/watch.cgi( ) ( ) 95 IP CGI web (Windows) Windows CGI. 92

演習室の PC のハードディスクには演習で作成したデータは保管できません各 PC のネットワーク接続ショートカットからメディア情報センターのサーバーにアクセスしてください (Z ドライブとして使用できます ) 講義で使うフォルダ 2/23

Web データ管理 CGI (3 章 ) 2011/11/30( 水 ) 1/23 演習室の PC のハードディスクには演習で作成したデータは保管できません各 PC のネットワーク接続ショートカットからメディア情報センターのサーバーにアクセスしてください (Z ドライブとして使用できます ) 講義で使うフォルダ 2/23 CGI とは Common Gateway Interface の略通常のページでは