perl-docs-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ran...@apache.org
Subject cvs commit: modperl-docs/src/docs/2.0/os/win32 get-Perl-5.8-win32-bin config.cfg install.pod
Date Thu, 02 Jan 2003 21:56:50 GMT
randyk      2003/01/02 13:56:50

  Modified:    src/docs/1.0/os/win32 config.cfg install.pod
               src/docs/2.0/os/win32 config.cfg install.pod
  Added:       src/docs/1.0/os/win32 get-perl-win32-bin
               src/docs/2.0/os/win32 get-Perl-5.8-win32-bin
  Log:
  added script to fetch, build, and install all-in-one packages.
  
  Revision  Changes    Path
  1.8       +1 -0      modperl-docs/src/docs/1.0/os/win32/config.cfg
  
  Index: config.cfg
  ===================================================================
  RCS file: /home/cvs/modperl-docs/src/docs/1.0/os/win32/config.cfg,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -r1.7 -r1.8
  --- config.cfg	21 Dec 2002 07:26:16 -0000	1.7
  +++ config.cfg	2 Jan 2003 21:56:50 -0000	1.8
  @@ -17,6 +17,7 @@
   
       copy_glob => [qw(
           mpinstall
  +	get-perl-win32-bin
       )],
   
       changes => 'Changes.pod',
  
  
  
  1.20      +4 -0      modperl-docs/src/docs/1.0/os/win32/install.pod
  
  Index: install.pod
  ===================================================================
  RCS file: /home/cvs/modperl-docs/src/docs/1.0/os/win32/install.pod,v
  retrieving revision 1.19
  retrieving revision 1.20
  diff -u -r1.19 -r1.20
  --- install.pod	2 Jan 2003 20:51:35 -0000	1.19
  +++ install.pod	2 Jan 2003 21:56:50 -0000	1.20
  @@ -232,6 +232,10 @@
   L<ftp://theoryx5.uwinnipeg.ca/pub/other/perl-win32-bin/>
   contains this distribution split across multiple files -
   see F<README.join> for instructions on how to join them.
  +Alternatively, if you have Perl already, you can get the script
  +F<get-perl-win32-bin> which, when invoked as
  +C<perl get-perl-win32-bin>, will fetch and join
  +the files for you.
   
   As well as including a number of non-core modules, both of these
   packages contain mod_perl. See the documentation on the web sites and
  
  
  
  1.1                  modperl-docs/src/docs/1.0/os/win32/get-perl-win32-bin
  
  Index: get-perl-win32-bin
  ===================================================================
  #####################################################################
  # A Perl script to retrieve and join split files 
  # making up a Win32 Perl/Apache binary distribution
  #
  # Files created by hjsplit (http://www.freebyte.com/hjsplit/)
  # with the joining accomplished by hj-join
  #
  # This script is Copyright 2003, by Randy Kobes,
  # and may be distributed under the same terms as Perl itself.
  # Please report problems to Randy Kobes <randy@theoryx5.uwinnipeg.ca>
  #####################################################################
  
  use strict;
  use warnings;
  use LWP::Simple;
  use Safe;
  use Digest::MD5;
  use IO::File;
  use ExtUtils::MakeMaker;
  
  my $dist = 'perl-win32-bin';
  my $exe = $dist . '.exe';
  my $theoryx5 = 'ftp://theoryx5.uwinnipeg.ca/pub/other' . '/' . $dist;
  my $max = 9;
  
  print <<"END";
  
  This script will fetch and then join the files needed for 
  creating the Perl/Apache Win32 binary distribution
  $exe from $theoryx5/. 
  
  If the file transfer is interrupted before all the neccessary
  files are joined, run the script again in the same directory;
  files successfully fetched earlier will not be downloaded again.
  
  END
  
  my $ans = prompt("Fetch $exe?", 'yes');
  die "Installation aborted" unless ($ans =~ /^y/i);
  
  my $cs = 'CHECKSUMS';
  my $checksums = $theoryx5 . '/' . $cs;
  
  my $join = 'join32.exe';
  my $rjoin = $theoryx5 . '/' . $join;
  
  # fetch the CHECKSUMS file
  print "Fetching $cs ...";
  getstore($checksums, $cs);
  print " done!\n";
  die "Failed to fetch $cs" unless (-e $cs);
  
  # fetch the join program
  unless (-e $join) {
    print "Fetching $join ...";
    getstore($rjoin, $join);
    print " done!\n";
    die "Failed to fetch $join" unless (-e $join);
    unless (verifyMD5($join)) {
      print qq{CHECKSUM check for "$join" failed.\n};
      unlink $join or warn "Cannot unlink $join: $!";
      die;
    }
  }
  
  # fetch the split files
  my @files;
  for (1 .. $max) {
    my $num = $_ < 10 ? "00$_" : "0$_";
    my $file = $dist . '.exe.' . $num;
    push @files, $file;
    if (-e $file) {
      print "Skipping $file ...\n";
      next;
    }
    my $rfile = $theoryx5 . '/' . $file;
    print "Fetching $file ...";
    getstore($rfile, $file);
    print " done!\n";
    die "Failed to fetch $file" unless (-e $file);
    unless (verifyMD5($file)) {
      print qq{CHECKSUM check for "$file" failed.\n};
      unlink $file or warn "Cannot unlink $file: $!";
      die;
    }
  }
  
  #now join them
  my @args = ('join32');
  system(@args);
  die "Joining files to create $exe failed" unless (-e $exe);
  
  # remove the temporary files, if desired
  $ans = prompt('Remove temporary files?', 'yes');
  if ($ans =~ /^y/i) {
    unlink @files or warn "Cannot unlink @files: $!";
  }
  
  # run the exe, if desired
  $ans = prompt("Run $exe now?", 'yes');
  if ($ans =~ /^y/i) {
     @args = ($exe);
     system(@args);
  }
  else {
     print "Double click on $exe to install\n";
  }
  
  # routine to verify the CHECKSUMS for a file
  # adapted from the MD5 check of CPAN.pm
  sub verifyMD5 {
    my $file = shift;
    my $fh = IO::File->new;
    my $cksum;
    unless (open $fh, $cs) {
      warn "Could not open $cs: $!";
      return;
    }
    local($/);
    my $eval = <$fh>;
    $eval =~ s/\015?\012/\n/g;
    close $fh;
    my $comp = Safe->new();
    $cksum = $comp->reval($eval);
    if ($@) {
      warn $@;
      return;
    }
    my ($is, $should);
    unless (open(FILE, $file)) {
      warn "Cannot open $file: $!";
      return;
    }
    binmode(FILE);
    unless ($is = Digest::MD5->new->addfile(*FILE)->hexdigest) {
      warn "Could not compute checksum for $file: $!";
      close(FILE);
      return;
    }
    close(FILE);
    if ($should = $cksum->{$file}->{md5}) {
      my $test = $is eq $should ? 1 : 0;
      printf qq{Checksum for "$file" is %s\n}, 
        ($test == 1) ? 'OK.' : 'NOT OK.';
      return $test;
    }
    else {
      warn "Checksum data for $file not present in CHECKSUMS.\n";
      return;
    }
  }
  
  
  
  1.9       +1 -0      modperl-docs/src/docs/2.0/os/win32/config.cfg
  
  Index: config.cfg
  ===================================================================
  RCS file: /home/cvs/modperl-docs/src/docs/2.0/os/win32/config.cfg,v
  retrieving revision 1.8
  retrieving revision 1.9
  diff -u -r1.8 -r1.9
  --- config.cfg	2 Jan 2003 07:56:04 -0000	1.8
  +++ config.cfg	2 Jan 2003 21:56:50 -0000	1.9
  @@ -17,6 +17,7 @@
   
       copy_glob => [qw(
           mpinstall
  +	get-Perl-5.8-win32-bin
       )],
   
       changes => 'Changes.pod',
  
  
  
  1.18      +5 -1      modperl-docs/src/docs/2.0/os/win32/install.pod
  
  Index: install.pod
  ===================================================================
  RCS file: /home/cvs/modperl-docs/src/docs/2.0/os/win32/install.pod,v
  retrieving revision 1.17
  retrieving revision 1.18
  diff -u -r1.17 -r1.18
  --- install.pod	2 Jan 2003 20:51:35 -0000	1.17
  +++ install.pod	2 Jan 2003 21:56:50 -0000	1.18
  @@ -220,7 +220,11 @@
   fetching the whole file at once, the directory
   L<ftp://theoryx5.uwinnipeg.ca/pub/other/Perl-5.8-win32-bin/>
   contains this distribution split across multiple files -
  -see F<README.join> for instructions on how to join them.
  +see F<README.join> for instructions on how to join them. Alternatively,
  +if you have Perl already, you can get the script
  +F<get-Perl-5.8-win32-bin> which, when invoked as
  +C<perl get-Perl-5.8-win32-bin>, will fetch and join
  +the files for you.
   
   =head1 See Also
   
  
  
  
  1.1                  modperl-docs/src/docs/2.0/os/win32/get-Perl-5.8-win32-bin
  
  Index: get-Perl-5.8-win32-bin
  ===================================================================
  #####################################################################
  # A Perl script to retrieve and join split files 
  # making up a Win32 Perl/Apache binary distribution
  #
  # Files created by hjsplit (http://www.freebyte.com/hjsplit/)
  # with the joining accomplished by hj-join
  #
  # This script is Copyright 2003, by Randy Kobes,
  # and may be distributed under the same terms as Perl itself.
  # Please report problems to Randy Kobes <randy@theoryx5.uwinnipeg.ca>
  #####################################################################
  
  use strict;
  use warnings;
  use LWP::Simple;
  use Safe;
  use Digest::MD5;
  use IO::File;
  use ExtUtils::MakeMaker;
  
  my $dist = 'Perl-5.8-win32-bin';
  my $exe = $dist . '.exe';
  my $theoryx5 = 'ftp://theoryx5.uwinnipeg.ca/pub/other' . '/' . $dist;
  my $max = 13;
  
  print <<"END";
  
  This script will fetch and then join the files needed for 
  creating the Perl/Apache Win32 binary distribution 
  $exe from $theoryx5/. 
  
  If the file transfer is interrupted before all the neccessary
  files are joined, run the script again in the same directory;
  files successfully fetched earlier will not be downloaded again.
  
  END
  
  my $ans = prompt("Fetch $exe?", 'yes');
  die "Installation aborted" unless ($ans =~ /^y/i);
  
  my $cs = 'CHECKSUMS';
  my $checksums = $theoryx5 . '/' . $cs;
  
  my $join = 'join32.exe';
  my $rjoin = $theoryx5 . '/' . $join;
  
  # fetch the CHECKSUMS file
  print "Fetching $cs ...";
  getstore($checksums, $cs);
  print " done!\n";
  die "Failed to fetch $cs" unless (-e $cs);
  
  # fetch the join program
  unless (-e $join) {
    print "Fetching $join ...";
    getstore($rjoin, $join);
    print " done!\n";
    die "Failed to fetch $join" unless (-e $join);
    unless (verifyMD5($join)) {
      print qq{CHECKSUM check for "$join" failed.\n};
      unlink $join or warn "Cannot unlink $join: $!";
      die;
    }
  }
  
  # fetch the split files
  my @files;
  for (1 .. $max) {
    my $num = $_ < 10 ? "00$_" : "0$_";
    my $file = $dist . '.exe.' . $num;
    push @files, $file;
    if (-e $file) {
      print "Skipping $file ...\n";
      next;
    }
    my $rfile = $theoryx5 . '/' . $file;
    print "Fetching $file ...";
    getstore($rfile, $file);
    print " done!\n";
    die "Failed to fetch $file" unless (-e $file);
    unless (verifyMD5($file)) {
      print qq{CHECKSUM check for "$file" failed.\n};
      unlink $file or warn "Cannot unlink $file: $!";
      die;
    }
  }
  
  #now join them
  my @args = ('join32');
  system(@args);
  die "Joining files to create $exe failed" unless (-e $exe);
  
  # remove the temporary files, if desired
  $ans = prompt('Remove temporary files?', 'yes');
  if ($ans =~ /^y/i) {
    unlink @files or warn "Cannot unlink @files: $!";
  }
  
  # run the exe, if desired
  $ans = prompt("Run $exe now?", 'yes');
  if ($ans =~ /^y/i) {
     @args = ($exe);
     system(@args);
  }
  else {
     print "Double click on $exe to install\n";
  }
  
  
  # routine to verify the CHECKSUMS for a file
  # adapted from the MD5 check of CPAN.pm
  sub verifyMD5 {
    my $file = shift;
    my $fh = IO::File->new;
    my $cksum;
    unless (open $fh, $cs) {
      warn "Could not open $cs: $!";
      return;
    }
    local($/);
    my $eval = <$fh>;
    $eval =~ s/\015?\012/\n/g;
    close $fh;
    my $comp = Safe->new();
    $cksum = $comp->reval($eval);
    if ($@) {
      warn $@;
      return;
    }
    my ($is, $should);
    unless (open(FILE, $file)) {
      warn "Cannot open $file: $!";
      return;
    }
    binmode(FILE);
    unless ($is = Digest::MD5->new->addfile(*FILE)->hexdigest) {
      warn "Could not compute checksum for $file: $!";
      close(FILE);
      return;
    }
    close(FILE);
    if ($should = $cksum->{$file}->{md5}) {
      my $test = $is eq $should ? 1 : 0;
      printf qq{Checksum for "$file" is %s\n}, 
        ($test == 1) ? 'OK.' : 'NOT OK.';
      return $test;
    }
    else {
      warn "Checksum data for $file not present in CHECKSUMS.\n";
      return;
    }
  }
  
  
  

---------------------------------------------------------------------
To unsubscribe, e-mail: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org


Mime
View raw message