Re: catching newlines from textarea input

And, care to show us what the input is from the textarea, or do you believe we are omniscient?

Because, if the first regex does eat all the newlines, it's a bug in Perl.

Abigail

Comment on Re: catching newlines from textarea input

Replies are listed 'Best First'.
Re: Re: catching newlines from textarea input by maksl (Pilgrim) on Feb 28, 2003 at 12:31 UTC
you are right abigail-II: in my little following test sript, using input from textearea, the regex definetly works correctly as above. don't know what damm happens in my cms, have to look deeper in it's lines. #!/usr/bin/perl -w use strict; use CGI; my $query = new CGI; my $text = cleanup_txt( $query->param( 'text' )); if ( $text eq "") { cast_form(); } else { print "Content-type:text/html\n\n"; print ubb_txt( $text); } sub cleanup_txt { my $str = $_[0]; return "" unless ( defined $str ); $str =~ s/[<>"'&\|]//gs; return $str; } sub cast_form { print "Content-type:text/html\n\n"; print "<html><head><title>test textearea</title></head>"; print "<body>\n<form method=post action=\cgi-bin/"; print "/red/test.pl\"><textarea rows=\"5\" cols=\"55\" name="; print "\"text\"></textarea><br><input type=\"submit\""; print " value='Submit' name=submit\" value='Submit' name="; print "\"submit\"></form></body></html>"; } sub ubb_txt { my $txt = shift; return "" unless ( defined $txt); my ($nl) = $txt =~ m{(\cM?\cJ)}; $txt =~ s{$nl$nl}{</p><p>}gs if (defined $nl); $txt =~ s{$nl}{<br>}gs if (defined $nl); return $txt; } [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: catching newlines from textarea input
by maksl (Pilgrim) on Feb 28, 2003 at 12:31 UTC

abigail-II

#!/usr/bin/perl -w

use strict;
use CGI;
my $query = new CGI;
my $text        =       cleanup_txt( $query->param( 'text' ));

if ( $text eq "") {
        cast_form();
} else {
        print "Content-type:text/html\n\n";
        print ubb_txt( $text);
}



sub cleanup_txt {
        my $str = $_[0];

        return "" unless ( defined $str );
        $str =~ s/[<>"'&|]//gs;
        return $str;
}
sub cast_form {
        print "Content-type:text/html\n\n";
        print "<html><head><title>test textearea</title></head>";
        print "<body>\n<form method=post action=\cgi-bin/";
        print "/red/test.pl\"><textarea rows=\"5\" cols=\"55\" name=";
        print "\"text\"></textarea><br><input type=\"submit\"";
        print " value='Submit' name=submit\" value='Submit' name=";
        print "\"submit\"></form></body></html>";
}

sub ubb_txt {
        my $txt = shift;

        return "" unless ( defined $txt);
        my ($nl) = $txt =~ m{(\cM?\cJ)};
        $txt =~ s{$nl$nl}{</p><p>}gs if (defined $nl);
        $txt =~ s{$nl}{<br>}gs if (defined $nl);
        return $txt;

}
[download]

[reply]
[d/l]