Forum Debian Users Gang

Minio · 2011-02-18 20:13:57

Znajomy udostępnia mi trochę miejsca na swoim serwerze WWW. Na serwerze jest zainstalowany 64-bitowy PLD Linux. Na tym serwerze mam swój skrypt w perl-u, który, niestety, nie działa. Co gorsza, ten sam skrypt na Debianie działa.

Skrypt ma za zadanie łączyć się z serwerem XMPP, pobierać roster, poszukiwać kontaktów GG i na ich podstawie tworzyć plik kontaktów GG. Używam modułu perl-a Net::XMPP. Niestety na PLD skrypt wykrzacza się przy próbie połączenia z serwerem; konkretniej — w trakcie uwierzytelnienia. Dobrze pokazują to niniejsze logi (z Net::XMPP:Client->new):
[url=http://wklej.fluxboxpl.org/18605]na serwerze[/url] (ważne linijki: 105 do końca)
[url=http://wklej.fluxboxpl.org/18606]u mnie na Debianie[/url] (niepełny; ważne linijki: 107-118)

Na serwerze zainstalowane są pakiety:

Kod:

perl-Authen-SASL-2.13-1.noarch
perl-base-5.12.2-1.x86_64
perl-Date-Manip-6.14-1.noarch
perl-Digest-HMAC-1.01-12.noarch
perl-Digest-SHA1-2.12-2.x86_64
perl-dirs-4-1@5.12.0.x86_64
perl-Encode-2.39-2.x86_64
perl-GSSAPI-0.28-2.x86_64
perl-HTML-Parser-3.68-1.x86_64
perl-HTML-Tagset-3.20-1.noarch
perl-IO-Socket-SSL-1.31-1.noarch
perl-libs-5.12.2-1.x86_64
perl-libwww-5.837-1.noarch
perl-Mail-IMAPClient-3.21-1.noarch
perl-modules-5.12.2-1.x86_64
perl-Net-SSLeay-1.36-2.x86_64
perl-Net-XMPP-1.02-1.noarch
perl-Parse-RecDescent-1.965001-1.noarch
perl-Term-ReadKey-2.30-6.x86_64
perl-URI-1.56-1.noarch
perl-WWW-Curl-4.13-2.x86_64
perl-XML-Parser-2.36-6.x86_64
perl-XML-Simple-2.18-2.noarch
perl-XML-Stream-1.22-3.noarch
perl-YAML-Syck-1.07-2.x86_64

U mnie na Debianie:

Kod:

libnet-xmpp-perl - 1.02-1
libxml-stream-perl - 1.23-1
libdigest-sha1-perl - 2.13-1
libauthen-sasl-perl - 2.1500-1
libio-socket-ssl-perl - 1.38-1
libnet-ssleay-perl - 1.36-1

Jak widać, niektóre wersje na Debianie są nowsze niż na PLD. Widzę tutaj potencjalne źródło problemów.

Czy istnieje jakieś repozytorium dla PLD ze świeższymi modułami perl-a?

Wiem że na forum kilka osób używa PLD. Może znaleźlibyście chwilę na sprawdzenie czy skrypt u was działa?
Potrzebne są: Linux PLD :) , jakiekolwiek konto Jabbera/XMPP (nie trzeba mieć do niego podczepionego transportu GG), moduły perl-a Net::XMPP i XML::Simple + ich zależności.
Skrypt można pobrać ze strony domowej: [url]http://minio.komunikatory.pl/jab2gg/jab2gg-1.1.tar.gz[/url]
W linii 267 pliku jab2gg-common.pl należy przestawić debuglevel z 0 na 2; dla wygody można ustawić debugfile na jakiś plik, aktualnie wypluje wszystko na standardowe wyjście (skąd zresztą też można przekierować do pliku dzięki [tt]>[/tt]).
Potem trzeba go uruchomić:

Kod:

./jab2gg-cli.pl -c username:haslo@serwer

Dzięki temu można sprawdzić czy skrypt na waszych PLD poprawnie łączy się z serwerem.

Z góry dzięki za wszelką pomoc. Ja niestety nie mam pomysłów co z tym fantem zrobić a mój znajomy pisze raczej w PHP niż perl-u i też nie potrafi mi pomóc...

Ostatnio edytowany przez Minio (2011-02-24 01:00:14)

Jacekalex · 2011-02-18 21:02:57

A na PLD cpan nie działa?

Bo u mnie na localhoście (ejabberd) coś tam działa:

Kod:

jab2gg-cli.pl -c duch:pass@localhost
error: not-authorized at /usr/local/bin/jab2gg-common.pl line 290.

hasło poprawne, w pidginie działa.
Dla innego usera chyba się zalogował:

Kod:

jab2gg-cli.pl -c portage:ZatllNQ3vSPYr2m8@localhost
Use of uninitialized value $gg_contact_list in concatenation (.) or string at /usr/local/bin/jab2gg-common.pl line 435.
GG70ExportString,;<Pozostałe>,;

Parametry konta prawidłowe, tutaj działa:

Kod:

grep -v '#' /etc/make.conf | grep -i jabber
PORTAGE_ELOG_SYSTEM="echo save jabber"
PORTAGE_ELOG_JABBERFROM="portage:ZatllNQ3vSPYr2m8@localhost"
PORTAGE_ELOG_JABBERTO="duch@localhost"

W każdym razie o żadne moduły nie woła, pewnie dlatego, że mam też np sendxmpp, który korzysta z podobnych modułów.
Perl u mnie: http://pastebin.com/gaXHP5MV

Pozdrawiam
;-)

