forked from extern/egroupware
26 lines
457 B
Perl
26 lines
457 B
Perl
|
#!C:/Perl/bin/perl.exe -w
|
||
|
|
use CGI;
|
||
|
|
use IO::File;
|
||
|
|
use Fcntl qw(:DEFAULT :flock);
|
||
|
|
use File::Temp qw/ tempfile tempdir /;
|
||
|
|
|
||
|
|
#DATA
|
||
|
|
@qstring = split(/&/,$ENV{'QUERY_STRING'});
|
||
|
|
@filename = split(/=/,$qstring[0]);
|
||
|
|
|
||
|
|
$docroot = "$ENV{'DOCUMENT_ROOT'}";
|
||
|
|
$dataDir = "$docroot/data/";
|
||
|
|
$tmp = "";
|
||
|
|
|
||
|
|
open(FH,$dataDir.@filename[1]);
|
||
|
|
while($line = <FH>)
|
||
|
|
{
|
||
|
|
$tmp = $tmp.$line;
|
||
|
|
}
|
||
|
|
close(FH);
|
||
|
|
|
||
|
|
print "Content-type: text/xml\n\n";
|
||
|
|
print $tmp;
|
||
|
|
|
||
|
|
exit;
|