Commit 204b7243 authored by claes's avatar claes

Set invisible in wnav

parent d17e6785
!**Invisible: Load a backup dumpfile into development data base. !** Invisible: Load a backup dumpfile into development data base.
! !
! Proview $Id: restore_bck.pwr_com,v 1.2 2007-08-24 13:51:42 claes Exp $ ! Proview $Id: restore_bck.pwr_com,v 1.3 2008-11-28 17:15:37 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB. ! Copyright (C) 2005 SSAB Oxelsund AB.
! !
! This program is free software; you can redistribute it and/or ! This program is free software; you can redistribute it and/or
......
!** Invisible: Script for converting Profibus objects during upgrading from v3.9 to v4.0.0
! !
! Proview $Id: upgrade_pb.pwr_com,v 1.2 2005-09-01 14:57:49 claes Exp $ ! Proview $Id: upgrade_pb.pwr_com,v 1.3 2008-11-28 17:15:37 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB. ! Copyright (C) 2005 SSAB Oxelsund AB.
! !
! This program is free software; you can redistribute it and/or ! This program is free software; you can redistribute it and/or
......
!** Invisible:
! !
! Proview $Id: pb_slave_config.pwr_com,v 1.2 2005-09-01 14:57:49 claes Exp $ ! Proview $Id: pb_slave_config.pwr_com,v 1.3 2008-11-28 17:15:37 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB. ! Copyright (C) 2005 SSAB Oxelsund AB.
! !
! This program is free software; you can redistribute it and/or ! This program is free software; you can redistribute it and/or
......
!** Invisible:
function string getnextvol( string prev, string project)
int vlist;
string line;
string proj;
string vol;
string vollow;
int prev_found;
int found;
project = tolower( project);
if ( prev == "")
prev_found = 1;
else
prev = tolower(prev);
prev_found = 0;
endif
vol = "";
found = 0;
vlist = fopen("$pwra_db/pwr_volumelist.dat", "r");
while( fgets( line, vlist))
line = edit( line);
proj = element(3, " ", line);
proj = tolower( proj);
if ( proj == project)
vol = element(1, " ", line);
if ( !prev_found)
vollow = tolower(vol);
if ( vollow == prev)
prev_found = 1;
endif
else
found = 1;
break;
endif
endif
endwhile
fclose( vlist);
if ( found )
return vol;
endif
return "";
endfunction
main()
string vol;
string project = "v10pm1";
string prefix;
string node;
string busprd = "507";
string bussim = "517";
string name;
int volcnt = 0;
if ( ! ContinueDialog("Message","This script will configure the DirectoryVolume\nDo you want to continue ?"))
exit();
endif
if ( ! EditMode())
MessageDialog("Error", "Not in edit mode, script aborted");
exit();
endif
project = GetProjectName();
if ( project == "")
MessageDialog("Error", "Can't get project name, script aborted");
exit();
endif
if ( ! PromptDialog("Bus Number", "Enter QCOM bus number for production bus", busprd))
MessageDialog("Error", "Script aborted");
exit();
endif
verify(0);
create object /destination="" /name="System" /class="$System"/last
set attribut /attribute="SystemName" /name="System" /value="'project'" /noconf/nolog
set attribut /attribute="SystemGroup" /name="System" /value="ssab" /noconf/nolog
create object /destination="" /name="'busprd'" /class="BusConfig"/last
set attribut /attribute="BusNumber" /name='busprd' /value='busprd' /noconf/nolog
set attribut /attribute="Description" /name='busprd' /value="Produktions bus" /noconf/nolog
create object /destination="" /name="'bussim'" /class="BusConfig"/last
set attribut /attribute="BusNumber" /name='bussim' /value=517 /noconf/nolog
set attribut /attribute="Description" /name='bussim' /value="Simulerings bus" /noconf/nolog
vol = "";
vol = getnextvol( "", project);
while( vol != "")
printf( "-- %s\n", vol);
volcnt++;
prefix = extract(1, 4, vol);
if ( prefix == "CVol")
! Create ClassVolumeConfig
printf( "Class %s\n", prefix);
create object /destination="" /name="'vol'" /class="ClassVolumeConfig"/first
else
node = extract( 4, 32, vol);
node = tolower( node);
printf( "Node: %s\n", node);
create object /destination="" /name="'vol'" /class="RootVolumeConfig"/last
create object /destination='busprd' /name="'node'" /class="NodeConfig"/last
name = busprd + "-" + node + "-" + "O1";
move object /source='name' /rename="'vol'"
name = busprd + "-" + node;
set attribut /attribute="NodeName"/name='name'/value="'node'"/noconf/nolog
set attribut /attribute="BootNode"/name='name'/value="'node'"/noconf/nolog
set attribut /attribute="OperatingSystem"/name='name'/value=64/noconf/nolog
set attribut /attribute="Address"/name='name'/value="0.0.0.0"/noconf/nolog
endif
vol = getnextvol( vol, project);
endwhile
show obj/name=*
if ( !volcnt)
MessageDialog("Not registred", "No volumes are registred for this project");
else
MessageDialog("Completed", "Enter ip address in the NodeConfig objects and save the session");
endif
endmain
function string getnextvol( string prev, string project) function string getnextvol( string prev, string project)
......
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