current/utils create-package-feed.pl,1.5,1.6

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

Modified Files:
	create-package-feed.pl 
Log Message:
create-package-feed.pl: Polish file and directory handling


Index: create-package-feed.pl
===================================================================
RCS file: /cvsroot/ijbswa/current/utils/create-package-feed.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** create-package-feed.pl	16 Jul 2016 11:42:29 -0000	1.5
--- create-package-feed.pl	16 Jul 2016 11:42:51 -0000	1.6
***************
*** 36,53 ****
  # 1st & 2nd directory should NOT contain ANY 'FILES'. (expecting only 'Directory')
  #
! opendir(D1, $scan_dir) or die "Can't open 1st directory! /";
! while (my $fi1 = readdir(D1)) {
      next if ($fi1 =~ m/^\./);
  
      next if ($fi1 eq 'OldFiles' or $fi1 eq 'pkgsrc');
!     opendir(D2, $scan_dir . $fi1 . '/')
          or die "Can't open 2nd directory! /$fi1";
!     while (my $fi2 = readdir(D2)) {
          next if ($fi2 =~ m/^\./);
  
  ## start listing /OS/Version/FILE
!         opendir(D3, $scan_dir . $fi1 . '/' . $fi2 . '/')
              or die "Can't open 3rd directory! /$fi1/$fi2";
!         while (my $fi3 = readdir(D3)) {
              next if ($fi3 =~ m/^\./);
              $target = $scan_dir . $fi1 . '/' . $fi2 . '/' . $fi3;
--- 36,53 ----
  # 1st & 2nd directory should NOT contain ANY 'FILES'. (expecting only 'Directory')
  #
! opendir(my $D1, $scan_dir) or die "Can't open 1st directory! /";
! while (my $fi1 = readdir($D1)) {
      next if ($fi1 =~ m/^\./);
  
      next if ($fi1 eq 'OldFiles' or $fi1 eq 'pkgsrc');
!     opendir(my $D2, $scan_dir . $fi1 . '/')
          or die "Can't open 2nd directory! /$fi1";
!     while (my $fi2 = readdir($D2)) {
          next if ($fi2 =~ m/^\./);
  
  ## start listing /OS/Version/FILE
!         opendir(my $D3, $scan_dir . $fi1 . '/' . $fi2 . '/')
              or die "Can't open 3rd directory! /$fi1/$fi2";
!         while (my $fi3 = readdir($D3)) {
              next if ($fi3 =~ m/^\./);
              $target = $scan_dir . $fi1 . '/' . $fi2 . '/' . $fi3;
***************
*** 56,63 ****
              # Get SHA-1 hash
              my $filedata;
!             unless (open $filedata, $target) { next; }
              my $sha1 = Digest::SHA1->new;
              $sha1->addfile($filedata);
!             close $filedata;
              $target_sha1 = $sha1->hexdigest;
  
--- 56,64 ----
              # Get SHA-1 hash
              my $filedata;
!             open($filedata, "<", $target)
!                 or die "Can't open '$target' to generate checksum $!";
              my $sha1 = Digest::SHA1->new;
              $sha1->addfile($filedata);
!             close($filedata);
              $target_sha1 = $sha1->hexdigest;
  
***************
*** 97,108 ****
              die "maxlimit $maxlimit reached!" unless ($i < $maxlimit);
          }
!         closedir D3;
  ## end listing /OS/Version/FILE
  
      }
!     closedir D2;
  
  }
! closedir D1;
  
  # Result = Full XML Codes
--- 98,109 ----
              die "maxlimit $maxlimit reached!" unless ($i < $maxlimit);
          }
!         closedir($D3);
  ## end listing /OS/Version/FILE
  
      }
!     closedir($D2);
  
  }
! closedir($D1);
  
  # Result = Full XML Codes
***************
*** 126,130 ****
  
  # Save it.
! open(XMLF, "> $save_rss_file") or die "Failed to write XML file";
! print XMLF $result;
! close(XMLF);
--- 127,131 ----
  
  # Save it.
! open(my $XMLF, ">", $save_rss_file) or die "Failed to write XML file";
! print $XMLF $result;
! close($XMLF);


------------------------------------------------------------------------------
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