58 lines
1.6 KiB
SQL
58 lines
1.6 KiB
SQL
-- SPDX-License-Identifier: Apache-2.0
|
|
-- SPDX-License-Identifier: Unlicense
|
|
|
|
DEFINE FUNCTION OVERWRITE fn::vm_price_per_minute(
|
|
$vm_id: record
|
|
) {
|
|
LET $vm = (select * from $vm_id)[0];
|
|
LET $ip_price = IF $vm.public_ipv4.len() > 0 { 10 } ELSE { 0 };
|
|
RETURN (
|
|
($vm.vcpus * 10) + (($vm.memory_mib + 256) / 200) + ($vm.disk_size_mib / 1024 / 10) + $ip_price)
|
|
* $vm.price_per_unit;
|
|
};
|
|
|
|
DEFINE FUNCTION OVERWRITE fn::delete_vm(
|
|
$vm_id: record
|
|
) {
|
|
LET $vm = (select * from $vm_id)[0];
|
|
LET $account = $vm.in;
|
|
LET $deleted_vm = $vm.patch([{
|
|
'op': 'replace',
|
|
'path': 'id',
|
|
'value': type::record("deleted_vm:" + record::id($vm.id))
|
|
}]);
|
|
IF $vm.locked_nano >= 0 {
|
|
UPDATE $account SET balance += $vm.locked_nano;
|
|
};
|
|
INSERT RELATION INTO deleted_vm ( $deleted_vm );
|
|
RETURN DELETE $vm.id RETURN BEFORE;
|
|
};
|
|
|
|
DEFINE FUNCTION OVERWRITE fn::app_price_per_minute(
|
|
$app_id: record
|
|
) {
|
|
LET $app = (select * from $app_id)[0];
|
|
RETURN
|
|
(($app.vcpus * 5) +
|
|
($app.memory_mib / 200) +
|
|
($app.disk_size_mib / 10))
|
|
* $app.price_per_unit;
|
|
};
|
|
|
|
DEFINE FUNCTION OVERWRITE fn::delete_app(
|
|
$app_id: record
|
|
) {
|
|
LET $app = (select * from $app_id)[0];
|
|
LET $account = $app.in;
|
|
LET $deleted_app = $app.patch([{
|
|
'op': 'replace',
|
|
'path': 'id',
|
|
'value': type::record("deleted_app:" + record::id($app.id))
|
|
}]);
|
|
IF $app.locked_nano >= 0 {
|
|
UPDATE $account SET balance += $app.locked_nano;
|
|
};
|
|
INSERT RELATION INTO deleted_app ( $deleted_app );
|
|
RETURN DELETE $app.id RETURN BEFORE;
|
|
};
|