#!/usr/bin/perl

package inet_fixed_ip;

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 inet_fixed_ip_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 inet_fixed_ip_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) = @_;
	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 inet_fixed_ip_services (enabled, user_id, oper_id, client_id, date_create, date_active, date_expire, tariff_plan, water_mark, descr) VALUES ($enabled, '$user_id', '$oper_id', '$client_id', $date_create, $date_active, $date_expire, '$tariff', $water_mark, '$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 inet_fixed_ip_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;

