Re: perl script accesing another server

If I understand the issue correctly, you have info on server 1 that you really just want accessed/displayed on server2

I've done this sort of thing numerous times to get data from locked systems to an "enternal" source. i.e. getting oracle billing data to a customer without letting them actually touch a box that is directly connected to the network oracle is on. Another project I am working right now, allows an external division across the world invoke our CGI input screen without actually using them directly....i.e. they use their existing interface, which calls my system passing what would have been entered into our forms. they then have to parse some specially formatted output that indicates the status of their requests, but we have made that fairly easy by creating consistent markers they can use to snag the real data...the biggest hurdle we face is that the system calling us is ASP based, getting them to figure out how to do what LWP does via ASP, and parsing without the benefit of a regex.

If this is the case, simply create all the web pages on the source server1, then use a front end on the access server2 call server1, redisplaying the data on server2.

LWP can make this fairly easy. And it's damn fun.

of course, if I misunderstand the problem....nevermind :-)

Comment on Re: perl script accesing another server

Replies are listed 'Best First'.

Re: Re: perl script accesing another server
by philbe (Initiate) on Jul 27, 2001 at 14:46 UTC

#!/usr/local/bin/perl
...............................
...............................
# Form : for user input to crate the Headline:
<b>Top Of Page:</b>\n";
print "<p><b>Headline:</b>Big Page Title At The Top - required)<br>\n"
+;
print "<input type=text size=40 name=\"headline\" value=\"$head\"></p>
+\n";
...............................
...............................
# writes te input into a flat file
...............................
...............................
#Creates Dir and Page sub dirs
mkdir ("$base_dir/$pagename", 0777) || die("Could not create user dire
+ctory:");
mkdir ("$base_dir/$pagename/page1", 0777) || die("Could not create use
+r directory:");
..............................
..............................
#Page 1 creation
open(HTML, ">$page_dir$pagename/index.htm") || die "I can't create $pa
+gename/index.htm\n";
if ($useflock) {
flock (HTML, 2) or die "can't lock html file\n";
}
print HTML "<html><head><title>$head</title>\n";
................................
................................
................................
[download]

[reply]
[d/l]


The stupid question is the question not asked
	PerlMonks