Ostatnio edytowany przez Jacekalex (2011-02-18 21:20:19)

Minio · 2011-02-18 21:16:08

Jacekalex: pewnie działa, ale instalując moduły z CPAN (znaczy przez ten ichni menedżer modułów) lądujemy z systemem gdzie nad częścią pakietów kontrolę ma zwykły menedżer pakietów (poldek) a nad częścią jakieś inne narzędzie (cpan). To najlepsza droga do rozpieprzenia sobie tego systemu ;) .

Ale jest to jakieś rozwiązanie, choć dość radykalne. Będę je miał w pamięci i zaproponuję adminowi jeśli nie padną żadne inne propozycje.

EDIT:
[quote=Jacekalex]Bo u mnie na localhoście (ejabberd) coś tam działa:

Kod:

jab2gg-cli.pl -c duch:pass@localhost
error: not-authorized at /usr/local/bin/jab2gg-common.pl line 290.

[/quote]
No własnie na PLD pojawia się ten sam błąd. Nawet wiem dlaczego:
zgodnie z specyfikacją XMPP (RFC 3920), klient ma się u serwera autoryzować przy pomocy SASL. Potem może nastąpić negocjacja użycia TLS i dopiero potem uwierzytelnienie. Jeżeli klient wyśle jakikolwiek fragment strumienia XML przed zakończeniem negocjacji SASL, serwer ma obowiązek zakończyć połączenie i powinien wysłać do klienta <not-authorized/>. No i właśnie to się dzieje — negocjacja SASL się nie powodzi, klient (mój skrypt) zaczyna wysyłać dane do uwierzytelnienia na co serwer odpowiada zerwaniem połączenia.

Tylko dlaczego na Debianie to nie występuje a na PLD tak? testowałem z dokładnie z tym samym kontem, więc to nie wina serwera...

[quote=Jacekalex]W każdym razie o żadne moduły nie woła, pewnie dlatego, że mam też np sendxmpp, który korzysta z podobnych modułów.[/quote]
Bo sendxmpp korzysta z modułu Net::XMPP (tego samego co mój skrypt) :) .
Ale w sumie dobry trop, zobaczę czy na tym PLD działa sendxmpp i jeśli tak, to sprawdzę czy mogę poprawić mój skrypt.

[quote=Jacekalex]Perl u mnie: http://pastebin.com/gaXHP5MV[/quote]
To chyba Gentoo? Wersje modułów te same co u mnie na Debianie, ale nowsze niż na tamtym PLD.

EDIT#2:
sendxmpp (wysłałem swoją wersję z Debiana, bo to tylko jeden plik) na tym PLD też nie działa. Log:
[url]http://wklej.fluxboxpl.org/18615[/url]
Jak widać, wiesza się dokładnie na tym samym — problem z uwierzytelnieniem SASL.

Ostatnio edytowany przez Minio (2011-02-18 22:00:16)

svL · 2011-02-18 22:57:55

