ports/60416: Port upgrade: sysutils/p5-LJ-TextMessage 1.4.1 -> 1.5.0
michael johnson
ahze at ahze.net
Sat Dec 20 08:50:36 UTC 2003
>Number: 60416
>Category: ports
>Synopsis: Port upgrade: sysutils/p5-LJ-TextMessage 1.4.1 -> 1.5.0
>Confidential: no
>Severity: non-critical
>Priority: low
>Responsible: freebsd-ports-bugs
>State: open
>Quarter:
>Keywords:
>Date-Required:
>Class: maintainer-update
>Submitter-Id: current-users
>Arrival-Date: Sat Dec 20 00:50:19 PST 2003
>Closed-Date:
>Last-Modified:
>Originator: michael johnson
>Release:
>Organization:
>Environment:
>Description:
upgrade to the latest p5-LJ-TextMessage.
They do not release LJ-TextMessage in package format anymore.
Patch came from cvs
>How-To-Repeat:
>Fix:
diff -ruN sysutils/p5-LJ-TextMessage.orig/Makefile sysutils/p5-LJ-TextMessage/Makefile
--- sysutils/p5-LJ-TextMessage.orig/Makefile Fri Dec 19 22:12:14 2003
+++ sysutils/p5-LJ-TextMessage/Makefile Sat Dec 20 03:41:00 2003
@@ -5,7 +5,7 @@
# $FreeBSD: ports/sysutils/p5-LJ-TextMessage/Makefile,v 1.7 2003/10/24 12:03:46 ijliao Exp $
PORTNAME= LJ-TextMessage
-PORTVERSION= 1.4.1
+PORTVERSION= 1.5.0
CATEGORIES= sysutils perl5
MASTER_SITES= http://livejournal.com/files/code/textmessage/ \
ftp://ftp.livejournal.com/code/textmessage/
diff -ruN sysutils/p5-LJ-TextMessage.orig/files/patch-textmessage1.5.patch sysutils/p5-LJ-TextMessage/files/patch-textmessage1.5.patch
--- sysutils/p5-LJ-TextMessage.orig/files/patch-textmessage1.5.patch Thu Jan 1 00:00:00 1970
+++ sysutils/p5-LJ-TextMessage/files/patch-textmessage1.5.patch Sat Dec 20 03:40:26 2003
@@ -0,0 +1,1475 @@
+--- TextMessage.pm.orig Sat May 19 20:59:21 2001
++++ TextMessage.pm Wed Oct 8 16:55:33 2003
+@@ -18,11 +18,12 @@
+
+ use URI::Escape;
+ use LWP::UserAgent;
++use MIME::Lite;
+
+ use strict;
+ use vars qw($VERSION $SENDMAIL %providers);
+
+-$VERSION = '1.4.1';
++$VERSION = '1.5.0';
+
+ # default path to sendmail, if none other specified. we should probably
+ # use something more perl-ish and less unix-specific, but whateva'
+@@ -32,24 +33,32 @@
+ %providers = (
+
+ 'email' => {
+- 'name' => 'Other',
+- 'notes' => 'If your provider isn\'t supported directly, enter the email address that sends you a text message in phone number field. To be safe, the entire message is sent in the body of the message, and the length limit is really short. We\'d prefer you give us information about your provider so we can support it directly.',
+- 'fromlimit' => 15,
+- 'msglimit' => 100,
+- 'totlimit' => 100,
++ 'name' => 'Other',
++ 'notes' => 'If your provider isn\'t supported directly, enter the email address that sends you a text message in phone number field. To be safe, the entire message is sent in the body of the message, and the length limit is really short. We\'d prefer you give us information about your provider so we can support it directly.',
++ 'fromlimit' => 15,
++ 'msglimit' => 100,
++ 'totlimit' => 100,
+ },
+
+ 'airtouch' => {
+- 'name' => 'Verizon Wireless (formerly Airtouch)',
+- 'notes' => '10-digit phone number. Goes to @airtouchpaging.com',
+- 'fromlimit' => 20,
+- 'msglimit' => 120,
+- 'totlimit' => 120,
++ 'name' => 'Verizon Wireless (formerly Airtouch)',
++ 'notes' => 'Enter your phone number. Messages are sent to number at airtouchpaging.com. This is ONLY for former AirTouch customers. Verizon Wireless customers should use Verizon Wireless instead.',
++ 'fromlimit' => 20,
++ 'msglimit' => 120,
++ 'totlimit' => 120,
++ },
++
++ 'alltel' => {
++ 'name' => 'Alltel',
++ 'notes' => 'Enter your phone number. Goes to number at message.alltel.com.',
++ 'fromlimit' => 50,
++ 'msglimit' => 116,
++ 'totlimit' => 116,
+ },
+
+ 'ameritech' => {
+ 'name' => 'Ameritech (ACSWireless)',
+- 'notes' => '10-digit phone number. Goes to number at paging.acswireless.com',
++ 'notes' => 'Enter your phone number. Goes to number at paging.acswireless.com',
+ 'fromlimit' => 120,
+ 'msglimit' => 120,
+ 'totlimit' => 120,
+@@ -57,56 +66,186 @@
+
+ 'arch' => {
+ 'name' => 'Arch Wireless',
+- 'notes' => 'Enter your 10-digit phone number. Sent via http://www.arch.com/message/ gateway. Assumes blank PIN.',
++ 'notes' => 'Enter your phone number. Sent via http://www.arch.com/message/ (assumes blank PIN)',
+ 'fromlimit' => 15,
+- 'msglimit' => 220,
+- 'totlimit' => 220,
++ 'msglimit' => 240,
++ 'totlimit' => 240,
+ },
+
+ 'att' => {
+ 'name' => 'AT&T Wireless',
+- 'notes' => '10-digit phone number. Goes to @mobile.att.net',
++ 'notes' => 'Enter your phone number. Goes to number at mobile.att.net',
+ 'fromlimit' => 50,
+ 'msglimit' => 150,
+ 'totlimit' => 150,
+ },
+
++ 'bellmobilityca' => {
++ 'name' => 'Bell Mobility Canada',
++ 'notes' => 'Enter your phone number, including the 1 prefix. Goes to number at txt.bellmobility.ca',
++ 'fromlimit' => 20,
++ 'msglimit' => 120,
++ 'totlimit' => 120,
++ },
++
++ 'beemail' => {
++ 'name' => 'BeeLine GSM',
++ 'notes' => 'Enter your phone number. Goes to number at sms.beemail.ru',
++ 'fromlimit' => 50,
++ 'msglimit' => 255,
++ 'totlimit' => 255,
++ },
++
+ 'bellsouthmobility' => {
+ 'name' => 'BellSouth Mobility',
+- 'notes' => 'Enter your 10-digit phone number. Goes to @blsdcs.net via email.',
++ 'notes' => 'Enter your phone number. Goes to number at blsdcs.net',
+ 'fromlimit' => 15,
+ 'msglimit' => 160,
+ 'totlimit' => 160,
+ },
+
++ 'blueskyfrog' => {
++ 'name' => 'Blue Sky Frog',
++ 'notes' => 'Enter your phone number. Goes to number at blueskyfrog.com',
++ 'fromlimit' => 30,
++ 'msglimit' => 120,
++ 'totlimit' => 120,
++ },
++
+ 'cellularonedobson' => {
+ 'name' => 'CellularOne (Dobson)',
+- 'notes' => 'Enter your 10 digit phone number. Sent through email gateway @mobile.celloneusa.com.',
++ 'notes' => 'Enter your phone number. Goes to number at mobile.celloneusa.com',
+ 'fromlimit' => 20,
+ 'msglimit' => 120,
+ 'totlimit' => 120,
+ },
+
++ 'centennial' => {
++ 'name' => 'Centennial Wireless',
++ 'notes' => 'Enter your phone number. Sent via http://www.centennialcom.com',
++ 'fromlimit' => 10,
++ 'msglimit' => 110,
++ 'totlimit' => 110,
++ },
++
++ 'cingular' =>
++ {
++ 'name' => 'Cingular',
++ 'notes' => 'Enter your phone number. Goes to number at mobile.mycingular.com',
++ 'fromlimit' => 20,
++ 'msglimit' => 160,
++ 'totlimit' => 160,
++ },
++
++ 'csouth1' => {
++ 'name' => 'Cellular South',
++ 'notes' => 'Enter your phone number. Messages are sent to number at csouth1.com',
++ 'fromlimit' => 50,
++ 'msglimit' => 155,
++ 'totlimit' => 155,
++ },
++
++ 'dutchtone' => {
++ 'name' => 'Dutchtone/Orange-NL',
++ 'notes' => 'Enter your phone number. Messages are sent to number at sms.orange.nl',
++ 'fromlimit' => 15,
++ 'msglimit' => 150,
++ 'totlimit' => 150,
++ },
++
++ 'edgewireless' => {
++ 'name' => 'Edge Wireless',
++ 'notes' => 'Enter your phone number. Messages are sent to number at sms.edgewireless.com',
++ 'fromlimit' => 20,
++ 'msglimit' => 160,
++ 'totlimit' => 160,
++ },
++
++ 'emt' => {
++ 'name' => 'Estonia Mobile Telefon',
++ 'notes' => 'Enter your phone number. Messages are sent via web gateway.',
++ 'fromlimit' => 20,
++ 'msglimit' => 160,
++ 'totlimit' => 160,
++ },
++
++ 'fidoca' => {
++ 'name' => 'Fido Canada',
++ 'notes' => 'Enter your phone number. Goes to number at fido.ca.',
++ 'fromlimit' => 15,
++ 'msglimit' => 140,
++ 'totlimit' => 140,
++ },
++
++ 'goldentelecom' => {
++ 'name' => 'Golden Telecom',
++ 'notes' => 'Enter your phone number or nickname. Messages are sent to number at sms.goldentele.com',
++ 'fromlimit' => 20,
++ 'msglimit' => 160,
++ 'totlimit' => 160,
++ },
++
++ 'ideacellular' => {
++ 'name' => 'Idea Cellular',
++ 'notes' => 'Enter your phone number. Messages are sent to number at ideacellular.net',
++ 'fromlimit' => 20,
++ 'msglimit' => 160,
++ 'totlimit' => 160,
++ },
++
+ 'imcingular' =>
+ {
+ 'name' => 'Cingular IM Plus/Bellsouth IPS',
+- 'notes' => 'Enter 8 digit PIN or user name. Goes to @imcingular.com',
++ 'notes' => 'Enter 8 digit PIN or user name. Goes to @imcingular.com',
+ 'fromlimit' => 100,
+ 'msglimit' => 16000,
+ 'totlimit' => 16000,
+ },
+
+- 'lycosuk' => {
+- 'name' => 'Lycos UK (UK wireless networks)',
+- 'notes' => 'Enter your full phone number. Messages are sent via the Lycos UK SMS gateway, and end with an additional 30 character from Lycos to help subsidize the service.',
+- 'fromlimit' => 112,
+- 'msglimit' => 112,
+- 'totlimit' => 112,
++ 'imcingular-cell' =>
++ {
++ 'name' => 'Cingular IM Plus/Bellsouth IPS Cellphones',
++ 'notes' => 'Enter phone number. Goes to @mobile.mycingular.com',
++ 'fromlimit' => 100,
++ 'msglimit' => 16000,
++ 'totlimit' => 16000,
++ },
++
++ 'jphone' => {
++ 'name' => 'J-Phone',
++ 'notes' => 'Enter your phone number. Messages are sent to number at jp-t.ne.jp',
++ 'fromlimit' => 20,
++ 'msglimit' => 160,
++ 'totlimit' => 160,
++ },
++
++ 'kyivstar' => {
++ 'name' => 'Kyivstar',
++ 'notes' => 'Sent by addressing the message to number at sms.kyivstar.net',
++ 'fromlimit' => 30,
++ 'msglimit' => 160,
++ 'totlimit' => 160,
++ },
++
++ 'lmt' => {
++ 'name' => 'LMT',
++ 'notes' => 'Sent by addressing the message to number at smsmail.lmt.lv',
++ 'fromlimit' => 30,
++ 'msglimit' => 120,
++ 'totlimit' => 120,
++ },
++
++ 'meteor' => {
++ 'name' => 'Meteor',
++ 'notes' => 'Enter your phone number. Goes to number at sms.mymeteor.ie',
++ 'fromlimit' => 20,
++ 'msglimit' => 160,
++ 'totlimit' => 160,
+ },
+
+ 'metrocall' => {
+ 'name' => 'Metrocall Pager',
+- 'notes' => '10-digit phone number. Goes to number at page.metrocall.com',
++ 'notes' => '10-digit phone number. Goes to number at page.metrocall.com',
+ 'fromlimit' => 120,
+ 'msglimit' => 120,
+ 'totlimit' => 120,
+@@ -114,55 +253,151 @@
+
+ 'movistar' => {
+ 'name' => 'Telefonica Movistar',
+- 'notes' => '10-digit phone number. Goes to number at movistar.net',
++ 'notes' => '10-digit phone number. Goes to number at movistar.net',
++ 'fromlimit' => 20,
++ 'msglimit' => 120,
++ 'totlimit' => 120,
++ },
++
++ 'mtsmobility' => {
++ 'name' => 'Manitoba Telecom Systems',
++ 'notes' => '10-digit phone number. Goes to @text.mtsmobility.com',
+ 'fromlimit' => 20,
+ 'msglimit' => 120,
+ 'totlimit' => 120,
+ },
+
++ 'mobilfone' => {
++ 'name' => 'Mobilfone',
++ 'notes' => 'Enter your phone number. Goes to number at page.mobilfone.com',
++ 'fromlimit' => 20,
++ 'msglimit' => 160,
++ 'totlimit' => 160,
++ },
++
++ 'nbtel' => {
++ 'name' => 'NBTel',
++ 'notes' => 'Enter your phone number. Message is sent to number at wirefree.informe.ca',
++ 'fromlimit' => 11,
++ 'msglimit' => 140,
++ 'totlimit' => 140,
++ },
++
++ 'netcom' => {
++ 'name' => 'Netcom',
++ 'notes' => 'Enter your phone number. Goes to number at sms.netcom.no',
++ 'fromlimit' => 20,
++ 'msglimit' => 160,
++ 'totlimit' => 160,
++ },
++
+ 'nextel' => {
+ 'name' => 'Nextel',
+- 'notes' => '10-digit phone number. Goes to @messaging.nextel.com',
++ 'notes' => '10-digit phone number. Goes to 10digits at messaging.nextel.com. Note: do not use dashes in your phone number.',
+ 'fromlimit' => 50,
+ 'msglimit' => 126,
+ 'totlimit' => 126,
+ },
+
++ 'nwgsm-megafon' => {
++ 'name' => 'North-WestGSM Megafon',
++ 'notes' => 'Enter your phone number. Sent via web gateway.',
++ 'fromlimit' => 20,
++ 'msglimit' => 160,
++ 'totlimit' => 160,
++ },
++
++ 'npiwireless' => {
++ 'name' => 'NPI Wireless',
++ 'notes' => 'Enter your phone number. Goes to number at npiwireless.com.',
++ 'fromlimit' => 20,
++ 'msglimit' => 160,
++ 'totlimit' => 160,
++ },
++
++ 'ntelos' => {
++ 'name' => 'NTELOS',
++ 'notes' => '10-digit phone number. Goes to 10digits at pcs.ntelos.com.',
++ 'fromlimit' => 30,
++ 'msglimit' => 120,
++ 'totlimit' => 120,
++ },
++
++ 'o2' => {
++ 'name' => 'O2 (formerly BTCellnet)',
++ 'notes' => 'Enter O2 username - must be enabled first at http://www.o2.co.uk. Goes to username at o2.co.uk.',
++ 'fromlimit' => 20,
++ 'msglimit' => 120,
++ 'totlimit' => 120,
++ },
++
++ 'o2mmail' => {
++ 'name' => 'O2 M-mail (formerly BTCellnet)',
++ 'notes' => 'Enter phone number, omitting intial zero - must be enabled first by sending an SMS saying "ON" to phone number "212". Goes to +44[number]@mmail.co.uk.',
++ 'fromlimit' => 20,
++ 'msglimit' => 120,
++ 'totlimit' => 120,
++ },
++
++ 'optus' => {
++ 'name' => 'Optus',
++ 'notes' => 'Enter your phone number. Goes to @optusmobile.com.au',
++ 'fromlimit' => 20,
++ 'msglimit' => 160,
++ 'totlimit' => 160,
++ },
++
+ 'pacbell' => {
+- 'name' => 'Pacific Bell Wireless (Cingular)',
+- 'notes' => 'Enter your 10 digit phone number. Sent through web gateway at pacbellpcs.net, almost instant delivery.',
+- 'fromlimit' => 25,
+- 'msglimit' => 640,
+- 'totlimit' => 665,
++ 'name' => 'Pacific Bell Cingular',
++ 'notes' => '10-digit phone number. Goes to @mobile.mycingular.com',
++ 'fromlimit' => 20,
++ 'msglimit' => 120,
++ 'totlimit' => 120,
+ },
+
+ 'pagenet' => {
+ 'name' => 'Pagenet',
+- 'notes' => '10-digit phone number. Goes to number at pagenet.net',
+- 'fromlimit' => 50,
+- 'msglimit' => 120,
+- 'totlimit' => 120,
++ 'notes' => '10-digit phone number (or gateway and pager number separated by a period). Goes to number at pagenet.net.',
++ 'fromlimit' => 20,
++ 'msglimit' => 220,
++ 'totlimit' => 240,
+ },
+
+ 'pcsrogers' => {
+ 'name' => 'PCS Rogers AT&T Wireless',
+- 'notes' => '10-digit phone number. Goes to number at pcs.rogers.com',
++ 'notes' => '10-digit phone number. Goes to number at pcs.rogers.com',
+ 'fromlimit' => 20,
+ 'msglimit' => 150,
+ 'totlimit' => 150,
+ },
+
++ 'pscwireless' => {
++ 'name' => 'PSC Wireless',
++ 'notes' => 'Enter your phone number. Goes to number at sms.pscel.com',
++ 'fromlimit' => 20,
++ 'msglimit' => 140,
++ 'totlimit' => 140,
++ },
++
+ 'ptel' => {
+ 'name' => 'Powertel',
+- 'notes' => '10-digit phone number. Goes to number at ptel.net',
++ 'notes' => '10-digit phone number. Goes to number at ptel.net',
+ 'fromlimit' => 20,
+ 'msglimit' => 120,
+ 'totlimit' => 120,
+ },
+
++ 'qualcomm' => {
++ 'name' => 'Qualcomm',
++ 'notes' => 'Enter your username. Goes to username at pager.qualcomm.com',
++ 'fromlimit' => 20,
++ 'msglimit' => 120,
++ 'totlimit' => 120,
++ },
++
+ 'qwest' => {
+ 'name' => 'Qwest',
+- 'notes' => '10-digit phone number. Goes to @uswestdatamail.com',
++ 'notes' => '10-digit phone number. Goes to @qwestmp.com',
+ 'fromlimit' => 14,
+ 'msglimit' => 100,
+ 'totlimit' => 100,
+@@ -176,37 +411,181 @@
+ 'totlimit' => 240,
+ },
+
++ 'smartsgsm' => {
++ 'name' => 'Smarts GSM',
++ 'notes' => 'Enter your phone number. Sent via http://www.samara-gsm.ru/scripts/smsgate.exe',
++ 'fromlimit' => 11,
++ 'msglimit' => 70,
++ 'totlimit' => 70,
++ },
++
+ 'sprintpcs' => {
+ 'name' => 'Sprint PCS',
+- 'notes' => 'Enter your 10-digit phone number. Goes to @messaging.sprintpcs.com',
++ 'notes' => 'Enter your 10-digit phone number. Goes to @messaging.sprintpcs.com',
+ 'fromlimit' => 15,
+- 'msglimit' => 97,
+- 'totlimit' => 97,
++ 'msglimit' => 160,
++ 'totlimit' => 160,
++ },
++
++ 'sprintpcs-shortmail' => {
++ 'name' => 'Sprint PCS - Short Mail',
++ 'notes' => 'Enter your phone number. Goes to @messaging.sprintpcs.com',
++ 'fromlimit' => 15,
++ 'msglimit' => 1000,
++ 'totlimit' => 1000,
++ },
++
++ 'suncom' => {
++ 'name' => 'SunCom',
++ 'notes' => 'Enter your number. Email will be sent to number at tms.suncom.com.',
++ 'fromlimit' => 18,
++ 'msglimit' => 110,
++ 'totlimit' => 110,
++ },
++
++ 'surewest' => {
++ 'name' => 'SureWest Communications',
++ 'notes' => 'Enter your phone number. Message will be sent to number at mobile.surewest.com',
++ 'fromlimit' => 20,
++ 'msglimit' => 200,
++ 'totlimit' => 200,
++ },
++
++ 'telus' => {
++ 'name' => 'Telus Mobility',
++ 'notes' => '10-digit phone number. Goes to 10digits at msg.telus.com.',
++ 'fromlimit' => 30,
++ 'msglimit' => 120,
++ 'totlimit' => 120,
++ },
++
++
++ 'tmobileaustria' => {
++ 'name' => 'T-Mobile Austria',
++ 'notes' => 'Enter your number starting with 43676. Email will be sent to number at sms.t-mobile.at.',
++ 'fromlimit' => 15,
++ 'msglimit' => 160,
++ 'totlimit' => 160,
++ },
++
++ 'tmobilegermany' => {
++ 'name' => 'T-Mobile Germany',
++ 'notes' => 'Enter your number. Email will be sent to number at T-D1-SMS.de',
++ 'fromlimit' => 15,
++ 'msglimit' => 160,
++ 'totlimit' => 160,
++ },
++
++ 'tmobileholland' => {
++ 'name' => 'T-Mobile Netherlands',
++ 'notes' => 'Send "EMAIL ON" to 555 from your phone, then enter your number starting with 316. Email will be sent to number at gin.nl',
++ 'fromlimit' => 15,
++ 'msglimit' => 160,
++ 'totlimit' => 160,
++ },
++
++ 'tmobileusa' => {
++ 'name' => 'T-Mobile USA',
++ 'notes' => 'Messages are sent to number at tmomail.net',
++ 'fromlimit' => 30,
++ 'msglimit' => 160,
++ 'totlimit' => 160,
+ },
+
+ 'uboot' => {
+ 'name' => 'uBoot',
+- 'notes' => 'Enter your username as the phone number. See http://www.uboot.com for more details',
+- 'fromlimit' => 15,
+- 'msglimit' => 160,
+- 'totlimit' => 160,
++ 'notes' => 'Enter your username as the phone number. See http://www.uboot.com for more details',
++ 'fromlimit' => 146,
++ 'msglimit' => 146,
++ 'totlimit' => 146,
++ },
++
++ 'umc' => {
++ 'name' => 'UMC',
++ 'notes' => 'Sent by addressing the message to number at sms.umc.com.ua',
++ 'fromlimit' => 10,
++ 'msglimit' => 120,
++ 'totlimit' => 120,
++ },
++
++ 'uscc' => {
++ 'name' => 'US Cellular',
++ 'notes' => 'Enter a 10 digit USCC Phone Number. Messages are sent via http://uscc.textmsg.com/scripts/send.idc and only contain the message field',
++ 'msglimit' => 150,
++ 'totlimit' => 150,
+ },
+
+ 'vzw' => {
+ 'name' => 'Verizon Wireless',
+- 'notes' => 'Enter your 10-digit phone number. Messages are sent via the gateway at http://msg.myvzw.com, usually faster than the email gateway.',
++ 'notes' => 'Enter your 10-digit phone number. Messages are sent via email to number at vtext.com.',
+ 'fromlimit' => 34,
+- 'msglimit' => 104,
+- 'totlimit' => 104,
++ 'msglimit' => 140,
++ 'totlimit' => 140,
++ },
++
++ 'vzw-myairmail' => {
++ 'name' => 'Verizon Wireless (myairmail.com)',
++ 'notes' => 'Enter your phone number. Messages are sent via to number at myairmail.com.',
++ 'fromlimit' => 34,
++ 'msglimit' => 140,
++ 'totlimit' => 140,
++ },
++
++ 'vessotel' => {
++ 'name' => 'Vessotel',
++ 'notes' => 'Enter your phone number. Messages are sent to roumer at pager.irkutsk.ru.',
++ 'fromlimit' => 20,
++ 'msglimit' => 800,
++ 'totlimit' => 800,
++ },
++
++ 'virginmobileuk' => {
++ 'name' => 'Virgin Mobile UK',
++ 'notes' => 'Enter your phone number. Messages are sent to number at vxtras.com.',
++ 'fromlimit' => 20,
++ 'msglimit' => 160,
++ 'totlimit' => 160,
++ },
++
++ 'virginmobileusa' => {
++ 'name' => 'Virgin Mobile USA',
++ 'notes' => 'Enter your phone number. Messages are sent to number at vmobl.com.',
++ 'fromlimit' => 20,
++ 'msglimit' => 160,
++ 'totlimit' => 160,
++ },
++
++ 'vodacom' => {
++ 'name' => 'Vodacom',
++ 'notes' => 'Enter your 10 digit phone number. Messages are sent via Vodacom\'s web gateway.',
++ 'fromlimit' => 15,
++ 'msglimit' => 140,
++ 'totlimit' => 140,
+ },
+
+ 'voicestream' => {
+ 'name' => 'Voicestream',
+- 'notes' => 'Enter your 10-digit phone number. Message is sent via the web gateway on Voicestream.com which is often a lot faster than the email gateway. Expect arrival within 5 or 6 seconds.',
++ 'notes' => 'Enter your 10-digit phone number. Message is sent via the email gateway, since they changed their web gateway and we have not gotten it working with the new one yet.',
+ 'fromlimit' => 15,
+ 'msglimit' => 140,
+ 'totlimit' => 140,
+ },
++
++ 'weblinkwireless' => {
++ 'name' => 'Weblink Wireless',
++ 'notes' => 'Enter your phone number. Goes to @airmessage.net',
++ 'fromlimit' => 20,
++ 'msglimit' => 160,
++ 'totlimit' => 160,
++ },
++
++ 'wyndtell' => {
++ 'name' => 'WyndTell',
++ 'notes' => 'Enter username/phone number. Goes to @wyndtell.com',
++ 'fromlimit' => 20,
++ 'msglimit' => 480,
++ 'totlimit' => 500,
++ },
+
+ );
+
+@@ -217,10 +596,21 @@
+
+ sub provider_info
+ {
+- my $provider = shift;
++ my $provider = remap(shift);
+ return { %{$providers{$provider}} };
+ }
+
++sub remap {
++ my $provider = shift;
++ return "o2mmail" if $provider eq "btcellnet";
++ return "voicestream" if $provider eq "voicestream2";
++ return "tmobileusa" if $provider eq "tmomail";
++ return "suncom" if $provider eq "tms-suncom";
++ return "cingular" if $provider eq "cingular-acs";
++ return "cingular" if $provider eq "cingular-texas";
++ return $provider;
++}
++
+ sub new {
+ my ($class, $args) = @_;
+ my $self = {};
+@@ -234,8 +624,9 @@
+ my $self = shift;
+ my $args = shift;
+ $self->{'sendmail'} = $args->{'mailcommand'} || $SENDMAIL;
+- $self->{'provider'} = $args->{'provider'};
++ $self->{'provider'} = remap($args->{'provider'});
+ $self->{'number'} = $args->{'number'};
++ $self->{'smtp'} = $args->{'smtp'};
+ }
+
+ sub send
+@@ -249,7 +640,28 @@
+ push @$errors, "No provider specified in object constructor.";
+ return;
+ }
+-
++
++ unless ($msg) {
++ push @$errors, "No message specified in object constructor.";
++ return;
++ }
++ unless ($self) {
++ push @$errors, "No self specified in object constructor.";
++ return;
++ }
++ unless ($self->{'sendmail'}) {
++ push @$errors, "No sendmail specified in object constructor.";
++ return;
++ }
++ unless ($self->{'provider'}) {
++ push @$errors, "No provider specified in object constructor.";
++ return;
++ }
++ unless ($self->{'number'}) {
++ push @$errors, "No number specified in object constructor.";
++ return;
++ }
++
+ my $prov = $providers{$provider};
+
+ ##
+@@ -270,16 +682,25 @@
+ 'to' => $self->{'number'},
+ 'from' => "LiveJournal",
+ 'body' => "(f:$msg->{'from'})$msg->{'message'}",
+- });
++ },$errors);
+ }
+
+ elsif ($provider eq "airtouch")
+ {
+ send_mail($self, {
+- 'to' => "$self->{'number'}\@airtouchpaging.com",
++ 'to' => "$self->{'number'}\@sender.airtouchpaging.com",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ },$errors);
++ }
++
++ elsif ($provider eq "alltel")
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@message.alltel.com",
+ 'from' => "$msg->{'from'}",
+ 'body' => "$msg->{'message'}",
+- });
++ },$errors);
+ }
+
+ elsif ($provider eq "ameritech")
+@@ -288,17 +709,16 @@
+ 'to' => "$self->{'number'}\@paging.acswireless.com",
+ 'from' => "$msg->{'from'}",
+ 'body' => "$msg->{'message'}",
+- });
++ },$errors);
+ }
+
+ elsif ($provider eq "arch")
+ {
+- post_webform("http://www.arch.com/cgi-bin/archepage.exe", $errors, {
+- "ACCESS" => $self->{'number'},
+- "MSSG" => "($msg->{'from'}) $msg->{'message'}",
+- "Q1" => "1",
+- "PIN" => "",
+- });
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@archwireless.net",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ },$errors);
+ }
+
+ elsif ($provider eq "att")
+@@ -307,21 +727,129 @@
+ 'to' => "$self->{'number'}\@mobile.att.net",
+ 'from' => "$msg->{'from'}",
+ 'body' => $msg->{'message'},
+- });
++ },$errors);
++ }
++
++ elsif ($provider eq "beemail")
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@sms.beemail.ru",
++ 'body' => "$msg->{'from'} - $msg->{'message'}",
++ },$errors);
++ }
++
++ elsif ($provider eq "bellmobilityca")
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@txt.bellmobility.ca",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ },$errors);
+ }
+
+ elsif ($provider eq "bellsouthmobility")
+ {
+- send_emailgate($self, $msg, "blsdcs.net");
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@blsdcs.net",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ 'subject' => "LJ",
++ },$errors);
+ }
+
++
++ elsif ($provider eq "blueskyfrog")
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@blueskyfrog.com",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ },$errors);
++ }
++
+ elsif ($provider eq "cellularonedobson")
+ {
+ send_mail($self, {
+ 'to' => "$self->{'number'}\@mobile.celloneusa.com",
+ 'from' => "$msg->{'from'}",
+ 'body' => $msg->{'message'},
+- });
++ },$errors);
++ }
++
++ elsif ($provider eq "centennial")
++ {
++ post_webform("http://matrix.wysdom.com/cgi-bin/mim/newxmessage.cgi", {
++ 'ToNumber' => $self->{'number'},
++ 'Message' => $msg->{'message'},
++ 'FromNumber' => $msg->{'from'},
++ },$errors);
++ }
++
++ elsif ($provider eq "cingular")
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@mobile.mycingular.com",
++ 'from' => $msg->{'from'},
++ 'body' => $msg->{'message'},
++ },$errors);
++ }
++
++ elsif ($provider eq "csouth1") {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@csouth1.com",
++ 'from' => $msg->{'from'},
++ 'body' => $msg->{'message'},
++ },$errors);
++ }
++
++ elsif ($provider eq "dutchtone")
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@sms.orange.nl",
++ 'body' => "$msg->{'from'}\n$msg->{'message'}",
++ },$errors);
++ }
++
++ elsif ($provider eq "edgewireless") {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@sms.edgewireless.com",
++ 'from' => $msg->{'from'},
++ 'body' => $msg->{'message'},
++ },$errors);
++ }
++
++ elsif ($provider eq "emt")
++ {
++ post_webform("http://www.emt.ee/wwwmain", {
++ 'phoneNo' => $self->{'number'},
++ 'message' => $msg->{'message'},
++ 'userEmail' => $msg->{'from'},
++ },$errors);
++ }
++
++ elsif ($provider eq "fidoca" )
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@fido.ca",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ },$errors);
++ }
++
++ elsif ($provider eq "goldentelecom") {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@sms.goldentele.com",
++ 'from' => $msg->{'from'},
++ 'body' => $msg->{'message'},
++ },$errors);
++ }
++
++ elsif ($provider eq "ideacellular") {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@ideacellular.net",
++ 'from' => $msg->{'from'},
++ 'body' => $msg->{'message'},
++ },$errors);
+ }
+
+ elsif ($provider eq "imcingular")
+@@ -330,15 +858,51 @@
+ 'to' => "$self->{'number'}\@imcingular.com",
+ 'from' => $msg->{'from'},
+ 'body' => $msg->{'message'},
+- });
++ },$errors);
++ }
++
++ elsif ($provider eq "imcingular-cell")
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@mobile.mycingular.com",
++ 'from' => $msg->{'from'},
++ 'body' => $msg->{'message'},
++ },$errors);
++ }
++
++ elsif ($provider eq "jphone") {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@jp-t.ne.jp",
++ 'from' => $msg->{'from'},
++ 'body' => $msg->{'message'},
++ },$errors);
++ }
++
++ elsif ($provider eq "kyivstar")
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@sms.kyivstar.net",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ },$errors);
++ }
++
++ elsif ($provider eq "lmt")
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@smsmail.lmt.lv",
++
++ 'body' => "$msg->{'message'}",
++ },$errors);
+ }
+
+- elsif ($provider eq "lycosuk")
++ elsif ($provider eq "meteor")
+ {
+- post_webform("http://smscgi02-1.lycos.de/uk/cgi-bin/sms/send_uk_sms5.cgi", $errors, {
+- "ren" => $self->{'number'},
+- "msg" => "Livejournal($msg->{'from'}) $msg->{'message'}",
+- });
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@sms.mymeteor.ie",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ },$errors);
+ }
+
+ elsif ($provider eq "metrocall")
+@@ -347,7 +911,16 @@
+ 'to' => "$self->{'number'}\@page.metrocall.com",
+ 'from' => "$msg->{'from'}",
+ 'body' => "$msg->{'message'}",
+- });
++ },$errors);
++ }
++
++ elsif ($provider eq "mobilfone")
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@page.mobilfone.com",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ },$errors);
+ }
+
+ elsif ($provider eq "movistar")
+@@ -356,24 +929,107 @@
+ 'to' => "$self->{'number'}\@correo.movistar.net",
+ 'from' => "$msg->{'from'}",
+ 'body' => "$msg->{'message'}",
+- });
++ },$errors);
++ }
++
++ elsif ($provider eq "mtsmobility")
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@text.mtsmobility.com",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ },$errors);
++ }
++
++ elsif ($provider eq "nbtel")
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@wirefree.informe.ca",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ },$errors);
++ }
++
++ elsif ($provider eq "netcom")
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@sms.netcom.no",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ },$errors);
++ }
++
++ elsif ($provider eq "nextel") # Nextel
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@messaging.nextel.com",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ 'subject' => "LJ",
++ },$errors);
++ }
++
++ elsif ($provider eq "nwgsm-megafon")
++ {
++ post_webform("http://www-old.nwgsm.ru:8101/sendsms.htm", {
++ "tll" => $self->{'number'},
++ "txt" => $msg->{'message'},
++ },$errors);
++ }
++
++ elsif ($provider eq "npiwireless")
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@npiwireless.com",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ },$errors);
++ }
++
++ elsif ($provider eq "ntelos") # NTELOS PCS
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@pcs.ntelos.com",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ 'subject' => "LJ",
++ },$errors);
++ }
++
++ elsif ($provider eq "o2")
++ {
++ send_mail($self, {
++ 'to' => $self->{'number'}."\@o2.co.uk",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ },$errors);
++ }
++
++ elsif ($provider eq "o2mmail")
++ {
++ send_mail($self, {
++ 'to' => "+44".$self->{'number'}."\@mmail.co.uk",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ },$errors);
+ }
+
+- elsif ($provider eq "nextel")
++ elsif ($provider eq "optus")
+ {
+- send_emailgate($self, $msg, "messaging.nextel.com");
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@optusmobile.com.au",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ },$errors);
+ }
+
+ elsif ($provider eq "pacbell")
+ {
+- post_webform("http://www.pacbellpcs.net/servlet/cmg.vasp.smlp.ShortMessageLaunchPad?FOO", $errors, {
+- "LANGUAGE" => "en",
+- "NETWORK" => "smsc1",
+- "DELIVERY_TIME" => 0,
+- "SENDER" => $msg->{'from'},
+- "RECIPIENT" => "1$self->{'number'}", # 11 digit phone number ("1"+number)
+- "SHORT_MESSAGE" => $msg->{'message'},
+- });
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@mobile.mycingular.com",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ },$errors);
+ }
+
+ elsif ($provider eq "pagenet")
+@@ -382,16 +1038,26 @@
+ 'to' => "$self->{'number'}\@pagenet.net",
+ 'from' => "$msg->{'from'}",
+ 'body' => "$msg->{'message'}",
+- });
++ },$errors);
+ }
+
+ elsif ($provider eq "pcsrogers")
+ {
+ send_mail($self, {
+- 'to' => "$self->{'number'}\@pcs.roger.com",
++ 'to' => "$self->{'number'}\@pcs.rogers.com",
++ # 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'from'}: $msg->{'message'}",
++ 'subject' => "LJ",
++ },$errors);
++ }
++
++ elsif ($provider eq "pscwireless")
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@sms.pscel.com",
+ 'from' => "$msg->{'from'}",
+ 'body' => "$msg->{'message'}",
+- });
++ },$errors);
+ }
+
+ elsif ($provider eq "ptel")
+@@ -400,12 +1066,26 @@
+ 'to' => "$self->{'number'}\@ptel.net",
+ 'from' => "$msg->{'from'}",
+ 'body' => "$msg->{'message'}",
+- });
++ },$errors);
++ }
++
++ elsif ($provider eq "qualcomm")
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@pager.qualcomm.com",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ },$errors);
+ }
+
+ elsif ($provider eq "qwest")
+ {
+- send_emailgate($self, $msg, "uswestdatamail.com");
++ send_mail($self, {
++ 'to' => "(f:$msg->{'from'})$self->{'number'}\@uswestdatamail.com",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ 'subject' => "LJ",
++ },$errors);
+ }
+
+ elsif ($provider eq "skytelalpha")
+@@ -414,47 +1094,209 @@
+ 'to' => "$self->{'number'}\@skytel.com",
+ 'from' => $msg->{'from'},
+ 'body' => $msg->{'message'},
+- });
++ },$errors);
++ }
++
++ elsif ($provider eq "smartsgsm")
++ {
++ post_webform("http://www.samara-gsm.ru/scripts/smsgate.exe/send", {
++ "phone" => $self->{'number'},
++ "sendtext" => $msg->{'message'},
++ },$errors);
++ }
++
++ elsif ($provider eq "sprintpcs") # SprintPCS
++ {
++ send_mail($self, {
++ 'to' => "(f:$msg->{'from'}) $self->{'number'}\@messaging.sprintpcs.com",
++ 'from' => "$msg->{'from'}\@livejournal.com",
++ 'body' => "$msg->{'message'}",
++ 'subject' => "LJ",
++ },$errors);
++ }
++
++ elsif ($provider eq "sprintpcs-shortmail")
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@messaging.sprintpcs.com",
++ 'from' => "$msg->{'from'}\@livejournal.com",
++ 'body' => "$msg->{'message'}",
++ 'subject' => "LJ",
++ },$errors);
++ }
++
++ elsif ($provider eq "suncom") {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@tms.suncom.com",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ },$errors);
++ }
++
++ elsif ($provider eq "surewest") {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@mobile.surewest.com",
++ 'body' => "(f:$msg->{'from'}) $msg->{'message'}",
++ },$errors);
++ }
++
++ elsif ($provider eq "telus") # Telus Mobility
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@msg.telus.com",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ 'subject' => "LJ",
++ },$errors);
++ }
++
++ elsif ($provider eq "tmobileaustria")
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@sms.t-mobile.at",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ },$errors);
+ }
+
+- elsif ($provider eq "sprintpcs")
++ elsif ($provider eq "tmobilegermany")
+ {
+- post_webform("http://www.messaging.sprintpcs.com/sms/check_message_syntax.html", [ ], { # no error checking
+- "mobilenum" => $self->{'number'},
+- "message" => "($msg->{'from'}) $msg->{'message'}",
+- "java" => "yes", # they mean javascript. dumb asses.
+- });
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@T-D1-SMS.de",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ },$errors);
++ }
++
++ elsif ($provider eq "tmobileholland")
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@gin.nl",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ },$errors);
+ }
+
++ elsif ($provider eq "tmobileusa")
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@tmomail.net",
++ 'subject' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ 'from' => "LJ",
++ },$errors);
++ }
++
+ elsif ($provider eq "uboot")
+ {
+- post_webform("http://www.uboot.com/cgi-bin/nickpage.fcgi", $errors, {
++ post_webform("http://www.uboot.com/cgi-bin/nickpage.fcgi", {
+ "page" => "Sms",
+ "action" => "send_sms",
+ "nickname" => $self->{'number'},
+- "text" => $msg->{'message'},
+- });
++ "text" => "LiveJournal($msg->{'from'}) $msg->{'message'}",
++ },$errors);
+ }
++
++ elsif ($provider eq "uma")
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@sms.umc.com.ua",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ },$errors);
++ }
+
+- elsif ($provider eq "vzw") # Verizon Wireless
++ elsif ($provider eq "uscc") # U.S Cellular
+ {
+- post_webform("http://msg.myvzw.com/servlet/SmsServlet", $errors, {
+- "min" => $self->{'number'},
++ post_webform("http://66.77.16.246/index.php", {
++ "number" => $self->{'number'},
+ "message" => $msg->{'message'},
+- ## from field *MUST* be in the form of an email address or it
+- ## will not be included in the message
+- "senderName" => "$msg->{'from'}\@livejournal.com",
+- });
++ },$errors);
++ }
++
++ elsif ($provider eq "vzw") # Verizon Wireless
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@vtext.com",
++ 'from' => "$msg->{'from'}\@livejournal.com",
++ 'body' => "$msg->{'message'}",
++ 'subject' => "LJ",
++
++ # is this necessary? (--brad 1.4.10)
++ # 'return-path' => "$msg->{'from'}\@livejournal.com",
++ },$errors);
++ }
++
++ elsif ($provider eq "vzw-myairmail")
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@myairmail.com",
++ 'from' => "$msg->{'from'}\@livejournal.com",
++ 'body' => "$msg->{'message'}",
++ },$errors);
++ }
++
++ elsif ($provider eq "vessotel" )
++ {
++ send_mail($self, {
++ 'to' => "roumer\@pager.irkutsk.ru",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ 'subject' => "$self->{'number'}",
++ },$errors);
++ }
++
++ elsif ($provider eq "virginmobileuk" )
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@vxtras.com",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ },$errors);
++ }
++
++ elsif ($provider eq "virginmobileusa" )
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@vmobl.com",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ },$errors);
++ }
++
++ elsif ($provider eq "vodacom" )
++ {
++ post_webform("http://websms.vodacom.net/send.php3", {
++ "cellnum" => $self->{'number'},
++ "message" => $msg->{'message'},
++ },$errors);
+ }
+
+ elsif ($provider eq "voicestream" )
+ {
+- post_webform("http://www.voicestream.com/messagecenter/rtsValidate.asp", $errors, {
+- "txtNum0" => $self->{'number'},
+- "From" => $msg->{'from'},
+- "Message" => $msg->{'message'},
+- "totSubscriber" => 1, ## who knows what this is.
+- });
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@voicestream.net",
++ 'from' => "$msg->{'from'}",
++ 'body' => "$msg->{'message'}",
++ },$errors);
++ }
++
++ elsif ($provider eq "weblinkwireless")
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@airmessage.net",
++ 'from' => $msg->{'from'},
++ 'body' => $msg->{'message'},
++ },$errors);
++ }
++
++ elsif ($provider eq "wyndtell")
++ {
++ send_mail($self, {
++ 'to' => "$self->{'number'}\@wyndtell.com",
++ 'from' => $msg->{'from'},
++ 'body' => $msg->{'message'},
++ },$errors);
+ }
+
+ else {
+@@ -464,7 +1306,7 @@
+
+ sub post_webform
+ {
+- my ($url, $errors, $postvars) = @_;
++ my ($url, $postvars, $errors) = @_;
+
+ ### we're going to POST to provider's page
+ my $ua = new LWP::UserAgent;
+@@ -477,40 +1319,45 @@
+
+ # Pass request to the user agent and get a response back
+ my $res = $ua->request($req);
+- if ($res->is_success) {
++ if ($res->is_success || $res->is_redirect) {
+ return;
+ } else {
+- push @$errors, "There was some error contacting the user's text messaging service via its web gateway. The message was most likely not sent.";
++ push @$errors, "There was some error contacting the user's text messaging service via its web gateway. The message was most likely not sent.";
+ return;
+ }
+ }
+
+-sub send_emailgate
+-{
+- my ($self, $msg, $domain) = @_;
+-
+- send_mail($self, {
+- 'to' => "$self->{'number'}\@$domain",
+- 'from' => "webmaster\@livejournal.com ($msg->{'from'})",
+- 'subject' => "LJ Msg",
+- 'body' => $msg->{'message'},
+- });
+-}
+-
+ sub send_mail
+ {
+ my $self = shift;
+ my $opt = shift;
+- open (MAIL, "|" . $self->{'sendmail'});
+- print MAIL "To: $opt->{'to'}\n";
+- print MAIL "Bcc: $opt->{'bcc'}\n" if ($opt->{'bcc'});
+- print MAIL "From: $opt->{'from'}";
+- if ($opt->{'fromname'}) {
+- print MAIL " ($opt->{'fromname'})";
+- }
+- print MAIL "\nSubject: $opt->{'subject'}\n\n";
+- print MAIL $opt->{'body'};
+- close MAIL;
++ my $errors = shift;
++ my $status;
++ unless ($opt->{'to'}) {
++ push @$errors, "To not defined in provider description.";
++ return;
++ }
++ unless ($opt->{'body'}) {
++ push @$errors, "Data not defined in provider description.";
++ return;
++ }
++ my $msg = new MIME::Lite ('From' => $opt->{'from'},
++ 'To' => $opt->{'to'},
++ 'Subject' => $opt->{'subject'},
++ 'Data' => $opt->{'body'});
++ if ($self->{'smtp'}) {
++ $status = eval { $msg->send_by_smtp($self->{'smtp'}, Timeout => 10) && 1; };
++ } else {
++ $status = eval { $msg->send_by_sendmail($self->{'sendmail'}) && 1; };
++ }
++ unless ($status) {
++ if ($@ =~ /(bad address syntax|syntax illegal)/i) {
++ push @$errors, "Recipient has an invalid email address on file.";
++ } else {
++ push @$errors, "There may have been a problem sending your message through the email gateway.";
++ }
++ }
++ return $status;
+ }
+
+ sub request_string
+@@ -574,7 +1421,7 @@
+ =head1 BUGS
+
+ This library is highly volatile, as cellphone and pager providers can
+-change the details of their web or email gateways at any time. In
++change the details of their web or email gateways at any time. In
+ practice I haven't had to update this library much, but providers have
+ no responsibility to tell me when they change their form field names
+ on their website, or change URLs*.
+@@ -588,17 +1435,22 @@
+ =head1 AUTHOR
+
+ Written by:
+- Nicholas Tang (ntang at livejournal.com)
++ - Nicholas Tang (ntang) - <ntang at livejournal.com>
++ - Aaron B. Russell (idigital) - <idigital at livejournal.com>
++ - Eric Carr (iicarrii) - <iicarrii at aol.com>
++ - Steven Kreuzer (22dip) - <skreuzer at mac.com>
++
++Based on (mostly still, actually) code by:
++ - Brad Fitzpatrick (bradfitz) - <bradfitz at bradfitz.com>
+
+-and members of the LJ Textmessage community:
+- - l2g
++Additional code provided by:
++ - Larry Gilbert (l2g) - <l2g at livejournal.com>
+ - delphy
+ - rory
+- - tsutton
++ - Tony Sutton (tsutton) - <tsutton at livejournal.com>
++ - Chris Bartow (christowang) - <chris at sysice.com>
++ - Gavin Mogan (halkeye) - <halkeye at livejournal.com>
+ (if you've been forgotten, please give a holler!)
+-
+-Based on (mostly still, actually) code by:
+- Brad Fitzpatrick, bradfitz at bradfitz.com
+
+ Information about text messaging gateways from many.
+
>Release-Note:
>Audit-Trail:
>Unformatted:
More information about the freebsd-ports-bugs
mailing list