SuperStrict

Global host:String = "www.onkel-production.bplaced.net"
Global postVariable:String = "uploads/"
'Global filePath:String = RequestFile( "" )
Global length:Int = 8

Local Stream:TSocketStream = TSocketStream.CreateClient("www.onkel-production.bplaced.net",80)
Stream.WriteLine "POST PHPFileupload HTTP/1.1"
Stream.WriteLine "Host:" + host
Stream.WriteLine "User-Agent:BlitzMax"
Stream.WriteLine "Content-length: " + length
Stream.WriteLine ""
Stream.WriteLine "Content-Disposition: form-data; path="+Chr$(34)+postVariable+Chr$(34)

While Not Stream.Eof()  'besser ist es die Bytes abzufragen und dann selber per ReadByte zu lesen
       Print Stream.ReadLine()
Wend

<?php

   $path = $_POST[ "path" ];

   //if ( $_FILES["file"]["error"] > 0 )
   //{
   //   echo "ERROR!";
   //}
   //else
   //{
      if ( is_dir( $path ) )
      {
         //move_uploaded_file( $_FILES["file"]["tmp_name"], $path . $_FILES["file"]["name"] );
         echo "dir exist";
      }
      else
      {
         mkdir( $path );
         //move_uploaded_file( $_FILES["file"]["tmp_name"], "./" . $path . $_FILES["file"]["name"] );   
         echo "dir created " . $path;
      }
      
   //}
   
?>