[b]Minio[/b] właśnie odpalilem ten skrypt i wyglada, że działa, wypluł liste użytkonikow gg jaką mam na tym koncie.
rpm -qa G perl |sort
http://wklej.fluxboxpl.org/18616
używam i686, jakby jeszcze jakies info bylo potrzebne to pisz

Minio · 2011-02-18 23:13:53

[b]svL[/b]: wychodzi że masz dokładnie te same pakiety (te same wersje) co są na tym „moim” serwerze. I u Ciebie działa dobrze? To już nic z tego nie rozumiem :( . Możliwe żeby aż tak duże znaczenie miała architektura (tam jest x86_64)?

Mógłbyś jeszcze wejść na [url]https://minio.komunikatory.pl/jab2gg/jab2gg.pl[/url]? To jest ten sam skrypt, tylko to interfejs przeglądarkowy. Możesz zobaczyć czy korzystając z niego dobrze pobiera listę GG?

Jacekalex · 2011-02-18 23:21:26

[quote=Minio]Jacekalex: pewnie działa, ale instalując moduły z CPAN (znaczy przez ten ichni menedżer modułów) lądujemy z systemem gdzie nad częścią pakietów kontrolę ma zwykły menedżer pakietów (poldek) a nad częścią jakieś inne narzędzie (cpan). To najlepsza droga do rozpieprzenia sobie tego systemu ;) .......[/quote]
To prawda, Gentoo, ale nie cpan - na Gentusiu nie jest potrzebny.
Problem funkcjonowania modułów z cpan w zależnościach systemu, w Gentusiu rozwiązano [url=http://www.gentoo.org/proj/en/perl/g-cpan.xml][b]tak[/b][/url].

I dlatego część modułów perla u mnie pochodzi z takiej dziwnej gałęzi portage:

[b]perl-gcpan[/b]/Bot-JabberBot-0.02[/quote]
Czy w PLD jest jakiś mechanizm budowania paczek z modułów cpan? Pojęcia nie mam, w Debianie o ile wiem, jest coś podobnego.

Poza tym nie demonizowałbym CPAN, używałem go w Ubuntu, i jak coś nie działało po aktualizacji perla, to wystarczało przeinstalowanie modułów (przez cpan) i było ok.
I nigdy w ten sposób nie uszkodziłem systemu.
Wystarczy używać CPAN do tych modułów, które nie istnieją w paczkach dostępnych dla dystrybucji.

Pozdrawiam
;-)

Ostatnio edytowany przez Jacekalex (2011-02-18 23:23:37)

W demokracji każdy naród ma taką władzę, na jaką zasługuje ;)
Si vis pacem para bellum ;) | Pozdrawiam :)

Time (s)	Query
0.00011	SET CHARSET latin2
0.00004	SET NAMES latin2
0.00111	SELECT u., g., o.logged FROM punbb_users AS u INNER JOIN punbb_groups AS g ON u.group_id=g.g_id LEFT JOIN punbb_online AS o ON o.ident='18.188.218.184' WHERE u.id=1
0.00087	REPLACE INTO punbb_online (user_id, ident, logged) VALUES(1, '18.188.218.184', 1714862537)
0.00041	SELECT * FROM punbb_online WHERE logged<1714862237
0.00074	DELETE FROM punbb_online WHERE ident='47.128.110.119'
0.00076	DELETE FROM punbb_online WHERE ident='85.208.96.194'
0.00064	SELECT t.subject, t.closed, t.num_replies, t.sticky, f.id AS forum_id, f.forum_name, f.moderators, fp.post_replies, 0 FROM punbb_topics AS t INNER JOIN punbb_forums AS f ON f.id=t.forum_id LEFT JOIN punbb_forum_perms AS fp ON (fp.forum_id=f.id AND fp.group_id=3) WHERE (fp.read_forum IS NULL OR fp.read_forum=1) AND t.id=18366 AND t.moved_to IS NULL
0.00006	SELECT search_for, replace_with FROM punbb_censoring
0.00121	SELECT u.email, u.title, u.url, u.location, u.use_avatar, u.signature, u.email_setting, u.num_posts, u.registered, u.admin_note, p.id, p.poster AS username, p.poster_id, p.poster_ip, p.poster_email, p.message, p.hide_smilies, p.posted, p.edited, p.edited_by, g.g_id, g.g_user_title, o.user_id AS is_online FROM punbb_posts AS p INNER JOIN punbb_users AS u ON u.id=p.poster_id INNER JOIN punbb_groups AS g ON g.g_id=u.group_id LEFT JOIN punbb_online AS o ON (o.user_id=u.id AND o.user_id!=1 AND o.idle=0) WHERE p.topic_id=18366 ORDER BY p.id LIMIT 0,25
0.00109	UPDATE punbb_topics SET num_views=num_views+1 WHERE id=18366
Total query time: 0.00704 s

