#!/usr/bin/perl

package pay_card;

sub probe { return 1; }

sub exists {
	shift @_;
	my $user_id = shift @_;	
	my $oper_id = shift @_;

	my $sth;
	my $sql;
	my $count;

	$sql = "SELECT count(*) FROM pay_card_services WHERE user_id = '$user_id' AND oper_id = '$oper_id'"; 

        $sth = $main::dbh->prepare($sql);

                if( !$sth ) {
			return -1;
                }

                $rv = $sth->execute;

                if( !$rv ) {
			return -1;
                }

		($count) = $sth->fetchrow_array;
		return $count;
}

sub get_client_id {
	shift @_;
	my $user_id = shift @_;	
	my $oper_id = shift @_;

	my $sth;
	my $sql;
	my $client_id;

	$sql = "SELECT client_id FROM pay_card_services WHERE user_id = '$user_id' AND oper_id = '$oper_id'"; 

        $sth = $main::dbh->prepare($sql);

                if( !$sth ) {
			return "";
                }

                $rv = $sth->execute;

                if( !$rv ) {
			return "";
                }

		($client_id) = $sth->fetchrow_array;
		return $client_id;
}

sub create_service {
	shift @_;
	my(  $enabled, $user_id, $oper_id, $client_id, $password,
  	     $date_create, $date_active, $date_expire, $tariff,
	     $water_mark, $descr, $type) = @_;
	my $sth;
	my $sql;

        if(!$date_create) { $date_create = 'null';}
        else { $date_create = "'$date_create'"; }

        if(!$date_active) { $date_active = 'null';}
        else { $date_active = "'$date_active'"; }

        if(!$date_expire) { $date_expire = 'null';}
        else { $date_expire = "'$date_expire'"; }

	$sql = "INSERT INTO pay_card_services (card_type, enabled, user_id, oper_id, client_id, password, date_create, date_active, date_expire, descr) VALUES ('$type', $enabled, '$user_id', '$oper_id', '$client_id', '$password', $date_create, $date_active, $date_expire, '$descr')";

	 $sth = $main::dbh->prepare($sql);

                if( !$sth ) { return -1; }

                $rv = $sth->execute;
                if( !$rv ) { return -1; }

	return $user_id;
}


sub destroy_service {
	shift @_;
	my ($user_id, $oper_id) = @_;
	my $sth;
	my $sql;
	my $rv;

	$sql = "DELETE FROM pay_card_services WHERE user_id = '$user_id' AND oper_id = '$oper_id'";

	 $sth = $main::dbh->prepare($sql);

                if( !$sth ) { return 0; }

                $rv = $sth->execute;
                if( !$rv ) { return 0; }

	return $rv;
}


1;

