Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

HTTP::Request Sending jpg to a web server

Status
Not open for further replies.
GrahamBright

GrahamBright

Programmer
Oct 31, 2003
65
AT
Hi,

Is there a limit to the size of a request send using
HTTP::Request. I need to send a picture and some text to a webserver, all is fine if the base64 encoded image is around 4 kbytes, any image larger than this gets corrupt.

Can you help ?

Thanks

Graham.

my $request = <<CONTENT
--soap-border
Content-Type: application/xml
Content-ID: <Test>

<?xml version="1.0"?>
<soap-env:Envelope xmlns:soap-env=" xmlns=" <soap-env:Header>
<TransactionID soap-env:mustUnderstand="1">TransID</TransactionID>
</soap-env:Header>
<soap-env:Body>
<SubmitReq>
<MM7Version>5.3.0</MM7Version>
<SenderIdentification>
<VASPID>43930820006</VASPID>
<VASID>News</VASID>
<SenderAddress>
<Number>0930820006</Number>
</SenderAddress>
</SenderIdentification>
<Recipients>
<To>
<Number>$RECIPIENT</Number>
</To>
</Recipients>
<LinkedID>mms00016666</LinkedID>
<MessageClass>Personal</MessageClass>
<DeliveryReport>True</DeliveryReport>
<ReadReply>False</ReadReply>
<Priority>Normal</Priority>
<Subject>SOAP TEST TOOL</Subject>
</SubmitReq>
</soap-env:Body>
</soap-env:Envelope>

--soap-border
Content-Type: multipart/mixed; boundary="boundary"

--boundary
Content-Type: text/plain; Name="tekst.txt"; Charset=ISO-8859-1
Content-id: <tekst.txt>
Content-location: tekst.txt

ßä

--boundary
Content-Type: image/gif;Name="h2bullet.gif"
Content-id: <test.jpg>
Content-location: test.jpg
Content-Transfer-Encoding: base64

/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0a
HBwgJC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIy
MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAC6AMsDASIA
AhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQA
AAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWm
p6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEA
AwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSEx
BhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElK
U1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3
uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD3+iii
gAooooAKKKKACiiigAooooAKKKhvLy30+ynvLuVYbaCNpJZGPCKBkk/hQBNRUNpdQ31lBd27h4J4
1ljYfxKwyD+RqagAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAorzP4weLdY8E
waDrWmOGgW6eG5tn+5OrLkA+h+U4I6fmK3PAnxG0bx5p4ktHFvfoB59lI4Lof9k8bl9wPqB0oA7C
iiigAryn4/eIxo/gMaXG+LjVpREB38pMM5/9BH/Aq9Wrxf4y/Da515dR8Vza+Uh06yJhsPsuQAoJ
I37+pOedvp1xQBY/Z88Ty6t4SudHu7kSz6bKBCrEbhAw+UepAYMPYED0r2CvHfhT8KJvC99p/iiP
xB5yXdiPNtPsezKyKrbd+89CFPTnHavYqACiiigAork/HHxC0XwJp3n6hL5t2/8AqbKJh5knvjsv
+0f1PFcz8IPF+u+ObrxDrOpsI7ESxQ2dqn3IcBiwBxycFCSfXsMCgD1KiiigAooooAKKKMjOO9AB
RRRQAUUUUAFFFFABRRRQB5x8ctJXVfhfeOEZ5rOeG4hVQSS24RngdflkavDfAHgfX4/HuiRXF1N4
eup4jeWc8keXkVTyqqe5GeG7dQQefrnGa4b4m+FbrXNGg1bRdyeItHf7Tp8iHluQWTHQ7gOAR1AH
QmgDt41KRqrOzkAAs2Mt7nAA/KnVgeCvE0Xi/wAJWGsxrskmTbPHjHlyrw6/TIOPbFb9ABXL/Ej/
AJJr4j/7B83/AKCa6jpXE/EXWtKk8Ba9Zpqdk11NYSiKEXCl3JUgALnJ/Ck2luJtLc3vCf8AyJuh
/wDYPt//AEWtbFc/4Nv7O48JaLDDdQSSpYQqyJIGKkIAQQPQ8GugpjTuFIRlSASCR1HalrE8YeIo
/CfhPUdcli80Wke5Y843uSFUZ7AswGaAPmn4j+Btbn+Imqx6fcz+Irtl+13Agj3SwIThEcKMbtu3
AA6YwAK9j+Aumvp3wzjaSNo5Lm8mlZWGCCCI+R/2zrS+FmiXFroc/iPUn3av4idb65AGFRTkxoo6
gBW7+uO1d4AB0GKACiiigAooooAKMZoooAB05oo96KACiiigAornPG3h278SeH5LfTdUvNM1GHMt
rPaztF8+0gK5HVDnn86+Ym+KHxF8O6jPYXGu3S3FtK0UsVyiS4ZTgglgfTqDQB9gUVwfwm8Ua54w
8Itq2t/ZAxnaKH7PGVLKoGWb5iMkkjAA6e9d5QAUUV454++KEryzaT4fmMaKSk14hwxIPSMg9P8A
a79vUxUqKCuzOrVjTjeQyfWbP4afEjW3tCt5pmqxieW0hkw1tdA56YwA24njn24GcHWPit4l1QSx
wTpYQPkBbdfnC+m8859xiuId2kdndizMclickn1qeysLvUrpbayt5biZuiRqWP1+nvXnzxE5baHm
VMVUm9NENnu7m5YtPcSyk8kyOWz+dQ13Vj8LdWaL7Rq91aaVbj7zTSBmHvgHb/49VkeC/B1qM3fj
SCXHX7Ps/oWrPll1MeSW7PPK0tO8Q6xpM6TWOpXMLqcgCQlT9VPBHsRXYnwL4VuiPsfjW1TPIWYJ
k56D7y81Q1L4YeIbJDLapDqEGMh7Z+cf7pwT+GaFGS1Q1Ga1Rv8Ah/4y3sd0sWvW8c1s2AZrdNrp
7kZww9hj+laP2n/haHxE0823PhnQVS6lEsZBuLlgdoweoXH6N1yK8elhkgleKaN45EOGR1IKn0IP
SrWlatfaJfx3un3DwToeCvQj0I6EexreniZR0lqjeli5xdpao+rwMDAori/AvxAtvFkRtbhFt9Uj
Xc8S52SL/eXP16Hn612ld0ZKSuj04TjNXiFFFcf8Sdc8Q+G/CcureHoLGZ7Y7rkXYPyxYOWXDLkg
445znpVFHYUV8e3Hxa+IOtXSwR65cK87hI4bWJIzknAUFRnqfXNfTPgLw7qXh3w6ketapdalqs5E
tzNcTtLsOPuKWJ+Uc/UkmgDqaKKKACk5HQDFLRQAUUUUAFecfEX4TWPjnUtP1KOVbS8ikRLp8cTQ
Z5BwOXHQHPQ4PbHo9FAHnWqfDKWw1FtY8Dao+hX+7e1n1spj0O6Mfdzx0BHHAB5pug/FEQ6idD8c
WQ8Paso+SaZtttcgdWRzwB9SR754r0euU+IjaPF4QubjWdLg1KKMr5UEw6uTgEHqOvUc4pNpK7E2
oq7OQ+K3jcxx/wDCP6ZMrCWMNdTRtn5TyEBHqOT7Eeprx2kVVRQqKFQDCqOgHpXR+DvC7+J9XMLu
YrKBfMuZem1fQHpk+/oT2ry6k3Ulc8WpUlVncseFPBVxr6tf3kostHiyZbqQhcgdQuePxPA9+lbV
/wCPrDQ4H07wbp8VtF917yRMvJ7gHr9Wz9BWX418Wpq0iaTpIMGiWgCRRpkCXH8RHpxxn69Txx9T
fl0RLly6RLN7qN7qU3m313PcyDo00hcj6Z6VWooqCArR0vXdV0WVZNOv57fDbiiudjH3XofxFZ1F
AHpVt4o0Dxsi2Hii0is79hti1GL5QD2yT0/HI+lcj4m8K6j4XvfKu1DwOT5Nwn3JB/Q+38+tYdeg
+D9etta08+EPELl7acgWc7H5oX/hUE/p+XQ8Xfm0e5pfm0e5wtle3OnXkV5ZzPDcRNuSRDgg19H+
CPFkXirQEuXaNLyH5LqNT91v72OwPX8x2r5613RrnQNYuNNusGSI8OBw6nkMPqKbpVyVuBZTXt1b
afeOkV79nmMZeLPzAkdRgkEehNa0Kjpys9jXD1XTnZ7Hs/iL4qwwaidF8I6dJ4j1gjDLanMMB7F3
HH5HHHJFRWnwxuvEF8urfEDUzqlxkMmm27MlnAR0wucscfTOTnNdvofhzR/DVl9k0bToLKE4LCJe
XPqzHlj7kmtSvSPXPMvBHwa0nwh4mvdZaT7UwlP9no4z9njI6nPV8kjPoM9Tx6bRRQAUUUUAFFFF
ABRRRQAUVVvdSsdOERvby3thK4jj86QJvc8BVz1J9BVqgArx7416tMLjTtIRysOw3Mij+I5Krn6Y
b869hr5y+J19JfePtQDuWS32QRj+6AoJH/fRY/jXPiZWp+py4yVqdu5yFekajIvg74aWdjACuo62
vmzyAYKx4BKnv0YLj3auF0WyXUdd0+yfOy4uY4mx1ClgD+ldP8Ur1rnxpLbdI7OGOFADxyu88f8A
AsfhXAtE2eZHSLZxVS21tPeXMdtbRPLNKwVEQZLE9hUVex/Bnw9GLa51+4iBlZ/JtmYfdAHzMPrn
H4H1p0oc8uUdKm6k1E1/DHwo0jS4Em1dF1C96sG/1S+wXv8Aj+Vd5b2ltaIEtreKFB/DGgUfkKmo
r1IwjFWSPZhTjBWijN1Lw/pGrxGO/wBNtpwf4mjG4fRuo/CvHPHnwybw/bS6rpUrzWCsN8DAl4QR
1z3XP5ZHXrXutNkjSaJ4pUV43UqysMhgeoI7ipqUozWpFWjGotdz5FpUdo3V0YqynIYHBB9a3vGf
h5/DPia6sCP3BPm27f3o26flyPqDWBXlSTi7M8aUXFtM9G8UNH4s8AWPiYKBf2TC1uyAPm6DJ/Eq
R/vmvOa9E+Gv/Ey0zxFoMpzFcWvmKOu1uVyB3PK/kK87qpa2ZU9bM+lfh7qLan4F0ueSTzJUjMTk
tk5Rioz74AP4109eV/BG6Z9L1e0z8sU0coHuykf+yCvVK9OlLmgmexQlzU0wooqnY6tp2pmUWN9b
XLQu0cixShijKcEEDoQfWtDUuUUUUAFFFFABXinxS8XfE/Qr64/szTI7XRQdsV7axi4ZhtGSxOdn
JPVRyOCete10UAfC9jqOr3niqwvDLLf6r9qiMRu5C5kkDDaGZjnGcDqK+iP+Eh+Of/QmaH/3+X/5
IrutX+H/AIX1rVIdUu9KhGoxTJOt1D+7kLqQQWI+90HXNdNQB4//AMJD8c/+hM0P/v8AL/8AJFeZ
a3Nqdxrd7NrMMcGpvMxuYozlUfPKg5PA6dT9a+ra+bviTavaePtUDAgSOsqk9wyg/wA8j8K5cX8C
OLHL3F6lXwIIz440nzCQvn8Y9cHH64p3j0yHxzq3mABvO4x6bRj9MVm6BeLp/iLTbyRiscNzG7kf
3Qwz+ma6H4oWTWvji5lIGy6jjmTHptCn9VNcX2Tz/sHG19I/DUBfh7pIXpskP4+Y1fN1e4/BvXPt
egz6PK6+ZZPviXGD5bkk/XDZ/MVthWlOx0YKSVSz6npdFcv4p8d6X4Rure3v4LyR50LqYEVgADjn
LCsH/hdPhz/ny1X/AL9R/wDxddrqwi7NnoSrU4uzZ6NRXnP/AAunw5/z5ar/AN+o/wD4uun8LeLr
DxdbXE9hDcxpA4RhOqqSSM8YY041ISdkxxrQk7RZ5f8AGsD/AISPTjjk2mM/8DavMq634jeI4/Ef
iuWW3A+zWq/Z4mH8YBJLfiSfwxXJV5tZp1G0eRXkpVG0d/8ACAv/AMJfPtHH2J9303p/XFcHOIxP
IISTEGOwnuM8V6D8MALC31/W5QVitbTbuA5JOWwPf5R+Yrzupfwol/CjsfA1/wCMbCHUW8G6Zaaj
dM0QniumCqqfP8wzInOeOp611f8AwkPxz/6EzQ/+/wAv/wAkVY+B8DLZ61cEHbJJEgPuoYn/ANCF
esV6OH/ho9XCr90jx/8A4SH45/8AQmaH/wB/l/8AkivnbUb/AFW08UX940j2OqC6laU20hUxyFju
CsD0zkdT9a+6a5bSfhz4W0bV5dWt9LjfUZZ3nNzOTI6uxJJXPC9T0ArY6DzL4X+MvijrupwR3mnr
e6QuFnuruEW5VcHBVwBuOQOit15xnNe7UUUAFFFFABRRRQAUUUUAFeMfGzTpF1TTdTCHynhMBcdm
UlgD+DH8jXs9c7440JfEPhO8szIkUiL50TuQFDLyMk9AeQT2BrOtDng0Y14c9NpHzLXo+vR/8JZ8
OdN1qAl7zSl8i7TqSuACx/IN9GPpXnHHYgj1U5B+hHWuo8EeJ08O6pJHeJ5mm3i+VdJjOB2bHfGT
x6E15cX0Z5EX0Zy9bng25mtvGmjNBK0bPexRsVOMqzgEH2INXPGfhQ+Hb5J7RvP0m6+e1nU7hgjO
0n19PUc+uM7wn/yOOh/9hCD/ANGLTimpIIpqaO7+Nv8AyGdL/wCvdv8A0KvMIozLIEBAJzyelen/
ABt/5DOl/wDXu3/oVeZ2gzcL9G/karEu1RndToxr46FKe0pRT+bSGSxmKQoxBI7itvS/Fd9o/hy+
0mx/dm9fMswPzBMY2r6Z5yax7s5uG+g/kKhrOMmtUc+Kp/V8RUpw+y2vudgoAJOB1oruvBHh62ig
fxVrh8rS7I74lYczSDpgdwD+Z47GhK7OdK7sXddjHhL4a2uhucahqkguLhOhReDg/kq+/wA1ecVr
eJden8Sa5PqM42B8LHHnIRB0H9T7k1J4V8P3PiTX7ayhhaSLerXDA42RbgGOfoar4pWRT96VonuX
ww01dO8CWLbCsl0WuJM9yTgH/vkLXYU2ONIYkiiRUjRQqoowFA6ADsKdXqxjypI9uEeWKj2Ciiiq
KCiiigAooooAKKKKACuT8ZfEHR/BUumw38gaa9uFj8pW+aOMkgykf3Qfz7dKv+LvFmneDfD8+rai
4wgKww7gGmkwSEX3OPwHNfIl+viz4hazc6uNO1HU5pWPzQW7yLGueFGBgAdKAPqbxT8SdH8Oymwt
Vk1fXHGIdMsQXkZv9ogHaP1x2Nc3aeB/EfjyYaj8QLuS0sj/AKrQrKYpHt6gykHlv146jpTPgXoU
2jaBdR6n4bl03Vo5Cpu57fY88TchQx54I5HT7tes0AeI/FDwLFpPk6to1msWnrGsU8US4WIjCq2P
QjA+v1rzGvre4tobu3kt7mJJYZF2vG65Vh6EV4N4++Hl1oN1LqGnRNNpkjNIRGh/0YZ6NyeOevtX
DiKLT54nm4rDtPniU/C3jUWFodF1yH7dokvylGGWi919RnnHbqPffsvh+I/EWkaz4dvotQ0tb6GR
gHG+JQ4J57459D7V5dXQ+CdRvLHxfpSWtzLCk95DFKqNgSKXAII79TXPCWqTOaEtUmdj8bf+Qzpf
/Xu3/oVeZ2p23Cn2I/Q17n8RvEum6RqFhZarokOpW00bPufG6PnB25H9R9a891TVPBN/YTLpWh3d
pqZAMUhb5BgjPG8j7ue1ViUuaWp6eDiv7Tpa/bj+aONuDmdvw/lT7OxutRuUt7O3knmc4CRqSa6/
SdZ8F6fp8SajoNxd6iM+dJnKNySuAX9MA8Cprr4o3sUBttD0yy0q3xwI0DMD6jgL+lZRS5VdmOaQ
Sx1a7+3L82WNO8D6f4ct01bxjdxIqjdHp6MGeQ+hwefoOPU4rnvFfjG88TTJFsFtp0J/cWqdF4wC
fU4/LtWHe311qN09zeXEk87/AHnkbJ//AFe1JZ2dzqF3Ha2kDz3EhwkcYyWNO/RHA5X0iRwwy3Ey
QwxvJK5CoiKSzE9gB1NfQ/w68IL4X0MSXCEaldgNcZOdgGcIPpnn1P0FZ3w7+HqaBEuqapGkmpSK
GjQj/j2BByPQsc8ntjjvXodd2Ho8vvS3PQwuH5PfluFFFFdR2hRRRQAUV8f+PPGPi6H4g6sJdY1O
0e0vZRbwrcMghTcdu0AgYK457ivYvGnxU1bwLofhcvpsV1dahYLLc/aGKssgVMjjvljQB69RXE/C
/wAcXPj7wzc6rdWcVq8V41sEiYsCAiNnn/fP5V21ABRRRQBFPa29zs8+CKXYcr5iBtp9RnpUoGBg
UUUAFFFFABSMAylWAIIwQe9LRQB5t4s+E1jqrtd6I0VhckkvEQfKc+wH3PwGPavPNK8K63ofjjSI
77TbhFj1CAmVULRkeYvIYcYr6MorCWHhJ3WhzTwsJPmWjPFfjb/yGdL/AOvdv/Qq82sf+Pof7j/+
gmvSfjb/AMhnS/8Ar3b/ANCrzO1cR3Ck9CCv5gj+tcOJ/iMypTUMfCctlKL/ABQlx/r2/D+VJBbz
3Uoit4ZJpD0SNSx/IUtwwaYkEEe1ej/BT/kZtQ/68z/6GtRRhzNRY8xUK2Y1uSV05yd1ru2yj4e+
E+u6uqTX23TLZhkGZd0hH+52/Eiu/wBWfwz8IPCs+qw2YkmJWNA7/vbhz/DuI4GAScDHB4rv68Q/
aUJ/4R3Qxnj7W/H/AACvTp0YQ2N6WHhT23OCuP2gPG0moNPC9jDBuJW2+zhlA7Ak/MfrkVra3+0X
rd3Y2kej6fb2FyI/9Kmk/ehn/wBhT0HfnPXHbJ57wRommah8LvHN/d2UM13ZxwtbzOuWiPzfdPas
v4TaVY638TtG0/UrZLm0kMpeGT7rbYXYZ9eVBxWpsejeAfj5qM+sQab4qjhlhuZFjS8hQRmJicZc
dCvI6Yxz1r1H4i/Eaw+H+lxSywm6vrklbe2VwOg+83cKOnA6mvk7xdawad4212ztIxDb22o3EUKK
eEVZGCgfQAV2/wAf3lf4nyiTOxLSER5/u4J4/EtQAx/j546a684XVkiZz5K2q7Ppk/N+te0/DP4t
WPjtf7Puols9bjQu0IJMcqjGWQn6/dPP1AOPN/A2mfDXVfhqLbUFtG8RvFOGEkjLMZBuKFQD027e
nHHNeffC/UpNL+Jvh6eMkGS8S3OMciU+Wev+9QB1Hj34k+ILP4hapEg02Q6feSRWss2nQySRKrHG
HZSR+dafx9uZb2y8GXU7Bpp7B5HIGMsRGTx9TXn3xH/5KT4j/wCwhN/6Ea7v45f8gbwL/wBgw/8A
oMdAHefs4/8AJPNQ/wCwrJ/6Kir2CvH/ANnH/knmof8AYVk/9FRV7BQAUUUUAFFFFABRRRQAUUUU
AFFFFAHl/wAUvCWueI9TsJtJsftEcULK581Ewd2f4mFcF/wq/wAZf9Af/wAmYf8A4uvo2isJ4eM5
czOaeFhOTk2z5y/4Vf4y/wCgP/5Mw/8Axddz8L/B+veHddvLnVbH7PDJbeWrecj5bcpxhWPYGvVK
KUMPCMuZChhIQkpJsK82+MPgTV/HWk6bbaQ1ssltO0j/AGiQqMFccYBr0miug6jxHwn8J/EeifD/
AMWaJdPYm71WONbcpMSoK5zuO3jr71Q+G/wa8T+FPH2ma3qMmnm0tvN3iGZmb5onQYBUd2Fe+0UA
fNnif4FeLtX8WazqdtJpgt7y+nuIg87BtryFhkbeuDXqvxP+Gdv8QdPheKdLTVLQN5E7R5Dgj/Vu
RztzjnnGTwc131FAHzR4b+B3jHSvEltdXKWHkRb9zpcZ6oQOMZ6mpPDHwK8XaR4s0bU7mTTDb2d9
BcShJ2LbUkDHA29cCvpOigD5y8X/AAO8Wa54w1fVbSTTRb3d3JNGJJ2DbWORkbetdP8AEv4W+IPF
un+GYNNeyD6bZmCfzpSoLYQfLhTkfKa9mooA4D4Q+DdU8D+E7rTNWa3a4lvnuFMDll2mONRyQOcq
a7kGWQB43RUIyA0Zz/OiQiVzCDwMGTjIx6c+v8vTIqagAooooAKKKKACiiigAooooAKKKKACiiig
AooooAKKKKACiiigAooooAKKKKACo5JNuEXBkYHav9T7DipKq2xJvLzJJw6gew2g4/U/nQBPFH5S
bclj1Zj1J9afRRQB/9k=
--boundary--


