scripts/blfs-chapter06.php

   1 #! /usr/bin/php
   2 <?php
   3
   4 include 'blfs-include.php';
   5
   6 $CHAPTER       = '6';
   7 $CHAPTERS      = 'Chapters 6-8';
   8 $START_PACKAGE = 'bluefish';
   9 $STOP_PACKAGE  = 'qemu';
  10
  11 $renames = array();
  12
  13 $ignores = array();
  14 $ignores[ 'zsh1' ] = '';
  15
  16 //$current="emacs";   // For debugging
  17
  18 $regex = array();
  19 //$regex[ 'joe'  ] = "/^.*Download joe-(\d[\d\.]+).tar.*$/";
  20
  21 $url_fix = array (
  22
  23   array( 'pkg'     => 'joe',
  24          'match'   => '^.*$',
  25          'replace' => "http://sourceforge.net/projects/joe-editor/files" ),
  26
  27   array( 'pkg'     => 'emacs',
  28          'match'   => '^.*$',
  29          'replace' => "https://ftp.gnu.org/gnu/emacs" ),
  30
  31   array( 'pkg'     => 'gedit',
  32          'match'   => '^.*$',
  33          'replace' => "https://download.gnome.org/sources/gedit/" ),
  34
  35   array( 'pkg'     => 'vim',
  36          'match'   => '^.*$',
  37          'replace' => "http://github.com/vim/vim/releases" ),
  38
  39   array( 'pkg'     => 'nano',
  40          'match'   => '^.*$',
  41          'replace' => "https://www.nano-editor.org/dist/" ),
  42
  43   array( 'pkg'     => 'dash',
  44          'match'   => '^.*$',
  45          'replace' => "https://git.kernel.org/pub/scm/utils/dash/dash.git/refs" ),
  46 );
  47
  48 function get_packages( $package, $dirpath )
  49 {
  50   global $exceptions;
  51   global $regex;
  52   global $book_index;
  53   global $url_fix;
  54   global $current;
  55
  56   if ( isset( $current ) && $book_index != "$current" ) return 0;
  57
  58   // Fix up directory path
  59   foreach ( $url_fix as $u )
  60   {
  61      $replace = $u[ 'replace' ];
  62      $match   = $u[ 'match'   ];
  63
  64      if ( isset( $u[ 'pkg' ] ) )
  65      {
  66         if ( $package == $u[ 'pkg' ] )
  67         {
  68            $dirpath = preg_replace( "/$match/", "$replace", $dirpath );
  69            break;
  70         }
  71      }
  72      else
  73      {
  74         if ( preg_match( "/$match/", $dirpath ) )
  75         {
  76            $dirpath = preg_replace( "/$match/", "$replace", $dirpath );
  77            break;
  78         }
  79      }
  80   }
  81
  82   if ( preg_match( "/^ftp/", $dirpath ) ) $dirpath .= "/";
  83   $lines = http_get_file( "$dirpath" );
  84
  85   if ( ! is_array( $lines ) ) return $lines;
  86
  87   if ( isset( $regex[ $package ] ) )
  88   {
  89      // Custom search for latest package name
  90      foreach ( $lines as $l )
  91      {
  92         $ver = preg_replace( $regex[ $package ], "$1", $l );
  93         if ( $ver == $l ) continue;
  94
  95         if ( $package == 'krb' ) $ver = "5-$ver";
  96         return $ver;  // Return first match of regex
  97      }
  98
  99      return 0;  // This is an error
 100   }
 101
 102
 103   if ( $book_index == "gedit" )
 104   {
 105     // Get max even directory
 106     $major = 0;
 107     $minor = 0;
 108
 109     foreach ( $lines as $line )
 110     {
 111       if ( ! preg_match( " /\d\.\d+\//", $line ) ) continue;
 112
 113       $d = preg_replace( "/^.*(\d\.\d+)\/.*$/", "$1", $line );
 114       list( $ma, $mi, $other ) = explode( ".", $d . ".0.0", 3 );
 115
 116       if ( $mi % 2 == 1  ) continue;  // Skip odd minors
 117       if ( $ma > $major )
 118       {
 119         $major = $ma;
 120         $minor = 0;
 121       }
 122       else if ( $ma == $major )
 123       {
 124         if ( $mi > $minor ) $minor = $mi;
 125       }
 126     }
 127
 128     $lines = http_get_file( "$dirpath/$major.$minor/" );
 129     return find_max( $lines, '/gedit/', '/^.*gedit-([\d\.]+).tar.*$/' );
 130   }
 131
 132
 133
 134   if ( $book_index == "joe" )
 135   {
 136     return find_max( $lines, '/joe/', '/^.*joe-([\d\.]+).tar.*$/' );
 137     //$lines = http_get_file( "$dirpath/$dir" );
 138   }
 139
 140   // vim
 141   if ( $book_index == "vim" )
 142     return find_max( $lines, '/v\d/', '/^.*v([\d\.]+).*$/' );
 143
 144   if ( $book_index == "nano" )
 145   {
 146     $dir = find_max( $lines, "/v/", "/^.*(v[\d\.]+)\/.*$/" );
 147     $lines = http_get_file( "$dirpath/$dir" );
 148   }
 149
 150   // zsh docs
 151   if ( $book_index == "zsh1" )
 152     return find_max( $lines, '/doc/', '/^.*zsh-([\d\.]+)-doc.tar.*$/' );
 153
 154   // emacs
 155   //if ( $book_index == "emacs" )
 156   //  return find_max( $lines, '/latest/', '/^.*Emacs ([\d\.]+) .*$/' );
 157
 158   if ( $book_index == "dash" )
 159     return find_max( $lines, '/^v\d/', '/^v([\d\.]+).*$/' );
 160
 161   // Most packages are in the form $package-n.n.n
 162   // Occasionally there are dashes (e.g. 201-1)
 163   $max = find_max( $lines, "/$package/", "/^.*$package-([\d\.]*\d)\.tar.*$/" );
 164   return $max;
 165 }
 166
 167 Function get_pattern( $line )
 168 {
 169    // Set up specific patter matches for extracting book versions
 170    $match = array();
 171
 172    //$match[ 0 ] = array( 'pkg'   => 'ntfs',
 173    //                     'regex' => "/ntfs-3g_ntfsprogs-(\d.*\d)\D*$/" );
 174
 175    foreach( $match as $m )
 176    {
 177       $pkg = $m[ 'pkg' ];
 178       if ( preg_match( "/$pkg/", $line ) )
 179          return $m[ 'regex' ];
 180    }
 181
 182    return "/\D*(\d.*\d)\D*$/";
 183 }
 184
 185 get_current();  // Get what is in the book
 186
 187 // Get latest version for each package
 188 foreach ( $book as $pkg => $data )
 189 {
 190    $book_index = $pkg;
 191
 192    $base = $data[ 'basename' ];
 193    $url  = $data[ 'url' ];
 194    $bver = $data[ 'version' ];
 195
 196 echo "book index: $book_index $bver $url\n";
 197
 198    $v = get_packages( $base, $url );
 199
 200    $vers[ $book_index ] = $v;
 201 }
 202
 203 html();  // Write html output
 204 ?>