Definition: [
"autonomous agent",
{
"init": "{\r
$nom_AA = 'Accions';\r
//$_Portal_original = '0000000000';\r
$_Portal_original = trigger.address; //Hauria de ser fix amb adr darrer Portal \r
\r
$_Portal_actual = var[ 'nou_portal' ] otherwise $_Portal_original;\r
\r
if ( $_Portal_actual != trigger.address )\r
{\r
$_Portal = substring( var[ $_Portal_actual ][ 'versions' ], 0, 32 );\r
if ( $_Portal != trigger.address )\r
{ bounce ( 'Portal no reconegut' ); }\r
} else {\r
$_Portal = $_Portal_actual;\r
}\r
\r
\r
// Principals\r
$args = trigger.data;\r
$adr__ = trigger.initial_address;\r
$idgeto = trigger.output[[ asset != base ]].asset;\r
\r
$generics = var[ $_Portal ][ 'generics' ];\r
\r
$versions_portal = var[ $_Portal ][ 'versions' ] otherwise $_Portal;\r
$versions = var[ $_Portal ][ 'versions_accions' ] otherwise this_address;\r
$versions_getons =\r
var[ $_Portal ][ 'versions_getons' ] otherwise $generics._Getons;\r
\r
$refs_getons = var[ $_Portal ][ 'refs_getons' ];\r
$refgeto = $args.refgeto otherwise \r
bounce( 'refgeto? ' || $args.refgeto || ' qt_accio ' || $args.qt_accio );\r
\r
\r
// Funcions\r
\r
// Si no s'ha lliurat l'argument especificat bota l'accés\r
$__arg = $arg =>\r
$args[ $arg ] otherwise\r
bounce( "Cal proporcionar el valor de: " || $arg );\r
\r
$__dada = $refval => {\r
data_feed[[ oracles = $versions, feed_name = $refval, ifnone = false ]]\r
};\r
\r
$__dada_geto = $refval => {\r
data_feed[[ oracles = $versions_getons, feed_name = $refval, ifnone = false ]]\r
};\r
\r
$__dada_portal = $refval => {\r
data_feed[[ oracles = $versions_portal, feed_name = $refval, ifnone = false ]]\r
};\r
\r
$__param = $refparam => {\r
$refgeto == 'estels'?\r
$generics[ $refparam ] :\r
$__dada_geto( $refgeto || '_' || $refparam )\r
};\r
\r
// Consulta si acció restringida\r
$__accRestringida = $acc => {\r
$refgeto == 'estels' ?\r
false :\r
$__dada_geto( $refgeto || '_' || $acc || 'ns_restringides' )\r
};\r
\r
// Si acció restringida per al getó especificat, comprova si adreça capacitada\r
$__capacitada = ( $acc, $adr ) => true; // Pendent revisió\r
\r
/*\r
$__capacitada = ( $acc, $adr ) => {\r
$capacitacio = $__dada_geto( 'capacitacio_' || $refgeto || '_' || $acc || '_' || $adr );\r
$__accRestringida( $acc ) AND ! $capacitacio OR $capacitacio != 'capacitada' ?\r
bounce( 'Adreça no capacitada per a aquesta acció' ) :\r
true\r
};\r
*/\r
\r
\r
// Comprova si adreça activada per operar amb getó especificat\r
$__activada = ( $adr, $ref ) => {\r
! $__dada( 'activacio_' || $adr__ || '_en_' || $ref ) ?\r
bounce( 'Adreça no activada per a ' || $ref ) :\r
true\r
};\r
\r
// Comprova si qt proporcionada cobreix import especificat\r
$__qtSuficient = $ref, $q =>\r
$__param( $ref ) > $q ?\r
bounce( "L'" || $ref || " és de " || $__param( $ref ) ) :\r
true;\r
\r
// Comprova si adreça consta com a subscrita\r
$__subscrita = $adr =>\r
! $__dada( 'subscripcio_' || $adr__ || '_en_' || $refgeto ) ?\r
bounce( "Adreça no subscrita per a " || $refgeto ) :\r
true;\r
\r
// Comprova si la subscripció ha estat renovada per al cicle actual\r
$__renovada = $adr => {\r
$cicle_renovat = $__dada( 'renovacio_' || $adr__ || '_en_' || $refgeto || '_cicle' );\r
! $cicle_renovat OR $__dada( 'cicle_actual' ) > $cicle_renovat ?\r
bounce( "Subscripció de l'adreça no renovada per a " || $refgeto )\r
: $__subscrita( $adr ) };\r
\r
\r
// Principals\r
$ACC = $__arg( 'accio' );\r
$qt = $__arg( 'qt_accio' );\r
\r
// Avisos\r
// Consulta si hi ha cap avís per a adr__\r
$ref_avis = $refgeto || '_avis_' || $adr__;\r
$rebot = $__dada_geto( $ref_avis || '_rebot' );\r
$temps_avis = $__dada_geto( $ref_avis );\r
$avis_es_actual =\r
$temps_avis AND\r
$temps_avis + ( $generics.Lapse * 2 ) < timestamp;\r
if ( $avis_es_actual AND $rebot )\r
{ bounce ( $__dada_geto( $ref_avis ) ); }\r
\r
\r
// Accions\r
// Control adr__ activa\r
// Tret de l'activació per a Estels, per a la resta d'accions cal\r
// que l'adr__ actuant consti com a activada per operar amb Estels \r
if ( $refgeto != 'estels' ) {\r
$__activada( $adr__, 'estels' );\r
if ( $ACC != 'Activacio' )\r
{ $__activada( $adr__, $refgeto ); }\r
}\r
else if ( $ACC != 'Activacio' )\r
{ $__activada( $adr__, 'estels' ); }\r
\r
\r
// Transfer\r
if ( $ACC == 'Transfer' ) {\r
$receptora = $__arg( 'receptora' );\r
$condicions =\r
$__activada( $receptora, 'estels' )\r
AND $__activada( $receptora, $refgeto )\r
AND $refgeto == 'estels' ? true : $__capacitada( 'recepcio', $receptora )\r
AND $__subscrita( $adr__ ) ? $__renovada( $receptora ) : true;\r
}\r
\r
\r
// Cicles i Escales\r
$cicle_actual = $__dada( 'cicle_actual' );\r
$data_cicle_actual = $__dada( 'data_cicle_actual' ) otherwise timestamp;\r
$total_FOP = $__dada_portal( 'total_FOP_en_estels' ) otherwise 0;\r
$escala_actual = $__dada( 'escala_actual' ) otherwise 1;\r
$salt_cicle = ( timestamp - $data_cicle_actual ) > $generics.Interval;\r
\r
$nova_escala = length( $total_FOP );\r
\r
\r
// Dades\r
$dades = {};\r
\r
if ( ! $cicle_actual ) {\r
$dades.cicle_actual = 1;\r
$dades.data_cicle_actual = timestamp;\r
}\r
\r
if ( $salt_cicle ) {\r
$nou_cicle = $cicle_actual + 1;\r
$dades.cicle_actual = $nou_cicle;\r
$dades.data_cicle_actual = timestamp;\r
$dades.escala_cicle_actual = $nova_escala;\r
$dades[ 'data_cicle_' || $nou_cicle ] = timestamp;\r
$dades[ 'escala_cicle_' || $nou_cicle ] = $nova_escala;\r
}\r
\r
if ( $nova_escala > $escala_actual ) {\r
$dades.escala_actual = $nova_escala;\r
$dades[ 'data_escala_' || $nova_escala ] = timestamp;\r
$dades[ 'cicle_escala_' || $nova_escala ] = $nou_cicle;\r
}\r
\r
\r
// Activacio\r
if ( $ACC == 'Activacio' ) {\r
\r
if ( is_integer( $__dada( 'activacio_' || $adr__ || '_en_' || $refgeto ) ) )\r
{ bounce( 'Adreça ja activada' ); }\r
\r
$condicions =\r
$__capacitada( 'activacio', $adr__ )\r
AND $__qtSuficient( 'Import_Activacio', $qt )\r
AND $__arg( 'nom' );\r
\r
$ref_activacio = 'activacio_' || $adr__ || '_en_' || $refgeto;\r
\r
$dades[ $ref_activacio ] = timestamp;\r
$dades[ $ref_activacio || '_nom' ] = $args.nom;\r
$dades[ $ref_activacio || '_qt' ] = $qt;\r
$dades[ $ref_activacio || '_cicle' ] = $nou_cicle;\r
$dades[ $ref_activacio || '_escala' ] = $refgeto == 'estels' ? $nova_escala : 100;\r
}\r
\r
\r
// Subscripcio\r
if ( $ACC == 'Subscripcio' ) {\r
\r
if ( is_integer( $__dada( 'subscripcio_' || $adr__ || '_en_' || $refgeto ) ) )\r
{ bounce( 'Adreça ja subscrita' ); }\r
\r
$condicions =\r
$__capacitada( 'subscripcio', $adr__ )\r
AND $__qtSuficient( 'Import_Subscripcio', $qt )\r
AND $__arg( 'nom' )\r
AND $__arg( 'derivacio' );\r
\r
$ref_subscripcio = 'subscripcio_' || $adr__ || '_en_' || $refgeto;\r
\r
$dades[ $ref_subscripcio ] = timestamp;\r
$dades[ $ref_subscripcio || '_nom' ] = $args.nom;\r
$dades[ $ref_subscripcio || '_cicle' ] = $nou_cicle;\r
$dades[ $ref_subscripcio || '_derivacio' ] = $args.derivacio;\r
}\r
\r
\r
// Renovacio\r
if ( $ACC == 'Renovacio' ) {\r
\r
$condicions =\r
$__subscrita( $adr__ )\r
AND $__qtSuficient( 'Import_Renovacio', $qt );\r
\r
$cicle_renovat = $__dada( 'renovacio_' || $adr__ || '_en_' || $refgeto || '_cicle' );\r
\r
if ( $nou_cicle > 1\r
AND $cicle_renovat\r
AND $nou_cicle == $cicle_renovat )\r
{ bounce( 'Cicle ja renovat' ); }\r
\r
$ref_renovacio = 'renovacio_' || $adr__ || '_en_' || $refgeto;\r
\r
$dades[ $ref_renovacio ] = timestamp;\r
$dades[ $ref_renovacio || '_cicle' ] = $nou_cicle;\r
}\r
\r
\r
// Diposit\r
if ( $ACC == 'Diposit' ) {\r
\r
$condicions =\r
$__capacitada( 'conversio', $adr__ )\r
AND $__renovada( $adr__ );\r
\r
$taxa_conversio = $__param( 'Taxa_Conversio' );\r
$cicles_diposit = $__param( 'Cicles_Diposit' );\r
$cicle_conversio = $nou_cicle + $cicles_diposit;\r
$taxa = round( $qt * $taxa_conversio / 100, 0 );\r
$qt_conversio = $qt - $taxa;\r
\r
$ref_diposit = 'diposit_' || timestamp || '_en_' || $refgeto;\r
\r
$dades[ $ref_diposit ] = $qt;\r
$dades[ $ref_diposit || '_dipositant' ] = $adr__;\r
$dades[ $ref_diposit || '_cicle' ] = $nou_cicle;\r
$dades[ $ref_diposit || '_qt_conversio' ] = $qt_conversio;\r
$dades[ $ref_diposit || '_cicle_conversio' ] = $cicle_conversio;\r
$dades[ $ref_diposit || '_taxa' ] = $taxa;\r
$dades[ $ref_diposit || '_geto_diposit' ] = $refgeto;\r
}\r
\r
\r
// Contribucio\r
if ( $ACC == 'Contribucio' )\r
{\r
// Ha de ser exclusivament en Estels ???????????\r
//$__arg( 'ref' ); \r
\r
$ref_contribucio = 'contribucio_' || timestamp;\r
\r
$dades[ $ref_contribucio ] = $qt;\r
$dades[ $ref_contribucio || '_contribuidora' ] = $adr__;\r
$dades[ $ref_contribucio || '_cicle' ] = $nou_cicle;\r
$dades[ $ref_contribucio || '_escala' ] = $nova_escala;\r
}\r
\r
// Total acumulat\r
$ref_total = $ACC == 'Diposit' ? 'diposits' : to_lower( $ACC ) || 'ns';\r
$total_acc = $__dada( 'total_' || $ref_total || '_en_' || $refgeto ) otherwise 0;\r
\r
$dades[ $ref_total ] = $total_acc + $qt;\r
\r
$payload = {\r
'cicle_actual' : 1,\r
'data_cicle_actual' : timestamp,\r
};\r
\r
$payload.acc = $ACC;\r
//$payload[ 'refgeto' ] = $refgeto;\r
}",
"messages": [
{
"app": "data_feed",
"payload": "{ $payload }"
},
{
"app": "state",
"state": "{\r
\r
if ( $ref_avis AND $avis_es_actual )\r
{ response[ 'AVÍS: ' ] = $__dada_geto( $ref_avis || '_text' ); }\r
\r
// Activacions\r
if ( $ACC == 'Activacio' ) {\r
response[ 'Resultat: ' ] =\r
"Activació amb nom: " || $args.nom\r
|| " de l'adr " || $adr__ || " per operar amb " || $refgeto;\r
}\r
\r
// Subscripcions\r
if ( $ACC == 'Subscripcio' ) {\r
response[ 'Resultat: ' ] =\r
"Subscripció amb nom: " \r
|| $args.nom || " de l'adr " || $adr__ || " per al cicle "\r
|| $nou_cicle || 'per operar amb ' || $refgeto;\r
}\r
\r
// Renovacions\r
if ( $ACC == 'Renovacio' ) {\r
response[ 'Resultat: ' ] =\r
"Renovació de la subscripció per al cicle " || $nou_cicle\r
|| " de l'adr " || $adr__ || ' en ' || $refgeto;\r
}\r
\r
// Dipòsits\r
if ( $ACC == 'Diposit' ) {\r
response[ 'Ref dipòsit' ] = $ref_diposit;\r
response[ 'Dipositant' ] = $adr__;\r
response[ 'Qt dipòsit' ] = $qt;\r
response[ 'Qt conversió' ] = $qt_conversio;\r
response[ 'Taxa' ] = $taxa_conversio;\r
response[ 'Data dipòsit' ] = timestamp_to_string( timestamp );\r
response[ 'Cicle dipòsit' ] = $nou_cicle;\r
response[ 'Cicle conversió' ] = $cicle_conversio;\r
response[ 'Getó dipòsit' ] = $refgeto;\r
}\r
\r
// Contribucions\r
if ( $ACC == 'Contribucio' ) {\r
response[ 'Ref contribucio' ] = $ref_contribucio;\r
response[ 'Contribuidora' ] = $adr__;\r
response[ 'Qt contribucio' ] = $qt;\r
}\r
\r
// -- Nou Portal\r
if ( $_Portal != $_Portal_actual ) {\r
var[ 'anterior_portal' ] = var[ 'nou_portal' ];\r
var[ 'nou_portal' ] = $_Portal;\r
response[ 'Nou portal'] = $_Portal;\r
}\r
\r
response[ 'cicle actual' ] = $nou_cicle;\r
response[ 'escala actual' ] = $nova_escala;\r
response[ 'acció realitzada' ] = $ACC;\r
}"
}
]
}
]