projects/stargazer/inst/var/00-base-00.sql

   1 /*
   2  *    This program is free software; you can redistribute it and/or modify
   3  *    it under the terms of the GNU General Public License as published by
   4  *    the Free Software Foundation; either version 2 of the License, or
   5  *    (at your option) any later version.
   6  *
   7  *    This program is distributed in the hope that it will be useful,
   8  *    but WITHOUT ANY WARRANTY; without even the implied warranty of
   9  *    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  10  *    GNU General Public License for more details.
  11  *
  12  *    You should have received a copy of the GNU General Public License
  13  *    along with this program; if not, write to the Free Software
  14  *    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  15  */
  16
  17 /*
  18  *****************************************************************************
  19  *
  20  * Скрипт генерации структуры базы для хранения данных Stargazer-a
  21  *
  22  * $Id: 00-base-00.sql,v 1.7 2010/01/06 14:41:13 faust Exp $
  23  *
  24  * Примечание.
  25  *      * dm_permission_flag. Представляет собой битовую маску - rw.
  26  *          r - чтение, w - изменение параметра.
  27  *          0 - дествие запрещено, 1 - действие разрешено
  28  *
  29  *      * dm_traff_type. Число определяющее тип подсчета трафика:
  30  *          0 - up - считается по upload
  31  *          1 - down - считается по download
  32  *          2 - max - считается по максимальному среди upload/download
  33  *          3 - up+down - считается по сумме upload и download
  34  *        Как альтернативу этому полю можно сделать еще одну таблицу - типов
  35  *        подсчета трафика. И в этом поле хранить ссылку на эту таблицу.
  36  *        Вопрос только "А надо ли это?"
  37  *
  38  *      * dm_ip. IP адресс в виде четырех байтового целого числа со знаком.
  39  *        Выполнять приведение к знаковуму целому при занесении IP в БД!!!
  40  *
  41  *      * dm_period. Задает периодичность показа сообщения пользователю.
  42  *        Период задается целым числом (int16). Если значение равно 0 то
  43  *        сообщение показывается только при подключении пользователя.
  44  *        Также этот домен определяет промежуток времени в течении которого
  45  *        сообщение показывается пользователю.
  46  *
  47  *      * dm_session_event_type. Указывает тип записи в логе о сессии.
  48  *        'c' - connect, 'd' - disconnect.
  49  *
  50  *****************************************************************************
  51  */
  52
  53 /*
  54  * CONNECT 'localhost:/var/stg/stargazer.fdb' USER 'stg' PASSWORD '123456';
  55  * DROP DATABASE;
  56  *
  57  * CREATE DATABASE 'localhost:/var/stg/stargazer.fdb' USER 'stg' PASSWORD '123456' DEFAULT CHARACTER SET UTF8;
  58  */
  59
  60
  61
  62 /*
  63  *****************************************************************************
  64  * -= Создание ДОМЕНОВ =-
  65  *****************************************************************************
  66  */
  67
  68 CREATE DOMAIN dm_id AS INTEGER NOT NULL;
  69 CREATE DOMAIN dm_null_id AS INTEGER;
  70 CREATE DOMAIN dm_login AS VARCHAR(32) NOT NULL;
  71 CREATE DOMAIN dm_tariff_name AS VARCHAR(32) NOT NULL;
  72 CREATE DOMAIN dm_group_name AS VARCHAR(32);
  73 CREATE DOMAIN dm_corporation_name AS VARCHAR(32);
  74 CREATE DOMAIN dm_parameter_name AS VARCHAR(32);
  75
  76 CREATE DOMAIN dm_password AS VARCHAR(64) NOT NULL;
  77 /* bitmask - rw => Read, Write */
  78 CREATE DOMAIN dm_permission_flag AS SMALLINT NOT NULL
  79     CHECK ( VALUE BETWEEN 0 AND 3 );
  80 CREATE DOMAIN dm_money AS NUMERIC(10,6) NOT NULL;
  81 /* (0, 1, 2, 3) => (up, down, max, up+down) */
  82 CREATE DOMAIN dm_traff_type AS SMALLINT NOT NULL
  83     CHECK ( VALUE BETWEEN 0 AND 3 );
  84 CREATE DOMAIN dm_dir_num AS SMALLINT NOT NULL;
  85 CREATE DOMAIN dm_num AS SMALLINT NOT NULL;
  86 CREATE DOMAIN dm_traffic_mb AS INTEGER NOT NULL;
  87 CREATE DOMAIN dm_traffic_byte AS BIGINT NOT NULL;
  88 CREATE DOMAIN dm_time AS TIME NOT NULL;
  89 CREATE DOMAIN dm_moment AS TIMESTAMP NOT NULL;
  90 CREATE DOMAIN dm_credit_moment AS TIMESTAMP;
  91 CREATE DOMAIN dm_ip AS INTEGER NOT NULL;
  92 CREATE DOMAIN dm_mask AS INTEGER NOT NULL;
  93 CREATE DOMAIN dm_user_address AS VARCHAR(256) DEFAULT '';
  94 CREATE DOMAIN dm_bool AS CHAR(1) NOT NULL
  95     CHECK ( VALUE IN ('0', '1', 't', 'f', 'T', 'F') );
  96 CREATE DOMAIN dm_email AS VARCHAR(256) DEFAULT '';
  97 CREATE DOMAIN dm_note AS VARCHAR(256) DEFAULT '';
  98 CREATE DOMAIN dm_phone AS VARCHAR(256) DEFAULT '';
  99 CREATE DOMAIN dm_user_name AS VARCHAR(256) DEFAULT '';
 100 CREATE DOMAIN dm_service_comment AS VARCHAR(256) DEFAULT '';
 101 CREATE DOMAIN dm_service_name AS VARCHAR(32) DEFAULT '';
 102 /* TODO: why 0-31? Which is default? */
 103 CREATE DOMAIN dm_pay_day AS SMALLINT NOT NULL
 104     CHECK ( VALUE BETWEEN 0 AND 31 );
 105 CREATE DOMAIN dm_period AS INTEGER NOT NULL;
 106 CREATE DOMAIN dm_counter AS SMALLINT NOT NULL;
 107 /* Is it needded? */
 108 CREATE DOMAIN dm_message_ver AS INTEGER NOT NULL;
 109 CREATE DOMAIN dm_message_type AS INTEGER NOT NULL;
 110 /*----------------*/
 111 CREATE DOMAIN dm_message AS VARCHAR(256) NOT NULL;
 112 CREATE DOMAIN dm_user_data AS VARCHAR(256) NOT NULL;
 113 CREATE DOMAIN dm_session_event_type AS CHAR(1) NOT NULL
 114     CHECK ( VALUE IN ('c', 'd') );
 115 CREATE DOMAIN dm_char_value AS VARCHAR(64) NOT NULL;
 116 CREATE DOMAIN dm_date AS DATE NOT NULL;
 117
 118
 119
 120 /*
 121  *****************************************************************************
 122  * -= Создание ТАБЛИЦ =-
 123  *****************************************************************************
 124  */
 125
 126 CREATE TABLE tb_admins
 127 (
 128     pk_admin dm_id PRIMARY KEY,
 129     login dm_login UNIQUE,
 130     passwd dm_password,
 131     chg_conf dm_permission_flag,
 132     chg_password dm_permission_flag,
 133     chg_stat dm_permission_flag,
 134     chg_cash dm_permission_flag,
 135     usr_add_del dm_permission_flag,
 136     chg_tariff dm_permission_flag,
 137     chg_admin dm_permission_flag,
 138     chg_service dm_permission_flag,
 139     chg_corporation dm_permission_flag
 140 );
 141
 142 CREATE TABLE tb_tariffs
 143 (
 144     pk_tariff dm_id PRIMARY KEY,
 145     name dm_tariff_name UNIQUE,
 146     fee dm_money,
 147     free dm_money,
 148     passive_cost dm_money,
 149     traff_type dm_traff_type
 150 );
 151
 152 CREATE TABLE tb_tariffs_params
 153 (
 154     pk_tariff_param dm_id PRIMARY KEY,
 155     fk_tariff dm_id,
 156     dir_num dm_dir_num,
 157     price_day_a dm_money,
 158     price_day_b dm_money,
 159     price_night_a dm_money,
 160     price_night_b dm_money,
 161     threshold dm_traffic_mb,
 162     time_day_begins dm_time,
 163     time_day_ends dm_time,
 164
 165     FOREIGN KEY (fk_tariff) REFERENCES tb_tariffs (pk_tariff)
 166 );
 167
 168 CREATE TABLE tb_corporations
 169 (
 170     pk_corporation dm_id PRIMARY KEY,
 171     name dm_corporation_name UNIQUE,
 172     cash dm_money
 173 );
 174
 175 CREATE TABLE tb_users
 176 (
 177     pk_user dm_id PRIMARY KEY,
 178     fk_tariff dm_null_id,
 179     fk_tariff_change dm_null_id,
 180     fk_corporation dm_null_id,
 181     address dm_user_address,
 182     always_online dm_bool,
 183     credit dm_money,
 184     credit_expire dm_credit_moment,
 185     disabled dm_bool,
 186     disabled_detail_stat dm_bool,
 187     email dm_email,
 188     grp dm_group_name,
 189     note dm_note,
 190     passive dm_bool,
 191     passwd dm_password,
 192     phone dm_phone,
 193     name dm_login UNIQUE,
 194     real_name dm_user_name,
 195
 196     FOREIGN KEY (fk_tariff) REFERENCES tb_tariffs (pk_tariff),
 197     FOREIGN KEY (fk_tariff_change) REFERENCES tb_tariffs (pk_tariff),
 198     FOREIGN KEY (fk_corporation) REFERENCES tb_corporations (pk_corporation)
 199 );
 200
 201 CREATE TABLE tb_detail_stats
 202 (
 203     pk_detail_stat dm_id PRIMARY KEY,
 204     fk_user dm_id,
 205     dir_num dm_dir_num,
 206     ip dm_ip,
 207     download dm_traffic_byte,
 208     upload dm_traffic_byte,
 209     cost dm_money,
 210     from_time dm_moment,
 211     till_time dm_moment,
 212
 213     FOREIGN KEY (fk_user) REFERENCES tb_users (pk_user)
 214 );
 215
 216 CREATE TABLE tb_services
 217 (
 218     pk_service dm_id PRIMARY KEY,
 219     name dm_service_name UNIQUE,
 220     comment dm_service_comment,
 221     cost dm_money,
 222     pay_day dm_pay_day
 223 );
 224
 225 CREATE TABLE tb_users_services
 226 (
 227     pk_user_service dm_id PRIMARY KEY,
 228     fk_user dm_id,
 229     fk_service dm_id,
 230
 231     FOREIGN KEY (fk_user) REFERENCES tb_users (pk_user),
 232     FOREIGN KEY (fk_service) REFERENCES tb_services (pk_service)
 233 );
 234
 235 CREATE TABLE tb_messages
 236 (
 237     pk_message dm_id PRIMARY KEY,
 238     fk_user dm_id,
 239     ver dm_message_ver,
 240     msg_type dm_message_type,
 241     last_send_time dm_period,
 242     creation_time dm_period,
 243     show_time dm_period,
 244     repeat dm_counter,
 245     repeat_period dm_period,
 246     msg_text dm_message,
 247
 248     FOREIGN KEY (fk_user) REFERENCES tb_users (pk_user)
 249 );
 250
 251 CREATE TABLE tb_stats
 252 (
 253     pk_stat dm_id PRIMARY KEY,
 254     fk_user dm_id,
 255     cash dm_money,
 256     free_mb dm_money,
 257     last_activity_time dm_moment,
 258     last_cash_add dm_money,
 259     last_cash_add_time dm_moment,
 260     passive_time dm_period,
 261     stats_date dm_date,
 262
 263     FOREIGN KEY (fk_user) REFERENCES tb_users (pk_user)
 264 );
 265
 266 CREATE TABLE tb_stats_traffic
 267 (
 268     pk_stat_traffic dm_id PRIMARY KEY,
 269     fk_stat dm_id,
 270     dir_num dm_dir_num,
 271     download dm_traffic_byte,
 272     upload dm_traffic_byte,
 273
 274     FOREIGN KEY (fk_stat) REFERENCES tb_stats (pk_stat)
 275 );
 276
 277 CREATE TABLE tb_users_data
 278 (
 279     pk_user_data dm_id PRIMARY KEY,
 280     fk_user dm_id,
 281     num dm_num, /* data_id dm_id renamed */
 282     data dm_user_data,
 283
 284     FOREIGN KEY (fk_user) REFERENCES tb_users (pk_user)
 285 );
 286
 287 CREATE TABLE tb_allowed_ip
 288 (
 289     pk_allowed_ip dm_id PRIMARY KEY,
 290     fk_user dm_id,
 291     ip dm_ip,
 292     mask dm_mask,
 293
 294     FOREIGN KEY (fk_user) REFERENCES tb_users (pk_user)
 295 );
 296
 297 CREATE TABLE tb_sessions_log
 298 (
 299     pk_session_log dm_id PRIMARY KEY,
 300     fk_user dm_id,
 301     event_time dm_moment,
 302     event_type dm_session_event_type,
 303     ip dm_ip,
 304
 305     FOREIGN KEY (fk_user) REFERENCES tb_users (pk_user)
 306 );
 307
 308 CREATE TABLE tb_sessions_data
 309 (
 310     pk_session_data dm_id PRIMARY KEY,
 311     fk_session_log dm_id,
 312     dir_num dm_dir_num,
 313     session_upload dm_traffic_byte,
 314     session_download dm_traffic_byte,
 315     month_upload dm_traffic_byte,
 316     month_download dm_traffic_byte,
 317
 318     FOREIGN KEY (fk_session_log) REFERENCES tb_sessions_log (pk_session_log)
 319 );
 320
 321 CREATE TABLE tb_parameters
 322 (
 323     pk_parameter dm_id PRIMARY KEY,
 324     name dm_parameter_name UNIQUE
 325 );
 326
 327 CREATE TABLE tb_params_log
 328 (
 329     pk_param_log dm_id PRIMARY KEY,
 330     fk_user dm_id,
 331     fk_parameter dm_id,
 332     event_time dm_moment,
 333     from_val dm_char_value,
 334     to_val dm_char_value,
 335     comment dm_service_comment,
 336
 337     FOREIGN KEY (fk_user) REFERENCES tb_users (pk_user),
 338     FOREIGN KEY (fk_parameter) REFERENCES tb_parameters (pk_parameter)
 339 );
 340
 341
 342 /*
 343  *****************************************************************************
 344  * -= Создание ИНДЕКСОВ =-
 345  *****************************************************************************
 346  */
 347
 348
 349
 350 /*
 351  *****************************************************************************
 352  * -= Создание ГЕНЕРАТОРОВ =-
 353  *****************************************************************************
 354  */
 355
 356 CREATE  GENERATOR gn_pk_admin;
 357 SET     GENERATOR gn_pk_admin           TO 0;
 358 CREATE  GENERATOR gn_pk_tariff;
 359 SET     GENERATOR gn_pk_tariff          TO 0;
 360 CREATE  GENERATOR gn_pk_tariff_param;
 361 SET     GENERATOR gn_pk_tariff_param    TO 0;
 362 CREATE  GENERATOR gn_pk_corporation;
 363 SET     GENERATOR gn_pk_corporation     TO 0;
 364 CREATE  GENERATOR gn_pk_user;
 365 SET     GENERATOR gn_pk_user            TO 0;
 366 CREATE  GENERATOR gn_pk_detail_stat;
 367 SET     GENERATOR gn_pk_detail_stat     TO 0;
 368 CREATE  GENERATOR gn_pk_service;
 369 SET     GENERATOR gn_pk_service         TO 0;
 370 CREATE  GENERATOR gn_pk_user_service;
 371 SET     GENERATOR gn_pk_user_service    TO 0;
 372 CREATE  GENERATOR gn_pk_message;
 373 SET     GENERATOR gn_pk_message         TO 0;
 374 CREATE  GENERATOR gn_pk_stat;
 375 SET     GENERATOR gn_pk_stat            TO 0;
 376 CREATE  GENERATOR gn_pk_stat_traffic;
 377 SET     GENERATOR gn_pk_stat_traffic    TO 0;
 378 CREATE  GENERATOR gn_pk_user_data;
 379 SET     GENERATOR gn_pk_user_data       TO 0;
 380 CREATE  GENERATOR gn_pk_allowed_ip;
 381 SET     GENERATOR gn_pk_allowed_ip      TO 0;
 382 CREATE  GENERATOR gn_pk_session;
 383 SET     GENERATOR gn_pk_session         TO 0;
 384 CREATE  GENERATOR gn_pk_session_log;
 385 SET     GENERATOR gn_pk_session_log     TO 0;
 386 CREATE  GENERATOR gn_pk_session_data;
 387 SET     GENERATOR gn_pk_session_data    TO 0;
 388 CREATE  GENERATOR gn_pk_parameter;
 389 SET     GENERATOR gn_pk_parameter       TO 0;
 390 CREATE  GENERATOR gn_pk_param_log;
 391 SET     GENERATOR gn_pk_param_log       TO 0;
 392
 393
 394 /*
 395  *****************************************************************************
 396  * -= Создание ТРИГГЕРОВ =-
 397  *****************************************************************************
 398  */
 399
 400 SET TERM !! ;
 401 CREATE TRIGGER tr_admin_bi FOR tb_admins
 402 ACTIVE BEFORE INSERT POSITION 0
 403 AS
 404 BEGIN
 405     IF (new.pk_admin IS NULL)
 406     THEN new.pk_admin = GEN_ID(gn_pk_admin, 1);
 407 END !!
 408 SET TERM ; !!
 409
 410 /*set term !! ;
 411 create trigger tr_tariff_bi for tb_tariffs active
 412 before insert position 0
 413 as
 414 begin
 415     if (new.pk_tariff is null)
 416     then new.pk_tariff = gen_id(gn_pk_tariff, 1);
 417 end !!
 418 set term ; !!*/
 419
 420 set term !! ;
 421 create trigger tr_tariff_param_bi for tb_tariffs_params active
 422 before insert position 0
 423 as
 424 begin
 425     if (new.pk_tariff_param is null)
 426     then new.pk_tariff_param = gen_id(gn_pk_tariff_param, 1);
 427 end !!
 428 set term ; !!
 429
 430 set term !! ;
 431 create trigger tr_corporation_bi for tb_corporations active
 432 before insert position 0
 433 as
 434 begin
 435     if (new.pk_corporation is null)
 436     then new.pk_corporation = gen_id(gn_pk_corporation, 1);
 437 end !!
 438 set term ; !!
 439
 440 /*set term !! ;
 441 create trigger tr_user_bi for tb_users active
 442 before insert position 0
 443 as
 444 begin
 445     if (new.pk_user is null)
 446     then new.pk_user = gen_id(gn_pk_user, 1);
 447 end !!
 448 set term ; !!*/
 449
 450 set term !! ;
 451 create trigger tr_detail_stat_bi for tb_detail_stats active
 452 before insert position 0
 453 as
 454 begin
 455     if (new.pk_detail_stat is null)
 456     then new.pk_detail_stat = gen_id(gn_pk_detail_stat, 1);
 457 end !!
 458 set term ; !!
 459
 460 set term !! ;
 461 create trigger tr_service_bi for tb_services active
 462 before insert position 0
 463 as
 464 begin
 465     if (new.pk_service is null)
 466     then new.pk_service = gen_id(gn_pk_service, 1);
 467 end !!
 468 set term ; !!
 469
 470 set term !! ;
 471 create trigger tr_user_service_bi for tb_users_services active
 472 before insert position 0
 473 as
 474 begin
 475     if (new.pk_user_service is null)
 476     then new.pk_user_service = gen_id(gn_pk_user_service, 1);
 477 end !!
 478 set term ; !!
 479
 480 /*set term !! ;
 481 create trigger tr_message_bi for tb_messages active
 482 before insert position 0
 483 as
 484 begin
 485     if (new.pk_message is null)
 486     then new.pk_message = gen_id(gn_pk_message, 1);
 487 end !!
 488 set term ; !!*/
 489
 490 /*set term !! ;
 491 create trigger tr_stat_bi for tb_stats active
 492 before insert position 0
 493 as
 494 begin
 495     if (new.pk_stat is null)
 496     then new.pk_stat = gen_id(gn_pk_stat, 1);
 497 end !!
 498 set term ; !!*/
 499
 500 set term !! ;
 501 create trigger tr_stat_traffic_bi for tb_stats_traffic active
 502 before insert position 0
 503 as
 504 begin
 505     if (new.pk_stat_traffic is null)
 506     then new.pk_stat_traffic = gen_id(gn_pk_stat_traffic, 1);
 507 end !!
 508 set term ; !!
 509
 510 set term !! ;
 511 create trigger tr_user_data_bi for tb_users_data active
 512 before insert position 0
 513 as
 514 begin
 515     if (new.pk_user_data is null)
 516     then new.pk_user_data = gen_id(gn_pk_user_data, 1);
 517 end !!
 518 set term ; !!
 519
 520 set term !! ;
 521 create trigger tr_allowed_ip_bi for tb_allowed_ip active
 522 before insert position 0
 523 as
 524 begin
 525     if (new.pk_allowed_ip is null)
 526     then new.pk_allowed_ip = gen_id(gn_pk_allowed_ip, 1);
 527 end !!
 528 set term ; !!
 529
 530 /*set term !! ;
 531 create trigger tr_session_log_bi for tb_sessions_log active
 532 before insert position 0
 533 as
 534 begin
 535     if (new.pk_session_log is null)
 536     then new.pk_session_log = gen_id(gn_pk_session_log, 1);
 537 end !!
 538 set term ; !!*/
 539
 540 set term !! ;
 541 create trigger tr_session_data_bi for tb_sessions_data active
 542 before insert position 0
 543 as
 544 begin
 545     if (new.pk_session_data is null)
 546     then new.pk_session_data = gen_id(gn_pk_session_data, 1);
 547 end !!
 548 set term ; !!
 549
 550 set term !! ;
 551 create trigger tr_parameter_bi for tb_parameters active
 552 before insert position 0
 553 as
 554 begin
 555     if (new.pk_parameter is null)
 556     then new.pk_parameter = gen_id(gn_pk_parameter, 1);
 557 end !!
 558 set term ; !!
 559
 560 set term !! ;
 561 create trigger tr_param_log_bi for tb_params_log active
 562 before insert position 0
 563 as
 564 begin
 565     if (new.pk_param_log is null)
 566     then new.pk_param_log = gen_id(gn_pk_param_log, 1);
 567 end !!
 568 set term ; !!
 569
 570 /*
 571  *****************************************************************************
 572  * -= Создание stored procedure =-
 573  *****************************************************************************
 574  */
 575
 576 /*
 577  * Add a message returning it's ID
 578  */
 579 set term !! ;
 580 create procedure sp_add_message(pk_message integer, login varchar(32), ver integer, msg_type integer, last_send_time integer, creation_time integer, show_time integer, repeat integer, repeat_period integer, msg_text varchar(256))
 581 returns(res integer)
 582 as
 583 begin
 584     if (:pk_message is null) then
 585     begin
 586         pk_message = gen_id(gn_pk_message, 1);
 587         insert into tb_messages values (:pk_message,
 588                                         (select pk_user from tb_users where name = :login),
 589                                         :ver,
 590                                         :msg_type,
 591                                         :last_send_time,
 592                                         :creation_time,
 593                                         :show_time,
 594                                         :repeat,
 595                                         :repeat_period,
 596                                         :msg_text);
 597     end
 598     else
 599     begin
 600         update tb_messages set fk_user = (select pk_user from tb_users where name = :login),
 601                                ver = :ver,
 602                                msg_type = :msg_type,
 603                                last_send_time = :last_send_time,
 604                                creation_time = :creation_time,
 605                                show_time = :show_time,
 606                                repeat = :repeat_period,
 607                                repeat_period = :repeat_period,
 608                                msg_text = :msg_text
 609                            where pk_message = :pk_message;
 610     end
 611     res = :pk_message;
 612 end !!
 613 set term ; !!
 614
 615 set term !! ;
 616 create procedure sp_delete_service(name varchar(32))
 617 as
 618 declare variable pk_service integer;
 619 begin
 620     select pk_service from tb_services where name = :name into pk_service;
 621     if (pk_service is  not null) then
 622     begin
 623         delete from tb_users_services where fk_service = :pk_service;
 624         delete from tb_services where pk_service = :pk_service;
 625     end
 626 end !!
 627 set term ; !!
 628
 629 set term !! ;
 630 create procedure sp_add_tariff(name varchar(32), dirs integer)
 631 as
 632 declare variable pk_tariff integer;
 633 begin
 634     pk_tariff = gen_id(gn_pk_tariff, 1);
 635     insert into tb_tariffs (pk_tariff, name, fee, free, passive_cost, traff_type) values (:pk_tariff, :name, 0, 0, 0, 0);
 636     while (dirs > 0) do
 637     begin
 638         insert into tb_tariffs_params (fk_tariff, dir_num, price_day_a,
 639                                         price_day_b, price_night_a, price_night_b,
 640                                         threshold, time_day_begins, time_day_ends)
 641                     values (:pk_tariff, :dirs - 1, 0, 0, 0, 0, 0, '0:0', '0:0');
 642         dirs = dirs - 1;
 643     end
 644 end !!
 645 set term ; !!
 646
 647 set term !! ;
 648 create procedure sp_delete_tariff(name varchar(32))
 649 as
 650 declare variable pk_tariff integer;
 651 begin
 652     select pk_tariff from tb_tariffs where name = :name into pk_tariff;
 653     if (pk_tariff is not null) then
 654     begin
 655         delete from tb_tariffs_params where fk_tariff = :pk_tariff;
 656         delete from tb_tariffs where pk_tariff = :pk_tariff;
 657     end
 658 end !!
 659 set term ; !!
 660
 661 set term !! ;
 662 create procedure sp_add_user(name varchar(32), dirs integer)
 663 as
 664 declare variable pk_user integer;
 665 declare variable pk_stat integer;
 666 begin
 667     pk_user = gen_id(gn_pk_user, 1);
 668     insert into tb_users(pk_user, fk_tariff, fk_tariff_change, fk_corporation, address, always_online, credit, credit_expire, disabled, disabled_detail_stat, email, grp, note, passive, passwd, phone, name, real_name) values (:pk_user, NULL, NULL, NULL, '', 0, 0, 'now', 0, 0, '', '_', '', 0, '', '', :name, '');
 669     pk_stat = gen_id(gn_pk_stat, 1);
 670     insert into tb_stats values (:pk_stat, :pk_user, 0, 0, 'now', 0, 'now', 0, 'now');
 671     while (dirs > 0) do
 672     begin
 673         insert into tb_stats_traffic (fk_stat, dir_num, upload, download) values (:pk_stat, :dirs - 1, 0, 0);
 674         dirs = dirs - 1;
 675     end
 676 end!!
 677 set term ; !!
 678
 679 set term !! ;
 680 create procedure sp_delete_user(name varchar(32))
 681 as
 682 declare variable pk_user integer;
 683 begin
 684     select pk_user from tb_users where name = :name into pk_user;
 685     if (pk_user is not null) then
 686     begin
 687         delete from tb_users_services where fk_user = :pk_user;
 688         delete from tb_params_log where fk_user = :pk_user;
 689         delete from tb_detail_stats where fk_user = :pk_user;
 690         delete from tb_stats_traffic where fk_stat in (select pk_stat from tb_stats where fk_user = :pk_user);
 691         delete from tb_stats where fk_user = :pk_user;
 692         delete from tb_sessions_data where fk_session_log in (select pk_session_log from tb_sessions_log where fk_user = :pk_user);
 693         delete from tb_sessions_log where fk_user = :pk_user;
 694         delete from tb_allowed_ip where fk_user = :pk_user;
 695         delete from tb_users_data where fk_user = :pk_user;
 696         delete from tb_messages where fk_user = :pk_user;
 697         delete from tb_users where pk_user = :pk_user;
 698     end
 699 end !!
 700 set term ; !!
 701
 702 set term !! ;
 703 create procedure sp_append_session_log(name varchar(32), event_time timestamp, event_type char(1), ip integer)
 704 returns(pk_session_log integer)
 705 as
 706 begin
 707     pk_session_log = gen_id(gn_pk_session_log, 1);
 708     insert into tb_sessions_log (pk_session_log, fk_user, event_time, event_type, ip) values (:pk_session_log, (select pk_user from tb_users where name = :name), :event_time, :event_type, :ip);
 709 end !!
 710 set term ; !!
 711
 712 set term !! ;
 713 create procedure sp_add_stat(name varchar(32), cash numeric(10,6), free_mb numeric(10,6), last_activity_time timestamp, last_cash_add numeric(10,6), last_cash_add_time timestamp, passive_time integer, stats_date date)
 714 returns(pk_stat integer)
 715 as
 716 begin
 717     pk_stat = gen_id(gn_pk_stat, 1);
 718     insert into tb_stats (pk_stat, fk_user, cash, free_mb, last_activity_time, last_cash_add, last_cash_add_time, passive_time, stats_date) values (:pk_stat, (select pk_user from tb_users where name = :name), :cash, :free_mb, :last_activity_time, :last_cash_add, :last_cash_add_time, :passive_time, :stats_date);
 719 end !!
 720 set term ; !!
 721
 722 /*
 723  *****************************************************************************
 724  * -= Создание администратора =-
 725  *****************************************************************************
 726  */
 727
 728 insert into tb_admins values(0, 'admin', 'geahonjehjfofnhammefahbbbfbmpkmkmmefahbbbfbmpkmkmmefahbbbfbmpkmk', 1, 1, 1, 1, 1, 1, 1, 1, 1);
 729
 730 /* EOF */
 731