#!/usr/bin/perl -w

$|=1;

use warnings;
use strict;
use CGI;
my $cgi = new CGI;
use CGI::Carp qw(fatalsToBrowser);

my $PASSPFAD    = "/var/www/xml/response.xml";

my @Feldnamen = $cgi->param();
my $response = "nonInputStreamError";

if(@Feldnamen)
{
open(OUT,">$PASSPFAD") or die($!);

foreach my $Feld (@Feldnamen) {
        print OUT $Feld;
        print OUT " = ";
        print OUT $cgi->param($Feld);
        # Adresse prüfen
        if(index(lc($cgi->param($Feld)), "checkaddress") >= 0)
        {
            $response = "checkAddress";
        }
        # Benutzer erstellen
        elsif(index(lc($cgi->param($Feld)), "createsubscriber") >= 0)
        {
            $response = "createSubscriber";
        }
        # Benutzer anzeigen
        elsif(index(lc($cgi->param($Feld)), "retrievesubscriber") >= 0)
        {
            $response = "retrieveSubscriber";
        }
        # Benutzer löschen (nur wenn keine Nummern)
        elsif(index(lc($cgi->param($Feld)), "deletesubscriber") >= 0)
        {
            $response = "deleteSubscriber";
        }
        # Benutzerort ändern
        elsif(index(lc($cgi->param($Feld)), "movesubscriber") >= 0)
        {
            $response = "moveSubscriber";
        }
        # Benutzer verändern
        elsif(index(lc($cgi->param($Feld)), "updatesubscriber") >= 0)
        {
            $response = "updateSubscriber";
        }
        # Eine Nummer einrichten
        elsif(index(lc($cgi->param($Feld)), "getnumber") >= 0)
        {
            $response = "getNumber";
        }
        # Eine Nummer sperren
        elsif(index(lc($cgi->param($Feld)), "updatenumber") >= 0)
        {
            $response = "updateNumber";
        }
        # Mehrere (10 max.) Nummern einrichten
        elsif(index(lc($cgi->param($Feld)), "assignnumbers") >= 0)
        {
            $response = "assignNumbers";
        }
        # Mehrere (10 max.) Nummern sperren
        elsif(index(lc($cgi->param($Feld)), "returnnumbers") >= 0)
        {
            $response = "returnNumbers";
        }
        # Nummern anzeigen
        elsif(index(lc($cgi->param($Feld)), "retrievenumber") >= 0)
        {
            $response = "retrieveNumber";
        }
        # Bereits bestehende Nummer im System zuordnen
        elsif(index(lc($cgi->param($Feld)), "portnumbertocarrier") >= 0)
        {
            $response = "portNumberToCarrier";
        }
        # Fehler
        else
        {
            $response = "error";
        }
    }
}
close(OUT);