#!c:/Perl/bin/perl.exe -w

use strict;
use DBI;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);


my $db ="F:/Eigene Dateien/Eigene Datenquellen/gasverbrauch.fdb";

my $input = new CGI;

my $knd_id = $input->param("knd_id");
my $status_temp = $input->param("status_temp");
my $Monat = $input->param("Monat");
my $Jahr = $input->param("Jahr");

my $dbh = connect_db($db);

my $q = "UPDATE VERBRAUCH SET TEMP_STATUS = '$status_temp'
WHERE (KUNDE_ID = $knd_id AND MONAT = $Monat AND JAHR = $Monat);";

do_query($q,$dbh);


disconnect_db($dbh);

# Verbindung zur Datenbank herstellen
sub connect_db {
my $db = $_[0];

# Verbindungsdaten
my $SQL_Driver = "InterBase";
my $SQL_Host="localhost";
my $SQL_User="SYSDBA";
my $SQL_Passw="masterkey";

my $dbh = DBI->connect("DBI:$SQL_Driver:$db", $SQL_User, $SQL_Passw, \%err_attr)or mess_out("Kann keine Verbindung zum MySQL-Server aufbauen");
return $dbh;
}

# Verbindung trennen
sub disconnect_db {
my $dbh = $_[0];
$dbh->disconnect;
return 1;
}

# Abfrage ohne Ergebnismenge
sub do_query {
my $query = $_[0];
my $dbh = $_[1];
my $res = $dbh->do($query)or mess_out("Kann Abfrage nicht ausfuehren");
return $res;
}

# Ausgabe von Fehlermeldungen
sub mess_out {
my $mess = $_[0];
die "$mess\nError $DBI::err ($DBI::errstr)\n";
}