#!/usr/bin/perl
#------------------------------------------------------------------------------
# Copyright (C) 2001 Thomax Kaulmann
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.


use lib '/opt/oma/oma-bin';
use OMA;
use lib '/opt/oma/transact';
use XSQL;
use DBI;
use MIME::Base64;



sub known
{
	return(0);
}

while(<>) {
	if($_ =~ /^Subject: / && !$cont) {
		chop($_);
		($t,$host) = split(/FROM /,$_);
	}
	if($cont) {
		$xml .= $_;
	}
	$cont=1 if(length($_)<2);
}


@sql = split(/\n/,XSQL::parsexml(MIME::Base64::decode($xml)));

open(F,">> /tmp/updater.log");
$db = OMA::opendb();
for $i (0..$#sql) {
	print F "$sql[$i]\n";
	$st=$db->prepare($sql[$i]);
	$st->execute();
}
close(F);
