|
Lines 116-121
my $new_pref_content = sprintf q{$dbh->do(
Link Here
|
| 116 |
( defined $pref->{options} ? qq{'$pref->{options}'} : 'NULL' ), $pref->{explanation}, $pref->{type}, |
116 |
( defined $pref->{options} ? qq{'$pref->{options}'} : 'NULL' ), $pref->{explanation}, $pref->{type}, |
| 117 |
$pref->{variable}; |
117 |
$pref->{variable}; |
| 118 |
my $atomic_filepath = "installer/data/mysql/atomicupdate/bug_${bug_number}.pl"; |
118 |
my $atomic_filepath = "installer/data/mysql/atomicupdate/bug_${bug_number}.pl"; |
|
|
119 |
while ( -e $atomic_filepath ) { |
| 120 |
my $input = prompt("Atomic update file already exists, overwrite it? [y/N]"); |
| 121 |
last if $input =~ /^y$/i; |
| 122 |
$atomic_filepath = prompt("New atomic update filename? "); |
| 123 |
$atomic_filepath = "installer/data/mysql/atomicupdate/$atomic_filepath"; |
| 124 |
} |
| 125 |
|
| 119 |
say "Adding syspref to sysprefs.sql and creating new atomicupdate file ($atomic_filepath)"; |
126 |
say "Adding syspref to sysprefs.sql and creating new atomicupdate file ($atomic_filepath)"; |
| 120 |
qx{cp installer/data/mysql/atomicupdate/skeleton.pl $atomic_filepath}; |
127 |
qx{cp installer/data/mysql/atomicupdate/skeleton.pl $atomic_filepath}; |
| 121 |
my $content = read_file($atomic_filepath); |
128 |
my $content = read_file($atomic_filepath); |
| 122 |
- |
|
|