#!/usr/bin/perl
use strict ;
use DB_File ;
my %SP_DBS;
my $ANZGOPL2;
local $| = 1;

my $PID=`echo $0 | cut -d "/" -f 3 | tr -d "\n"`;
system "/ids/$PID/scripts/work/2dbs/GoPlGoC Erweiterung1692698046 \"1234>ON>Requests>SPtext415>SPtext417\"";
tie (%SP_DBS, 'DB_File', "/ids/${PID}/scripts/work/sonstiges/JHJBKKDHBSHBDHSDKJSNLKJKHHLSKNKJHDSJSu665768675SS", O_CREAT|O_RDWR, 0644) ||
die ("Cannot create or open /scripts/work/sonstiges/JHJBKKDHBSHBDHSDKJSNLKJKHHLSKNKJHDSJSu665768675SS");
my $SITERELOAD1 = $SP_DBS{"SiteReloadAll"};
        if ($SITERELOAD1 eq "00"){
        $SP_DBS{"SiteReloadAll"} = "01";
        }               
        else {
        $SP_DBS{"SiteReloadAll"} = "00"
        }               
untie %SP_DBS;