1 files changed, 50 insertions, 0 deletions
diff --git a/misc/email/estripa-emails.c b/misc/email/estripa-emails.c
new file mode 100755
index 0000000..66c5473
--- /dev/null
+++ b/misc/email/estripa-emails.c
@@ -0,0 +1,50 @@
+/* 
+ * Copyleft 2003:
+ *  
+ * Esse software é distribuído através da licença URUBU:
+ * você só pode fazer um número de cópias cuja paridade
+ * seja a mesma do dia do mês que você se encontra;
+ * modificações são permitidas em qualquer dia da semana;
+ *                         
+ * estripa.c
+ * rhatto@riseup.net
+ *
+ */
+
+#include <stdio.h>
+
+main(int argc, char *argv[]) {
+
+  FILE *fp1, *fp2;
+  char letra;
+  short flag = 0;
+
+  if(argc != 3) { fprintf(stderr, "sintaxe: estripa <origem> <destino>\n"); return 0; }
+
+  fp1 = fopen(argv[1], "rb");
+  fp2 = fopen(argv[2], "wb");
+
+  if(fp1 == (FILE *)0 || fp2 == (FILE *)0) {
+
+    fprintf(stderr, "erro ao abrir arquivo\n");
+    exit(1);
+
+  }
+
+  while((letra = getc(fp1)) != EOF) {
+    
+    if(letra == '<') { flag = 1; }
+    else if(flag && (letra == '>')) { flag = 0; fprintf(fp2, ", "); }
+    
+    if(flag && (letra != '<')) { putc(letra, fp2); }
+    
+  }
+
+  fprintf(fp2, "\n");
+
+  fclose(fp1);
+  fclose(fp2);
+
+  return 0;
+
+}