Re: |O:T| Can anyone translate for me this Perl code into PHP?

Hi Maxim, > It is simple, I can see it, but I do not understand what is that RegEx for, > what is $pid ( fork() ) and where does it actually send emails... right... you look like Blair and Clinton saying the Human Genome has been 'completely' discovered. Simple, but.... ## the first part is not needed in PHP, untile the ###### line > #!/usr/bin/perl > > read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); > @pairs = split(/&/, $buffer); > foreach $pair (@pairs) { > ($name, $value) = split(/=/, $pair); Until here he reads in the URL variables into the array $pair. I know the famous formmail from Matts' script archive (free and translated to php somewhere) has a good routine to read either GET or POST variables. Check the formmail.php to see if that part is translated to php. > $value =~ tr/+/ /; change plus to space. If you use a form with the GET method the variables are put in this line in the URL (path/file.php?var1=words&var2=123&var3=a good day) But var3 has spaces between the words so the browser usually replaces the spaces in a form element with %20 but sometimes (old browsers? at altavista you could see it, maybe still) the space was changed to a plus. So this is just changing the value back. > $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; So if the space was turned into %20 change it back to a space. And same for other characters that were safely changed to a %00 to %FF code in the URL (tabs, new lines etc) using some mystery pack function. The equivalent of this line in PHP is urldecode($value); (see php manual) It looks like this is specially for the way you have to deal with this in CGI. > if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$value; } > else { $INPUT{$name} = $value; } > } ########################## Everything up till here is NOT NECESSARY IN PHP! PHP has some built-in functionality making form handling a lot simpler. If you use a form, give every elemant a name. Use method=POST and all names are available in the called php page as $name. (For arrays look at this newslist archives). No need for translations of variable values. > $pid = fork(); I've seen the question on this mailing list more often from previous perl programmes: 'how can i fork.' and it seemed as if they meant to call another function and have two functions run simultaneously. I'ld say, ignore it. Just make sure you don't overload the server with too many emails at once, if you syuspect that build in a break after sending one mail, i think function pause() does that. Many PHPeople use qmail, don't know why. > print "Content-type: text/html \n\n fork failed: $!" unless defined $pid; Apparently when you call fork the message has to split up in several simultaneous runs and the print line is only read when that fails. Ignore it, it seems not necessary for PHP and sendmail. > if ($pid) { > > ... bla bla bla > > } > else { > > close (STDOUT); Finally the Perl script is finished woth the variables. Praise PHP! > open(LIST,"$INPUT{'address_file'}"); > @addresses=<LIST>; > close(LIST); here he reads in a list of adresses form a file defined in the form in a field called address_file. Check the PHP manual for reading in lines from files like this. > foreach $line(@addresses) { for every email address he found > chomp($line); probably trim() the read line to remove spaces. Perl tends to be anarchistic in choosing function names. > open(MAIL, "|$INPUT{'mail_prog'} -t") || &error("Could not send > out > print MAIL "\n\n"; > close (MAIL); The part between open and close (MAIL) do the mailing. In the open line you see he checks which email program to use. In PHP in stead of print MAIL.= use $message.= First complete the $message then use sendmail() instead. for this: > if ($INPUT{'html'}) { use if isset($html) >maxim.maletsky@japaninc.net shit have i been working for an inc? Damn. That'll be $FF (hex) then please! 8-P Chris -------------------------------------------------------------------- -- C.Hayes Droevendaal 35 6708 PB Wageningen the Netherlands -- --------------------------------------------------------------------