CGI Trying to save file to computer rather then display it in browser

stuffy has asked for the wisdom of the Perl Monks concerning the following question:

I have what shlould be a simple script that I am writing for our intranet at work. I am Posting information, it processes it, then it is supposed to show the output on the screen. Instead I am getting a dialog box asking to save the file. I am unable to use CGI due to the fact that it is not loaded on the server, and I do not have enough room in my personal directory for a local copy with all the other stuff I have in there. Here is the part in question:

print "Content-type:test/html\n\n";
print "<HTML>\n";
print "<BODY>\n";
while (<INPUTFILE>) {
    if (/^(.*?)$tool_number(.*)$/{
           ($continue) =1;
    }

    if (/^(.*?)$end_tool(.*)$/ {
           ($continue) = 0;
    }
    if ($continue ==1){
       print "some stuff\n";
    }
}
[download]

I would include the rest of the code.....but I'm not a very good programmer, and It would get hacked to heck. Plus it is related to my work....gotta love those "created at work" clauses.

Comment on CGI Trying to save file to computer rather then display it in browser Download Code

Replies are listed 'Best First'.
Re: CGI Trying to save file to computer rather then display it in browser by olly (Scribe) on Apr 29, 2001 at 13:43 UTC
I am always a bit puzzled by the reasons m scripts are offered for download all of a sudden, but I maybe it has something to do with the content-type which you have set to test/html. I have never seen it before. Could it be the correct line should be `print "Content-type: text/html\n\n";` Just a guess. Imagination is more important then knowledge -Einstein-	[reply] [d/l]
Re: Re: CGI Trying to save file to computer rather then display it in browser by virtualsue (Vicar) on Apr 29, 2001 at 14:26 UTC
I am always a bit puzzled by the reasons m scripts are offered for download all of a sudden, but I maybe it has something to do with the content-type which you have set to test/html. I have never seen it before. Could it be the correct line should be print "Content-type: text/html\n\n"; This error might have been avoided by using CGI.pm like so: `#/usr/local/bin/perl -wT use strict; use CGI qw(:standard); print header, start_html(-title=>'My Neat Program'), print end_html;` [download] The header shortcut by default spits out "Content-type: text/plain"	[reply] [d/l]
Re: Re: Re: CGI Trying to save file to computer rather then display it in browser by Trimbach (Curate) on Apr 29, 2001 at 18:40 UTC
The header shortcut by default spits out "Content-type: text/plain" No, actually "print header" in CGI.pm spits out "Content-type: text/html." You can get CGI to produce text/plain if you want (or any other MIME type for that matter) but text/html is the default. Gary Blackburn Trained Killer	[reply]
Re: Re: Re: Re: CGI Trying to save file to computer rather then display it in browser by virtualsue (Vicar) on Apr 29, 2001 at 22:15 UTC
Re: Re: CGI Trying to save file to computer rather then display it in browser by stuffy (Monk) on Apr 29, 2001 at 14:16 UTC
Talk about feeling stupid. Maybe I should find a good editor to proof my scripts. Thanks alot. I looked it over and over, but I couldn't see that. Kind-a like the real part of my job, (the scripting thing is extra)sometimes it takes another set of eyes.	[reply]
Re: CGI Trying to save file to computer rather then display it in browser by eejack (Hermit) on Apr 30, 2001 at 03:35 UTC
This may sound like a goofy point, but I usually cut and paste very common boilerplate bits like this because of my constant fat finger errors. The two that always seem to bite me `#! /usr/bin/perl` works fine on the command line 'cause usually I am calling `perl somescript.cgi` but blows up in the browser. Drives ya nuts until you find the space between the shebang and the first / The other one...saving files in PC format (see lots of control M) instead of unix format whilst working across platforms. One of these days instead of spell checker I will have to work on a goofy going to cost you fifteen minutes of hair pulling time checker. EEjack	[reply] [d/l] [select]


Keep It Simple, Stupid
	PerlMonks