[opendemo-cvs] CVS: opendemo/tools wpu,1.13,1.14

[Uwe G. <gi...@us...>]

Update of /cvsroot/opendemo/opendemo/tools
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5243

Modified Files:
	wpu 
Log Message:
updated to the current LMPC version


Index: wpu
===================================================================
RCS file: /cvsroot/opendemo/opendemo/tools/wpu,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** wpu	22 May 2004 15:03:31 -0000	1.13
--- wpu	22 May 2004 17:52:00 -0000	1.14
***************
*** 39,42 ****
--- 39,43 ----
  sub packaging;
  sub readmepackaging;
+ sub execsubst;
  sub WriteStringToFile;
  sub ReadFileToString;
***************
*** 903,906 ****
--- 904,922 ----
  
  
+ sub execsubst
+ {
+ 	if (@ARGV < 1) {
+ 		print "README syntax: $script commands\n";
+ 		exit(1);
+ 	}
+ 	my @args = ();
+ 	foreach (@ARGV) {
+ 		push @args, substvariables($_);
+ 	}
+ 	print join (" ", @args), "\n";
+ 	system @args;
+ }
+ 
+ 
  sub mergehash {
    (my $dest, my $src) = @_;