Re: cgi script for dos2unix and unix2dos

["Nicholas J. Leon" <nicholas@binary9.net>]

On Sun, 16 Aug 1998, Paul Miller wrote:

 # On Sat, 15 Aug 1998, John wrote:
 # 
 # > If nobody else wants to do this, I will.  Except users will have to upload
 # > the text (i have a lame java applet that lets you upload from your
 # > browser) then it would Have the switches and a Okay button. I see no need
 # > for password though.  If you want it password protected just stick a
 # > .htaccess file in the base dir.
 # 
 # Cool.  So you can make the whole program in java, without running
 # additional programs?
 # 
 # No one else has responded so far.  I'd really appreciate it if you could
 # make the program.

How bout the attached one. You can also check it out at:
	http://neko.binary9.net/~nicholas/convert.cgi

It seems the MSIE has a problem honoring the Content-type header. Under
it, the SAVE AS dialog box wont appear in the unix -> dos direction :(

 # 
 # Thank you,
 # Paul
 # 

G'day!

-----------------------------------------------------------------------------
 Nicholas J. Leon                              "Elegance Through Simplicity"
  nicholas@binary9.net -                        - http://mrnick.binary9.net

   		   8 4 9 1 7 3 <-- what is the pattern?

#!/usr/bin/perl

use strict;
use CGI;

##############################################################################

my $self=new CGI;


### our state is based on whether we have access to some variables
if (defined($self->param('xfile')) && defined($self->param('DIRECTION'))) {
	my $file=$self->param('xfile');
	my $tounix=($self->param('DIRECTION') eq 'DOS to Unix');
	my $short=$1 if $file=~/([_\-\d\.\w]+)$/;

	$short||="unknown.txt";

	print "Content-type: application/octet-stream\n";
	print "Content-Disposition: inline; filename=$short\n\n";

	while ($_=<$file>) {
		chomp;
		print;

		if ($tounix) {
			print "\n";
		}
		else {
			print "\r\n";
		}
	}

	exit;
}
else {
	### just display a form
	print $self->header;
	print $self->start_html(-title => 'DOS/Unix conversion',
							);

	print $self->start_multipart_form(-method=> 'POST', -action=>$self->url );

	print "File to convert: ".$self->filefield(-name => 'xfile',
											   )."<br>\n";
	print "Direction: ".$self->popup_menu(-name => 'DIRECTION',
										 -values => [ 'DOS to Unix', 'Unix to DOS' ],
										 )."<p>\n";
	print $self->submit;
	print $self->endform;
	print $self->end_html;
	exit;
}