[docs] xmldocs - racke modified bin/whatsnew-update

[docs at icdevgroup.org]

User:      racke
Date:      2006-01-19 20:08:25 GMT
Modified:  bin      whatsnew-update
Log:
use non-recursive search for files in archive directory and use Perl code
instead of calling external programs

Revision  Changes    Path
1.5       +20 -3     xmldocs/bin/whatsnew-update


rev 1.5, prev_rev 1.4
Index: whatsnew-update
===================================================================
RCS file: /var/cvs/xmldocs/bin/whatsnew-update,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- whatsnew-update	8 Jan 2006 20:54:54 -0000	1.4
+++ whatsnew-update	19 Jan 2006 20:08:25 -0000	1.5
@@ -33,9 +33,12 @@
 )) { die "Error parsing options\n" }
 
 # Load list of received emails in @archive
-my @archive = `test -d $archive_dir && find $archive_dir -type f -print`;
- at archive or warn "No files in '$archive_dir'?\n" and exit 0;
-chomp for @archive;
+my @archive;
+
+unless (@archive = file_list($archive_dir)) {
+	warn "$0: No files in archive directory '$archive_dir'\n";
+	exit 0;
+}
 
 ## Load list of already parsed messages and delete parsed ones from %archive
 #open IN, "< whatsnew/parsed" or die "Can't open whatsnew/parsed ($!)\n";
@@ -78,6 +81,20 @@
 
 ###################################################################
 # Helpers below
+
+sub file_list {
+	my $dir = shift;
+	my @files;
+
+	if (-d $dir) {
+		opendir (DIR, $dir)
+			|| die "$0: failed to enter directory '$dir'\n";
+		@files = grep {-f $_} readdir(DIR);
+		closedir (DIR);
+	}
+
+	return @files;
+}
 
 sub read_log {
 	open IN, "< $_[0]" or die "Can't open $_[0] ($!)\n";