Thread: [pastebot-cvs] pastebot/Server Web.pm,1.3,1.4
Status: Beta
Brought to you by:
rcaputo
From: <rc...@us...> - 2002-06-08 18:16:50
|
Update of /cvsroot/pastebot/pastebot/Server In directory usw-pr-cvs1:/tmp/cvs-serv19517/Server Modified Files: Web.pm Log Message: Added an option to render pasted text as text/plain without any adornments. This will let people fetch things like diffs with wget, and they should appear without whitespace munging that many browsers perpetrate during copy and paste. Index: Web.pm =================================================================== RCS file: /cvsroot/pastebot/pastebot/Server/Web.pm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Web.pm 21 May 2002 13:10:03 -0000 1.3 --- Web.pm 8 Jun 2002 18:16:47 -0000 1.4 *************** *** 236,265 **** ### Make the paste pretty. ! my $ln = $query->{ln}; ! $ln = 0 unless $ln; ! ! my $tidy = $query->{tidy}; ! $tidy = 0 unless $tidy; ! ! my $hl = $query->{hl}; ! $hl = 0 unless $hl; ! my $paste = fix_paste($paste, $ln, $tidy, $hl); # Spew the paste. ! my $response = ! static_response( "templates/paste-lookup.html", ! { bot_name => $heap->{my_name}, ! paste_id => $num, ! nick => $nick, ! summary => $summary, ! paste => $paste, ! footer => PAGE_FOOTER, ! tidy => ( $tidy ? "checked" : "" ), ! hl => ( $hl ? "checked" : "" ), ! ln => ( $ln ? "checked" : "" ), ! } ! ); $heap->{wheel}->put( $response ); --- 236,270 ---- ### Make the paste pretty. ! my $ln = is_true($query->{ln}); ! my $tidy = is_true($query->{tidy}); ! my $hl = is_true($query->{hl}); ! my $tx = is_true($query->{tx}); ! $paste = fix_paste($paste, $ln, $tidy, $hl) unless $tx; # Spew the paste. ! my $response; ! if ($tx) { ! $response = HTTP::Response->new(200); ! $response->push_header( 'Content-type', 'text/plain' ); ! $response->content($paste); ! } ! else { ! $response = static_response ! ( "templates/paste-lookup.html", ! { bot_name => $heap->{my_name}, ! paste_id => $num, ! nick => $nick, ! summary => $summary, ! paste => $paste, ! footer => PAGE_FOOTER, ! tidy => ( $tidy ? "checked" : "" ), ! hl => ( $hl ? "checked" : "" ), ! ln => ( $ln ? "checked" : "" ), ! tx => ( $tx ? "checked" : "" ), ! } ! ); ! } $heap->{wheel}->put( $response ); *************** *** 427,435 **** if ($tidied) { my $tidied = ""; ! Perl::Tidy::perltidy ! ( source => \$paste, ! destination => \$tidied, ! argv => [ '-q', '-nanl', '-fnl' ], ! ); $paste = $tidied; } --- 432,442 ---- if ($tidied) { my $tidied = ""; ! eval { ! Perl::Tidy::perltidy ! ( source => \$paste, ! destination => \$tidied, ! argv => [ '-q', '-nanl', '-fnl' ], ! ); ! }; $paste = $tidied; } |