Forum Debian Users Gang

Ogłoszenie

#1 2011-02-18 20:13:57

Minio - Użyszkodnik

[SOLVED] [PLD] niedziałający skrypt perl (na Debianie działa...)

Kod:

Kod:

Kod:

#2 2011-02-18 21:02:57

Jacekalex - Podobno człowiek...;)

Re: [SOLVED] [PLD] niedziałający skrypt perl (na Debianie działa...)

Kod:

Kod:

Kod:

#3 2011-02-18 21:16:08

Minio - Użyszkodnik

Re: [SOLVED] [PLD] niedziałający skrypt perl (na Debianie działa...)

Kod:

#4 2011-02-18 22:57:55

svL - Użytkownik

Re: [SOLVED] [PLD] niedziałający skrypt perl (na Debianie działa...)

#5 2011-02-18 23:13:53

Minio - Użyszkodnik

Re: [SOLVED] [PLD] niedziałający skrypt perl (na Debianie działa...)

#6 2011-02-18 23:21:26

Jacekalex - Podobno człowiek...;)

Re: [SOLVED] [PLD] niedziałający skrypt perl (na Debianie działa...)

#7 2011-02-18 23:22:35

winnetou - złodziej wirków ]:->

Re: [SOLVED] [PLD] niedziałający skrypt perl (na Debianie działa...)

#8 2011-02-18 23:44:48

Minio - Użyszkodnik

Re: [SOLVED] [PLD] niedziałający skrypt perl (na Debianie działa...)

#9 2011-02-18 23:45:25

svL - Użytkownik

Re: [SOLVED] [PLD] niedziałający skrypt perl (na Debianie działa...)

#10 2011-02-19 00:05:01

Jacekalex - Podobno człowiek...;)

Re: [SOLVED] [PLD] niedziałający skrypt perl (na Debianie działa...)

#11 2011-02-19 00:05:42

Minio - Użyszkodnik

Re: [SOLVED] [PLD] niedziałający skrypt perl (na Debianie działa...)

#12 2011-02-19 00:14:58

svL - Użytkownik

Re: [SOLVED] [PLD] niedziałający skrypt perl (na Debianie działa...)

#13 2011-02-19 00:57:42

winnetou - złodziej wirków ]:->

Re: [SOLVED] [PLD] niedziałający skrypt perl (na Debianie działa...)

Kod:

Kod:

Kod:

#14 2011-02-20 22:38:23

Minio - Użyszkodnik

Re: [SOLVED] [PLD] niedziałający skrypt perl (na Debianie działa...)

#15 2011-02-20 22:52:47

winnetou - złodziej wirków ]:->

Re: [SOLVED] [PLD] niedziałający skrypt perl (na Debianie działa...)

#16 2011-02-21 00:00:29

Minio - Użyszkodnik

Re: [SOLVED] [PLD] niedziałający skrypt perl (na Debianie działa...)

#17 2011-02-24 00:59:52

Minio - Użyszkodnik

Re: [SOLVED] [PLD] niedziałający skrypt perl (na Debianie działa...)

#18 2011-02-24 01:14:32

winnetou - złodziej wirków ]:->

Re: [SOLVED] [PLD] niedziałający skrypt perl (na Debianie działa...)

#19 2011-02-24 03:15:36

Jacekalex - Podobno człowiek...;)

Re: [SOLVED] [PLD] niedziałający skrypt perl (na Debianie działa...)

#20 2011-02-24 11:27:16

Minio - Użyszkodnik

Re: [SOLVED] [PLD] niedziałający skrypt perl (na Debianie działa...)

Stopka forum

Informacje debugowania