#!/usr/bin/perl -I/opt/SUNWstade/lib
require FCGI;
use Html;
use System;
System->set_home("/opt/stade22");


while (FCGI::accept() >= 0) {
   print "Content-type: text/html\n\n";

   $q = $ENV{QUERY_STRING};
   $user_agent = $ENV{HTTP_USER_AGENT} ;  #  storade_7654

   if (substr($q,0,9) eq "GET=INFO1") {
      print "test | test2 | test3 | test4 \n";

   } elsif (substr($q,0,15) eq "PUT=saveF&file=") {
      &log1("here");
      my $f  = substr($q,15);
      open(W, ">/opt/SUNWstade/DATA/$f");
      $len   = $ENV{CONTENT_LENGTH};
      $start = 0;
      my $post_data;
      while ($len > 0) {
          $re = read(STDIN, $post_data, $len);
          last if (!$re);
          $len -= $re;
          print W $post_data;
      }
      close(W);
      print "OK\n";

   } elsif (substr($q,0,15) eq "GET=FILER&file=") {
      my $f = substr($q,15);
      if (index($q, "..") >= 0) {
         print "Error\n";
         break;
      }
      open(O, "/opt/SUNWstade/DATA/$f");
      while ($l = <O>) {
         print $l;
      }
      close(O);
   }
}


sub log1 {
  my($l) = @_;
  open(R, ">>/tmp/xx"); print R "$l\n"; close(R);
}


# QUERY_STRING = PUT=saveF&file=test_save <br>
# SERVER_ADDR = 10.10.10.10 <br>
# CONTENT_TYPE = application/x-www-form-urlencoded <br>
# SERVER_PROTOCOL = HTTP/1.0 <br>
# SERVER_SIGNATURE = <ADDRESS>Apache/1.3.27 Server at 10.10.10.10 Port 8080</ADDRESS>
#  <br>
# REMOTE_PORT = 1110 <br>
# HTTP_USER_AGENT = storade_7654 <br>
# GATEWAY_INTERFACE = CGI/1.1 <br>
# HTTP_HOST = 10.10.10.10:8080 <br>
# SERVER_SOFTWARE = Apache/1.3.27 (Unix) mod_jk/1.1.0 mod_fastcgi/2.4.0 <br>
# SERVER_ADMIN = guest@linux <br>
# REMOTE_ADDR = 10.10.10.10 <br>
# SCRIPT_NAME = / <br>
# SERVER_NAME = 10.10.10.10 <br>
# DOCUMENT_ROOT = /opt/SUNWstade/htdocs <br>
# REQUEST_URI = /?PUT=saveF&file=test_save <br>
# FCGI_ROLE = RESPONDER <br>
# CONTENT_LENGTH = 683 <br>
# SCRIPT_FILENAME = /opt/SUNWstade/fcgi/xfer <br>
# REQUEST_METHOD = POST <br>
# PATH = /usr/local/bin:/bin:/usr/bin:/usr/X11R6/bin:/usr/share:/usr/bin:/sbin:/usr/sbin:/etc/bin:/usr/java/j2re/bin <br>
# SERVER_PORT = 8080 <br>
# 
