|
Lines 21257-21277
sub NewVersion {
Link Here
|
| 21257 |
$descriptions = [ $descriptions ]; |
21257 |
$descriptions = [ $descriptions ]; |
| 21258 |
} |
21258 |
} |
| 21259 |
my $first = 1; |
21259 |
my $first = 1; |
|
|
21260 |
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); |
| 21261 |
my $time = sprintf ( "%02d:%02d:%02d", $hour,$min,$sec); |
| 21260 |
for my $description ( @$descriptions ) { |
21262 |
for my $description ( @$descriptions ) { |
| 21261 |
if ( @$descriptions > 1 ) { |
21263 |
if ( @$descriptions > 1 ) { |
| 21262 |
if ( $first ) { |
21264 |
if ( $first ) { |
| 21263 |
unless ( $bug_number ) { |
21265 |
unless ( $bug_number ) { |
| 21264 |
say sprintf "Upgrade to %s done: %s", $DBversion, $description |
21266 |
say sprintf "Upgrade to %s done [%s]: %s", $DBversion, $time, $description; |
| 21265 |
} else { |
21267 |
} else { |
| 21266 |
say sprintf "Upgrade to %s done: Bug %5s - %s", $DBversion, $bug_number, $description; |
21268 |
say sprintf "Upgrade to %s done [%s]: Bug %5s - %s", $DBversion, $time, $bug_number, $description; |
| 21267 |
} |
21269 |
} |
| 21268 |
} |
21270 |
} |
| 21269 |
say sprintf "\t\t\t\t\t- %s", $description |
21271 |
say sprintf "\t\t\t\t\t- %s", $description; |
| 21270 |
} else { |
21272 |
} else { |
| 21271 |
unless ( $bug_number ) { |
21273 |
unless ( $bug_number ) { |
| 21272 |
say sprintf "Upgrade to %s done: %s", $DBversion, $description; |
21274 |
say sprintf "Upgrade to %s done [%s]: %s", $DBversion, $time, $description; |
| 21273 |
} else { |
21275 |
} else { |
| 21274 |
say sprintf "Upgrade to %s done: Bug %5s - %s", $DBversion, $bug_number, $description; |
21276 |
say sprintf "Upgrade to %s done [%s]: Bug %5s - %s", $DBversion, $time, $bug_number, $description; |
| 21275 |
} |
21277 |
} |
| 21276 |
} |
21278 |
} |
| 21277 |
$first = 0; |
21279 |
$first = 0; |
| 21278 |
- |
|
|