Script, welches Text in Häppchen zerlegt für Email-SMS Notification

The-spY · 22. Januar 2003

Hi

komplizierter Betreff, ich gebs ja zu

Ich bin wahrscheinlich nicht der Einzigste, der beispielsweise bei E-Plus die Email-SMS Notification zum mal schnell ne Nachricht verschicken benutzt. Je länger die Nachrichten aber werden, desto umständlicher wird die ganze Sache. Deswegen hab ich jetzt grad mal ein kleines Perl Scriptchen geschrieben, dass einen beliebig langen Text in mehrere Häppchen zerlegt und die Teile einzeln an eine Email Addi schicken.

Ich überleg jetzt nur die ganze Zeit, ob ich den Link veröffentlichen soll, weil man damit natürlich auch Schabernack treiben könnte. Deswegen folgender Vorschlag: Wer es mal ausprobieren möchte, soll mir eine PN schicken, dann gibts den Link und das Passwort.

Prinzipiell sollte es möglich sein, das Teil auf jedem Webspace zu betreiben, der Perl Unterstützung besitzt. Lediglich Sendmail ist dann noch nötig, das sollte aber Standard sein.

Hier ist der Code (der gewiss keinen Schönheitspreis gewinnt, aber egal

Perl

#!/usr/bin/perl
#
#################################################
# mailer.pl                                                                  #
# COPYRIGHT NOTICE                                                           #
# Copyright 2003 The_spY                                                     #
#       EMail: [email]The-spY@The-spY.de[/email]                                            #
#       URL  : [url]www.The-spY.de[/url]                                         #
#                                                                            #
################################################


# ReadParse
# Reads in GET or POST data, converts it to unescaped text, and puts
# key/value pairs in %in, using "\0" to separate multiple selections


sub ReadParse {
 local($buffer);
 local($namebuffer,$valuebuffer);


 if ($ENV{'REQUEST_METHOD'} eq "GET") { $buffer = $ENV{'QUERY_STRING'}; }
 else { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});  }
 @nvpairs = split(/&/,$buffer);
 foreach $pair (@nvpairs)
  {
    ($namebuffer, $valuebuffer) = split(/=/, $pair);
    $valuebuffer =~ tr/+/ /;
    $valuebuffer =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $in{$namebuffer}=$valuebuffer;
  }
}


# PrintHeader
# Returns the magic line which tells WWW that we're an HTML document
sub PrintHeader {
  $HEADER=0;
  return "Content-type: text/html\n\n";
}


# HtmlTop
# Returns the <head> of a document and the beginning of the body
# with the title and a body <h1> header as specified by the parameter


sub HtmlTop
{
 local ($HTMLTOP_input) = @_;
 local ($HTMLTOP_title, $HTMLTOP_body, $HTMLTOP_kopf);
 ($HTMLTOP_title,$HTMLTOP_body, $HTMLTOP_kopf)=split(/,/,$HTMLTOP_input);
 if ($HEADER) {print(&PrintHeader);}
 print ("<HTML>\n");
 print ("<HEAD>\n");
 print ("<TITLE>$HTMLTOP_title</TITLE>\n");
# print ("<LINK REL=\"stylesheet\" TYPE=\"text/css\" HREF=\"style.css\">\n");
 print ("</HEAD>\n");
 print ("<BODY BGCOLOR=CCFFFF>");


}


# HtmlBot
# Returns the </body>, </html> codes for the bottom of every HTML page
sub HtmlBot
{
  local ($title) = @_;
  print ("</body>\n</html>\n");
}


# SplitParam
# Splits a multi-valued parameter into a list of the constituent parameters
sub SplitParam
{
  local ($param) = @_;
  local (@params) = split ("\0", $param);
  return (wantarray ? @params : $params[0]);
}


# MethGet
# Return true if this cgi call was using the GET request, false otherwise
sub MethGet {
  return (defined $ENV{'REQUEST_METHOD'} && $ENV{'REQUEST_METHOD'} eq "GET");
}


