Prevod kodu z Perlu do C

Kotěšovec Zdeněk Zdenek.Kotesovec na Pilsner-Urquell.cz
Pátek Červen 25 14:35:21 CEST 1999


Dobry den!

Původní kod v Perlu:
> $subject = 'Testovaci zprava';
> $adresa = 'almara na almara.cz';
> $from = almara na almara.cz;
> 
> $progsend = '/usr/lib/sendmail';
> 
> open (MAIL, "|$progsend -t -oQ/tmp");
> print MAIL "To: $adresa \n";
> print MAIL "From: $from \n";
> print MAIL "Subject: $subject \n";
> print MAIL "Toto je prvni radek testovaci zpravy\n";
> close (MAIL);
> 
Do Cecka bych to prepsal takhle:
#define DELKA_RETEZCE 255
#define mailer "/usr/lib/sendmail"

/* 
 * posli_mail - funkce odesle mail zadanemu uzivateli 
 * vraci: 0              - uspesne odeslani mailu 
 *        cokoliv jineho - chyba pri odesilani mailu 
 */
int posli_mail(char uzivatel[]){
  FILE *fpipe;
  char mail_prg[DELKA_RETEZCE];
  int navrat_kod;
  
  strcpy(mail_prg, mailer);
  strcat(mail_prg, " ");
  strcat(mail_prg, uzivatel);
  if ( (fpipe=popen(mail_prg, "w")) == NULL)
    return -1;
  fprintf(fpipe, "To: %s\n", uzivatel);
  fprintf(fpipe, "Subject: *** Text subjectu ***\n");
  fprintf(fpipe, "*** Text mailu ***\n");
  fprintf(fpipe, "*** Text mailu ***\n");
  fprintf(fpipe, "\n.");
  if ( (navrat_kod=fclose(fpipe)) == -1)
    return -1;
  return navrat_kod;
}  
				S pozdravem
					Zdenek Kotesovec


Další informace o konferenci Linux