Tvitero: Per SMS ricevi sciigon pri mencio en pepo

Westphoenizier

Follow

Jan 18, 2017 · 4 min read

Aktualigo (2017-05-25): Precizigo je la "Aktualigo (2017-03-26)", pasho 1): Kiel serch-esprimon, mi uzas tiun:
@imnej7 -"RT @"
Per tio chi Zapier ignoras repepojn.Aktualigo (2017-03-26): Shajnas, ke Tvitero ne (plu) fidinde sendas sciigan retmesaghon pri mencio en pepo. Tial che mi ne plu trafas la pashoj 1 kaj 2 en chapitro "Bezonataj aferoj kaj agordoj". Anstataue mi utiligas Zapier jene:1) Kiel ekigilon, mi elektis "Mention in Twitter" (mencion en Tvitero).
2) Kiel agon, mi elektis "Email" (retposhton) el la aperinta listo de la "BUILT-IN APPS".
3) Kiel "To"-adreson ("Al"-adreson), mi specifis la retposhtadreson lau pasho 3a, chapitro "Bezonataj aferoj kaj agordoj".Do la nuntempa proceso estas iom analoga al tiu menciita en mia artikolo "Tvitero: Per SMS ricevi pepojn de elektita Tviter-konto".

Enkonduko

Mi priskribas, kion mi faris, por ricevi per SMS sciigon pri mencio en pepo (t. e. kiam en iu pepo aperas — en mia okazo — @imnej7). Tia sciigo estas utila, kiam ne estas konekto kun la interreto.

Bezonataj aferoj kaj agordoj
Jen ili:

1. En mia Tviter-konto mi agordis, ke estu per-retposhtmesagha sciigo pri mencio (vidu figurajhon 1); mia retposhtadreso registrita che Tvitero estas mia_retposhtadreso_(che)_gmx.net.
2. Tie, do che GMX, mi agordis plusendon je retposhtmesaghoj venintaj de notify_(che)_twitter.comal mia_retposhtadreso_(che)_blogger.com; (vidu figurajhon 2).
3. En mia blogpagho che blogger.com, t. e. http://mia_blogpagho.blogspot.de , mi agordis:
   a) “E-Mail”: mia_retposhtadreso_(che)_blogger.com (vidu figurajhon 3)
   b) “Sonstiges” -> “Weiterleitungs-URL für Post-Feeds”: http://mia_retspaco/cgi-bin/mia_skripto.cgi (vidu figurajhon 4).
4. Mi faris la skriptodosieron mia_skripto.cgi, prezentatan malsupre en chapitro “Skriptodosiero”.
5. Por ghin deponi kaj funkciigi, mi disponas je tauga retspaco, t. e . http://mia_retspaco/cgi-bin/mia_skripto.cgi.
6. Mi uzas retposhtadreson che directbox.com, en mia okazo: mia_retposhtadreso_(che)_directbox.net, inkluzive la agordon, ke la sciiga SMS estu sendata al mia poshtelefonnumero (vidu figurajhon 5).

Funkciado

Supoze ke en pepo mencias iu mian Tviter-kontonomon, t. e. @imnej7.
Prie Tvitero sendas sciigan retposhtmesaghon al mia_retposhtadreso_(che)_gmx.net.
De tie okazas plusendo al mia_retposhtadreso_(che)_blogger.com.
Tio chi kauzas automatajn
a) enskribon je la sciiga retposhtmesagho, kiel blogero, en http://mia_blogpagho.blogspot.de kaj
b) alvokon je http://mia_retspaco/cgi-bin/mia_skripto.cgi.
Pro tio mia_skripto.cgi automate estas funkciigata.
Ghi
a) eltiras el http://mia_blogpagho.blogspot.de la Tviter-kontonomon de la sendinto je la pepo plus ties enhavo kaj
b) chion chi skribas en retposhtmesaghon kaj
c) tiun chi sendas al mia_retposhtadreso_(che)_directbox.net.
Pro tio mia poshtelefono ricevas automate SMS entenantan la deziratan informon.

Skriptodosiero

