Jag håller på att försöka knåpa ihop en PALnet klient till linux. Jag använder PERL, BASH och en perl-mod som heter libwww-perl som kan "surfa" sidor.
Jag börjar först med att göra en test bas på i html som jag lägger ut någonstans och där hämtar själva klient scriptet sin information ifrån.
Klienten består av två filer en Bash-fil (palclient) som hämtar och hanterar data ifrån sedan en PERL fil som hämtar datan ifrån en HTML/PERL och vid ett senare tillfälle tom. kunna posta data.
Filen "palclient" består av koden:
#!/bin/bash
if [ -m ]; then
/home/scripts/pwww |grep meddelande
exit
fi
if [ -s ]; then
/home/scripts/pwww |grep Med
exit
fi
Rätt tunt än så länge.
Filen "pww" består av koden:
#!/usr/bin/perl
# skapa user agent objektet
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->agent("MyApp/0.1 ");
# skapar en request
my $req = HTTP::Request->new(GET => 'http://192.168.0.5/pal/index.html');
$req->content_type('application/x-www-form-urlencoded');
#$req->content('match=www&errors=0');
# skickar en request till agent:en
my $res = $ua->request($req);
# printa rubbet
$res->is_success;
print $res->content;
och strukturen i den temporära html filen är rätt simpel för att lätt kunna hantera det i "palclient".
Ser ut så här:
"<html>
Meddelanden
Du har ett nytt oläst meddelande
Med1 från S0ftas
Med2 från Osmo
Mail
1 nytt mail
Inloggade
</html>
"
När jag har fått klienten i nog bra skick så ska jag börja med det dynamiska och databaskopplingarna. Än så länge är själva "databas" filen statisk.
Inte jobbat så mycket med själva scriptet däremot sökt om hur man ska kunna post:a formdata med libwww-perl. De framgick inte nog tydligt i dokumentationen.
Men om det är någon som har jobbat med just libwww-perl så är jag glad för svar.
Välkommnar svar
Mvh
S0ftas