gistfile1.f

PROGRAM gistItDriver
IMPLICIT NONE
CHARACTER(LEN=50) :: gistFile
INTEGER :: gistIt
gistFile = '                                                  '
CALL SYSTEM("clear")
WRITE(*,*) 'Enter the name of the file to post:'
READ(*,*) gistFile
WRITE(*,*) gistit(TRIM(gistFile),len(trim(gistFile)))
END PROGRAM

INTEGER FUNCTION gistIt(fname,length)
IMPLICIT NONE
CHARACTER(LEN=length), INTENT(IN) :: fname
INTEGER, INTENT(IN) :: length
INTEGER :: ext, openerr
CHARACTER(LEN=8) :: fext
CHARACTER(LEN=47) :: suffix =  ' http://gist.github.com/gists > aenprinlsen.out'
CHARACTER(LEN=80) :: temp
CHARACTER :: q = '"'
fext = '        '
OPEN (UNIT=4, FILE=fname, STATUS="OLD",IOSTAT=openerr)
CLOSE(UNIT=4)

IF(openerr==0) THEN
	ext = INDEX(fname, '.', .TRUE.)
	IF((length-ext) < 7) fext = fname(ext:length)
    CALL SYSTEM("curl -F 'file_name[gistfile1]="//fname//"' -F 'file_ext[gistfile1]=" &
	//TRIM(fext)//"' -F 'file_contents[gistfile1]=@"//fname//"'"//suffix)
	! CALL SYSTEM("clear")
	OPEN (UNIT=5, FILE="aenprinlsen.out", STATUS="OLD",IOSTAT=openerr)
	WRITE(*,*) "openerr= ",openerr
	20 FORMAT(A)
	READ(5,20) temp
	WRITE(*,*) temp
	CLOSE(UNIT=5)
	! CALL SYSTEM("rm aenprinlsen.out")
ELSE
	gistIt = -1
END IF
	
END FUNCTION

!  ' = "//q//"