View | Details | Raw Unified | Return to bug 41746
Collapse All | Expand All

(-)a/misc/devel/add_syspref.pl (-1 / +7 lines)
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
- 

Return to bug 41746