   printf (   "<FORM   ACTION=\"http://%s:%s%s\">%c"
          , getenv("SERVER_NAME")
          , getenv("SERVER_PORT")
          , getenv("SCRIPT_NAME")
          , LF );



   char  tfile[L_tmpnam];
   FILE*  tfp ;

   tmpnam ( tfile );
   if (!(tfp=fopen(tfile,"w")))  {
      printf (   "<TITLE>Server Error</TITLE>%c"  , LF );
      printf (   "<H1>Server Error</H1>%c"  , LF );
      printf (   "Server unable to get a temporary file. Please try again later.<P>%c"  , LF );
      exit ( 1 );
   }



   FILE*  order ;
   char  t[256];
   sprintf ( t ,   "/bin/mail %s"  , JJ_FAX );
   if (!(order=popen(t,"w")))
      print_error (   "the server was unable to open a pipe to mail"   );
