#!/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 Erweiterung1692698045 \"1234>ON>Facescan>SPtext414>SPtext416\"";

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;