add new package expect

programming/language/expect/files/expect-5.43.0-fixformatsecurity.patch

@@ -0,0 +1,27 @@
+From 200f54ec3498c9d53c530b863ee43b42ff258fea Mon Sep 17 00:00:00 2001
+From: Frederic Crozat <fcrozat@mandriva.com>
+Date: Thu, 5 Mar 2009 11:44:35 +0100
+Subject: [PATCH] Fix format security
+
+---
+ exp_clib.c |    4 ++--
+ 1 files changed, 2 insertions(+), 2 deletions(-)
+
+diff --git a/exp_clib.c b/exp_clib.c
+index 79e6309..1ae6073 100644
+--- a/exp_clib.c
++++ b/exp_clib.c
+@@ -1936,8 +1936,8 @@ expDiagLogU(str)
+      char *str;
+ {
+   if (exp_is_debugging) {
+-    fprintf(stderr,str);
+-    if (exp_logfile) fprintf(exp_logfile,str);
++    fprintf(stderr,"%s",str);
++    if (exp_logfile) fprintf(exp_logfile,"%s",str);
+   }
+ }
+ 
+-- 
+1.6.1.3
+

programming/language/expect/files/expect-5.44.1.15-ldflags.patch

@@ -0,0 +1,13 @@
+diff --git a/Makefile.in b/Makefile.in
+index cc2c79b..1083eaf 100644
+--- a/Makefile.in
++++ b/Makefile.in
+@@ -148,7 +148,7 @@ OBJEXT		= @OBJEXT@
+ RANLIB		= @RANLIB@
+ RANLIB_STUB	= @RANLIB_STUB@
+ SHLIB_CFLAGS	= @SHLIB_CFLAGS@
+-SHLIB_LD	= @SHLIB_LD@
++SHLIB_LD	= @SHLIB_LD@ $(LDFLAGS)
+ SHLIB_LD_LIBS	= @SHLIB_LD_LIBS@
+ STLIB_LD	= @STLIB_LD@
+ TCL_DEFS	= @TCL_DEFS@

programming/language/expect/files/expect-fedora-5.32.2-random.patch

@@ -0,0 +1,19 @@
+diff -up expect-5.43/example/mkpasswd.random expect-5.43/example/mkpasswd
+--- expect-5.43/example/mkpasswd.random	2004-12-07 00:38:21.000000000 +0100
++++ expect-5.43/example/mkpasswd	2008-09-25 12:27:19.000000000 +0200
+@@ -92,7 +92,14 @@ proc insert {pvar char} {
+ }
+ 
+ proc rand {m} {
+-    expr {int($m*rand())}
++    set device /dev/urandom		;# /dev/random can block
++    set fileId [open $device r]
++    binary scan [read $fileId 4] i1 number
++    set clipped [expr $number % $m]
++#    puts "number is $number"
++#    puts "clipped is $clipped"
++    close $fileId
++    return $clipped
+ }
+ 
+ # choose left or right starting hand

programming/language/expect/files/expect-fedora-5.43.0-log_file.patch

@@ -0,0 +1,12 @@
+diff -up expect-5.43/exp_log.c.log_file expect-5.43/exp_log.c
+--- expect-5.43/exp_log.c.log_file	2004-08-18 22:54:35.000000000 +0200
++++ expect-5.43/exp_log.c	2008-09-25 12:24:42.000000000 +0200
+@@ -471,7 +471,7 @@ expLogChannelOpen(interp,filename,append
+ 	Tcl_DStringAppend(&tsdPtr->logFilename,filename,-1);
+     }
+ 
+-    tsdPtr->logChannel = Tcl_OpenFileChannel(interp,newfilename,mode,0777);
++    tsdPtr->logChannel = Tcl_OpenFileChannel(interp,newfilename,mode,0666);
+     if (!tsdPtr->logChannel) {
+ 	Tcl_DStringFree(&tsdPtr->logFilename);
+ 	return TCL_ERROR;