«as400»badip
Content-type: text/html
X-XSS-Protection: 1;
«!doctype html»
«HTML»
«HEAD»«TITLE»CGIDEV2«/TITLE»
«META NAME="ROBOTS" CONTENT="INDEX,NOFOLLOW"/»
«style»
.tab {border: #dd0077 1px solid; font-family: "Arial Narrow"; color: #ffaa00; font-size: 26px;}
«/style»
«script type="text/javascript"»
//=====================================================================
// Random number
//=====================================================================
function TS() {var ts; ts=Math.random(); return ts;}
//=====================================================================
// Download documentation
//=====================================================================
function openDown(exe) {
var ts=TS();
document.goOpenDown.ts.value=ts;
document.goOpenDown.maker.value=exe;
document.goOpenDown.submit();
}
«/script»
«/HEAD»
«BODY»«br»«br»
«table width=600»
«tr»
«form name="goOpenDown" method="post" action="http://www.easy400.net/easy400p/downloadcm.cgi"»
«input type="hidden" name="ts"»
«input type="hidden" name="maker"»
«/form»
«td align=center»
«table width=400 class=tab»
«tr»«td align=center»
Your authorization to to this site has been removed.«br»
Reason code /%reasoncode%/.
«/td»«/tr»
«/table»
«/td»«/tr»
«/table»
«/BODY»«/HTML»
«as400»all
Content-type: text/html
Expires: 0
«!doctype html»
«HTML»
«HEAD»«TITLE»Export your System i to the Web with ILE-RPG«/TITLE»
«meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"»
«meta name="DOCUMENTCOUNTRYCODE" value="it"/»
«meta name="DOCUMENTLANGUAGECODE" value="EN"/»
«META name="description" content="EASY400 - Web development with AS/400 ILE RPG"»
«META name="abstract" content="Demos, sample code, tutorial, utilities. Free downloads."»
«META name="keywords" content="CGIDEV2, AS/400, AS400, iSeries, i5, System i, CGI, HTTP, SNIPPETS, Giovanni, Perotti"»
«script type="text/javascript" src="/cgidev/js/ts.js"»«/script»
«script type="text/javascript" src="/cgidev/js/getMyDate.js"»«/script»
«script type="text/javascript" language="JavaScript"»
«!--
if ((navigator.appName == "Microsoft Internet Explorer") && (parseInt(navigator.appVersion) »= 4 )) {
document.write('«link rel="stylesheet" href="/cgidev/ie1.css" type="text/css"/»') }
else if ((navigator.appName == "Netscape") && (parseInt(navigator.appVersion) »= 4)) {
document.write('«link rel="stylesheet" href="/cgidev/ns1.css" type="text/css"/»') }
else {
document.write('«link rel="stylesheet" href="/cgidev/r1.css" type="text/css"/»') }
// --»
«/script»
«noscript»«link rel="stylesheet" href="/cgidev/r1.css" type="text/css"/»«/noscript»
«style type="text/css"»
pre { font-family: monospace; font-weight: normal; font-size: 12px; }
.title { font-family: Arial, sans-serif; font-weight: normal; font-size: 24px; }
.subtitle { font-family: Arial, sans-serif; font-weight: bold; font-size: 16px; color: #2A4A92; }
.brush {font-size: 16pt; color: red; font-family: brush script, souvenir lt bt, verdana, arial}
.warn {font-family: Arial, sans-serif; font-weight: normal; font-size: 15px;}
.black {color: black; font-weight: normal; }
li.blue {font-family: Arial, sans-serif; font-weight: bold; font-size: 13px; color: blue;}
«/style»
«SCRIPT LANGUAGE="JavaScript"»
«!--- Hide script from old browsers
reSep = /\.Pwd=/
reQuote = /\'/
reSpace = /\s/
//=============================================================
// openWin() Open a small window
//=============================================================
function openWin(html) {
MyWin=window.open(html+"?ts="+TS(),'','width=500,height=600,scrollbars,resizable,status');
MyWin.focus();
return true
}
//==========================================================
// Get a cookie of a given name
// If found, returns the cookie value as a string
//==========================================================
function getCookie(Name) {
var search = Name + "="
if (document.cookie.length » 0) { // if there are any cookies
offset = document.cookie.indexOf(search)
if (offset != -1) { // if cookie exists
offset += search.length
// set index of beginning of value
end = document.cookie.indexOf(";", offset)
// set index of end of cookie value
if (end == -1)
end = document.cookie.length
return unescape(document.cookie.substring(offset, end))
}
}
}
//==========================================================
// myEasy400User()
// returns the user name
// (provided it contains no blanks nor quotes)
// or null
//==========================================================
function myEasy400User() {
var user = getCookie("myEasy400")
var userName = new String("")
if (user != null) {
var d= user.search(reSep)
if (d != -1) {
var userName = user.substring(0,d)
var q= userName.search(reQuote)
var s= userName.search(reSpace)
if ( (q != -1) || (s != -1) )
userName=""
}
}
return userName
}
//==========================================================
// myEasy400Pwd()
// returns the user password
// (provided it contains no blanks nor quotes)
// or null
//==========================================================
function myEasy400Pwd() {
var user = getCookie("myEasy400")
var userName = new String("")
var userPwd = new String("")
if (user != null) {
var d= user.search(reSep)
if (d != -1) {
var userPwd = user.substring(d+5,user.length)
var q= userPwd.search(reQuote)
var s= userPwd.search(reSpace)
if ( (q != -1) || (s != -1) )
userPwd=""
}
}
return userPwd
}
//==========================================================
// getXPBMODE()
// returns one char mode for cgi downloads
//==========================================================
function getXPBMODE() {
var xpbmode = ""
var xUser = myEasy400User()
var xPwd = myEasy400Pwd()
if ( (xUser != "") && (xPwd != "") )
xpbmode = "W"
else
xpbmode = "askpwd"
return xpbmode
}
// end script hiding from old browsers --»
«/SCRIPT»
«script type="text/javascript"»
function TS() {var ts; ts=Math.random(); return ts;}
function openDown(exe) {
var ts=TS();
document.goOpenDown.ts.value=ts;
document.goOpenDown.maker.value=exe;
document.goOpenDown.submit();
}
«/script»
«/HEAD»
«BODY TEXT="black" LINK="blue" VLINK="blue" ALINK="blue" BGCOLOR="white"»
«table width="100%" cellspacing="0" cellpadding="0"»
«tr»
«form name="goOpenDown" method="post" action="http://www.easy400.net/easy400p/downloadcm.cgi"»
«input type="hidden" name="ts"»
«input type="hidden" name="maker"»
«/form»
«td align=left width="20%"»
«A HREF="/cgidev2oit/demoframe.htm" target="_top"»
«IMG SRC="/cgidev/itaflag.gif" BORDER="0" width="30"
ALT="Switch to Italian Language"
TITLE="Switch to Italian Language"»«/A»
«/td»
«td align=center»«div class=redtitle»
CGIDEV2: Export your System i to the WEB with ILE-RPG«/div»«/td»
«td width="20%"»«table width="100%"»
«tr»«td align=right»
«A HREF="http://en.wikipedia.org/wiki/Common_Gateway_Interface"
target="_blank"»
«IMG SRC="/cgidev/whatscgi.gif" border="0"
ALT="Link to a page describing what CGIs are"
TITLE="Link to a page describing what CGIs are"»«/A»
«/td»«/tr»
«tr»«td align=right class=small»«b»
«SCRIPT LANGUAGE="JavaScript"»
document.write(getMyDate())
«/SCRIPT»«/b»
«/td»«/tr»
«/table»
«/td»«/tr»
«/table»
«TABLE width="100%" border=0»
«TR»«TD valign=top width="49%"»
«table width="100%" class="pinkbacktbl"»
«tr»«td»If you know RPG, the easiest way for you
to develop Web applications is to use the «b»CGI«/b»
technique.
The CGI technique is not easy by itself.
However we have made it so «font color=red»«b»e«/b»«/font»asy
that after a little reading
you would sit back and smile, because web programming
is now just at your hand.
As a matter of fact we teach, and provide tools,
for a technique, based on a «b»service program«/b»,
that «i»hides away any complexity«/i» from your code,
while allowing you to
«i»define your Web pages«/i»
external to your programs.«br»
Any script language understood by a Web browser
can be used to define your external Web pages,
such as
«b»html«/b»,
«b»xml«/b»,
«b»wml«/b»,
«b»javascript«/b».«br»
This service program was originated by «i»Mel Rothman«/i», when he was in the
IBM iSeries Custom Technology Center,
Rochester (MN), U.S.. Mel did maintain this code for several years.
«/td»«/tr»
«/table»
«/TD»
«TD width="2%"» «/td»
«TD valign=top ROWSPAN="2" width="49%"»
«table width="100%" class="greenbacktbl"»
«tr»«td align=center»
«div class=brush»
CGIDEV2 = CGIDEV Version 2 «/div»
«/td»«/tr»
«tr»«td»The first version of Mel's CGI service program («b»CGIDEV«/b») was built in 1996
and published on the Easy400 site in July 1997.
«p»The Version 2 CGI service program («b»CGIDEV2«/b») became available in the last quarter of 1999 and was made available
through the Easy400 site in January 2000.
«p»«b»CGIDEV2«/b» was a great step forward both in terms of performance and ease-of-use.
«p»Since then CGIDEV2 became one of the most attractive WEB development tools
on the AS/400 (now System «b»i«/b») platform for ILE-RPG programmers.
«/td»«/tr»
«tr»«td align=center»«img src="/cgidev/c.gif" height="15" width="1"»
«table cellspacing="0" cellpadding="0"»
«tr»«td»«A HREF="/cgidev2o/version2.htm?ts=/%TS%/" target="_blank" class="none"»
«IMG SRC="/cgidev/gobutton.gif" border="0"
alt="CGIDEV2 enhancements" title="CGIDEV2 enhancements"»«/A»
«b»CGIDEV2 enhancements«/b»«/td»
«td width="30"» «/td»
«td align="right"»
«a href="/cgidev2p/dspchglog0.pgm" target="_top"
alt="CGIDEV2 Change Log" title="CGIDEV2 Change Log"»
«IMG SRC="/cgidev/gobutton.gif" border="0"»«/a»
«b»History of changes«/b»«/td»«/tr»
«/table»
«/td»«/tr»
«/table»
«/TD»«/TR»
«TR»«TD width="49%" valign=bottom»
«table width="100%"class="whitebacktbl"»
«tr»«td»«P»In this site you'll find demos, tutorials,
a lot of sample source code, but what's best,
you may download anything you like,
install and have it running on your System «b»i«/b»,
so that you can continue your learning from there.
...And, of course, as we are a non-profit site,
this is totally «font color=red»«b»free«/b»«/font»,
and includes some remote support,
should you ever care.«/p»
«/td»«/tr»
«/table»
«/TD»«/TR»
«br»
«table width="100%" cellspacing="0" cellpadding="0" border="0"»
«tr»«td width="49%" valign="top"»
«table width="100%"»
«tr»«td width="100%" bgcolor="#4A9992"»
«/td»«/tr»
«tr»«td valign=top»
«span class=subtitle»
Look at our demos«/span»«br»«br»
Our demos are teaching vehicles.
After running, you may go «i»inside«/i»
them, discover how they were made out,
and read detail explanations of their
designs.
«/font»
«/td»«/tr»
«tr»«td»
«ol»
«li class="blue"»
«A HREF="/cgidev2o/demos.htm?ts=/%TS%/" target="_blank"
alt="menu of basic demos"
title="menu of basic demos"»
«b» Basic Demos «/b»«/A»«br»
«span class="black"»
This is a set of simple demos,
easy to understand,
through which you may learn the
basics of our CGI development method.«/li»
«/span»
«br»«br»
«li class="blue"»
«A HREF="/cgidev2p/boatsch0.pgm?ts=/%TS%/" target="_blank"
alt="Yacth World Demo"
title="Yacth World Demo"»
«b» YachtWorld «/b»«/A»«br»
«span class="black"»
This was Giovanni's first attempt to develop
something more sophisticated.
Going through it you would understand
how to manage "«i»subfiles«/i»"
and how to hide information in the
script for the client.«br»
To run this demo, first select your
background color, then push the «b»go«/b» button.
«/span»
«table border="0" cellspacing="0" cellpadding="0"»
«form method=get action="/cgidev2p/boatsch0.pgm"
target="_blank"»
«tr»«td rowspan=2 valign=top»
Background colors«/td»
«td»«input type=radio name=bckgnd
value="white" checked»white«/td»
«td»«input type=radio name=bckgnd
value="gray"»gray«/td»
«td rowspan=2 valign=middle»
«input type=image
SRC="/cgidev/gobutton.gif" alt="go" border="0"»
«/td»«/tr»
«tr»«td»«input type=radio name=bckgnd
value="lblue"»light blue«/td»
«td»«input type=radio name=bckgnd
value="black"»black«/td»«/form»«/tr»
«/table»
«div class=reg»
«li class="blue"»
«A HREF="http://www.easy400.net/centaur2/start" target="_blank"
»«b» Centaur «/b»«/A»«br»
«span class="black"»
Centaur is made of two e-commerce demos,
one full page, the other based on frames.
Though quite attractive, they are not for beginners.
They become useful after getting rather
acquainted with Mel's CGI development tool.
«/span»
«li class="blue"»
«A HREF="/js2p/getacar.pgm?action=d" target="_blank"»
«b» Get a virtual car «/b»«/A»«br»
«span class="black"»
Would you like your CGI's to take advantage
from some Javascript imbedded in their HTML
scripts?
This demo provides
«i»input validation«/i» and
«i»pop-up«/i» selection lists
through some Javascript.
«/span»
«/ol»
«/td»«/tr»
«tr»«td bgcolor="#4A9992"»
«/td»«/tr»
«tr»«td valign=top»
«span class=subtitle»
How many CGIDEV2 addicted?«/span»
«/td»«/tr»
«tr»«td valign=top»
«ol»
«li class="blue"»
«a href="http://www.easy400.net/easy400p/subs.html?ts=/%TS%/"
target="_blank"»«b»Subscribers from
several countries«/b»«/a»
«/td»«/tr»
«/table»
«/td»
«td width="2%"» «/td»
«td width="49%" valign="top"»
«table»
«tr»«td bgcolor="#4A9992"»
«/td»«/tr»
«tr»«td valign=top»
«span class=subtitle»
Documents«/span»
«/td»«/tr»
«tr»«td valign=top»
«ol»
«li class="blue"»
«A HREF="/cgidev/pdfs/About_HTTP_directives_for_CGIDEV2.pdf" target="_blank"
»«b» About HTTP directives for CGIDEV2 «/b»«/A»«br»
«a href="javascript:openDown('IBM_i_HTTP_Server_V6R1.pdf')"
»«b» IBM System i HTTP Server Version 6 Release 1«/b»«/a»
«/ol»
«/td»«/tr»
«tr»«td bgcolor="#4A9992"»
«/td»«/tr»
«tr»«td valign=top»
«span class=subtitle»
Learning path«/span»
«/td»«/tr»
«tr»«td valign=top»
«ol»
«li class="blue"»«span class="black"»Some
«A HREF="/cgidev2o/tips1.htm?ts=/%TS%/"
target="_blank"»«b»Tips for your initial learning«/b»«/A»«/span»
«li class="blue"»
«A HREF="/cgidev/pdfs/cgiintus.pdf"
target="_blank"»«b»A small presentation«/b»«/A»
«span class="black"»
covering what CGIs are and what are
the advantages of our service program.«/span»
«/font»
«li class="blue"»«span class=black»We have a CGIDEV2 tutorial which
goes through all the services provided by the CGIDEV2 «i»service program«/i»
with detail descriptions and code examples.
You may:
«ul»
«li»access the «a href="/cgidev2o/tutorial.htm?ts=/%TS%/"
target="_blank"»«b»HTML version of the CGIDEV2 Tutorial«/b»«/a»
«li»download the «a href="http://www.easy400.net/easy400p/downpdf.html?pdf=cgidev2Tutorial.pdf"
target="_blank"»«b»PDF version of the CGIDEV2 Tutorial«/b»«/a»
«/ul»
«/span»
«li class="blue"»«span class=black»An
«A HREF="http://www.easy400.net/cgiclass2/start" target="_blank"»
«b»HTML tutorial«/b»«/A»
«span class="black"»
that you may also download and install on
your System «b»i«/b» or your PC
«/span»
«li class="blue"»«span class=black»A
«a href="http://www.easy400.net/js2/start"
target="_blank"»«b»JavaScript
tutorial«/b»«/a»
«span class="black"»:
once you feel you know enough about HTML and CGI's,
maybe it's time to breathe some intelligence into
your client-scripts.
«/span»
«/ol»
«/td»«/tr»
«tr»«td width="100%" bgcolor="#4A9992"»
«/td»«/tr»
«tr»«td valign=top»
«span class=subtitle»
Hot pages«/span»
«/td»«/tr»
«tr»«td valign=top»
«ol»
«li class="blue"»
«a href="http://www.easy400.net/easy400p/maindown.cgi?lng=&ts=/%TS%/"
target="_blank"»«b»Downloads«/b»«/a»
«span class="black"»
This is where you may download all deliveries,
inclusive of sources, at no charge
«/span»
«li class="blue"»
«a href="http://www.easy400.net/easy400p/main.html?xmain=6&xlng=en"
target="_blank"»«b»What's new«/b»«/a»
«span class="black"»
in our deliveries
«/span»
«li class="blue"»
«a href="/cgidev2o/tips2.htm?ts=/%TS%/"
target="_blank"»«b»Installation tips«/b»«/A»
«li class="blue"»
«a href="/cgidev2o/faq.htm?ts=/%TS%/"
target="_blank"»«b»FAQ«/b»«/a»
«span class="black"»
Frequently asked questions
«/span»
«li class="blue"»
«A HREF="mailto:gb_perotti@easy400.net"»
«b»Contact us«/b»«/A»
«/ol»
«/td»«/tr»
«tr»«td width="100%" bgcolor="#4A9992"»
«/td»«/tr»
«tr»«td valign=top»
«span class=subtitle»
Reference pages«/span»
«/td»«/tr»
«tr»«td valign=top»
«font face="Helvetica,Helv,Arial" size="-1"»
«ol»
«li class="blue"»
«a href="/cgidev/html/index.htm?ts=/%TS%/"
target="_blank"»«b» Index«/b»«/a»
«li class="blue"»
«a href="/cgidev2o/biblio.htm?ts=/%TS%/"
target="_blank"»«b»Related
Manuals and Redbooks«/b»«/a»
«/ol»
«/td»«/tr»
«/table»
«/td»«/tr»
«tr»«td colspan=3 bgcolor="#4A9992"»
«/td»«/tr»
«tr»«td colspan=3 align="center"»
«table»
«tr»«td»
«span class=subtitle»
Give us some recognition for your results«/span»
«ul»
«li»Did you improve your business by adopting
our CGI technique?
«li»Do you believe that our technique
would be equally profitable
to other people?
«li»Do you think that your testimonial would be of some help?
«/ul»
If so,
«span class="blue"»«b»
«a href="http://www.easy400.net/easy400p/mainref01.html"
target="_blank"»«b»tell the world what you did«/b»«/a».
«/span»
«/td»«/tr»
«/table»
«/td»«/tr»
«/table»
«br»«br»
«!-- /%httprefer%/ --»
«/BODY»
«/HTML»
|
