moin moin,
kein problem. hier der anfang des codes! vielleicht hilft es dir ja weiter?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#!/usr/bin/perl
require CGI;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
use Time::Local;
use File::Spec;
use Fcntl qw(:flock);
use URI;
#use XML::Simple;
use CGI qw(:standard -no_debug);
require "konfiguration.txt";
require "text.txt";
$timeout=45;
my $cgi = new CGI;
my $state = $cgi->param("wmid");
my $sid = "773XXXXXX";
if ($state =~ m/773[0-9]{6,6}/) { }
else {$state =~ s/$state/$sid/}
# Nicht verändern
#########################################################
gruss\n\n
<!--EDIT|zeus75|1140422449-->