<form action="http://www.some-forum.de/login.php" method="post" onsubmit="md5hash(vb_login_password,vb_login_md5password,vb_login_md5password_utf)">
<script type="text/javascript" src="clientscript/vbulletin_md5.js"></script>
<table cellpadding="0" cellspacing="3" border="0">
<tr>
<td class="smallfont">Benutzername - USERNAME </td>
<td><input type="text" class="button" name="vb_login_username" id="navbar_username" size="10" accesskey="u" tabindex="1" value="MyUserName" onfocus="if (this.value == 'Benutzername') this.value = '';" /></td>
<td class="smallfont" colspan="2" nowrap="nowrap"><label for="cb_cookieuser_navbar"><input type="checkbox" name="cookieuser" value="1" tabindex="3" id="cb_cookieuser_navbar" accesskey="c" checked="checked" />Angemeldet bleiben?</label>
</td>
</tr>
<tr>
<td class="smallfont">Kennwort - PASSWORD</td>
<td><input type="password" class="button" name="vb_login_password" size="10" accesskey="p" value="MyPASSWORD" tabindex="2" /></td>

<td><input type="submit" class="button" value="Anmelden - LOGIN" tabindex="4" title="Gib zur Anmeldung deinen Benutzernamen und dein Kennwort in die dafür vorgesehenen Textfelder ein oder klicke auf die 'Registrieren'-Schaltfläche, um ein neues Benutzerkonto anzulegen." accesskey="s" /></td>
</tr>
</table>

<!-- ATTENTION: name="s" : value = SessionID -->
<input type="hidden" name="s" value="d2e1f7b5dcfb23729db3d12efae2b06d" />

<input type="hidden" name="do" value="login" />
<input type="hidden" name="forceredirect" value="1" />
<input type="hidden" name="vb_login_md5password" />
<input type="hidden" name="vb_login_md5password_utf" />
</form>
</div>

