I just wanna dump a file to the browser as plain text

[Jeremy Vinding]

I fell incredibly stupid that I can't get such a simple thing to work.
I'm trying to display the source of XML files without allowing IE to parse
them, but it still is parsing it:(

here is the relevant code:

sub ShowFile
{
    my $q        = shift;
    my $file     = shift;
    my $fileName = '';

    SWITCH:
    {
        $file eq 'xml'  and $fileName  =
"/usr/local/apache/htdocs/connect/connect.xml"  and last SWITCH;
        $file eq 'xsl1' and $fileName  =
"/usr/local/apache/htdocs/connect/connect1.xsl" and last SWITCH;
    }

    my $fh = IO::File->new ($fileName) or die "opening $fileName failed:
$!\n";

    print $q->header (-type => "text/plain");
    while (<$fh>)
    {
        print;
    }
}

sub Main
{
    my $q = CGI->new;

    my $action = $q->param ("action") || "showmenu";
    my $style  = $q->param ("style")  || "none";
    my $file   = $q->param ("file")   || "none";

    if ($action eq "showpage")
    {
        my $res = eval {ShowPage ($q, $style)};
        if ($@)
        {
            print $q->h1 ("Your xml has the following error: $@");
        }
        elsif (!$res)
        {
            print $q->h1 (qq/I don't know what xsl should be used for style:
"$style"/);
        }
    }
    elsif ($action eq "showfile")
    {
        eval {ShowFile ($q, $file)};
        if ($@)
        {
            print $q->h1 ("$@");
            ShowMenu;
        }
    }
    else
    {
        ShowMenu ($q);
    }
}


any ideas as to why?

TIA


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]