Changeset 1195
- Timestamp:
- 06/02/08 11:19:07
(6 months ago)
- Author:
- rats
- Message:
* Fixed #1329: some typos in the engine perl files
-
Files:
-
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
| r1194 |
r1195 |
|
| 3 | 3 | |
|---|
| 4 | 4 | 2008-06-02 Benedikt Heintel |
|---|
| | 5 | - ENGINE: |
|---|
| | 6 | * Fixed #1329: some typos in the engine perl files |
|---|
| 5 | 7 | - GUI: |
|---|
| 6 | 8 | * Fixed #1327: No switch back as admin when logged as reseller |
|---|
| r1157 |
r1195 |
|
| 186 | 186 | |
|---|
| 187 | 187 | # |
|---|
| 188 | | # Let's construct nedded tags and entries; |
|---|
| | 188 | # Let's construct needed tags and entries; |
|---|
| 189 | 189 | # |
|---|
| 190 | 190 | my %tag_hash = ( |
|---|
| … | … | |
| 207 | 207 | |
|---|
| 208 | 208 | # |
|---|
| 209 | | # Let's get Sytem and Workind config files; |
|---|
| | 209 | # Let's get System and Working config files; |
|---|
| 210 | 210 | # |
|---|
| 211 | 211 | my ($sys, $working) = ('', ''); |
|---|
| … | … | |
| 220 | 220 | |
|---|
| 221 | 221 | # |
|---|
| 222 | | # Is the new domain entry exists ? |
|---|
| | 222 | # Does the new domain entry exists ? |
|---|
| 223 | 223 | # |
|---|
| 224 | 224 | ($rs, $rdata) = get_tag($entry_b_val, $entry_e_val, $working); |
|---|
| … | … | |
| 232 | 232 | |
|---|
| 233 | 233 | # |
|---|
| 234 | | # Let's contruct the replacement and do it; |
|---|
| | 234 | # Let's construct the replacement and do it; |
|---|
| 235 | 235 | # |
|---|
| 236 | 236 | my $entry_repl = "$entry_b_val$entry_val$entry_e_val\n$entry_b$entry_e"; |
|---|
| … | … | |
| 252 | 252 | # |
|---|
| 253 | 253 | # Here we'll replace data in production config file with data in working |
|---|
| 254 | | # confing file. A little workaround will be done. If working copy data does not exist |
|---|
| | 254 | # config file. A little workaround will be done. If working copy data does not exist |
|---|
| 255 | 255 | # in production config then we will add it; |
|---|
| 256 | 256 | # |
|---|
| … | … | |
| 322 | 322 | |
|---|
| 323 | 323 | # |
|---|
| 324 | | # Let's construct nedded tags and entries; |
|---|
| | 324 | # Let's construct needed tags and entries; |
|---|
| 325 | 325 | # |
|---|
| 326 | 326 | my %tag_hash = ( |
|---|
| … | … | |
| 343 | 343 | |
|---|
| 344 | 344 | # |
|---|
| 345 | | # Let's get Sytem and Workind config files; |
|---|
| | 345 | # Let's get Sytem and Working config files; |
|---|
| 346 | 346 | # |
|---|
| 347 | 347 | my ($sys, $working) = ('', ''); |
|---|
| … | … | |
| 356 | 356 | |
|---|
| 357 | 357 | # |
|---|
| 358 | | # Is the new domain entry exists ? |
|---|
| | 358 | # Does the new domain entry exists ? |
|---|
| 359 | 359 | # |
|---|
| 360 | 360 | ($rs, $rdata) = get_tag($entry_b_val, $entry_e_val, $working); |
|---|
| … | … | |
| 368 | 368 | |
|---|
| 369 | 369 | # |
|---|
| 370 | | # Let's contruct the replacement and do it; |
|---|
| | 370 | # Let's construct the replacement and do it; |
|---|
| 371 | 371 | # |
|---|
| 372 | 372 | # |
|---|
| … | … | |
| 1057 | 1057 | } elsif ($rs == -5) { # No, We haven't ! We'll add it; |
|---|
| 1058 | 1058 | $sys .= $working; |
|---|
| 1059 | | } else { # Some error that should not be happend ! Exitting... |
|---|
| | 1059 | } else { # Some error that should not be happend ! Exiting... |
|---|
| 1060 | 1060 | return $rs; |
|---|
| 1061 | 1061 | } |
|---|
| … | … | |
| 1265 | 1265 | } elsif ($rs == -5) { # No, We haven't ! We'll add it; |
|---|
| 1266 | 1266 | $sys .= $working; |
|---|
| 1267 | | } else { # Some error that should not be happend ! Exitting... |
|---|
| | 1267 | } else { # Some error that should not be happend ! Exiting... |
|---|
| 1268 | 1268 | return $rs; |
|---|
| 1269 | 1269 | } |
|---|
| r1192 |
r1195 |
|
| 139 | 139 | |
|---|
| 140 | 140 | # |
|---|
| 141 | | # Let's construct nedded tags and entries; |
|---|
| | 141 | # Let's construct needed tags and entries; |
|---|
| 142 | 142 | # |
|---|
| 143 | 143 | my %tag_hash = ( |
|---|
| … | … | |
| 160 | 160 | |
|---|
| 161 | 161 | # |
|---|
| 162 | | # Let's get Sytem and Workind config files; |
|---|
| | 162 | # Let's get System and Working config files; |
|---|
| 163 | 163 | # |
|---|
| 164 | 164 | my ($sys, $working) = ('', ''); |
|---|
| … | … | |
| 174 | 174 | |
|---|
| 175 | 175 | # |
|---|
| 176 | | # Is the new domain entry exists ? |
|---|
| | 176 | # Does the new domain entry exists ? |
|---|
| 177 | 177 | # |
|---|
| 178 | 178 | ($rs, $rdata) = get_tag($entry_b_val, $entry_e_val, $working); |
|---|
| … | … | |
| 186 | 186 | |
|---|
| 187 | 187 | # |
|---|
| 188 | | # Let's contruct the replacement and do it; |
|---|
| | 188 | # Let's construct the replacement and do it; |
|---|
| 189 | 189 | # |
|---|
| 190 | 190 | my $entry_repl = "$entry_b_val$entry_val$entry_e_val\n$entry_b$entry_e"; |
|---|
| … | … | |
| 275 | 275 | |
|---|
| 276 | 276 | # |
|---|
| 277 | | # Let's construct nedded tags and entries; |
|---|
| | 277 | # Let's construct needed tags and entries; |
|---|
| 278 | 278 | # |
|---|
| 279 | 279 | my %tag_hash = ( |
|---|
| … | … | |
| 296 | 296 | |
|---|
| 297 | 297 | # |
|---|
| 298 | | # Let's get Sytem and Workind config files; |
|---|
| | 298 | # Let's get Sytem and Working config files; |
|---|
| 299 | 299 | # |
|---|
| 300 | 300 | my ($sys, $working) = ('', ''); |
|---|
| … | … | |
| 310 | 310 | |
|---|
| 311 | 311 | # |
|---|
| 312 | | # Is the new domain entry exists ? |
|---|
| | 312 | # Does the new domain entry exists ? |
|---|
| 313 | 313 | # |
|---|
| 314 | 314 | ($rs, $rdata) = get_tag($entry_b_val, $entry_e_val, $working); |
|---|
| … | … | |
| 322 | 322 | |
|---|
| 323 | 323 | # |
|---|
| 324 | | # Let's contruct the replacement and do it; |
|---|
| | 324 | # Let's construct the replacement and do it; |
|---|
| 325 | 325 | # |
|---|
| 326 | 326 | # |
|---|
| r1137 |
r1195 |
|
| 785 | 785 | |
|---|
| 786 | 786 | # |
|---|
| 787 | | # Let's construct nedded tags and entries; |
|---|
| | 787 | # Let's construct needed tags and entries; |
|---|
| 788 | 788 | # |
|---|
| 789 | 789 | |
|---|
| … | … | |
| 810 | 810 | |
|---|
| 811 | 811 | # |
|---|
| 812 | | # Let's get Sytem and Workind config files; |
|---|
| | 812 | # Let's get System and Working config files; |
|---|
| 813 | 813 | # |
|---|
| 814 | 814 | |
|---|
| … | … | |
| 840 | 840 | |
|---|
| 841 | 841 | # |
|---|
| 842 | | # Let's contruct the replacement and do it; |
|---|
| | 842 | # Let's construct the replacement and do it; |
|---|
| 843 | 843 | # |
|---|
| 844 | 844 | |
|---|
|
Download in other formats:
#########################################################################
# Site footer - Contents are automatically inserted after main Trac HTML
?>