Ｃ　Ｇ　I　入　門　講　座

Size: px

Start display at page:

Download "Ｃ　Ｇ　I　入　門　講　座"

よいかずひめい
5 years ago
Views:

1 Apache VsftpdPerl JAPET NTT Linux 1

2 FTP CGI VSFTP Apache Perl Perl CGI Apache CGI CGI Perl CGI CGI PHP CGI CGI 2

3 Windows CGI EUC Windows Windows CGI 64KB Windows CGI ( ) Windows TeraPad ( ) RE for Windows ( ) Win, Mac, UNIX MAC MAC Jedit ( ) Mac Windows UNIX YooEdit ( ) Free Emacs 3

4 FFFTP o o FTP o [ ] o [ ] 3web FFFTP o [ ] 3web FFFTP WS_FTP Limited Edition o o FTP o [ ] o [ ] 3web WS_FTP o [ ] 3web WS_FTP 4

5 o Mac Fetch o o Fetch FTP o ( ) CGI o ( ) CGI FFFTP RE 5

6 1. WWW HTTP 2. WWW 3. CGI 4. WWW 5. WWW HTTP 6. 6

7 7

8 ftp (vsftpd) # ps ax grep vsftpd anonymous permission VSFTPD /etc/vsftpd/vsftpd.conf anonumous Allow anonymous FTP? anonymous_enable=no YES NO cd #chroot_list_enable=yes # (default follows) #chroot_list_file=/etc/vsftpd.chroot_list 8

9 cd list /etc/vsftpd.chroot_list vsftpd.chroot_list Ascii cgi FTP #ascii_upload_enable=yes #ascii_download_enable=yes VSFTPD vsftpd.conf vsftpd FTP (Redhat9 FTP vsftp.conf? 9

10 apache # rpm -aq grep httpd httpd-manual redhat-config-httpd Apache2 # rpm -q httpd httpd /etc/httpd/conf/httpd.conf public_html web </IFModule mod_userdir.c> UserDir? disable public_html /home/hogehoge/public_html/index.html 10

