|
Lines 21154-21174
sub NewVersion {
Link Here
|
| 21154 |
$descriptions = [ $descriptions ]; |
21154 |
$descriptions = [ $descriptions ]; |
| 21155 |
} |
21155 |
} |
| 21156 |
my $first = 1; |
21156 |
my $first = 1; |
|
|
21157 |
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); |
| 21158 |
my $time = sprintf ( "%02d:%02d:%02d", $hour,$min,$sec); |
| 21157 |
for my $description ( @$descriptions ) { |
21159 |
for my $description ( @$descriptions ) { |
| 21158 |
if ( @$descriptions > 1 ) { |
21160 |
if ( @$descriptions > 1 ) { |
| 21159 |
if ( $first ) { |
21161 |
if ( $first ) { |
| 21160 |
unless ( $bug_number ) { |
21162 |
unless ( $bug_number ) { |
| 21161 |
say sprintf "Upgrade to %s done: %s", $DBversion, $description |
21163 |
say sprintf "Upgrade to %s done [%s]: %s", $DBversion, $time, $description; |
| 21162 |
} else { |
21164 |
} else { |
| 21163 |
say sprintf "Upgrade to %s done: Bug %5s - %s", $DBversion, $bug_number, $description; |
21165 |
say sprintf "Upgrade to %s done [%s]: Bug %5s - %s", $DBversion, $time, $bug_number, $description; |
| 21164 |
} |
21166 |
} |
| 21165 |
} |
21167 |
} |
| 21166 |
say sprintf "\t\t\t\t\t- %s", $description |
21168 |
say sprintf "\t\t\t\t\t- %s", $description; |
| 21167 |
} else { |
21169 |
} else { |
| 21168 |
unless ( $bug_number ) { |
21170 |
unless ( $bug_number ) { |
| 21169 |
say sprintf "Upgrade to %s done: %s", $DBversion, $description; |
21171 |
say sprintf "Upgrade to %s done [%s]: %s", $DBversion, $time, $description; |
| 21170 |
} else { |
21172 |
} else { |
| 21171 |
say sprintf "Upgrade to %s done: Bug %5s - %s", $DBversion, $bug_number, $description; |
21173 |
say sprintf "Upgrade to %s done [%s]: Bug %5s - %s", $DBversion, $time, $bug_number, $description; |
| 21172 |
} |
21174 |
} |
| 21173 |
} |
21175 |
} |
| 21174 |
$first = 0; |
21176 |
$first = 0; |
| 21175 |
- |
|
|