Conversion script: link fix

2015-02-26T23:48:54Z

link fix

New page

SourceCode>>[[PerlSource]]

A perl client to take form fields and transfer them over to a server equipped to deal with them...

<pre>
sunset /usr/local/apache/share/cgi-bin> cat cgiclient.pl
#!/usr/local/bin/perl

use CGI qw(:standard);
use IO::Socket;

$|=1;

print header();

$server = IO::Socket::INET->new("sunset:1999") or die "cgiclient.pl: $@\n";

$acc=param("account");
if ($acc eq "") {
print $client "<H1>Internal cgi error - must specify an account!</H1>\n";
return 0;
}

print $server $acc,"\n";

foreach $key (param()) {
# This join is a little obscure - if the field being returned is
# single valued it does nothing. only for select lists with multiple
# items does it produce a dynamic array
$value = join($fld_delim, param($key));

# Likewise, this next line usually does nothing, except when a multi-line
# text box is being retrieved. it too produces a dynamic array
$value =~ s/\r\n/$fld_delim/og;

# Send the data thru the named pipe to CGI.MASTER
print $server "$key=",$value,"\n";
}
shutdown($server,1);

print <$server>;
print end_html;
</pre>

Cgiclient.Pl - Revision history

Conversion script: link fix