- $xml->startTag("applications");
- my @apps = @{$os->{apps}};
- foreach (@apps) {
- $xml->startTag("application");
- $xml->dataElement("name", $_->{name});
- $xml->dataElement("version", $_->{version});
- $xml->endTag("application");
- }
- $xml->endTag("applications");
-
- if(defined($os->{boot}) && defined($os->{boot}->{configs})) {
- my $default = $os->{boot}->{default};
- my $configs = $os->{boot}->{configs};
-
- $xml->startTag("boot");
- for(my $i = 0; $i < scalar(@$configs); $i++) {
- my $config = $configs->[$i];
-
- my @attrs = ();
- push(@attrs, ("default" => 1)) if($default == $i);
- $xml->startTag("config", @attrs);
- $xml->dataElement("title", $config->{title});
- $xml->dataElement("kernel", $config->{kernel}->{version})
- if(defined($config->{kernel}));
- $xml->dataElement("cmdline", $config->{cmdline})
- if(defined($config->{cmdline}));
- $xml->endTag("config");
- }
- $xml->endTag("boot");
- }
-
- if ($os->{kernels}) {
- $xml->startTag("kernels");
- my @kernels = @{$os->{kernels}};
- foreach (@kernels) {
- $xml->startTag("kernel",
- "version" => $_->{version},
- "arch" => $_->{arch});
- $xml->startTag("modules");
- my @modules = @{$_->{modules}};
- foreach (@modules) {
- $xml->dataElement("module", $_);
- }
- $xml->endTag("modules");
- $xml->dataElement("path", $_->{path}) if(defined($_->{path}));
- $xml->dataElement("package", $_->{package}) if(defined($_->{package}));
- $xml->endTag("kernel");
- }
- $xml->endTag("kernels");
- }