Subversion Repositories SvarDOS

Rev

Rev 791 | Rev 797 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 791 Rev 795
Line 138... Line 138...
138 
 
 138 
 
139 
$pkgfiles = scandir($repodir);
 139 
$pkgfiles = scandir($repodir);
140 
$pkgcount = 0;
 140 
$pkgcount = 0;
141 
 
 141 
 
142 
 
 142 
 
143 
// load the list of CORE packages
 143 
// load the list of CORE and MSDOS_COMPAT packages
144 
 
 144 
 
145 
$core_packages_list = load_core_list($repodir);
 145 
$core_packages_list = load_core_list($repodir);
146 
 
 146 
$msdos_compat_list = explode(' ', 'append assign attrib chkdsk choice command cpidos debug defrag deltree diskcopy display edit edlin fc fdapm fdisk find format help himemx kernel keyb label localcfg mem mode more move nlsfunc print share shsucdx sort tree undelete unformat xcopy');
147 
 
 147 
 
148 
// do a list of all svp packages with their available versions and descriptions
 148 
// do a list of all svp packages with their available versions and descriptions
149 
 
 149 
 
150 
$pkgdb = array();
 150 
$pkgdb = array();
151 
foreach ($pkgfiles as $fname) {
 151 
foreach ($pkgfiles as $fname) {
Line 202... Line 202...
202 
      $duparr[] = $f;
 202 
      $duparr[] = $f;
203 
    }
 203 
    }
204 
    // LSM file is ok
 204 
    // LSM file is ok
205 
    if ($f === "appinfo/{$pkgnam}.lsm") continue;
 205 
    if ($f === "appinfo/{$pkgnam}.lsm") continue;
206 
    if ($f === "appinfo/") continue;
 206 
    if ($f === "appinfo/") continue;
207 
    // CORE packages are premium citizens and can do a little more
 207 
    // CORE and MSDOS_COMPAT packages are premium citizens and can do a little more
208 
    if (array_search($pkgnam, $core_packages_list) !== false) {
 208 
    if ((array_search($pkgnam, $core_packages_list) !== false)
- 
 
 209 
       || (array_search($pkgnam, $msdos_compat_list) !== false)) {
209 
      if (str_head_is($f, 'bin/')) continue;
 210 
      if (str_head_is($f, 'bin/')) continue;
210 
      if (str_head_is($f, 'cpi/')) continue;
 211 
      if (str_head_is($f, 'cpi/')) continue;
211 
      if (str_head_is($f, "doc/{$pkgdir}/")) continue;
 212 
      if (str_head_is($f, "doc/{$pkgdir}/")) continue;
212 
      if ($f === 'doc/') continue;
 213 
      if ($f === 'doc/') continue;
213 
      if (str_head_is($f, "nls/{$pkgdir}.")) continue;
 214 
      if (str_head_is($f, "nls/{$pkgdir}.")) continue;