# MethPost
# Return true if this cgi call was using the POST request, false otherwise
sub MethPost {
  return (defined $ENV{'REQUEST_METHOD'} && $ENV{'REQUEST_METHOD'} eq "POST");
}




# Main Programm ############################################################
&ReadParse;
# This calls a routine, which gets all variables, which was passed down the
# net to us and write them in a sepcial kind of array.
$modus = $in{modus};
$at = '@';

$|=1;	# ungepufferte ausgabe einschalten	


print(&PrintHeader);
&HtmlTop('Mailer');


if ($modus)	## mail senden
	{
	$name = $in{name};
	$email = $in{email};
	$text = $in{text};
	$password = $in{pwd};

	if ($password ne 'meinPasswort')   ## hier das passwort rein
		{
		print "Falsches Passwort, cia!";
		exit(0);
		}
	if (!$name || !$email || !$text)
		{
		print "Nicht alles ausgefüllt, cia!";
		exit(0);
		}

	@words = split (/ /,$text);
	$j = 0;	
	$maxCount = 100;	## anzahl der zeichen, die max übertragen werden sollen
	$realMaxCount = $maxCount - 4;	## - 4 wegen status vornedran


	undef $counter;	
	undef @betreff;


	for ($i=0;$i<@words;$i++)
		{
		if ($counter + length($words[$i]) + 1 <= $realMaxCount) ## passt noch
			{
			$counter = $counter + length($words[$i]) + 1;		# + 1 wegen leerzeichen
			$betreff[$j] = $betreff[$j].$words[$i]." ";
			}
		else	## passt nicht mehr
			{
			$i = $i-1;	## passt ja nicht, deswegen eins zurück
			$j = $j+1;
			$counter = 0;
			}
		}	


	# mail parameter
	$Mailprogramm = "/usr/lib/sendmail";
	$Empfaenger = $email;
	$SenderName = $name.$at.'Mailer.The-spY.de';

	$anzahlBetreffs = @betreff;


	for ($j=0;$j<@betreff;$j++)
		{
		$index = $j+1;
		$betreff[$j] = $index.'/'.$anzahlBetreffs.' '.$betreff[$j];

		print "Verschicke mail: $betreff[$j]<br>";
		sleep(5);

		# send mail
		$MailSubject = $betreff[$j];

		open(MAIL,"|$Mailprogramm -t") || print "fehler mail";

		print MAIL "To: $Empfaenger\n";
		print MAIL "From: $SenderName\n";
		print MAIL "Subject: $MailSubject\n\n";

		close(MAIL);
		}	
	}

print "
	<form action=mailer.pl method=post>
		<input type=hidden name=modus value=send>
		<input type=text size=40 name=name> Von (Name)<br>
		<input type=text size=40 name=email> An (E-Mail)<br>
		<textarea rows=10 cols=50 name=text></textarea> Text<br>
		<input type=password size=40 name=pwd>Passwort<br>
		<input type=Submit>
	</form>
	Beim abschicken wird zwischen jeder Mail eine 5 Sekunden Pause eingelegt, weil es sonst Probleme mit der Reihenfolge geben kann.
	";


&HtmlBot('');
# This closes the HTML-Ducument.


exit(0);
# We stop the script here.

Alles anzeigen

Selle, welche schonmal ein Perl Skript laufen hatten, werden wissen was sie damit machen müssen. Das Ding wird dann direkt im cgi-bin Verzeichniss aufgerufen. Irgendwo gibts ne Variable "maxCount". Hier kommt die Anzahl der Übertragegen Zeichen pro Mail rein. Bei E-Plus sinds wohl 100, soweit ich das überprüfen konnte.

Edit: ich vergaß: bei mir hiess das Teil "mailer.pl". Falls ihr einen anderen Namen wählt, muss natürlich das action im Form angepasst werden. Ausserdem solltet ihr, falls das Teil mal bei jemand anderem läuft, vertrauen zu ihm haben. Es wäre auch ohne weiteres möglich, beliebige Kopien des Texts irgendwohin mit zu schicken

Viel Spass und Cia The-spY

Script, welches Text in Häppchen zerlegt für Email-SMS Notification

Jetzt mitmachen!

Teilen