1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
#!/usr/bin/env perl
require "media.pl";
require "network.pl";
require "parse.pl";
require "debug.pl";
require "filesys.pl";
require "share.pl";
require "print.pl";
@platforms = ( "redhat-6.2", "redhat-7.0", "redhat-7.1", "debian-2.2" );
sub set
{
}
sub get
{
}
sub filter
{
}
$directives =
{
"get" => [ \&get, [], "" ],
"set" => [ \&set, [], "" ],
"filter" => [ \&filter, [], "" ]
};
$tool = &xst_init ("test", "0.0.0", "Test script.", $directives, @ARGV);
&xst_platform_ensure_supported ($tool, @platforms);
# $tree = &xst_xml_scan ("/etc/alchemist/namespace/printconf/local.adl");
# &xst_debug_print_struct ($tree);
print "He.\n";
#($model, $compressed) = &xst_xml_model_scan ("/etc/alchemist/namespace/printconf/local.adl");
#print &xst_xml_model_print ($model);
&xst_replace_xml_attribute_with_type ("/etc/alchemist/namespace/printconf/local.adl",
"/adm_context/datatree/printconf/print_queues/new/fitte/",
"VALUE", "STRING", "p0ke");
# $branch = &xst_xml_model_find ($model, "/adm_context/datatree/");
# &xst_xml_model_set_pcdata ($branch, "FAAN");
# &xst_xml_model_set_attribute ($branch, "Jern", "Jepp");
# print &xst_parse_xml ("/etc/alchemist/namespace/printconf/local.adl",
# "/adm_context/datatree/printconf/print_queues/lpekk/filter_type", "VALUE") . "\n";
|
