Ясно откуда берется UUID
уникальный номер - /usr/bin/uuidgen
Сорри, все получилось. Секция заполняется вот этим скриптом
#!/usr/bin/perl -w
use strict;
use warnings;
use utf8;
my @in=();
my @workspaces=();
while (<>)
{ push (@in,$_);
if ($_ =~ /<Service\s+sapcpg="(.*)"\s+name="(.*)"\s+msid="(.*)"\s+type="(.*)"\s+uuid="(.*)"\s+sncop="(.*)"\s+server="(.*)"\/>/)
{my $uuid = `/usr/bin/uuidgen -r`; chomp ($uuid); push(@workspaces, " <Item uuid=\"$uuid\" serviceid=\"$5\"/>\n");}
}
push(@workspaces, " </Workspace>\n");
foreach my $line ( @in )
{ $line =~ s/<Workspace name=\"JavaGUI Services\"(.*)\/>/<Workspace name=\"JavaGUI Services\"$1>/;
print $line;
if ($line =~ /<Workspace\s+name=\"JavaGUI Services\"/ ) { print @workspaces; }
}
# end of script
то есть заполняется раздел :
<Workspaces default="540f8c7f-26ad-4738-95ec-0fe943101ae3">
<Workspace name="JavaGUI Services" uuid="540f8c7f-26ad-4738-95ec-0fe943101ae3" description="JavaGUI Services configuration">
<Item uuid="edd05440-09c0-414b-9aea-9a0ae0fd427d" serviceid="46fb33ef-bbd0-4d57-b183-3433238c7284"/>
<Item uuid="e7678ba7-c8a3-48a2-933b-c19a0b863da3" serviceid="8e21c2e1-86ec-451c-9242-7378bb59e3af"/>
<Item uuid="5e053ddf-792c-4edd-a2a7-c40c7db23185" serviceid="9310312e-4774-4794-80ea-2aeb15e2bec8"/>
<Item uuid="becece47-85e8-4f50-8053-cd4b13eb9ad7" serviceid="66a9cae3-fb46-4687-ae53-6ba045ebf5c9"/>
<Item uuid="59fb3937-b198-48f3-bd6d-c3c2a64bbe80" serviceid="bbe80073-abed-42ef-a9ad-b3eff2aee04d"/>
....
и так далее
и на стартовом экране возникают все необходимые Sap подключения как и хотелось.
Ура!
Вот что было нужно
Вход
Регистрация
FAQ пользователя
Поиск
