scripts/blfs-chapter17.php

   1 #! /usr/bin/php
   2 <?php
   3
   4 include 'blfs-include.php';
   5
   6 $CHAPTER       = '17';
   7 $CHAPTERS      = 'Chapters 17-19';
   8 $START_PACKAGE = 'c-ares';
   9 $STOP_PACKAGE  = 'procmail';
  10
  11 $renames = array();
  12
  13 $ignores = array();
  14 $ignores[ 'libnl-doc' ] = '';
  15
  16 //$current="lynx";
  17
  18 $regex = array();
  19 $regex[ 'serf'          ] = "/^.*Serf is ([\d\.]+\d).*$/";
  20 $regex[ 'libevent'      ] = "/^.*release-(\d[\d\.]*)-stable.*$/";
  21 //$regex[ 'libnsl'        ] = "/^.*libnsl ([\d\.]+\d)*$/";
  22 $regex[ 'rpcsvc-proto'  ] = "/^.*Version ([\d\.]+\d)*$/";
  23
  24 $url_fix = array (
  25
  26    array( //'pkg'     => 'gnome',
  27           'match'   => '^ftp:\/\/ftp.gnome',
  28           'replace' => "http://ftp.gnome" ),
  29
  30    array( 'pkg'     => 'alpine',
  31           'match'   => '^.*$',
  32           'replace' => "http://repo.or.cz/alpine.git/shortlog" ),
  33
  34    array( 'pkg'     => 'c-ares',
  35           'match'   => '^.*$',
  36           'replace' => "https://github.com/c-ares/c-ares/releases" ),
  37
  38    array( 'pkg'     => 'w3m',
  39           'match'   => '^.*$',
  40           'replace' => "http://sourceforge.net/projects/w3m/files" ),
  41
  42    array( 'pkg'     => 'fetchmail',
  43           'match'   => '^.*$',
  44           'replace' => "https://sourceforge.net/projects/fetchmail/files" ),
  45
  46    array( 'pkg'     => 'links',
  47           'match'   => '^.*$',
  48           'replace' => "http://links.twibright.com/download" ),
  49
  50    array( 'pkg'     => 'serf',
  51           'match'   => '^.*$',
  52           'replace' => "http://serf.apache.org/download" ),
  53
  54    array( 'pkg'     => 'libpsl',
  55           'match'   => '^.*$',
  56           'replace' => "https://github.com/rockdaboot/libpsl/releases" ),
  57
  58    array( 'pkg'     => 'libtirpc',
  59           'match'   => '^.*$',
  60           'replace' => "http://sourceforge.net/projects/libtirpc/files/libtirpc" ),
  61
  62    array( 'pkg'     => 'libevent',
  63           'match'   => '^.*$',
  64           'replace' => "https://github.com/libevent/libevent/releases" ),
  65
  66    array( 'pkg'     => 'geoclue',
  67           'match'   => '^.*$',
  68           'replace' => "https://gitlab.freedesktop.org/geoclue/geoclue/tags" ),
  69
  70    array( 'pkg'     => 'libpcap',
  71           'match'   => '^.*$',
  72           'replace' => "http://www.tcpdump.org/#latest-release" ),
  73
  74    array( 'pkg'     => 'mutt',
  75           'match'   => '^.*$',
  76           'replace' => "http://www.mutt.org/download.html" ),
  77
  78    array( 'pkg'     => 'neon',
  79           'match'   => '^.*$',
  80           'replace' => "https://github.com/notroj/neon/releases/" ),
  81
  82    array( 'pkg'     => 'nghttp2',
  83           'match'   => '^.*$',
  84           'replace' => "https://github.com/nghttp2/nghttp2/releases/" ),
  85
  86    array( 'pkg'     => 'libndp',
  87           'match'   => '^.*$',
  88           'replace' => "https://github.com/jpirko/libndp/releases" ),
  89
  90    array( 'pkg'     => 'lynx',
  91           'match'   => '^.*$',
  92           'replace' => "http://invisible-mirror.net/archives/lynx/tarballs" ),
  93
  94    array( 'pkg'     => 'libnl',
  95           'match'   => '^.*$',
  96           'replace' => "https://github.com/thom311/libnl/releases" ),
  97
  98    array( 'pkg'     => 'libnsl',
  99           'match'   => '^.*$',
 100           'replace' => "https://github.com/thkukuk/libnsl/releases" ),
 101
 102    array( 'pkg'     => 'rpcsvc-proto',
 103           'match'   => '^.*$',
 104           'replace' => "https://github.com/thkukuk/rpcsvc-proto/releases" ),
 105
 106    array( 'pkg'     => 'procmail',
 107           'match'   => '^.*$',
 108           'replace' => "http://ftp.osuosl.org/pub/blfs/conglomeration/procmail" ),
 109 );
 110
 111 function get_packages( $package, $dirpath )
 112 {
 113   global $regex;
 114   global $book_index;
 115   global $url_fix;
 116   global $current;
 117
 118   if ( isset( $current ) && $book_index != "$current" ) return 0;
 119
 120   // Fix up directory path
 121   foreach ( $url_fix as $u )
 122   {
 123      $replace = $u[ 'replace' ];
 124      $match   = $u[ 'match'   ];
 125
 126      if ( isset( $u[ 'pkg' ] ) )
 127      {
 128         if ( $package == $u[ 'pkg' ] )
 129         {
 130            $dirpath = preg_replace( "/$match/", "$replace", $dirpath );
 131            break;
 132         }
 133      }
 134      else
 135      {
 136         if ( preg_match( "/$match/", $dirpath ) )
 137         {
 138            $dirpath = preg_replace( "/$match/", "$replace", $dirpath );
 139            break;
 140         }
 141      }
 142   }
 143
 144   // Check for ftp
 145   if ( preg_match( "/^ftp/", $dirpath ) )
 146   {
 147     // glib type packages
 148     if ( $book_index == "glib-networking" ||  // This shouldn't happen any more
 149          $book_index == "libsoup"          )
 150     {
 151       // Parent listing
 152       $dirpath  = rtrim  ( $dirpath, "/" );    // Trim any trailing slash
 153       $position = strrpos( $dirpath, "/" );
 154       $dirpath  = substr ( $dirpath, 0, $position );
 155       $lines    = http_get_file( "$dirpath/" );
 156       $dir      = find_even_max( $lines, '/^.* [\d\.]+$/', '/^.* ([\d\.]+)$/' );
 157       $dirpath .= "/$dir/";
 158     }
 159
 160     // Get listing
 161     $lines   = http_get_file( "$dirpath/" );
 162   }
 163   else // http
 164   {
 165     // Customize http directories as needed
 166     if ( $book_index == "glib-networking" ||
 167          $book_index == "libsoup"          )
 168     {
 169       // Parent listing
 170       $dirpath  = rtrim  ( $dirpath, "/" );    // Trim any trailing slash
 171       $position = strrpos( $dirpath, "/" );
 172       $dirpath  = substr ( $dirpath, 0, $position );
 173       $lines1   = http_get_file( "$dirpath/" );
 174       $dir      = find_even_max( $lines1, '/^\s*[\d\.]+\/.*$/', '/^\s*([\d\.]+).*$/' );
 175       $dirpath .= "/$dir/";
 176     }
 177
 178     // lynx - really has odd name format
 179     if ( $book_index == "lynx" )
 180     {
 181       $lines = http_get_file( $dirpath );
 182       $max = find_max( $lines, "/rel/", "/^.*lynx(\d[\d\.]+rel\.\d).tar.*$/" );
 183       return $max;
 184     }
 185
 186     $lines = http_get_file( $dirpath );
 187     if ( ! is_array( $lines ) ) return $lines;
 188   } // End fetch
 189 //print_r($lines);
 190   if ( isset( $regex[ $package ] ) )
 191   {
 192      // Custom search for latest package name
 193      foreach ( $lines as $l )
 194      {
 195         if ( preg_match( '/^\h*$/', $l ) ) continue;
 196         $ver = preg_replace( $regex[ $package ], "$1", $l );
 197         if ( $ver == $l ) continue;
 198
 199         //if ( $book_index == "exiv" ) $ver = "2-$ver";
 200
 201         return $ver;  // Return first match of regex
 202      }
 203
 204      return 0;  // This is an error
 205   }
 206
 207   if ( $book_index == "alpine" )
 208     return find_max( $lines, '/New version/', '/^.*New version ([\d\.]+).*$/' );
 209
 210   if ( $book_index == "c-ares" )
 211     return find_max( $lines, '/c-ares/', '/^.*c-ares-([\d\.]+).tar.*$/' );
 212
 213   if ( $book_index == "glib-networking" )
 214   {
 215     $version = find_max( $lines, "/$book_index/", "/.*$book_index-([\d\.]*\d)\.tar.*$/" );
 216     if ( $version == 0 )
 217     {
 218       // Reduce last directory segment by 0.02
 219       /*
 220       $dirpath  = rtrim  ( $dirpath, "/" );    // Trim any trailing slash
 221       $position = strrpos( $dirpath, "/" );
 222       $basedir  = substr ( $dirpath, 0, $position );
 223       $lastdir  = substr ( $dirpath, -4  );    // 3.xx
 224       $newdir   = (float)$lastdir - 0.02 ;
 225       $dirpath  = $basedir . "/" . $newdir;
 226
 227       // Get values from that diretory
 228       $lines    = http_get_file( "$dirpath/" );
 229       */
 230       $lines   = backup_dir( $dirpath, 4, 0.02 );
 231       $version = find_max( $lines, "/$book_index/", "/^.*$book_index-([\d\.]*\d)\.tar.*$/" );
 232     }
 233     return $version;
 234   }
 235   if ( $book_index == "curl" )
 236     return find_max( $lines, '/^\d/', '/^([\d\.]+) .*$/' );
 237
 238   if ( $book_index == "libndp" )
 239     return find_max( $lines, '/v\d/', '/^.*v([\d\.]+)$/' );
 240
 241   if ( $book_index == "heirloom-mailx" )
 242     return find_max( $lines, '/orig/', '/^.*_([\d\.]+)\.orig.*$/' );
 243
 244   if ( $book_index == "libpcap" )
 245     return find_max( $lines, '/libpcap-[\d\.]+/', '/^.*libpcap-([\d\.]+).tar.*$/' );
 246
 247   if ( $book_index == "mutt" )
 248     return find_max( $lines, '/mutt-/', '/^.*mutt-([\d\.]+).tar.*$/' );
 249
 250   if ( $book_index == "neon" )
 251     return find_max( $lines, '/\d\./', '/^.* ([\d\.]+\d).*$/' );
 252
 253   if ( $book_index == "nghttp2" )
 254     return find_max( $lines, '/nghttp2/', '/^.*nghttp2 v([\d\.]+).*$/' );
 255
 256   if ( $book_index == "geoclue" )
 257     return find_max( $lines, '/Release/', '/^.*Release ([\d\.]+).*$/' );
 258
 259   if ( $book_index == "procmail" )
 260     return find_max( $lines, '/procmail/', '/^.*procmail-([\d\.]+)\.tar.*$/' );
 261
 262   // libtirpc  (sourceforge is inconsistent here)
 263   // Trying a constant '1' now (2020-07-26)
 264   if ( $book_index == "libtirpc" )
 265     return find_max( $lines, '/^\s*1/', '/^\s*(\d\.[\d\.]+) .*$/' );
 266     //return find_max( $lines, '/^\s*\d/', '/^\s*(\d\.[\d\.]+) .*$/' );
 267
 268   if ( $book_index == "fetchmail" )
 269     return find_max( $lines, '/fetchmail-/', '/^.*fetchmail-(\d\.[\d\.rc]+).tar.*$/' );
 270
 271   // Most packages are in the form $package-n.n.n
 272   // Occasionally there are dashes (e.g. 201-1)
 273   $max = find_max( $lines, "/$package/", "/^.*$package-([\d\.]*\d)\.tar.*$/" );
 274   return $max;
 275 }
 276
 277 Function get_pattern( $line )
 278 {
 279    // Set up specific patter matches for extracting book versions
 280    $match = array();
 281
 282    $match = array(
 283      array( 'pkg'   => 'w3m',
 284             'regex' => "/w3m-(\d[\d\.]+)/" ),
 285
 286      array( 'pkg'   => 'nghttp',
 287             'regex' => "/nghttp2-(\d[\d\.]+)/" ),
 288    );
 289
 290    foreach( $match as $m )
 291    {
 292       $pkg = $m[ 'pkg' ];
 293       if ( preg_match( "/$pkg/", $line ) )
 294          return $m[ 'regex' ];
 295    }
 296
 297    return "/\D*(\d.*\d)\D*$/";
 298 }
 299
 300 get_current();  // Get what is in the book
 301
 302 // Get latest version for each package
 303 foreach ( $book as $pkg => $data )
 304 {
 305    $book_index = $pkg;
 306
 307    $base = $data[ 'basename' ];
 308    $url  = $data[ 'url' ];
 309    $bver = $data[ 'version' ];
 310
 311    echo "book index: $book_index $bver $url \n";
 312
 313    $v = get_packages( $book_index, $url );
 314    $vers[ $book_index ] = $v;
 315 }
 316
 317 html();  // Write html output
 318 ?>