[Perl] Script zum ändern der Signatur in vB-Boards

6b616e

6b616e

Pirat
Hallo,

folgendes Script funktioniert beim gulli:board , aber leider nicht hier:

Code:
#!/usr/bin/perl

use LWP::UserAgent;

$agent = new LWP::UserAgent;
$agent->default_header('Cookie' => 'bbuserid=[I]UserIDAusDemCookie[/I]; bbpassword=[I]PasswortHashAusDemCookie[/I];');
$random = int(rand(17)+1);
$xfreier = `sed -n "$random"p /home/_6b616e/scripts/#/sig`;

$result = $agent->post('http://www.unixboard.de/vb3/profile.php',
[
    'message' => "[CENTER][SIZE=\"1\"]Der CDU-Wahrheitsminister sagt:[/SIZE][SIZE=\"2\"][B]\n $xfreier\n[/b][/SIZE][/CENTER]",
    'wysiwyg' => 0',
    's' => '',
    'do' => 'updatesignature'
]);

Es soll zufällig aus einer Liste von Sprüchen wählen und die Signatur ersetzen. Hat jemand ne Ahnung, woran's liegt?
 

Ähnliche Themen

CGI laesst sich nicht ausfuehren

Amavis & Benachrichtigungen

Zurück
Oben