#!/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
#########################################################