File: xml2cgi.pl

package info (click to toggle)
libcgi-xml-perl 0.1-16
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 132 kB
  • sloc: perl: 74; xml: 4; makefile: 2
file content (15 lines) | stat: -rwxr-xr-x 271 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
#!/usr/bin/perl -w
use strict;
use CGI::XML;
my $q = new CGI::XML;

# load CGI variables from XML file
open (XML,"cgi.xml");
my $xml = join("",<XML>);
$q->toCGI($xml);

# print CGI variables
foreach my $item ($q->param) {
    print "$item = ", $q->param($item), "\n";
}