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