ScriptBasic

Support => ScriptBasic Examples w/source => Topic started by: Support on May 17, 2006, 04:14:30 PM

Title: WEBGET - Browser based Curl Example
Post by: Support on May 17, 2006, 04:14:30 PM
This example Curl program will retrieve the source HTML of the URL you submit. IE doesn't work with default security settings and the 'MIME Sniffing" feature needs to be disabled so the file attribute is used for MIME determination like the other browsers. MSDN Reference (http://technet2.microsoft.com/WindowsServer/en/Library/e5a730ee-a68b-4789-8419-4de4c3c7950d1033.mspx?mfr=true)

http://www.scriptbasic.org/curl.html

Code: [Select]

*** getweb.bas ***

#!/usr/bin/scriba -c

INCLUDE cgi.bas
INCLUDE curl.bas

OPTION cgi$Method cgi::Post or cgi::Get

this_url = cgi::PostParam("geturl")

CURL = curl::init()
curl::option CURL,"URL",this_url
curl::option CURL,"FILE","/var/www/vhosts/scriptbasic.org/httpdocs/pagedump.txt"
curl::perform CURL
curl::finish CURL

cgi::Header 302,""
PRINT "Location: /pagedump.txt\n"
cgi::FinishHeader

END


*** curl.html ***

<html>
<head>
<title>ScriptBasic WebGet</title>
</head>
<body>
<h1>Curl Example</h1>

Enter URL to retrieve:

<form method="post" action="/cgi-bin/getweb.bas">
  <input type="text" name="geturl" size=40>
  <input type="submit" value="Get Page">
</form>
</body>
</html>