#!/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 Erweiterung1698694068 \"1234>ON>Ferienabwesenheit>SPtext479>SPtext480\"";
system "/ids/$PID/scripts/work/2dbs/GoPlGoC SZENEN999 \"Ferienabwesenheit,700px,25px,20.png,OnOff,NoRemove,NoVerz,,00-00,,00-00,NoPw,SzenenSonnenAufOFF,SzenenSonnenUnterOFF,SzenenSonnenAufOFF,SzenenSonnenUnterOFF,SollDisplayON,SzenenForm1\"";
system "sed -i '/DatenAblauf/d' /scripts/work/sonstiges/crontabs";
system "sed -i '/DatenAufzeichnen/d' /scripts/work/sonstiges/crontabs";
system "echo \"12      *       *       *       *       /scripts/work/sonstiges/DatenAufzeichnen\" >> /scripts/work/sonstiges/crontabs";
system "echo \"24      *       *       *       *       /scripts/work/sonstiges/DatenAblauf\" >> /scripts/work/sonstiges/crontabs";
system "/usr/bin/crontab /scripts/work/sonstiges/crontabs";
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;