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

(-)a/installer/data/mysql/atomicupdate/skeleton.pl (-4 / +8 lines)
Lines 1-23 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
2
3
return {
3
return {
4
    bug_number => "BUG_NUMBER",
4
    bug_number  => "BUG_NUMBER",
5
    description => "A single line description",
5
    description => "A single line description",
6
    up => sub {
6
    up          => sub {
7
        my ($args) = @_;
7
        my ($args) = @_;
8
        my ($dbh, $out) = @$args{qw(dbh out)};
8
        my ( $dbh, $out ) = @$args{qw(dbh out)};
9
9
        # Do you stuffs here
10
        # Do you stuffs here
10
        $dbh->do(q{});
11
        $dbh->do(q{});
12
11
        # Print useful stuff here
13
        # Print useful stuff here
12
        # tables
14
        # tables
13
        say $out "Added new table 'XXX'";
15
        say $out "Added new table 'XXX'";
14
        say $out "Added column 'XXX.YYY'";
16
        say $out "Added column 'XXX.YYY'";
17
15
        # sysprefs
18
        # sysprefs
16
        say $out "Added new system preference 'XXX'";
19
        say $out "Added new system preference 'XXX'";
17
        say $out "Updated system preference 'XXX'";
20
        say $out "Updated system preference 'XXX'";
18
        say $out "Removed system preference 'XXX'";
21
        say $out "Removed system preference 'XXX'";
22
19
        # permissions
23
        # permissions
20
        say $out "Added new permission 'XXX'";
24
        say $out "Added new permission 'XXX'";
25
21
        # letters
26
        # letters
22
        say $out "Added new letter 'XXX' (TRANSPORT)";
27
        say $out "Added new letter 'XXX' (TRANSPORT)";
23
    },
28
    },
24
- 

Return to bug 34321