Richard,
I found some time to write a very simple applet which gets some text from VMS service and display the text. It work as predicted.
Once more the Linux system was the html server and VMS served the class and jar file.
By the way, I see that the applet class must be in a separate file!
The server on VMS was Apache.
The next thing I have try is to work without Apache just to explain how simple is the http protocol.
For this I write a small dummy web server in a command procedure and set it as a tcpip service in VMS. The server is realy dummy and the files must be set as UDF to work properly but in a program it will not be dificult to read a file and send it as is.
Here is the code.
First the applet:
import java.applet.Applet;
import java.awt.Graphics;
import java.io.BufferedReader;
import java.io.InputStreamReader;
import java.net.Socket;
public class HelloWorld extends Applet {
String text = "No text";
public void init ()
{
String addr = getParameter("ADDR");
int port = Integer.parseInt(getParameter ("PORT"));
try
{
Socket socket = new Socket (addr , port);
BufferedReader in = new BufferedReader (new InputStreamReader (socket.getInputStream()));
text = in.readLine();
socket.close();
} catch (Exception e)
{
e.printStackTrace();
}
}
public String[][] getParameterInfo() {
String[][] info = {
// Parameter Name Kind of Value Description
{"ADDR", "String", "address"},
{"PORT", "int", "port"}
};
return info;
}
public void paint(Graphics g) {
g.drawRect(0, 0,
getSize().width - 1,
getSize().height - 1);
g.drawString("Hello world! " + text, 5, 15);
}
}
Now the html:
The service installed on port 4445:
$ open/read/write net sys$net
$ write net "Hello from VMS!"
And the web server installed on port 4444:
$ open/read/write net sys$net
$ read net httpcmd /time=10/error=end
$ method = f$element (0 , " " , httpcmd)
$ path = f$element (1 , " " , httpcmd)
$ show sym/all
$ if "GET".eqs.method
$ then
$ filename = f$element (1 , "/" , path)
$ if f$search(filename).nes.""
$ then
$ type = "application/octet-stream"
$ if f$parse(filename,,,"TYPE").eqs.".HTML" then type="text/html"
$ write net f$fao("HTTP/1.0 200 OK!/")
$ write net f$fao("Content-Type: ''type'!/")
$ len = (f$file(filename , "EOF") - 1) * 512 + f$file(filename,"FFB")
$ write net f$fao("Content-Length: ''len'!/!/")
$ copy 'filename' net
$ exit
$ endif
$ endif
$ write net f$fao("HTTP/1.0 404 not found!/!/")
$ exit
The web server must have limit more than 1 to work properly!(I spent a hour to find that this causes errors!).
This is a very simple example but it works and explains how can be things made.
Bojan
