|
Lines 20975-20995
sub NewVersion {
Link Here
|
| 20975 |
$descriptions = [ $descriptions ]; |
20975 |
$descriptions = [ $descriptions ]; |
| 20976 |
} |
20976 |
} |
| 20977 |
my $first = 1; |
20977 |
my $first = 1; |
|
|
20978 |
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); |
| 20979 |
my $time = sprintf ( "%02d:%02d:%02d", $hour,$min,$sec); |
| 20978 |
for my $description ( @$descriptions ) { |
20980 |
for my $description ( @$descriptions ) { |
| 20979 |
if ( @$descriptions > 1 ) { |
20981 |
if ( @$descriptions > 1 ) { |
| 20980 |
if ( $first ) { |
20982 |
if ( $first ) { |
| 20981 |
unless ( $bug_number ) { |
20983 |
unless ( $bug_number ) { |
| 20982 |
say sprintf "Upgrade to %s done: %s", $DBversion, $description |
20984 |
say sprintf "Upgrade to %s done [%s]: %s", $DBversion, $time, $description; |
| 20983 |
} else { |
20985 |
} else { |
| 20984 |
say sprintf "Upgrade to %s done: Bug %s - %s", $DBversion, $bug_number, $description; |
20986 |
say sprintf "Upgrade to %s done [%s]: Bug %s - %s", $DBversion, $time, $bug_number, $description; |
| 20985 |
} |
20987 |
} |
| 20986 |
} |
20988 |
} |
| 20987 |
say sprintf "\t\t\t\t\t- %s", $description |
20989 |
say sprintf "\t\t\t\t\t- %s", $description; |
| 20988 |
} else { |
20990 |
} else { |
| 20989 |
unless ( $bug_number ) { |
20991 |
unless ( $bug_number ) { |
| 20990 |
say sprintf "Upgrade to %s done: %s", $DBversion, $description; |
20992 |
say sprintf "Upgrade to %s done [%s]: %s", $DBversion, $time, $description; |
| 20991 |
} else { |
20993 |
} else { |
| 20992 |
say sprintf "Upgrade to %s done: Bug %s - %s", $DBversion, $bug_number, $description; |
20994 |
say sprintf "Upgrade to %s done [%s]: Bug %s - %s", $DBversion, $time, $bug_number, $description; |
| 20993 |
} |
20995 |
} |
| 20994 |
} |
20996 |
} |
| 20995 |
$first = 0; |
20997 |
$first = 0; |
| 20996 |
- |
|
|