- drop obsolete and outdated manual inclusion of rpm macros
[packages/VMware-server.git] / VMware-server-parse-locations.pl
CommitLineData
8e1d77f9
ER
1#!/usr/bin/perl -w
2# $Id$
7f4e9407 3#
8e1d77f9
ER
4# process vmware locations database
5# filter the database and keep only single answers not the complete log
7f4e9407
ER
6#
7# purpose: cleanup locations db for making it into default rpm config
8e1d77f9
ER
8
9use strict;
10
11my (%files, %dirs, %answer, %config);
12while (<>) {
13 chomp;
14 next if /^$/ or /^#/;
15 my ($cmd, $args) = split(/ /, $_, 2);
16 my ($key, $value) = split(/ /, $args, 2);
17 $files{$key} = $value,next if $cmd eq 'file';
18 $config{$key} = 1,next if $cmd eq 'config';
19 $dirs{$args} = 1,next if $cmd eq 'directory';
20 $answer{$key} = $value,next if $cmd eq 'answer';
21 delete $answer{$key},next if $cmd eq 'remove_answer';
22 delete $files{$key},next if $cmd eq 'remove_file';
23 warn "unknown config stub: [$cmd]\n";
24}
25
26foreach my $key (sort keys %answer) {
27 my $value = $answer{$key};
28 printf("answer %s %s\n", $key, $value);
29}
30
31while (my($key, $value) = each %dirs) {
32 printf("directory %s\n", $key);
33}
34
8e1d77f9
ER
35while (my($key, $value) = each %files) {
36 if ($value) {
37 printf("file %s %s\n", $key, $value);
38 } else {
39 printf("file %s\n", $key);
40 }
41 if (exists $config{$key}) {
42 printf("config %s\n", $key);
43 delete $config{$key};
44 }
45}
46
47while (my($key, $value) = each %config) {
48 printf("config %s\n", $key);
49}
This page took 0.091443 seconds and 5 git commands to generate.