current/utils create-package-feed.pl,1.12,1.13

Update of /cvsroot/ijbswa/current/utils
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv351/utils

Modified Files:
	create-package-feed.pl 
Log Message:
create-package-feed.pl: Only generate checksums for files that make it into the feed

... as it speeds up the feed generation.

Remove $maxlimit as it's longer needed.


Index: create-package-feed.pl
===================================================================
RCS file: /cvsroot/ijbswa/current/utils/create-package-feed.pl,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** create-package-feed.pl	16 Jul 2016 11:43:57 -0000	1.12
--- create-package-feed.pl	16 Jul 2016 11:45:22 -0000	1.13
***************
*** 8,12 ****
  
  my $base_dlurl = 'https://www.privoxy.org/sf-download-mirror/';
- my $maxlimit = 1000;
  my $max_advertised_files = 100;
  
--- 8,11 ----
***************
*** 88,101 ****
                  next if (!-e $target);    # skip if file is not exist
  
-                 $target_sha256 = get_sha256_sum($target);
-                 
                  $target_uri  = $fi1 . '/' . $fi2 . '/' . $fi3;
                  $target_time = (stat $target)[9];
  
!                 $target_line = generate_rss_item($target, $target_uri, $target_time, $target_sha256);
  
-                 $Array[$i] = ([$target_time, $target_line]);
                  $i++;
-                 die "maxlimit $maxlimit reached!" unless ($i < $maxlimit);
              }
              closedir($D3);
--- 87,96 ----
                  next if (!-e $target);    # skip if file is not exist
  
                  $target_uri  = $fi1 . '/' . $fi2 . '/' . $fi3;
                  $target_time = (stat $target)[9];
  
!                 $Array[$i] = ([$target_time, $target, $target_uri]);
  
                  $i++;
              }
              closedir($D3);
***************
*** 130,134 ****
      my $i = @resArray - 1;
      while ($max_advertised_files-- > 0 && $i >= 0) {
!         $result .= $resArray[$i][1];
          $i--;
      }
--- 125,137 ----
      my $i = @resArray - 1;
      while ($max_advertised_files-- > 0 && $i >= 0) {
!         my $target_time =  $resArray[$i][0];
!         my $target = $resArray[$i][1];
!         my $target_uri =  $resArray[$i][2];
! 
!         my $target_sha256 = get_sha256_sum($target);
! 
!         my $rss_item = generate_rss_item($target, $target_uri, $target_time, $target_sha256);
! 
!         $result .= $rss_item;
          $i--;
      }


------------------------------------------------------------------------------
What NetFlow Analyzer can do for you? Monitors network bandwidth and traffic
patterns at an interface-level. Reveals which users, apps, and protocols are 
consuming the most bandwidth. Provides multi-vendor support for NetFlow, 
J-Flow, sFlow and other flows. Make informed decisions using capacity planning
reports.http://sdm.link/zohodev2dev