Discussion :

[mnem0]

bonjour,

J'ai essayé avec WWW::Mechanize de faire un script pour poster automatiquement sur un forum phpbb, le probleme, c'est que même une fois le formulaire de login rempli et bel et bien envoyé, lorsque je désire poster un nouveau message, je suis considéré comme non logé.
j'ai essayé sans grand espoir d'utiliser LWP::UserAgent et ses credentials, on sait jamais. ça n'a pas marché. Maintenant, je sèche.
please, help.

[PerlPicker]

Ca serait sympa d'expliquer pourquoi tu veux faire ça car ça peut être utilisé pour poster du spam, en particulier le fait que tu crées un user dynamiquement et que tu postes ensuite ...

On te répondra plus facilement! (je parle pour moi).

[mnem0]

Parce que j'ai plus de 1000 posts sur un forum que je souhaite tous éditer afin d'y insérer un url pour avoir la masse de backlinks dans le cadre d'une campagne de SEO, en fait c'est juste la partie auth->post qui m'interesse, pas le cassage de captcha ni création de comptes en boucle

[PerlPicker]

J'ai du mal à voir l'intérêt de lire des posts par des users et de les reposter avec un user différent et à une date différente.

Tu devrais utiliser l'API d'admin de PHPBB s'il y en a une ou aller éditer les données directement dans la base de données MYSQL. Ce sera plus simple et tes posts resteront cohérents. Je te conseille d'aller demander de l'aide dans un forum admin de PHPBB ou le forum PHP ici.

Ton problème Perl ressemble a un problème de cookie a mon avis. As-tu configuré un cookie_jar?

[mnem0]

J'ai moi même posté avec un seul user plus de 1000 messages sur un forum dont je ne suis pas admin, je souhaite tous les éditer de manière automatisée, c'est clairement un job pour perl.
merci pour l'idée du cookie :)

edit - ça ne marche pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#!"C:\perl\bin\perl.exe"
use strict;
use warnings;
use HTTP::Cookies;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->cookie_jar(HTTP::Cookies->new(file => "cookie2.txt",autosave => 1,));
my $url_base = "http://www.host.com/";
my $response = $ua->get($url_base);
my $contenu = $response->content;
open WRITER ,"> alors.txt";
$contenu =~ s/\n//g;
my @sids = split(/sid=/,$contenu);
my $id;
shift(@sids);#les 3 lignes de moulinette servent à récupérer l'id session
foreach $id(@sids){
    $id =~ s!"(.*)!!;
}
$ua->post ('$url_base',sid=>$sids[0] ,username => 'monLogin', password=>'monPass',login=>'Connexion');
print("login posted\n");

Apres ça, je suis toujours pas logé (je poste pourtant la bonne form contenant les bons elements vers le bon URL) quelqu'un a une idée ?