Comments on: Update your extensions’ maxVersion with perl

By: Amit Srivastava

Amit Srivastava — Mon, 06 Mar 2006 10:51:02 +0000

great tutorial buddy :)

By: J Fizz

J Fizz — Mon, 02 Jan 2006 20:47:33 +0000

Sorry to re-post, I was able to use Mr. Tech Local Install to update. Thanks to the Roach!

By: J Fizz

J Fizz — Mon, 02 Jan 2006 20:24:54 +0000

Hi, I followed the instructions above, even got a little black box to come up and it looked like it was doing something, but still none of my old extensions are working with FF 1.5.

I’d appreciate any help,

Thanks!

By: Will

Will — Fri, 09 Dec 2005 05:13:30 +0000

When you download a .xpi file, that is an extension it asks if you wish to overidge requried version and install. You just check that option and install like normal. :)

By: Richard Froggatt

Richard Froggatt — Wed, 07 Dec 2005 02:23:44 +0000

I wish I would have seen this a couple of days ago. If you run across an extension that is not compatible with FF 1.5 can it be tweaked and then installed?

Thanks for the tutorial.

By: AG Build 3.20050706

AG Build 3.20050706 — Mon, 05 Dec 2005 04:18:05 +0000

Or you could use an existing extension called Mr. Tech Local Install.

Here’s the link:
https://addons.mozilla.org/extensions/moreinfo.php?id=421

Here’s my write up:
http://blogplus1.someguysserver.com/archives/117-Crucial-Firefox-Extension-Mr-Tech-Local-Install.html

By: Bite my bytes

Bite my bytes — Sun, 04 Dec 2005 22:28:00 +0000

Firefox Extensions

By: Will

Will — Sun, 04 Dec 2005 01:37:13 +0000

Thanks to CrazyCoder:

Well this is even easier:

use File::Find;
use strict;

my $path = $ARGV[0]?$ARGV[0]:”./”;
my $newver = $ARGV[1]?$ARGV[1]:”1.6+”;

my @files = ();
print “Listing files… please wait…\n”;
find sub{ push(@files, $File::Find::name) if $File::Find::name=~/install.rdf/i}, $path;

foreach my $file (@files) {
print “$file\n”;
open(IN, $file);
my @all = ;
close(IN);

my $repmode = 0;
open(OUT, “>$file”);
foreach my $line (@all) {
chomp($line);
if($line =~ qw%{ec8030f7-c20a-464f-9b0e-13a3a9e97384}% ||
$line =~ qw%{ec8030f7-c20a-464f-9b0e-13a3a9e97384}% ||
$line =~ qw%em:id=”{ec8030f7-c20a-464f-9b0e-13a3a9e97384}%) {
$repmode = 1;
}

if($repmode &&
($line =~ s%.*?%$newver% ||
$line =~ s%.*?%$newver% ||
$line =~ s%em:maxVersion=”.*?”%em:maxVersion=”$newver”%)) {

print $line . “\n”;
$repmode = 0;
}
print OUT $line . “\n”;
}
close(OUT);
}

Or even better. ;)

http://swnet.spb.ru/files/repver.zip

I used Perl Dev Kit to make an executable from my script which should run on any platform.

hehe