11 apache cgi 3 ScriptAlias cgi /cgi-bin/ /var/www/cgi-bin /*/cgi-bin/ "/home/*/public_html/cgi-bin/" / AddHandler.pl cgi AddHandler cgi-script.cgi.pl Directory cgi Directory "/home/*/public_html/cgi-bin"> </Directory> Options FollowSymLinks ExecCGI apache httpd.conf apache # /usr/sbin/apachectl restart public_html rwxrw-rw- httpd.conf public_html index.html html 11

12 12

13 perl perl public_html cgi-bin test.cgi ascii cgi-bin 13

14 14

15 o o 15

16 r x 001 -wx 005 -w- 002 rw wx 003 rwx

17 17

18 18

19 public_html (666) cgi-bin 0 template.dat(666) log.dat(666) form.cgi (707) submit.cgi (707) jcode.pl (707) jcode.pl init.pl (707) 19

20 form.cgisubmit.cgi form.cgi #!/usr/local/bin/perl # Perl require "./jcode.pl"; require "./init.pl"; $method = "PUT"; # PUT if(open(file,$template_html)){ }else{ # $temp_html = <FILE>; # HTML $temp_html = <<"-----EOF-----"; <HTML><HEAD><TITLE>Join</TITLE></HEAD> <BODY BGCOLOR="#FFFFFF"> <H1> </H1><HR> INSERT_FORM_HERE </BODY></HTML> -----EOF----- } &jcode'convert(*temp_html,'jis'); #JIS # <FORM></FORM> $temp_html =~ s/ INSERT_FORM_HERE /&print_form/eg; # HTML print "Content-Type: text/html n n"; print $temp_html; sub print_form{ # 20

21 open(temp,$template_dat) return "<STRONG>No template</strong>"; # HTML $return = <<"-----EOF-----"; <FORM METHOD=$method ACTION="./submit.cgi">  <INPUT TYPE=HIDDEN NAME="template" VALUE="$template"> <DL> -----EOF----- </DL> while(<temp>){ } chop; &jcode'convert(*_,'euc'); $return.= &input_tags(split(/,/)); $return.= <<"-----EOF-----"; <INPUT TYPE="SUBMIT" VALUE=" (submit)"> <INPUT TYPE="RESET" VALUE=" (clear)"> </FORM> -----EOF----- } close(temp); sub input_tags{ &jcode'convert(*return,'jis'); # jis $return; # HTML local($tag,$type,$name,$option,$method,$value) local($return,$select_tag,$select_value); # NAMEVALUE " $name =~ s/"//g; $value =~ s/"//g; # $option = " $option" if $option; # $return = "<DT>$tag n<dd>"; if (/radio/i /checkbox/i){ # 21

22 foreach(split(/&/,$value)){ ($select_tag,$select_value) = split(/=/); $return.= qq!<input TYPE=$type NAME="$name" VALUE="$select_value">!; $return.= qq!$select_tag<br>!; } }elsif(/select/i){ # $return.= qq!<select NAME="$name"$option>!; foreach(split(/&/,$value)){ $return.="<option>$_ n"; } $return.= qq!</select>!; }elsif(/textarea/i){ # $return.= qq!<textarea NAME="$name"$option>$value</TEXTAREA> n!; }else{ # $return.= qq!<input TYPE=$type NAME="$name" VALUE="$value"$option> n!; } $return; } submit.cgi #!/usr/local/bin/perl require "./jcode.pl"; require "./init.pl"; # open(temp,$template_dat) &error("no template"); 22

23 while(<temp>){ } chop; push(@keys,(split(/,/))[2]); close(temp); # foreach(@keys){ # $value = $param{$_}; } # $value =~ s/,/./g; # <BR> $value =~ s/ r? n/<br>/g; push(@values,$value); open(log,">>$log_dat") &error("can't open log.dat"); flock(2,log); # print LOG join(",",@values); print LOG " n"; flock(8,log); close(log); # Thankyou $tmp = <<"-----EOF-----"; Content-Type: text/html <HTML><HEAD><TITLE>Thank you!</title></head> <BODY BGCOLOR="#FFFFFF"> 23

24 <H1> </H1> <HR> <A HREF="$ENV{'HTTP_REFERER'}"> </A> -----EOF----- &jcode'convert(*tmp,'jis'); print $tmp; 24

25 25

26 26

27 27

28 Sendmail Sendmail SERVER_SOFTWARE ( : RFC2616 sec3.8) SERVER_NAME URL DNS IP GATEWAY_INTERFACE CGI (: CGI/1.1) SERVER_PROTOCOL SERVER_PORT REQUEST_METHOD PATH_INFO ( : RFC2616 sec5.1.1, sec9) 28

29 PATH_INFO CGI URL PATH_TRANSLATED PATH_INFO SCRIPT_NAME URL QUERY_STRING URL? REMOTE_HOST REMOTE_ADDR REMOTE_ADDR AUTH_TYPE IP ( : RFC2616 sec11) REMOTE_USER REMOTE_IDENT HTTP RFC 931 CONTENT_TYPE HTTP POST PUT ( : RFC2616 sec3.7, sec14.17) CONTENT_LENGTH ( : RFC2616 sec14.13) 29

30 HTTP_ACCEPT HTTP HTTP ( : RFC2616 sec14.1) HTTP_USER_AGENT : RFC2616 sec14.43) 30

オンラインテスト

オンラインテスト 1. 2. JavaScript 3. Perl 4. CGI 1. WWW HTML WWW World Wide Web HTML Hyper Text Markup Language XML, XHTML Java (.java) JavaApplet (.class,.jar) JavaServlet (.jsp) JavaScript (.html) CGI (.cgi) SSI (.shtml)

Ｃ Ｇ I 入 門 講 座

Ｃ　Ｇ　I　入　門　講　座