- # Database upgrades for each version
- foreach my $UpVersion (sort keys %DBUpgrade) {
- if ($UpVersion > $Options{'u'} and $UpVersion <= $PackageVersion) {
- print "v$UpVersion: Executing database upgrade ...\n";
- &DoMySQL($DBUpgrade{$UpVersion});
- };
- };
- # Display upgrade instructions for each version
- foreach my $UpVersion (sort keys %Instructions) {
- if ($UpVersion > $Options{'u'} and $UpVersion <= $PackageVersion) {
- print "v$UpVersion: Upgrade Instructions >>>>>\n";
- my $Padding = ' ' x (length($UpVersion) + 3);
- $Instructions{$UpVersion} =~ s/^/$Padding/;
- print $Instructions{$UpVersion};
- print "<" x (length($UpVersion) + 29) . "\n";
- };
+ if ($Options{'u'} < 0.02) {
+ # 0.01 -> 0.02
+ # &DoMySQL('...;');
+ # print "v0.02: Database upgrades ...\n";
+ # &PrintInstructions('0.02',<<" INSTRUCTIONS");
+ # INSTRUCTIONS