Listing von sub_coms.pl

################################################################
# com Funktion um WWW-Server zu setzen
# Parameter : Instant-ID um Variable zu identifizieren
# Rueckgabe : undef bei Erfolg, sonst Fehlercode
################################################################
sub com
    {
    # Uebernahme der Parameter
    local($InstID)=@_;

    # Oeffnen der Ini-Datei
    if(!open(INIDATEI,$IniDatei))
        {
        print "Fehler beim Oeffnen von $IniDatei\n";
        return("05");        
        }
    # Oeffnen einer temporaeren Datei
    if(!open(TEMPDATEI,">temp.tmp"))
        {
        print "Fehler beim Oeffnen der Temp-Datei\n";
        return("05");        
        }
    if ($InstID eq '1.0')
        {
        $Ausdruck = '\[NACHRICHT_AN\]=';
        $Ausdruck2 ='[NACHRICHT_AN]=';
        }
    elsif ($InstID eq '2.0')
        {
        $Ausdruck = '\[WWW_SERVER\]=';
        $Ausdruck2 = '[WWW_SERVER]=';
        }
    elsif ($InstID eq '3.0')
        {
        $Ausdruck = '\[TOP_LINK\]=';
        $Ausdruck2 = '[TOP_LINK]=';
        }
    elsif ($InstID eq '4.0')
        {
        $Ausdruck = '\[MAX_LINKS\]=';
        $Ausdruck2 = '[MAX_LINKS]=';
        }
    elsif ($InstID eq '5.0')
        {
        $Ausdruck = '\[BETREUER_TAG\]=';
        $Ausdruck2 = '[BETREUER_TAG]=';
        }
    elsif ($InstID eq '6.0')
        {
        $Ausdruck = '\[BETREUER_ADRESSE\]=';
        $Ausdruck2 = '[BETREUER_ADRESSE]=';
        }
    elsif ($InstID eq '7.0')
        {
        $Ausdruck = '\[ENDUNGEN\]=';
        $Ausdruck2 = '[ENDUNGEN]=';
        }
    elsif ($InstID eq '8.0')
        {
        $Ausdruck = '\[NACHRICHT\]=';
        $Ausdruck2 = '[NACHRICHT]=';
        }
    else 
        {
        return("14");
        }        
    ########################################################
    # Ersetzen der Variablen in der Ini-Datei
    while(<INIDATEI>)
        {
        if (/$Ausdruck/)    
            {    # Wert ersetzen        
            $Wert{$InstID}=$WertTemp{$InstID};
            print TEMPDATEI $Ausdruck2.$Wert{$InstID}.";\n";
            }
        else
            {    # gelesenes 1 zu 1 in temporaere Datei
            print TEMPDATEI $_;
            }
        }
    close(INIDATEI);
    close(TEMPDATEI);
    unlink($IniDatei);
    rename("temp.tmp",$IniDatei);
    return(undef);
    } 



################################################################
# com_99 Pseudofunktion fuer die Variable an Instanz 99
# Rueckgabe : undef bei Erfolg, sonst Fehlercode
################################################################
sub com_99
    {
    $Wert{'99.0'} = $WertTemp{'99.0'};
    return(undef);
    } 

1;