lib_projxml.h.php

<?php
/*
 db_postgres.h.php
 SPDX-FileCopyrightText: © 2007 Hewlett-Packard Development Company, L.P.
 
 SPDX-License-Identifier: GPL-2.0-only
*/
 
function write_entry($in_handle, $marker, $out_handle){
 
  // The marker is really set AFTER <project>, so <project> needs to
  // be written.
  $start = fseek($in_handle, $marker);
  fwrite($out_handle, "  <project>\n");
  while( false != ($line = fgets($in_handle, 1024))){
    // </project> is the end tag, write it and return, all done.
    if (preg_match('|</project>|', $line)){
      fwrite($out_handle, $line);
      return;
    }
    fwrite($out_handle, $line);
  }
}
 
function get_entry($in_handle, $marker){
 
  $project = array();
 
  // The marker is really set AFTER <project>, so <project> needs to
  // be written.
  $start = fseek($in_handle, $marker);
  $project[] = "  <project>\n";
  while( false != ($line = fgets($in_handle, 1024))){
    // </project> is the end tag, save it and return, all done.
    if (preg_match('|</project>|', $line)){
      $project[] = $line;
      return($project);
    }
    $project[] = $line;
  }
}
 
function close_tag($handle){
 
  $tag = "</project-listing>\n";
  fwrite($handle, $tag);
  return;
}
function parse_fm_input($fm_string){
  $parms = preg_split
  ('/([\'|\"])+?/', $fm_string);
  //("/([\'|\"])/", $fm_string, -1, PREG_SPLIT_DELIM_CAPTURE);
  //("/([0-9]) ([0-9a-zA-Z]) (\'|\")*?/", $fm_string, -1, PREG_SPLIT_DELIM_CAPTURE);
  // the split above leave null entries.... remove them.
  $acnt = count($parms);
  for ($ai=0; $ai<=$acnt; $ai++){
    $len = strlen($parms[$ai]);
    if ($len == 0){
      //echo "unsetting 0 lenght entry\n";
      unset($parms[$ai]);
    }
    elseif (!(isset($parms[$ai]))){
      //echo "value not set, unsetting in parms \$parms[$ai]\n";
      unset($parms[$ai]);
    }
    elseif ((isset($parms[$ai]))){
      if(ereg('^ +', $parms[$ai])){
        //echo "getting rid of space \$parms[$ai]\n";
        unset($parms[$ai]);
      }
    }
  }
  // compact the array so list will work! this is just stupid...
  $lparms = array_values($parms);
  //pdbg("ParseFmI: \$parms is:", $lparms);
  return($lparms);
}
 
function pdbg($message, $dump=''){
 
  $dbg_msg = 'DBG->' . $message . "\n";
 
  echo $dbg_msg;
 
  if(isset($dump)){
    //    echo "\$dump is:\n";
    print_r($dump);
    echo "\n";
  }
  return;
}
 
function write_hdr($handle){
 
  $xml_hdr = <<< HDR
<?xml version="1.0" encoding="ISO-8859-1"?>
<!DOCTYPE project-listing SYSTEM "http://freshmeat.net/backend/fm-projects-0.4.dtd">
<project-listing>
 
HDR;
  //pdbg("WHDR: \$xml_hdr is:$xml_hdr");
  fwrite($handle, $xml_hdr);
  return;
}
 
function write_pxml($file_handle, $pxml){
  //write_hdr($file_handle);
  for ($i=0; $i < count($pxml); $i++){
    fwrite($file_handle, $pxml[$i]);
  }
  return;
}
 
function save_Yupdated($file_handle, $Updata){
  //$Updata .= "\n";
  fwrite($file_handle, $Updata);
  return;
}
 
function xtract($string){
 
  $pos = strpos($string, '>');
  $val_start = $pos + 1;
  $val_end = strpos($string, '</', $val_start);
  if(!(is_numeric($val_end))){     // not a valid tag... return null.
    return(NULL);
  }
  $val_len = $val_end - $val_start;
  $value = substr($string, $val_start, $val_len);
  return($value);
}
 
function read_pfile($xml_file) {
  /*
   * Data Structure:
   *
   *     Key          Key          Value(s)
   *     ---          ---          --------
   * project_rank     project_name <zero or more urls to archives>,
   *                               <home_url>, <short-description>,
   *                               version-info (3 tokens).
   *
   */
  $meatdoc= simplexml_load_file("$xml_file");
  #  echo "read_pfile: Read XML file\n";
  $fmprojs = array();
  foreach ($meatdoc->project as $project) {
    $fmprojs["$project->popularity_rank"] ["$project->projectname_short"] =
    array ("$project->url_tgz",
       "$project->url_bz2",
       "$project->url_zip",
       "$project->url_homepage",
       "$project->desc_short"
    );
    foreach($project->latest_release as $verdata){
      array_push(
      $fmprojs["$project->popularity_rank"] ["$project->projectname_short"],
      $verdata->latest_release_version,
      $verdata->latest_release_id,
      $verdata->latest_release_date
      );
    }
  }
  ksort($fmprojs);
  return($fmprojs);
}