First under 522 I run this and look over what kind of wierd junk I've
dragged down to take a look at.
##########
use strict;
use PPM;
my $file='ppm.txt';
open OUT, ">$file" or die "bad open $file";
my %p=PPM::QueryInstalledPackages();
print OUT "$_ \n" foreach (sort keys %p);
close OUT;
############
Did ppm --remove on a couple of things I'm certainly not going to use.
Take out a couple of lines like PerlZip & Perf95, which would prolly break
as its a local install.
Next run this to see what kind of dllhell I'm likely to get into.
use File::Find;
find (sub {
print " $_\n" if $File::Find::dir=~ m/auto/i;
}
, '/perl');
#############
ok, ready to rock.
add/remove programs and uninstall 522.
Whoops,,,, installshield breaks can't find some .isu file. Oh well.
get into the registry, find activestate key, delete that. (prolly
unnecessary, can't hurt).
install 5.6 no prob
install hotfix.... no prob
now to automate the rest of it.
###########
use strict;
use PPM;
my $file='ppm.txt';
print PPM::AddRepository("repository" => 'Jenda',
"location" => "http://jenda.mccann.cz/",
"save" => 1);
print PPM::InstallPackage("package" => 'Win32-GUI',
"location" => 'http://dada.perl.it/PPM');
###########
the above works
the below doesn't
#############
my
$as='soap://www.activestate.com/cgibin/SOAP/ppmserver.plex?class=PPM::SOAPSe
rver';
my $file='ppm.txt';
open IN, "$file" or die "bad open $file";
foreach (<IN>) {
my $v=PPM::VerifyPackage("package" => $_, "location" =>$as);
if (defined $v) {
# if (PPM::VerifyPackage("package" => $_)) {
print "$_ OK\n";
} else {
print "$_ NOT Verified Want it? (y/n)\n";
my $k=<STDIN>;
if ($k=~/y/i) {
print "Installing $_\n";
my $t=PPM::QueryPPD("searchRE" => $_, "location" =>$as);
print $t,"\n";
if ($t) {
print "Installing $_\n";
PPM::InstallPackage("package" => $_, "location" =>$as);
} else {
"$_ not found\n";
}
} else {
print "$k $_ skipped\n";
}
}
}
###########
1. Nothing ever verifies. (if XML-Parser doesn't verify the function is
broke!)
2. nothing happens on the install.
PPM::InstallPackage("package" => $_);
doesn't work either.
Whoops :-((
Rob
http://bangkokwizard.com/
"One of the advantages of being disorderly is that one is constantly making
exciting discoveries." - A. A. Milne
---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
[EMAIL PROTECTED]
For non-automated Mailing List support, send email to
[EMAIL PROTECTED]
