Changeset 6958 in genesis


Ignore:
Timestamp:
Jun 10, 2009, 8:55:21 PM (16 years ago)
Author:
rick
Message:

Made output buffered, allowing Content-Header to be set correctly, fixing warnings/complains of curl/fetch.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • TabularUnified tools/FreeBSD7_x/g_list.pl

    r6664 r6958  
    1212
    1313my $HTML=1;
     14my @HTTP_BODY = ();
    1415
    1516#laden van tool file
     
    1920#programma gestopt kan worden
    2021sub printline {
    21   print "$_[0] \n";
     22  push(@HTTP_BODY,  "$_[0] \n");
    2223};
    2324
     
    2526  foreach $file ( sort @filelist) {
    2627    if( $HTML) {
    27       print "$file<BR>\n";
     28      printline("$file<BR>");
    2829    }
    2930    else {
    30       print "$file\n";
     31      printline($file);
    3132    };
    3233  };
     
    5354  foreach $node (listnodes( )) {
    5455    if( $HTML) {
    55       print "$node<BR>\n";
     56      printline("$node<BR>");
    5657    }
    5758    else {
    58       print "$node\n";
     59      printline("$node\n");
    5960    };
    6061  };
     
    7980if( $browser=~/curl|wget|fetch/i) {
    8081  $HTML=0;
    81   printline("Content-type: text/html\n\n");
    8282}
    8383else {
    8484  $HTML=1;
    85   printline("Content-type: text/html\n\n");
    8685  printline("<HTML>");
    8786  printline("<TITLE>Genesis $title</TITLE>");
     
    131130#plaats de sluit HTML tags
    132131if( $HTML) {
    133   print <<EOF;
    134 </BODY>
    135 </HTML>
    136 EOF
    137 }
     132  printline("</BODY></HTML>");
     133}
     134
     135$output = join('',@HTTP_BODY);
     136print "Content-Length: " . length($output) . " \n";
     137print "Content-type: text/html\n\n";
     138print $output;
    138139
    139140
     
    161162    my $node = $dir;
    162163    if( ! $HTML ) {
    163       print "$node\n";
     164      printline("$node");
    164165    }
    165166    else {
     
    268269
    269270   if( $main) {
    270      printf "<TR bgcolor=$color><TD ROWSPAN=%d VALIGN=TOP><B>$if</TD>\n",(1+$subs{$if})*3,$subs{$if};
     271     printline("<TR bgcolor=$color><TD ROWSPAN=%d VALIGN=TOP><B>$if</TD>\n",(1+$subs{$if})*3,$subs{$if});
    271272     $c=4;
    272273   }
    273274   else {
    274275     $c=3;
    275      print "<TR bgcolor=$color>";
     276     printline("<TR bgcolor=$color>");
    276277   };
    277278   $cfg=~s/</&lt;/gi;
     
    322323    printline("<PRE>$pr</PRE>");
    323324  }
    324   else {
    325     print $pr;
    326   };
    327 };
     325
     326  $output = join('',@HTTP_BODY);
     327  print "Content-Length: " . length($output) . " \n";
     328  print "Content-type: text/html\n\n";
     329  print $output;
     330};
Note: See TracChangeset for help on using the changeset viewer.