blob: 85e76cbd8f3ea53f350564b890f17f6b41085488 (
plain)
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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
#!/usr/bin/perl
# The yChat Project (2003)
#
# This script merges configuration files
use strict;
use scripts::modules::file;
my @files = ('conf.txt','lang/en.txt','lang/de.txt');
foreach my $filename ( @files )
{
next if ( ! -f $filename || ! -f "$filename.old" );
print "=> Merge $filename\n";
my @newoptions = &merge("$filename.old",$filename );
if (defined $newoptions[0])
{
print " => Modified $filename. Edit to set the new values [or leave standard]\n => New options are:";
foreach (@newoptions)
{
print " $_";
}
print "\n";
}
}
sub merge
{
my ($oldfile,$newfile) = @_;
my @oldfile = fopen($oldfile);
my @newfile = fopen($newfile);
my %oldfile = get_options(@oldfile);
my %newfile = get_options(@newfile);
my @newoptions;
foreach my $option (keys %newfile)
{
unless (defined $oldfile{$option})
{
push @newoptions, $option;
my $_comment = $newfile{$option}[0];
my $_value = $newfile{$option}[1];
my $_comment_b = $newfile{$option}[2];
my $_behind = $newfile{$option}[3];
print " => Adding to $newfile\n => New option is $option\n"
." => Adding it after option $_behind\n";
my $added = 0;
my $insert = $_comment . "$option=\"$_value\";$_comment_b\n";
foreach (@oldfile)
{
if (/^$_behind.+$/)
{
$_ .= $insert;
$added = 1;
last;
}
}
if ( $added == 0 )
{
print " => Adding new option at EOF\n";
push @oldfile, $insert;
}
}
}
&fwrite($newfile,@oldfile);
return @newoptions;
}
sub get_options
{
my @file = @_;
my %options;
my $option_comment;
my $option_before = '';
foreach (@file)
{
if (/(^.+)="(.+)";(.*)/)
{
my $option = $1;
my $option_value = $2;
my $option_comment_behind = $3;
my @values = ($option_comment,
$option_value,
$option_comment_behind,
$option_before);
$options{$option} = \@values;
$option_comment = '';
$option_before = $option;
}
else
{
$option_comment .= $_;
}
}
return %options;
}
|
