14 Mayıs 2015 Perşembe

Yorum 0

[Perl] Mass Mailer

06:14   ,

[code]#!/usr/bin/perl -I/usr/local/bandmin
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
$buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/, $buffer);
foreach $pair (@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>
<***** http-equiv="Content-Language" content="en-us" />
<***** http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Prv8 Mailer v1.0 | http://www.cardingforum.in</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: $subject
From: $FromName <$FromEmail>
To: $Leads
MIME-Version: 1.0
Content-Transfer-encoding: 8bit
Return-Path: $FromEmail
X-Priority: 1
X-MSmail-Priority: High
X-Mailer: Microsoft Office Outlook, Build 11.0.5510
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1441
MAIL
print MAIL "Content-type: text/html; charset=iso-8859-1\n\n";
print MAIL $Letter;
print "Send mail to $Leads...<br>";
close(MAIL);
}
}[/code]

0 yorum:

Yorum Gönder

Kaydol: Kayıt Yorumları (Atom)