home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / INTERNET / USENET / PAPERBOY / SOURCE.ZIP / POST.C < prev    next >
Encoding:
C/C++ Source or Header  |  1994-10-02  |  5.2 KB  |  206 lines
  1. /*      post.c -- mechanisms for posting mail/news
  2.     This file is part of Paperboy, an offline mail/newsreader for Windows
  3.     Copyright (C) 1994  Michael H. Vartanian
  4.         vart@clark.net
  5.  
  6.     This program is free software; you can redistribute it and/or modify
  7.     it under the terms of the GNU General Public License as published by
  8.     the Free Software Foundation; either version 2 of the License, or
  9.     (at your option) any later version.
  10.  
  11.     This program is distributed in the hope that it will be useful,
  12.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  13.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14.     GNU General Public License for more details.
  15.  
  16.     You should have received a copy of the GNU General Public License
  17.     along with this program; if not, write to the Free Software
  18.     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  19. */
  20. #include <stdio.h>
  21. #include <string.h>
  22. #include <time.h>
  23. #include <stdlib.h>
  24. #include <ctype.h>
  25. /*
  26. #include <direct.h>
  27. */
  28. #include <sys\types.h>
  29. #include <sys\timeb.h>
  30. #include "soup.h"
  31. #include "error.h"
  32. #include "areas.h"
  33. #include "msgs.h"
  34.  
  35. static char datebuf[128];
  36.  
  37. char *  DLLFUNC UnixDate (void)
  38. {
  39.     time_t ltime;
  40.     struct tm *gmt;
  41.  
  42.     /* Get UNIX-style time and display as number and string. */
  43.     time( <ime );
  44.     
  45.     gmt = gmtime( <ime );
  46.     
  47.     
  48.     /* strftime (datebuf, 128, "%a, %d %b %y %H:%M:%D GMT", gmt); */
  49.     
  50.     return datebuf;
  51. }
  52.  
  53. int DLLFUNC SaveMsgToFolder (char * fname)
  54. {
  55.     FILE * fout;
  56.     unsigned long startlength, startpos, endpos, length;
  57.     int n,result;
  58.     unsigned char c;
  59.  
  60.     assert(fname!=NULL);
  61.  
  62.     fout=fopen(fname,"ab"); /* Append to file */
  63.     if (fout==NULL) return ERRIO;
  64.     result=fseek(fout,0,SEEK_END);  /* Goto EOF, just to be sure */
  65.     if (result) return ERRIO;
  66.  
  67.     startlength=ftell(fout);
  68.     fputc(0xFA,fout);       /* Write dummy length */
  69.     fputc(0xCE,fout);
  70.     fputc(0xDE,fout);
  71.     fputc(0xAD,fout);
  72.  
  73.     startpos=ftell(fout);
  74.     for (n=1; n<=GetNumLines(); n++)
  75.     {
  76.         fprintf(fout,"%s",GetLine(n));
  77.         fputc(LFCHAR,fout);     /* Add LF */
  78.     }
  79.     result=fseek(fout,0,SEEK_END);  /* Goto EOF, just to be sure */
  80.     if (result) return ERRIO;
  81.     endpos=ftell(fout);
  82.     result=fclose(fout);
  83.     if (result) return ERRIO;
  84.  
  85.     length=endpos-startpos; /* Calculate length of message */
  86.     
  87.     /* Write new length */
  88.     assert(length>0);
  89.     fout=fopen(fname,"r+b");        /* Random access mode */
  90.     if (fout==NULL) return ERRIO;
  91.  
  92.     result=fseek(fout,0,SEEK_SET);  /* rewind */
  93.     if (result) return ERRIO;
  94.     
  95.     result=fseek(fout,startlength,SEEK_SET);
  96.     if (result) return ERRIO;
  97.     
  98.     c=(unsigned char)(length >> 24);
  99.     fputc(c,fout);
  100.     c=(unsigned char)(length >> 16);
  101.     fputc(c,fout);
  102.     c=(unsigned char)(length >> 8);
  103.     fputc(c,fout);
  104.     c=(unsigned char)(length >> 0);
  105.     fputc(c,fout);
  106.     result=fclose(fout);
  107.     if (result==EOF) return ERRIO;
  108.     return 0;
  109. }
  110.  
  111. int DLLFUNC Post (char * fname,  int type)
  112. /* fname should be FNAME.MSG */
  113. {
  114.     FILE * fin, * fout;
  115.     int result;
  116.     unsigned long length;
  117.     unsigned long startpos;
  118.     unsigned char c;
  119.     char basefilename[_MAX_FNAME];
  120.     
  121.     /* Rename fname to TMPFILE, recopy onto fname sans CR */
  122.  
  123.     assert (fname!=NULL);
  124.     assert (type==POSTMAIL || type==POSTNEWS);
  125.  
  126.     result=rename(fname,TMPFILE);
  127.     if (result!=0) return ERRIO;
  128.  
  129.     fin=fopen(TMPFILE,"rb");
  130.     if (fin==NULL) return ERRIO;
  131.  
  132.     fout=fopen(fname,"wb"); 
  133.     if (fout==NULL) return ERRIO;
  134.  
  135.     fseek(fout,0,SEEK_END); /* Go to EOF and remember position */
  136.     startpos=ftell(fout);
  137.  
  138.     fputc(00,fout); /* Temporary write 0x00000000 as length */
  139.     fputc(00,fout);
  140.     fputc(00,fout);
  141.     fputc(00,fout);
  142.  
  143.     /* Put in decorative headers */
  144.     if (type==POSTMAIL) 
  145.         fprintf(fout,"X-Mailer: Paperboy Version 2.00 (%s)",fname);
  146.     if (type==POSTNEWS) 
  147.         fprintf(fout,"X-Newsreader: Paperboy Version 2.00 (%s)",fname);
  148.     fputc(LFCHAR,fout);
  149.  
  150.     /* Recopy file, stripping Carriage-return characters for Unix */
  151.     while (!feof(fin))
  152.     {
  153.         result=getc(fin);
  154.         if (result!=CRCHAR && result!=EOF) fputc(result,fout);
  155.     }
  156.  
  157.     fclose(fin);
  158.     remove(TMPFILE);                /* Nuke the temporary file */
  159.     length=ftell(fout)-4;   /* Correct for four length bytes at beginning */
  160.  
  161.     /* Write new length */
  162.     assert(length>0);
  163.     fseek(fout,startpos,SEEK_SET);
  164.     c=(unsigned char)(length  / (256L*256L*256L));
  165.     fputc(c,fout);
  166.     c=(unsigned char)(length / (256L*256L));
  167.     fputc(c,fout);
  168.     c=(unsigned char)(length / 256L);
  169.     fputc(c,fout);
  170.     c=(unsigned char)length;
  171.     fputc(c,fout);
  172.  
  173.     fclose(fout);
  174.  
  175.     /* Append to REPLIES */
  176.     fout=fopen(REPLYFILE,"ab");
  177.     
  178.     _splitpath(fname,NULL,NULL,basefilename,NULL);
  179.     /* Strip off directory and .MSG to make a prefix */
  180.     
  181.     fprintf(fout,"%s\t",basefilename);
  182.     if (type==POSTMAIL)
  183.         fprintf(fout,"mail\tBn");
  184.     if (type==POSTNEWS)
  185.         fprintf(fout,"news\tbn");
  186.     fputc(LFCHAR,fout);
  187.  
  188.     fclose (fout);
  189. }
  190.  
  191. char * DLLFUNC GetGMTime (void)
  192. {
  193. static char timebuf[40];
  194. struct tm * now;
  195. time_t zulu;
  196.     
  197.     time(&zulu);
  198.     now=gmtime(&zulu);
  199.     
  200.     wsprintf (timebuf,"%s, %d %s %04d %02d:%02d:%02d GMT",
  201.         dayofweek[now->tm_wday], now->tm_mday, months[now->tm_mon], now->tm_year+1900,
  202.         now->tm_hour, now->tm_min, now->tm_sec);
  203.         
  204.     return timebuf;
  205. }
  206.