X-Git-Url: https://git.stg.codes/stg.git/blobdiff_plain/8c6fa3fbaccc22127280bf77a48fab5a3ee0716e..46b0747592074017ff0ea4b33d4a7194235886e5:/stargazer/inst/var/00-alter-01.sql

diff --git a/stargazer/inst/var/00-alter-01.sql b/stargazer/inst/var/00-alter-01.sql
new file mode 100644
index 00000000..f76ae5f8
--- /dev/null
+++ b/stargazer/inst/var/00-alter-01.sql
@@ -0,0 +1,25 @@
+/*
+ *  DB migration from v00 to v01 (firebird)
+ */
+
+alter table tb_users add disabled_detail_stat dm_bool;
+
+drop procedure sp_add_user;
+
+set term !! ;
+create procedure sp_add_user(name varchar(32), dirs integer)                             
+as  
+declare variable pk_user integer;
+declare variable pk_stat integer;                                                        
+begin                                                                                    
+    pk_user = gen_id(gn_pk_user, 1);                                                     
+    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, '');
+    pk_stat = gen_id(gn_pk_stat, 1);                                                     
+    insert into tb_stats values (:pk_stat, :pk_user, 0, 0, 'now', 0, 'now', 0, 'now');   
+    while (dirs > 0) do
+    begin
+        insert into tb_stats_traffic (fk_stat, dir_num, upload, download) values (:pk_stat, :dirs - 1, 0, 0);
+        dirs = dirs - 1;
+    end
+end!!
+set term ; !!