|
Lines 21018-21038
sub NewVersion {
Link Here
|
| 21018 |
$descriptions = [ $descriptions ]; |
21018 |
$descriptions = [ $descriptions ]; |
| 21019 |
} |
21019 |
} |
| 21020 |
my $first = 1; |
21020 |
my $first = 1; |
|
|
21021 |
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); |
| 21022 |
my $time = sprintf ( "%02d:%02d:%02d", $hour,$min,$sec); |
| 21021 |
for my $description ( @$descriptions ) { |
21023 |
for my $description ( @$descriptions ) { |
| 21022 |
if ( @$descriptions > 1 ) { |
21024 |
if ( @$descriptions > 1 ) { |
| 21023 |
if ( $first ) { |
21025 |
if ( $first ) { |
| 21024 |
unless ( $bug_number ) { |
21026 |
unless ( $bug_number ) { |
| 21025 |
say sprintf "Upgrade to %s done: %s", $DBversion, $description |
21027 |
say sprintf "Upgrade to %s done [%s]: %s", $DBversion, $time, $description; |
| 21026 |
} else { |
21028 |
} else { |
| 21027 |
say sprintf "Upgrade to %s done: Bug %s - %s", $DBversion, $bug_number, $description; |
21029 |
say sprintf "Upgrade to %s done [%s]: Bug %s - %s", $DBversion, $time, $bug_number, $description; |
| 21028 |
} |
21030 |
} |
| 21029 |
} |
21031 |
} |
| 21030 |
say sprintf "\t\t\t\t\t- %s", $description |
21032 |
say sprintf "\t\t\t\t\t- %s", $description; |
| 21031 |
} else { |
21033 |
} else { |
| 21032 |
unless ( $bug_number ) { |
21034 |
unless ( $bug_number ) { |
| 21033 |
say sprintf "Upgrade to %s done: %s", $DBversion, $description; |
21035 |
say sprintf "Upgrade to %s done [%s]: %s", $DBversion, $time, $description; |
| 21034 |
} else { |
21036 |
} else { |
| 21035 |
say sprintf "Upgrade to %s done: Bug %s - %s", $DBversion, $bug_number, $description; |
21037 |
say sprintf "Upgrade to %s done [%s]: Bug %s - %s", $DBversion, $time, $bug_number, $description; |
| 21036 |
} |
21038 |
} |
| 21037 |
} |
21039 |
} |
| 21038 |
$first = 0; |
21040 |
$first = 0; |
| 21039 |
- |
|
|