equal
deleted
inserted
replaced
169 my %o; foreach (@ARGV) { my ($k, $v) = split /=/, $_, 2; $o{$k} = $v } |
169 my %o; foreach (@ARGV) { my ($k, $v) = split /=/, $_, 2; $o{$k} = $v } |
170 |
170 |
171 if ($o{serverport} eq "443") { $o{serverurl} = "https://$o{servername}" } |
171 if ($o{serverport} eq "443") { $o{serverurl} = "https://$o{servername}" } |
172 else { $o{serverurl} = "https://$o{servername}:$o{serverport}" } |
172 else { $o{serverurl} = "https://$o{servername}:$o{serverport}" } |
173 |
173 |
174 open(F, "+</usr/lib/littlebird-tc/TrustCenter/application/configs/application_installation.ini") |
174 open(F, "+</usr/share/littlebird-tc/TrustCenter/application/configs/application_installation.ini") |
175 or die; |
175 or die; |
176 $_ = join "" => <F>; |
176 $_ = join "" => <F>; |
177 s|^(\Qresources.db.params.dbname\E\s*=).*|$1 $o{dbname}|mig; |
177 s|^(\Qresources.db.params.dbname\E\s*=).*|$1 $o{dbname}|mig; |
178 s|^(\Qresources.db.params.host\E\s*=).*|$1 $o{dbhost}|mig; |
178 s|^(\Qresources.db.params.host\E\s*=).*|$1 $o{dbhost}|mig; |
179 s|^(\Qresources.db.params.username\E\s*=).*|$1 $o{dbuser}|mig; |
179 s|^(\Qresources.db.params.username\E\s*=).*|$1 $o{dbuser}|mig; |
180 s|^(\Qresources.db.params.password\E\s*=).*|$1 $o{dbpass}|mig; |
180 s|^(\Qresources.db.params.password\E\s*=).*|$1 $o{dbpass}|mig; |
181 s|^(\Qlittlebird.trustcenter.url\E\s*=).*|$1 $o{serverurl}|mig; |
181 s|^(\Qlittlebird.trustcenter.url\E\s*=).*|$1 $o{serverurl}|mig; |
182 s|/opt/LittleBird/LittleBird(?:-Test)?|/usr/lib/littlebird-tc|mig; |
182 s|/opt/LittleBird/LittleBird(?:-Test)?|/usr/share/littlebird-tc|mig; |
183 seek(F, 0, 0); |
183 seek(F, 0, 0); |
184 print(F $_); |
184 print(F $_); |
185 truncate(F, tell F); |
185 truncate(F, tell F); |
186 close(F); |
186 close(F); |
187 _ |
187 _ |