/*** (c) 1992 Uwe C. Schroeder, Anwendungssysteme , Augsburg, Germany**** ** Permission to use, copy, and modify this software and its** documentation for non comercial  purpose is hereby granted ** without fee, provided that** the above copyright notice appear in all copies and that both that** copyright notice and this permission notice appear in supporting** documentation, and that the name of Uwe C. Schroeder not be used in** advertising or publicity pertaining to distribution of the software without** specific, written prior permission.  Uwe Schroeder makes no representations** about the suitability of this software for any purpose.  It is provided** "as is" without express or implied warranty.** This software may not be sold or distributed with commercial products** ( this includes distribution "for users convenience" ) without prior** written permission by the author.**** UWE SCHROEDER DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,** INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO** EVENT SHALL UWE SCHROEDER BE LIABLE FOR ANY SPECIAL, INDIRECT OR** CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,** DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER** TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR** PERFORMANCE OF THIS SOFTWARE.****** This is a alpha release, which means, that there are still several** known bugs.**** Please report bugs to:****                     usys@phoenix.abg.sub.org***/#include <stdio.h>#include <sys/types.h>#include <fcntl.h>#include <unistd.h>#include "vfax.h"extern int fd;send_file(f)     FILE *f;{  unsigned char fch[512];  int sbytes=0, wbytes=0, ret = -1;  while(!feof(f))    {      if((sbytes=fread(&fch,sizeof(unsigned char),512,f)) > 0)	{	  if(write(fd,&fch,sbytes)< 0)	    {	      logto(0,"FATAL: write failed!");	      fclose(f);	      return(-1);	    }	  else	    {	      wbytes +=sbytes;	    }	}      else	{	  logto(0,"fread failed !");	}    }  fclose(f);  logto(1,"END: wrote %d bytes\n",wbytes);  drop_rts();  if((ret=get_fax_disconnect())==0)    logto(1,"Transmission OK");  else    logto(0,"Transmission FAILED !");  rise_rts();  return ret;}