home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / mail / elm / 3762 < prev    next >
Encoding:
Text File  |  1992-12-16  |  4.4 KB  |  103 lines
  1. Path: sparky!uunet!cs.utexas.edu!torn!nott!cunews!revcan!Semi.Mitel.com!sullivan
  2. From: sullivan@Semi.Mitel.COM (Mike Sullivan)
  3. Newsgroups: comp.mail.elm
  4. Subject: Re: converting VMS MAIL folder to elm
  5. Message-ID: <13727@einstein>
  6. Date: 15 Dec 92 17:27:29 GMT
  7. References: <johnson.3.724125554@kelvin.jpl.nasa.gov> <12DEC199200223994@spades.aces.com>
  8. Organization: Mitel. Kanata (Ontario). Canada.
  9. Lines: 92
  10.  
  11. In article <johnson.3.724125554@kelvin.jpl.nasa.gov>, johnson@kelvin.jpl.nasa.gov (Glenn Johnson) writes...
  12. # 
  13. #Is there a way to convert VMS MAIL folders to elm format?
  14. #(Preserving the dates and original sender etc.)
  15.  
  16.  
  17. We whipped up a little shell/awk script and brute forced it. I didn't
  18. write it, but here it is....
  19.  
  20. *** QUICK HACK ALERT - BUGS POSSIBLE ***
  21. --------cut here--------------
  22. #! /bin/sh
  23. for i in $*
  24. do
  25.     gawk '
  26.             BEGIN { FS = " " }                                 
  27.                   {                                                  
  28.                    if ( $1 == "\f" )                                 
  29.                       { record = NR+1 }                              
  30.                    if ( (NR == record) && ($1 == "From:") )          
  31.                       { printf( "\nFrom ")                          
  32.                        if ( (substr($2,5,2)) == "::" |(substr($2,5,1)) == "%" )    
  33.                             { Mon = substr($(NF-1),4,3) 
  34.                               Day = substr($(NF-1),1,2)
  35.                               Year = substr($(NF-1),8,4)
  36.                               Time = substr($NF,1,8)
  37.                               printf("%s", substr($2,7,length($2)))
  38.                             if ( length($(NF-1)) == "10" ) 
  39.                              {Mon = substr($(NF-1),3,3)
  40.                               Day = substr($(NF-1),1,1)
  41.                               Year = substr($(NF-1),7,4)}   
  42.                          if (Mon == "JAN")
  43.                             {Mon = "Jan"}  
  44.                          if (Mon == "FEB")
  45.                             {Mon = "Feb"}  
  46.                          if (Mon == "MAR")
  47.                             {Mon = "Mar"}  
  48.                          if (Mon == "APR")
  49.                             {Mon = "Apr"}  
  50.                          if (Mon == "MAY")
  51.                             {Mon = "May"}  
  52.                          if (Mon == "JUN")
  53.                             {Mon = "Jun"}  
  54.                          if (Mon == "JUL")
  55.                             {Mon = "Jul"}  
  56.                          if (Mon == "AUG")
  57.                             {Mon = "Aug"}  
  58.                          if (Mon == "SEP")
  59.                             {Mon = "Sep"}  
  60.                          if (Mon == "OCT")
  61.                             {Mon = "Oct"}  
  62.                          if (Mon == "NOV")
  63.                             {Mon = "Nov"}  
  64.                          if (Mon == "DEC")
  65.                             {Mon = "Dec"}  
  66.                         printf(" Mon %s %s %s %s\n", Mon, Day, Time, Year ) 
  67.                         } 
  68.                        if ((NR == record) && (NF == "7"))
  69.                           {
  70.                             for (i = 2; i<(NF+1); i++)
  71.                              {printf("%s ", $i)}
  72.                             printf("\n")
  73.                           }
  74.                        }  
  75.                        if ( NR == record && $1 != "From:")              
  76.                         {printf("\n\f"); print $0  }    
  77.                        if ( NR <= record+3 && $1 == "Subj:" ) 
  78.                          {
  79.                           srecord = NR
  80.                           printf("Subject: ")
  81.                             for (i = 2; i<(NF+1); i++)
  82.                                  { printf("%s ", $i) }
  83.                           printf("\n")
  84.                          }             
  85.                        if ( NR != record && $1 != "\f" && NR != srecord)                 
  86.                         {print $0 }                                  
  87.                   }                     
  88.     ' < $i > ~/newdir/$i
  89. done
  90. --------cut here--------------
  91.  
  92. Save in a file called convmail, and then allow it to be executed with
  93. the command "chmod 755 convmail". Then just type "convmail *" and away
  94. it goes, putting the new files in "newdir".
  95.  
  96.  
  97. -- Mike Sullivan --                  -- Information Technology Group --
  98. Fax: (613)592-4784                        Voice: (613)592-2122 Ext.3570
  99. Mike_Sullivan@Mitel.COM       Mitel Corporation, Semiconductor Division
  100. Effective use of available technology for better information management
  101.  
  102.  
  103.