Active Members Fi8sVrs Posted September 6, 2015 Active Members Report Posted September 6, 2015 #!/usr/bin/perl -I/usr/local/bandminif ($ENV{'REQUEST_METHOD'} eq 'POST') {read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});} else {$buffer = $ENV{'QUERY_STRING'};} @pairs) {($name, $value) = split(/=/, $pair);$name =~ tr/+/ /;$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;$value =~ tr/+/ /;$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;$in{$name} = $value;}print "Content-type: text/html\n\n";print '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Language" content="en-us" /><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /><title>Prv8 Mailer v1.0 </title><style type="text/css"><!--.Style1 { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9px;}.Style3 {font-family: Verdana, Arial, Helvetica, sans-serif}.Style5 {font-size: 9px}.Style14 {font-size: 9px; font-weight: bold; }.Style15 {font-size: 10px; font-weight: bold; }--></style><body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><p class="Style5"></p><span class="Style5"><style type="text/css">td { font-family:verdana; color:#04B404; font-size:10px;}</style></head><body><form method="post" class="Style5"><table width="100%" height="658" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#04B404"><tr><td height="40" colspan="2" align="center" bgcolor="#000000" class="Style3"><p align="center" class="Style15"><font size="5" face="Segoe Print">Prv8 Mailer v1.0<font></p> </td></tr><tr><td width="25%" align="center" bgcolor="#000000" class="Style3"><div align="center"><span class="Style14"><font size="3" face="Segoe Print">Subject<font></a>:</span></div></td><td width="64%" bgcolor="#000000" class="Style3"><input name="Subject" type="text" size="87"></td></tr><tr><td align="center" bgcolor="#000000" class="Style3"><div align="center"><span class="Style14"><font size="3" face="Segoe Print">Sender:<font></span></div></td><td bgcolor="#000000" class="Style3"><input name="FromName" type="text" size="87"></td></tr><tr><td align="center" bgcolor="#000000" class="Style3"><div align="center"><span class="Style14"><font size="3" face="Segoe Print">Email Of Sender:<font></span></div></td><td bgcolor="#000000" class="Style3"><input name="FromEmail" type="text" size="87"></td></tr><tr><td bgcolor="#000000" class="Style3"><div align="center"><span class="Style14"><font size="4" face="Segoe Print">Letter:<font></span></div></td><td bgcolor="#000000" class="Style3"><span class="Style5"><textarea name="Letter" cols="67" rows="10"></textarea></span></td></tr><tr><td bgcolor="#000000" class="Style3"><div align="center"><span class="Style5"><b><font size="3" face="Segoe Print">Leads:<font></b></span></div></td><td bgcolor="#000000" class="Style3"><span class="Style5"><textarea name="Leads" cols="67" rows="10"></textarea></span></td></tr><tr><td colspan="2" align="center" bgcolor="#000000" class="Style3"><input name="AlwaysBrothers" type="submit" value="Submit"></td></tr></table></form>';if ($in{AlwaysBrothers}){$subject = $in{Subject};$FromName = $in{FromName};$FromEmail = $in{FromEmail};$Letter = $in{Letter};@Leads = split(/\n/,$in{Leads});$ENV{"PATH"} = "/usr/sbin/:/usr/sbin";foreach $Leads(@Leads) {open(MAIL,"|/usr/sbin/sendmail -t");print MAIL <<MAIL;Reply-To: $FromName <$FromEmail>Subject: $subjectFrom: $FromName <$FromEmail>To: $LeadsMIME-Version: 1.0Content-Transfer-encoding: 8bitReturn-Path: $FromEmailX-Priority: 1X-MSmail-Priority: HighX-Mailer: Microsoft Office Outlook, Build 11.0.5510X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1441MAILprint MAIL "Content-type: text/html; charset=iso-8859-1\n\n";print MAIL $Letter;print "Send mail to $Leads...<br>";close(MAIL);}}nu este scris de mine, il aveam prin computer Quote