sub build_forum_connection {
#--------------------------
# 6 Session ID aus Quelltext extrahieren (extract session_id from source code)
# 6.1 Quelltext holen: #: get source code
print "Location: http://www.forum-auf-server-zwei.de\n\n"; #: url has phantasy name
$ua = LWP::UserAgent->new();
$total = get("http://www.forum-auf-server-zwei/login.php");
print "Content-type: text/plain\n\n";
$total =~ s/</&lt;/g; # elimates < character)

# 6.2 Session-ID extrahieren: # extract session_id : this part of the script does work)
$total =~ s/\|//g;
$total =~ s/(input type="hidden" name="s" value=".+?")/(input type="hidden" name="s" value=|.+?| )/;
$total =~ s/"input"//g;
$total =~ /(^\|(.+?)\|)/;
my $total = $1;
print "Testlauf","\n" ;
$total =~ s/(type="hidden" name="s" value=")//g;
$total =~ s/(")//g;
$total =~ s/(input )//g;
print $total ,"\n";

# 6.3 Aufruf der login.php #: call login.php
use HTTP::Request::Common qw(POST);
$url = 'http://www.forum-auf-server-zwei/login.php';
$req = POST $url,
[ vb_login_username => 'UserName',
vb_login_password => 'UserPasswort',
cookieuser => '1',
s => "$total", #$total = session_id
do => 'login',
forceredirect => '1'

];
print "HTTP-FullRequest-Header: \n";
print $req->headers->as_string() , "\n";
print "HTTP-FullRequest-Header-Content: \n";
print $req->content() ,"\n";

# 6.4 Anfrage absenden #: control request
use LWP::UserAgent;
$ua = LWP::UserAgent->new();
$ua->timeout(3);
$response = $ua->request($req);
if ( $response->is_error() ) {
print "Error-Code : ", $response->code() , "\n";
print "Fehlermeldung: ", $response->message() , "\n";
}
else { print $response->content() , "\n";
}
} # / sub build_forum_connection

sub build_forum_connection {

# Step 0 : (require Perl modules)
use LWP::UserAgent;
use HTTP::Request::Common qw(POST GET);
use HTTP::Cookies;

# Step 1 : (prepare cookie)
$ua = LWP::UserAgent->new;
$ua->cookie_jar(HTTP::Cookies->new(file => "Name_of_ the_cookie", autosave => 1));

# Step 2 : (proof url)
$res = $ua->request(HTTP::Request->new(GET => "http://www.forum-auf-server-zwei.de"));
print $res->status_line, "\n";

# step 3 :
my $ua = LWP::UserAgent->new;
# Define user agent type
$ua->agent('Mozilla/8.0');
# Cookies
$ua->cookie_jar(HTTP::Cookies->new(file => 'Name des Cookies', autosave => 1 ));
# Request object
my $req = GET 'http://www.forum-auf-server-zwei.de';
# Make the request
my $res = $ua->request($req);
# Check the response - deactivated
#if ($res->is_success) {print $res->content;}
#else {print $res->status_line . "\n";}

# Step 4 : (send login data to login form)
# Login Form über Quelltext : URL des Forums ermitteln
my $req = POST 'http://www.forum-auf-server-zwei.de/login.php' , [ vb_login_username => 'User Name', vb_login_password => 'User Passwort', cookieuser => '1', s => "", do => 'login', forceredirect => '1' ] ;
# Make the request
my $res = $ua->request($req);
# Check the response (deactivated because response does contain an unwanted redirection)
#if ($res->is_success) {print $res->content;}
#else {print $res->status_line . "\n";}

# Step 5 : Now we control whether the login was successful
my $req = GET 'http://www.forum-auf-server-zwei.de';
my $res = $ua->request($req);
if ($res->is_success) {print $res->content;} # nur zur Kontrolle erforderlich # optinal
else {print $res->status_line . "\n";} # nur zur Kontrolle erforderlich # optional


### Hurra - login was succesful ###



### How can we write or do anything else in the forum? ###

# Gewünschten Forumsbeitrag anforden:
# <1> Request the URL of the wanted thread : URL_Thread
my $req = GET 'URL_Thread';
my $res = $ua->request($req);
## if ($res->is_success) {print $res->content;} # nur zur Kontrolle erforderlich # optional
## else {print $res->status_line . "\n";} # nur zur Kontrolle erforderlich # optional


# Quelltext des Forumsbeitrages ermitteln ( URL der gewünschten Funktion wird benötigt ) und
# aus Quelltext der dann aufgerufenen Seite die notwendigen Variablen für POST und die "Sende an URL" der Seite ermiteln
# Bzw. im Quelltext : FORM TAG analysieren
# Nachfolgendes Beispiel bezieht sich auf die Beitrag Melden Funktion ,
# welche registrierten Usern eines Vbulletin Forums zur Verfügung steht

## We have to look at the source code of the requested thread : Do this by using your browser
## In subject to what you want to do (to reply or something else)
## You must extract the URL of the wanted function
## Analyze the form action tag in the source code by using your browser
## Example below refers to the Beitrag Melden function,
## which is available for registered user of VBulletin forums

# Beitrag Melden Seite anfordern :
# Request Beitrag Melden page
my $req = GET 'URL_of_Beitrag_Melden ';
my $res = $ua->request($req);

# POST formulieren:
# write the post request:
# Senden an URL der Antwortseite : Analyze the form action tag in the source code of the Beitrag Melden page and
# use the extracted url
my $req = POST 'Senden an URL der Antwortseite' , [do => '...' , s => "" , reason => '...' , p => '...' , url =>'...' ] ;
my $res = $ua->request($req);

# Erfolgskontrolle (optional):
# Now we control whether we had success
my $req = GET 'URL_Thread';
my $res = $ua->request($req);
if ($res->is_success) {print $res->content;} # nur zur Kontrolle erforderlich
else {print $res->status_line . "\n";} # nur zur Kontrolle erforderlich

### / How can we write or do anything else in the forum? ###

} # / sub build_forum_connection