Commit b17a49ec authored by Claes Sjofors's avatar Claes Sjofors

Wb volume configuration support for renameing objects and local script

parent f7c41d59
......@@ -55,6 +55,7 @@ char default_values[][2][200] = {
{ "defaultProductionQbus", "1"},
{ "defaultSimulationQbus", "999"},
{ "defaultNodeHierRoot", "Nodes"},
{ "defaultSecurity", "Security"},
{ "defaultOpPlaces", "OpPlaces"},
{ "defaultServers", "Servers"},
{ "defaultIO", "IO"},
......@@ -62,6 +63,7 @@ char default_values[][2][200] = {
{ "defaultOpOp", "Op"},
{ "defaultOpMaintenance", "Maintenance"},
{ "defaultOpDefault", "OpDefault"},
{ "defaultWebBrowser", "WebBrowser"},
};
......
......@@ -164,6 +164,7 @@ main()
string oname;
string hw;
string os;
string localscript;
verify(0);
......@@ -642,6 +643,12 @@ page_4:
save/quiet
noedit
# Call local script
localscript = translate_filename( "$pwr_directoryvolume_setup");
if ( localscript != "")
@'localscript'
endif
found = 0;
for ( i = 0; i < volcnt; i++)
if ( dv_vol_class[i] == 0)
......
......@@ -77,6 +77,7 @@ main()
string current_node;
string hw;
string os;
string localscript;
verify(0);
......@@ -259,6 +260,12 @@ page_4:
save/quiet
# Call local script
localscript = translate_filename( "$pwr_rootvolume_setup");
if ( localscript != "")
@'localscript'
endif
# Build
#noedit
#current_node = get_node_name();
......
......@@ -56,8 +56,65 @@ static pwr_tStatus PostCreate (
pwr_tStatus sts;
pwr_tObjName name;
pwr_tOid srv_oid, opp_oid;
pwr_tBoolean bval;
pwr_tUInt32 ival;
cnf_get_value( "defaultSecurity", name, sizeof(name));
sts = ldh_CreateObject(Session, &oid, name, pwr_eClass_Security, Object, ldh_eDest_IntoLast);
ival = 1;
cnf_get_value( "defaultXttPriv", name, sizeof(name));
if ( strcmp( name, "") != 0) {
sts = sscanf( name, "%d", &ival);
if ( sts == 1) {
sts = ldh_SetObjectPar( Session, oid, "SysBody", "DefaultXttPriv", (char *)&ival,
sizeof(ival));
if ( EVEN(sts)) return sts;
}
}
cnf_get_value( "defaultWebPriv", name, sizeof(name));
if ( strcmp( name, "") != 0) {
sts = sscanf( name, "%d", &ival);
if ( sts == 1) {
sts = ldh_SetObjectPar( Session, oid, "SysBody", "DefaultWebPriv", (char *)&ival,
sizeof(ival));
if ( EVEN(sts)) return sts;
}
}
cnf_get_value( "defaultWebSystemGroup", name, sizeof(name));
if ( strcmp( name, "") != 0) {
sts = ldh_SetObjectPar( Session, oid, "SysBody", "WebSystemGroup", (char *)name,
sizeof(name));
if ( EVEN(sts)) return sts;
}
// OpPlace objects
cnf_get_value( "defaultOpPlaces", name, sizeof(name));
sts = ldh_ClassNameToId(Session, &cid, "$NodeHier");
sts = ldh_CreateObject(Session, &opp_oid, name, cid, Object, ldh_eDest_IntoLast);
sts = ldh_ClassNameToId(Session, &cid, "OpPlace");
cnf_get_value( "defaultOpOp", name, sizeof(name));
sts = ldh_CreateObject(Session, &oid, name, cid, opp_oid, ldh_eDest_IntoLast);
cnf_get_value( "defaultOpMaintenance", name, sizeof(name));
sts = ldh_CreateObject(Session, &oid, name, cid, opp_oid, ldh_eDest_IntoLast);
cnf_get_value( "defaultOpSystemManager", name, sizeof(name));
if ( strcmp( name, "") != 0)
sts = ldh_CreateObject(Session, &oid, name, cid, opp_oid, ldh_eDest_IntoLast);
cnf_get_value( "defaultOpDefault", name, sizeof(name));
sts = ldh_CreateObject(Session, &oid, name, cid, opp_oid, ldh_eDest_IntoLast);
bval = 1;
sts = ldh_SetObjectPar( Session, oid, "RtBody", "IsDefaultOp", (char *)&bval,
sizeof(bval));
if ( EVEN(sts)) return sts;
sts = ldh_CreateObject(Session, &oid, "Security", pwr_eClass_Security, Object, ldh_eDest_IntoLast);
cnf_get_value( "defaultWebBrowser", name, sizeof(name));
sts = ldh_ClassNameToId(Session, &cid, "WebBrowserConfig");
sts = ldh_CreateObject(Session, &oid, name, cid, opp_oid, ldh_eDest_IntoLast);
sts = ldh_ClassNameToId(Session, &cid, "$NodeHier");
cnf_get_value( "defaultGraphHier", name, sizeof(name));
if ( strcmp( name, "") != 0)
sts = ldh_CreateObject(Session, &oid, name, cid, opp_oid, ldh_eDest_IntoLast);
// Server objects
cnf_get_value( "defaultServers", name, sizeof(name));
......@@ -76,28 +133,14 @@ static pwr_tStatus PostCreate (
sts = ldh_ClassNameToId(Session, &cid, "StatusServerConfig");
sts = ldh_CreateObject(Session, &oid, "StatusServer", cid, srv_oid, ldh_eDest_IntoLast);
// OpPlace objects
cnf_get_value( "defaultOpPlaces", name, sizeof(name));
sts = ldh_ClassNameToId(Session, &cid, "$NodeHier");
sts = ldh_CreateObject(Session, &opp_oid, name, cid, Object, ldh_eDest_IntoLast);
sts = ldh_ClassNameToId(Session, &cid, "OpPlace");
cnf_get_value( "defaultOpOp", name, sizeof(name));
sts = ldh_CreateObject(Session, &oid, name, cid, opp_oid, ldh_eDest_IntoLast);
cnf_get_value( "defaultOpMaintenance", name, sizeof(name));
sts = ldh_CreateObject(Session, &oid, name, cid, opp_oid, ldh_eDest_IntoLast);
cnf_get_value( "defaultOpDefault", name, sizeof(name));
sts = ldh_CreateObject(Session, &oid, name, cid, opp_oid, ldh_eDest_IntoLast);
// Plc process
sts = ldh_ClassNameToId(Session, &cid, "PlcProcess");
sts = ldh_CreateObject(Session, &oid, "Plc", cid, Object, ldh_eDest_IntoLast);
// Web handler
sts = ldh_ClassNameToId(Session, &cid, "WebHandler");
sts = ldh_CreateObject(Session, &oid, "WebHandler", cid, Object, ldh_eDest_IntoLast);
sts = ldh_ClassNameToId(Session, &cid, "WebBrowserConfig");
sts = ldh_CreateObject(Session, &oid, "WebBrowser", cid, Object, ldh_eDest_IntoLast);
// IO
cnf_get_value( "defaultIO", name, sizeof(name));
sts = ldh_ClassNameToId(Session, &cid, "$NodeHier");
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment