OXIESEC PANEL
- Current Dir:
/
/
home
/
cubot
/
conf
/
install
/
upgrade
/
upgrade_72_scripts
/
perl_scripts
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
02/03/2023 07:34:18 AM
rwxr-xr-x
📄
cublib.pl
2.68 KB
02/03/2023 07:34:18 AM
rwxr-xr-x
📄
run.pl
2.46 KB
02/03/2023 07:34:18 AM
rwxr-xr-x
Editing: cublib.pl
Close
sub get_next_id{ my ($col, $tab, $admid) = @_; $root=`mysql -N $CUBOT_DB -e "select max($col) from $tab"`; if($root == '' || $root == "NULL" || $root == $admid){ $root=$admfdid + 1; } chomp($root); $root; } sub create_root{ my($uid, $root, $parid, $type) = @_; writesql ("update login_users set lu_fldroot=$root where lu_id=\"$uid\";\n"); create_folder($uid, $root, $parid ,"F", "My Reports", "Home folder for $uid", "-1", "0", "0", $root); } sub create_folder{ my($uid, $root, $parid, $type, $name, $desc, $exp, $reffreq, $share, $owner) = @_; $name =~ s/'//g; $desc =~ s/'//g; writesql("insert into folder_tree (ft_id, ft_parid, ft_name, ft_description, ft_seq, ft_status, ft_expand, ft_refreshfreq, ft_share) values ($root, $parid, '$name', '$desc', 1, 'A', '0', $reffreq, $share);\n"); writesql("insert into folder_properties (fp_id, fp_type, fp_owner, fp_createdt, fp_modifydt, fp_laccessdt, fp_lrefreshdt, fp_gentime, fp_cachetime, fp_isdash, fp_isemail, fp_isalert, fp_expiredt, fp_size) values ($root, \'$type\', $owner, unix_timestamp(), 0, 0, 0, 0, 0, 0, 0, 0, $exp, '0');\n"); writesql("insert into folder_access (fa_id, fa_user, fa_group, fa_other) values ($root, 7, $share, 0);\n"); writesql ("\n"); } sub writesql{ print OUTFILE @_; } sub get_graph_def_id{ my $uid = shift; my $type = shift; $allgids=`mysql -N $CUBOT_DB -e "select gf_id from graph_def where gf_uid = \'$uid\' and substring(gf_id, 1, 1) in ($type)"`; $allgids; } sub add2_folder_tree{ my ($rpt, $uid, $root, $parid, $exp, $reffreq, $share) = @_; writesql("\n"); $dtl=get_rpt_detail("$rpt"); chomp($dtl); create_folder ($uid, $root, $parid, "R", $dtl, "", $exp, $reffreq, $share, $parid); } sub get_rpt_detail{ my $gfid= shift; my $dtl=`mysql -N $CUBOT_DB -e "select gf_user_title from graph_def where gf_id=\'$gfid\'"`; $dtl; } sub update_graph_tables{ my ($rpt, $uid, $newroot, $root) = @_; if(defined $G_Fld_Cat{$rpt}){ writesql ("update folder_tree set ft_cat=\'$G_Fld_Cat{$rpt}\' where ft_id=\'$newroot\';\n"); } if(defined $G_Dash{$rpt}){ writesql ("update folder_properties set fp_isdash='1' where fp_id=\'$newroot\';\n"); } writesql ("update graph_def set gf_id=\'$newroot\' where gf_id=\'$rpt\';\n"); writesql ("update graph_props set gp_id=\'$newroot\' where gp_id=\'$rpt\';\n"); writesql ("update graph_series set gs_id=\'$newroot\' where gs_id=\'$rpt\';\n"); writesql ("update graph_notes set gn_gid=\'$newroot\' where gn_gid=\'$rpt\';\n"); writesql ("update graph_access set ga_gf_id=\'$newroot\' where ga_gf_id=\'$rpt\';\n"); writesql ("update dash_folder set df_gf_id=\'$newroot\' where df_gf_id=\'$rpt\';\n"); } sub update_series_tables{ my ($rpt, $uid, $newroot, $root) = @_; } 1;