--soap-border--

CONTENT
;
 
Sort by date Sort by votes
Hi Some trace, seems like the image is corrupt with

% 9

I think this is a carriage return.

my source code

use LWP::UserAgent(keep_alive => 500,timeout =>600);
use HTTP::Request;
use HTTP::Headers;
#use SOAP::MIME;
#use MIME::Entity;
use LWP::Debug qw(+);
#use MIME::Lite;

my $objUserAgent = LWP::UserAgent->new;

&input_parameters();
&soap_request();

sub input_parameters()

{

if ($#ARGV < 1) { die " usage:: perl MM7Client.pl <RECIPIENT> <SYSTEM::(S)MART::(P)OWER>\n" }

$RECIPIENT = $ARGV[0];
$SYSTEM= $ARGV[1];

if ( ( $SYSTEM ne 'S' ) && ( $SYSTEM ne 'P' ) )
{ print "Invalid system entered S for SMART P for POWER \n"; exit; }


print "\n*******************************\n";
print "The recipient is $RECIPIENT\n";
print "The system is $SYSTEM\n";
print "\n*******************************\n";

}


sub soap_request()
{
my $request = <<CONTENT
--soap-border
Content-Type: application/xml
Content-ID: <Test>

<?xml version="1.0"?>
<soap-env:Envelope xmlns:soap-env=" xmlns=" <soap-env:Header>
<TransactionID soap-env:mustUnderstand="1">TransID</TransactionID>
</soap-env:Header>
<soap-env:Body>
<SubmitReq>
<MM7Version>5.3.0</MM7Version>
<SenderIdentification>
<VASPID>43930820006</VASPID>
<VASID>News</VASID>
<SenderAddress>
<Number>0930820006</Number>
</SenderAddress>
</SenderIdentification>
<Recipients>
<To>
<Number>$RECIPIENT</Number>
</To>
</Recipients>
<LinkedID>mms00016666</LinkedID>
<MessageClass>Personal</MessageClass>
<DeliveryReport>True</DeliveryReport>
<ReadReply>False</ReadReply>
<Priority>Normal</Priority>
<Subject>SOAP TEST TOOL</Subject>
</SubmitReq>
</soap-env:Body>
</soap-env:Envelope>

--soap-border
Content-Type: multipart/mixed; boundary="boundary"

--boundary
Content-Type: text/plain; Name="tekst.txt"; Charset=ISO-8859-1
Content-id: <tekst.txt>
Content-location: tekst.txt

ßä

--boundary
Content-Type: image/gif;Name="h2bullet.gif"
Content-id: <test.jpg>
Content-location: test.jpg
Content-Transfer-Encoding: base64

/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0a
HBwgJC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIy
MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAC6AMsDASIA
AhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQA
AAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3
ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWm
p6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEA
AwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSEx
BhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElK
U1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3
uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD3+iii
gAooooAKKKKACiiigAooooAKKKhvLy30+ynvLuVYbaCNpJZGPCKBkk/hQBNRUNpdQ31lBd27h4J4
1ljYfxKwyD+RqagAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAorzP4weLdY8E
waDrWmOGgW6eG5tn+5OrLkA+h+U4I6fmK3PAnxG0bx5p4ktHFvfoB59lI4Lof9k8bl9wPqB0oA7C
iiigAryn4/eIxo/gMaXG+LjVpREB38pMM5/9BH/Aq9Wrxf4y/Da515dR8Vza+Uh06yJhsPsuQAoJ
I37+pOedvp1xQBY/Z88Ty6t4SudHu7kSz6bKBCrEbhAw+UepAYMPYED0r2CvHfhT8KJvC99p/iiP
xB5yXdiPNtPsezKyKrbd+89CFPTnHavYqACiiigAork/HHxC0XwJp3n6hL5t2/8AqbKJh5knvjsv
+0f1PFcz8IPF+u+ObrxDrOpsI7ESxQ2dqn3IcBiwBxycFCSfXsMCgD1KiiigAooooAKKKMjOO9AB
RRRQAUUUUAFFFFABRRRQB5x8ctJXVfhfeOEZ5rOeG4hVQSS24RngdflkavDfAHgfX4/HuiRXF1N4
eup4jeWc8keXkVTyqqe5GeG7dQQefrnGa4b4m+FbrXNGg1bRdyeItHf7Tp8iHluQWTHQ7gOAR1AH
QmgDt41KRqrOzkAAs2Mt7nAA/KnVgeCvE0Xi/wAJWGsxrskmTbPHjHlyrw6/TIOPbFb9ABXL/Ej/
AJJr4j/7B83/AKCa6jpXE/EXWtKk8Ba9Zpqdk11NYSiKEXCl3JUgALnJ/Ck2luJtLc3vCf8AyJuh
/wDYPt//AEWtbFc/4Nv7O48JaLDDdQSSpYQqyJIGKkIAQQPQ8GugpjTuFIRlSASCR1HalrE8YeIo
/CfhPUdcli80Wke5Y843uSFUZ7AswGaAPmn4j+Btbn+Imqx6fcz+Irtl+13Agj3SwIThEcKMbtu3
AA6YwAK9j+Aumvp3wzjaSNo5Lm8mlZWGCCCI+R/2zrS+FmiXFroc/iPUn3av4idb65AGFRTkxoo6
gBW7+uO1d4AB0GKACiiigAooooAKMZoooAB05oo96KACiiigAornPG3h278SeH5LfTdUvNM1GHMt
rPaztF8+0gK5HVDnn86+Ym+KHxF8O6jPYXGu3S3FtK0UsVyiS4ZTgglgfTqDQB9gUVwfwm8Ua54w
8Itq2t/ZAxnaKH7PGVLKoGWb5iMkkjAA6e9d5QAUUV454++KEryzaT4fmMaKSk14hwxIPSMg9P8A
a79vUxUqKCuzOrVjTjeQyfWbP4afEjW3tCt5pmqxieW0hkw1tdA56YwA24njn24GcHWPit4l1QSx
wTpYQPkBbdfnC+m8859xiuId2kdndizMclickn1qeysLvUrpbayt5biZuiRqWP1+nvXnzxE5baHm
VMVUm9NENnu7m5YtPcSyk8kyOWz+dQ13Vj8LdWaL7Rq91aaVbj7zTSBmHvgHb/49VkeC/B1qM3fj
SCXHX7Ps/oWrPll1MeSW7PPK0tO8Q6xpM6TWOpXMLqcgCQlT9VPBHsRXYnwL4VuiPsfjW1TPIWYJ
k56D7y81Q1L4YeIbJDLapDqEGMh7Z+cf7pwT+GaFGS1Q1Ga1Rv8Ah/4y3sd0sWvW8c1s2AZrdNrp
7kZww9hj+laP2n/haHxE0823PhnQVS6lEsZBuLlgdoweoXH6N1yK8elhkgleKaN45EOGR1IKn0IP
SrWlatfaJfx3un3DwToeCvQj0I6EexreniZR0lqjeli5xdpao+rwMDAori/AvxAtvFkRtbhFt9Uj
Xc8S52SL/eXP16Hn612ld0ZKSuj04TjNXiFFFcf8Sdc8Q+G/CcureHoLGZ7Y7rkXYPyxYOWXDLkg
445znpVFHYUV8e3Hxa+IOtXSwR65cK87hI4bWJIzknAUFRnqfXNfTPgLw7qXh3w6ketapdalqs5E
tzNcTtLsOPuKWJ+Uc/UkmgDqaKKKACk5HQDFLRQAUUUUAFecfEX4TWPjnUtP1KOVbS8ikRLp8cTQ
Z5BwOXHQHPQ4PbHo9FAHnWqfDKWw1FtY8Dao+hX+7e1n1spj0O6Mfdzx0BHHAB5pug/FEQ6idD8c
WQ8Paso+SaZtttcgdWRzwB9SR754r0euU+IjaPF4QubjWdLg1KKMr5UEw6uTgEHqOvUc4pNpK7E2
oq7OQ+K3jcxx/wDCP6ZMrCWMNdTRtn5TyEBHqOT7Eeprx2kVVRQqKFQDCqOgHpXR+DvC7+J9XMLu
YrKBfMuZem1fQHpk+/oT2ry6k3Ulc8WpUlVncseFPBVxr6tf3kostHiyZbqQhcgdQuePxPA9+lbV
/wCPrDQ4H07wbp8VtF917yRMvJ7gHr9Wz9BWX418Wpq0iaTpIMGiWgCRRpkCXH8RHpxxn69Txx9T
fl0RLly6RLN7qN7qU3m313PcyDo00hcj6Z6VWooqCArR0vXdV0WVZNOv57fDbiiudjH3XofxFZ1F
AHpVt4o0Dxsi2Hii0is79hti1GL5QD2yT0/HI+lcj4m8K6j4XvfKu1DwOT5Nwn3JB/Q+38+tYdeg
+D9etta08+EPELl7acgWc7H5oX/hUE/p+XQ8Xfm0e5pfm0e5wtle3OnXkV5ZzPDcRNuSRDgg19H+
CPFkXirQEuXaNLyH5LqNT91v72OwPX8x2r5613RrnQNYuNNusGSI8OBw6nkMPqKbpVyVuBZTXt1b
afeOkV79nmMZeLPzAkdRgkEehNa0Kjpys9jXD1XTnZ7Hs/iL4qwwaidF8I6dJ4j1gjDLanMMB7F3
HH5HHHJFRWnwxuvEF8urfEDUzqlxkMmm27MlnAR0wucscfTOTnNdvofhzR/DVl9k0bToLKE4LCJe
XPqzHlj7kmtSvSPXPMvBHwa0nwh4mvdZaT7UwlP9no4z9njI6nPV8kjPoM9Tx6bRRQAUUUUAFFFF
ABRRRQAUVVvdSsdOERvby3thK4jj86QJvc8BVz1J9BVqgArx7416tMLjTtIRysOw3Mij+I5Krn6Y
b869hr5y+J19JfePtQDuWS32QRj+6AoJH/fRY/jXPiZWp+py4yVqdu5yFekajIvg74aWdjACuo62
vmzyAYKx4BKnv0YLj3auF0WyXUdd0+yfOy4uY4mx1ClgD+ldP8Ur1rnxpLbdI7OGOFADxyu88f8A
AsfhXAtE2eZHSLZxVS21tPeXMdtbRPLNKwVEQZLE9hUVex/Bnw9GLa51+4iBlZ/JtmYfdAHzMPrn
H4H1p0oc8uUdKm6k1E1/DHwo0jS4Em1dF1C96sG/1S+wXv8Aj+Vd5b2ltaIEtreKFB/DGgUfkKmo
r1IwjFWSPZhTjBWijN1Lw/pGrxGO/wBNtpwf4mjG4fRuo/CvHPHnwybw/bS6rpUrzWCsN8DAl4QR
1z3XP5ZHXrXutNkjSaJ4pUV43UqysMhgeoI7ipqUozWpFWjGotdz5FpUdo3V0YqynIYHBB9a3vGf
h5/DPia6sCP3BPm27f3o26flyPqDWBXlSTi7M8aUXFtM9G8UNH4s8AWPiYKBf2TC1uyAPm6DJ/Eq
R/vmvOa9E+Gv/Ey0zxFoMpzFcWvmKOu1uVyB3PK/kK87qpa2ZU9bM+lfh7qLan4F0ueSTzJUjMTk
tk5Rioz74AP4109eV/BG6Z9L1e0z8sU0coHuykf+yCvVK9OlLmgmexQlzU0wooqnY6tp2pmUWN9b
XLQu0cixShijKcEEDoQfWtDUuUUUUAFFFFABXinxS8XfE/Qr64/szTI7XRQdsV7axi4ZhtGSxOdn
JPVRyOCete10UAfC9jqOr3niqwvDLLf6r9qiMRu5C5kkDDaGZjnGcDqK+iP+Eh+Of/QmaH/3+X/5
IrutX+H/AIX1rVIdUu9KhGoxTJOt1D+7kLqQQWI+90HXNdNQB4//AMJD8c/+hM0P/v8AL/8AJFeZ
a3Nqdxrd7NrMMcGpvMxuYozlUfPKg5PA6dT9a+ra+bviTavaePtUDAgSOsqk9wyg/wA8j8K5cX8C
OLHL3F6lXwIIz440nzCQvn8Y9cHH64p3j0yHxzq3mABvO4x6bRj9MVm6BeLp/iLTbyRiscNzG7kf
3Qwz+ma6H4oWTWvji5lIGy6jjmTHptCn9VNcX2Tz/sHG19I/DUBfh7pIXpskP4+Y1fN1e4/BvXPt
egz6PK6+ZZPviXGD5bkk/XDZ/MVthWlOx0YKSVSz6npdFcv4p8d6X4Rure3v4LyR50LqYEVgADjn
LCsH/hdPhz/ny1X/AL9R/wDxddrqwi7NnoSrU4uzZ6NRXnP/AAunw5/z5ar/AN+o/wD4uun8LeLr
DxdbXE9hDcxpA4RhOqqSSM8YY041ISdkxxrQk7RZ5f8AGsD/AISPTjjk2mM/8DavMq634jeI4/Ef
iuWW3A+zWq/Z4mH8YBJLfiSfwxXJV5tZp1G0eRXkpVG0d/8ACAv/AMJfPtHH2J9303p/XFcHOIxP
IISTEGOwnuM8V6D8MALC31/W5QVitbTbuA5JOWwPf5R+Yrzupfwol/CjsfA1/wCMbCHUW8G6Zaaj
dM0QniumCqqfP8wzInOeOp611f8AwkPxz/6EzQ/+/wAv/wAkVY+B8DLZ61cEHbJJEgPuoYn/ANCF
esV6OH/ho9XCr90jx/8A4SH45/8AQmaH/wB/l/8AkivnbUb/AFW08UX940j2OqC6laU20hUxyFju
CsD0zkdT9a+6a5bSfhz4W0bV5dWt9LjfUZZ3nNzOTI6uxJJXPC9T0ArY6DzL4X+MvijrupwR3mnr
e6QuFnuruEW5VcHBVwBuOQOit15xnNe7UUUAFFFFABRRRQAUUUUAFeMfGzTpF1TTdTCHynhMBcdm
UlgD+DH8jXs9c7440JfEPhO8szIkUiL50TuQFDLyMk9AeQT2BrOtDng0Y14c9NpHzLXo+vR/8JZ8
OdN1qAl7zSl8i7TqSuACx/IN9GPpXnHHYgj1U5B+hHWuo8EeJ08O6pJHeJ5mm3i+VdJjOB2bHfGT
x6E15cX0Z5EX0Zy9bng25mtvGmjNBK0bPexRsVOMqzgEH2INXPGfhQ+Hb5J7RvP0m6+e1nU7hgjO
0n19PUc+uM7wn/yOOh/9hCD/ANGLTimpIIpqaO7+Nv8AyGdL/wCvdv8A0KvMIozLIEBAJzyelen/
ABt/5DOl/wDXu3/oVeZ2gzcL9G/karEu1RndToxr46FKe0pRT+bSGSxmKQoxBI7itvS/Fd9o/hy+
0mx/dm9fMswPzBMY2r6Z5yax7s5uG+g/kKhrOMmtUc+Kp/V8RUpw+y2vudgoAJOB1oruvBHh62ig
fxVrh8rS7I74lYczSDpgdwD+Z47GhK7OdK7sXddjHhL4a2uhucahqkguLhOhReDg/kq+/wA1ecVr
eJden8Sa5PqM42B8LHHnIRB0H9T7k1J4V8P3PiTX7ayhhaSLerXDA42RbgGOfoar4pWRT96VonuX
ww01dO8CWLbCsl0WuJM9yTgH/vkLXYU2ONIYkiiRUjRQqoowFA6ADsKdXqxjypI9uEeWKj2Ciiiq
KCiiigAooooAKKKKACuT8ZfEHR/BUumw38gaa9uFj8pW+aOMkgykf3Qfz7dKv+LvFmneDfD8+rai
4wgKww7gGmkwSEX3OPwHNfIl+viz4hazc6uNO1HU5pWPzQW7yLGueFGBgAdKAPqbxT8SdH8Oymwt
Vk1fXHGIdMsQXkZv9ogHaP1x2Nc3aeB/EfjyYaj8QLuS0sj/AKrQrKYpHt6gykHlv146jpTPgXoU
2jaBdR6n4bl03Vo5Cpu57fY88TchQx54I5HT7tes0AeI/FDwLFpPk6to1msWnrGsU8US4WIjCq2P
QjA+v1rzGvre4tobu3kt7mJJYZF2vG65Vh6EV4N4++Hl1oN1LqGnRNNpkjNIRGh/0YZ6NyeOevtX
DiKLT54nm4rDtPniU/C3jUWFodF1yH7dokvylGGWi919RnnHbqPffsvh+I/EWkaz4dvotQ0tb6GR
gHG+JQ4J57459D7V5dXQ+CdRvLHxfpSWtzLCk95DFKqNgSKXAII79TXPCWqTOaEtUmdj8bf+Qzpf
/Xu3/oVeZ2p23Cn2I/Q17n8RvEum6RqFhZarokOpW00bPufG6PnB25H9R9a891TVPBN/YTLpWh3d
pqZAMUhb5BgjPG8j7ue1ViUuaWp6eDiv7Tpa/bj+aONuDmdvw/lT7OxutRuUt7O3knmc4CRqSa6/
SdZ8F6fp8SajoNxd6iM+dJnKNySuAX9MA8Cprr4o3sUBttD0yy0q3xwI0DMD6jgL+lZRS5VdmOaQ
Sx1a7+3L82WNO8D6f4ct01bxjdxIqjdHp6MGeQ+hwefoOPU4rnvFfjG88TTJFsFtp0J/cWqdF4wC
fU4/LtWHe311qN09zeXEk87/AHnkbJ//AFe1JZ2dzqF3Ha2kDz3EhwkcYyWNO/RHA5X0iRwwy3Ey
QwxvJK5CoiKSzE9gB1NfQ/w68IL4X0MSXCEaldgNcZOdgGcIPpnn1P0FZ3w7+HqaBEuqapGkmpSK
GjQj/j2BByPQsc8ntjjvXodd2Ho8vvS3PQwuH5PfluFFFFdR2hRRRQAUV8f+PPGPi6H4g6sJdY1O
0e0vZRbwrcMghTcdu0AgYK457ivYvGnxU1bwLofhcvpsV1dahYLLc/aGKssgVMjjvljQB69RXE/C
/wAcXPj7wzc6rdWcVq8V41sEiYsCAiNnn/fP5V21ABRRRQBFPa29zs8+CKXYcr5iBtp9RnpUoGBg
UUUAFFFFABSMAylWAIIwQe9LRQB5t4s+E1jqrtd6I0VhckkvEQfKc+wH3PwGPavPNK8K63ofjjSI
77TbhFj1CAmVULRkeYvIYcYr6MorCWHhJ3WhzTwsJPmWjPFfjb/yGdL/AOvdv/Qq82sf+Pof7j/+
gmvSfjb/AMhnS/8Ar3b/ANCrzO1cR3Ck9CCv5gj+tcOJ/iMypTUMfCctlKL/ABQlx/r2/D+VJBbz
3Uoit4ZJpD0SNSx/IUtwwaYkEEe1ej/BT/kZtQ/68z/6GtRRhzNRY8xUK2Y1uSV05yd1ru2yj4e+
E+u6uqTX23TLZhkGZd0hH+52/Eiu/wBWfwz8IPCs+qw2YkmJWNA7/vbhz/DuI4GAScDHB4rv68Q/
aUJ/4R3Qxnj7W/H/AACvTp0YQ2N6WHhT23OCuP2gPG0moNPC9jDBuJW2+zhlA7Ak/MfrkVra3+0X
rd3Y2kej6fb2FyI/9Kmk/ehn/wBhT0HfnPXHbJ57wRommah8LvHN/d2UM13ZxwtbzOuWiPzfdPas
v4TaVY638TtG0/UrZLm0kMpeGT7rbYXYZ9eVBxWpsejeAfj5qM+sQab4qjhlhuZFjS8hQRmJicZc
dCvI6Yxz1r1H4i/Eaw+H+lxSywm6vrklbe2VwOg+83cKOnA6mvk7xdawad4212ztIxDb22o3EUKK
eEVZGCgfQAV2/wAf3lf4nyiTOxLSER5/u4J4/EtQAx/j546a684XVkiZz5K2q7Ppk/N+te0/DP4t
WPjtf7Puols9bjQu0IJMcqjGWQn6/dPP1AOPN/A2mfDXVfhqLbUFtG8RvFOGEkjLMZBuKFQD027e
nHHNeffC/UpNL+Jvh6eMkGS8S3OMciU+Wev+9QB1Hj34k+ILP4hapEg02Q6feSRWss2nQySRKrHG
HZSR+dafx9uZb2y8GXU7Bpp7B5HIGMsRGTx9TXn3xH/5KT4j/wCwhN/6Ea7v45f8gbwL/wBgw/8A
oMdAHefs4/8AJPNQ/wCwrJ/6Kir2CvH/ANnH/knmof8AYVk/9FRV7BQAUUUUAFFFFABRRRQAUUUU
AFFFFAHl/wAUvCWueI9TsJtJsftEcULK581Ewd2f4mFcF/wq/wAZf9Af/wAmYf8A4uvo2isJ4eM5
czOaeFhOTk2z5y/4Vf4y/wCgP/5Mw/8Axddz8L/B+veHddvLnVbH7PDJbeWrecj5bcpxhWPYGvVK
KUMPCMuZChhIQkpJsK82+MPgTV/HWk6bbaQ1ssltO0j/AGiQqMFccYBr0miug6jxHwn8J/EeifD/
AMWaJdPYm71WONbcpMSoK5zuO3jr71Q+G/wa8T+FPH2ma3qMmnm0tvN3iGZmb5onQYBUd2Fe+0UA
fNnif4FeLtX8WazqdtJpgt7y+nuIg87BtryFhkbeuDXqvxP+Gdv8QdPheKdLTVLQN5E7R5Dgj/Vu
RztzjnnGTwc131FAHzR4b+B3jHSvEltdXKWHkRb9zpcZ6oQOMZ6mpPDHwK8XaR4s0bU7mTTDb2d9
BcShJ2LbUkDHA29cCvpOigD5y8X/AAO8Wa54w1fVbSTTRb3d3JNGJJ2DbWORkbetdP8AEv4W+IPF
un+GYNNeyD6bZmCfzpSoLYQfLhTkfKa9mooA4D4Q+DdU8D+E7rTNWa3a4lvnuFMDll2mONRyQOcq
a7kGWQB43RUIyA0Zz/OiQiVzCDwMGTjIx6c+v8vTIqagAooooAKKKKACiiigAooooAKKKKACiiig
AooooAKKKKACiiigAooooAKKKKACo5JNuEXBkYHav9T7DipKq2xJvLzJJw6gew2g4/U/nQBPFH5S
bclj1Zj1J9afRRQB/9k=
--boundary--


--soap-border--

CONTENT
;

my $objHeader = HTTP::Headers->new;
$objHeader->authorization_basic("43930820006","exidris_serv01"); #1
$objHeader->push_header('SoapAction' => '""');
$objHeader->push_header('Content-Length' => length($request));
$objHeader->push_header('Content-Type' => 'multipart/related; boundary="soap-border"; type="text/xml"; start ="<Test>"');

if ($ARGV[1] eq 'S' )
{
#Test System
print "Test System\n";
my $objRequest = HTTP::Request->new("POST", ' $request);
my $objResponse = $objUserAgent->request($objRequest);

#Process Response#######
if ($objResponse->is_success)

{

print $objResponse->content;

}

}

elsif ($ARGV[1] eq 'P')
{

#Power System
print "Power System\n";
#my $objRequest = HTTP::Request->new("POST", ' $request);
my $objRequest = HTTP::Request->new("POST", ' $request);
my $objResponse = $objUserAgent->request($objRequest);

#Process Response#######
if ($objResponse->is_success)

{

print $objResponse->content;

}

}

}
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

rob54321
  • Locked
  • Question
Perl how to read line from file with interpolation 1
Replies
6
Views
1K
rob54321
rob54321
Dino_1000
  • Locked
  • Question
Use the perl debugger to dump all the data in a string variable
Replies
0
Views
500
Dino_1000
Dino_1000
newbie1238585
  • Locked
  • Question
Perl how to read string in csv file * as wildcard operator
Replies
2
Views
614
mikrom
mikrom
ss_ham
  • Locked
  • Question
in Perl find call looking to exclude folder and ignore duplicate finds.
Replies
2
Views
512
ss_ham
ss_ham
dan
  • Locked
  • Question
add a variable to subject in formmail.pl
Replies
6
Views
608
feherke
feherke

Part and Inventory Search

Sponsor

Back
Top