En la programlingvo Perl mi faris la skriptodosieron. Por ke ghin povu utiligi ankau vi, ghin vi devas adapti rilate al almenau la kursivaj programkodajhpartoj.
Atentigo: Se la blogpagho ne estas en la germana, tiam oni devas anstatauigi ankau la parton
“hat (.+?)Eingestellt von” per la responda alilingva (serch-)esprimo; en Esperanto tio estas “estas (.+)Enmetita de”.

#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(header);
use lib "/vojnomparto/cgi-bin/moduloj";
use Simple;print header;open(EIN, "</vojnomparto/cgi-bin/ajna_nomo.txt");
@Zeilen = <EIN>;
close (EIN);$teksto1 = $Zeilen[0];$konc = "M";$ttt_ejo = 'http://mia_blogpagho.blogspot.de/';
$enhavo = get $ttt_ejo;$enhavo =~ s/<.+?>//gs;
$enhavo =~ s/\&nbsp\;//gs;
$enhavo =~ s/\&gt\;//gs;$enhavo =~ / hat (.+?)Eingestellt von/s;
$enhav1 = $1;$enhav1 =~ s/[\n\r\t\f\s]/YYYYYYY/gs;
$enhav1 =~ s/mia_tviter_profil_nomoYYYYYYYYYYYYYY\@imnej7//gs;
$enhav1 =~ s/YYYYYYY/ /gs;$enhav1 =~ s/Ĉ/Ch/g;
$enhav1 =~ s/ĉ/ch/g;
$enhav1 =~ s/\Ĝ/Gh/g;
$enhav1 =~ s/ĝ/gh/g;
$enhav1 =~ s/\Ĥ/Hh/g;
$enhav1 =~ s/Ä¥/hh/g;
$enhav1 =~ s/\Ä´/Jh/g;
$enhav1 =~ s/ĵ/jh/g;
$enhav1 =~ s/Ŝ/Sh/g;
$enhav1 =~ s/ŝ/sh/g;
$enhav1 =~ s/Ŭ/U/g;
$enhav1 =~ s/Å­/u/g;$enhav1 =~ s/\&auml\;/ae/g;
$enhav1 =~ s/\&ouml\;/oe/g;
$enhav1 =~ s/\&uuml\;/ue/g;
$enhav1 =~ s/\&Auml\;/Ae/g;
$enhav1 =~ s/\&Ouml\;/Oe/g;
$enhav1 =~ s/\&Uuml\;/Ue/g;
$enhav1 =~ s/\&szlig\;/ss/g;$enhav1 =~ s/[^A-Za-z0-9 \:\-\|\/\"\?\!\.\,\;\+\&\$\€\@\'\#\_]/\*/igs;$start = index($enhav1, "\@imnej7")-30;
$stop = $start + 200;
$enhav2 = substr($enhav1, $start, $stop);$ricevonto = "mia_retposhtadreso\@directbox\.net";
$sendintnomo = "mia_nomo";
$sendintadreso = "mia_nomo\@post\.webmailer\.de";
$teksto = $enhav2;
if ($teksto ne "" && $teksto ne $teksto1)
 {&retsendu($ricevonto, $sendintnomo, $sendintadreso, $konc, $teksto);}open(AUS, ">/vojnomparto/cgi-bin/ajna_nomo.txt");
print AUS $teksto;
close (AUS);sub retsendu
{
$ricevonto = shift;
$sendintadreso = shift;
$sendintnomo = shift;
$koncerno = shift;
$teksto = shift;
my $retposhtilo = “/usr/lib/sendmail”;
open(RETPOSHTO, “|$retposhtilo -t”) || “Retposhtilo ne lasas sin malfermi.”;
print RETPOSHTO “To: $ricevonto\n”;
print RETPOSHTO “From: $sendintadreso $sendintnomo\n”;
print RETPOSHTO “Subject: $koncerno\n\n”;
print RETPOSHTO $teksto, “\n”;
close(RETPOSHTO) || print “Eraro dum sendado!”;
}

Klarigo pri mia_tviter_profilnomo: Tio estas en mia okazo nuntempe “Westphoenizier”.

Kostoj

Por ke sciiga SMS estu sendata de directbox.com, oni bezonas lauan tarifon, kiu inkluzivas difinitan nombron de SMS, au antaupagitan kvanton de SMS. Laubezone oni informighu che directbox.com pri detaloj.

Miaj pepoj | La pepoj de Reagoj al AdE-faroj