program homework
!!----------------------------------------
!! Upload a file fomr the homework upload page
!! C.Bystroff Sat Aug 22 14:02:29 EDT 2009
!!----------------------------------------
!====== FORM content from server2.html ======
!!=============================================
! EXAMPLE OF FILE UPLOADED FROM A BROWSER BY server2.php
!-----------------------------17957399112655092392090245054
!Content-Disposition: form-data; name="email_address"
!
!
!-----------------------------17957399112655092392090245054
!Content-Disposition: form-data; name="pdbid"
!
!
!-----------------------------17957399112655092392090245054
!Content-Disposition: form-data; name="pdbfile"; filename="1crk.pdb"
!Content-Type: text/plain
!
!
!!! ...followed by PDB records...
!!-===========================================
use gfcgi
implicit none
integer :: iunit, pid
character(len=1000) :: aline
pid = getpid()
! call gfcgi_stdinbinary(iunit=iunit,pid=pid)
! call getenv("HWVALUE",aline)
call getenv("QUERY_STRING",aline)
close(iunit)
write(*,'(a,//)') 'Content-type: text/html'
write(*,'(a)') ""
write(*,'(a)') ""
write(*,'(a)') "homework: "
write(*,'(a)') ""
write(*,'(a)') "homework:
"
write(*,'(a)') ""
write(*,*) trim(aline)
write(*,'(a)') ""
write(*,'(a)') ""
end program homework