Active Members Fi8sVrs Posted September 6, 2015 Active Members Report Share 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 Link to comment Share on other sites More sharing options...
ydx90 Posted September 8, 2015 Report Share Posted September 8, 2015 Il ai de ceva timp , ca e vechi Quote Link to comment Share on other sites More sharing options...
alexikoku Posted September 9, 2015 Report Share Posted September 9, 2015 like this post Quote Link to comment Share on other sites More sharing options...
b4ck7r4ck Posted October 17, 2015 Report Share Posted October 17, 2015 It's old but very effective. Quote Link to comment Share on other sites More sharing options...