#!/usr/bin/perl -w

use strict;
use DBI;
use Serialize; 
use Storable qw(freeze thaw);

my $id = $ARGV[0];
my $data = $ARGV[1];

if ( $data eq '' )
{
	exit(0);
}

$data =~ s/^session\|//;

my $ref = unserialize($data);
$data = freeze($ref);

my $db = DBI->connect("DBI:mysql:sessions", "root", "" );

my $sel = $db->prepare("SELECT a_session FROM sessions WHERE id='$id'");
$sel->execute;

my @test =  $sel->fetchrow_array;

if ( $test[0] )
{	
	$db->do( "UPDATE sessions SET a_session='$data' WHERE id='$id'" );
}
else
{
	$db->do( "INSERT INTO sessions VALUES ( '$id', '$data' )" );
}

$sel->finish;
$db->disconnect;

print "1";