From 0c05bd2bccb5b586b9aedf939700f991a4adc73e Mon Sep 17 00:00:00 2001 From: Garry Zacheiss Date: Wed, 29 May 2002 21:59:51 +0000 Subject: [PATCH] uuencode binary files used by the test suite (KeyFile and sample kaserver database). Keeping binary files in CVS is annoying, and this way "cvs rdiff" will work again. --- src/tests/KeyFile | Bin 100 -> 0 bytes src/tests/KeyFile.uu | 6 + src/tests/kaserver.DB0 | Bin 34880 -> 0 bytes src/tests/kaserver.DB0.uu | 779 +++++++++++++++++++++++++++++++++++ src/tests/kaserver.DBSYS1 | Bin 64 -> 0 bytes src/tests/kaserver.DBSYS1.uu | 5 + src/tests/run-suite.pl | 39 ++ 7 files changed, 829 insertions(+) delete mode 100644 src/tests/KeyFile create mode 100644 src/tests/KeyFile.uu delete mode 100644 src/tests/kaserver.DB0 create mode 100644 src/tests/kaserver.DB0.uu delete mode 100644 src/tests/kaserver.DBSYS1 create mode 100644 src/tests/kaserver.DBSYS1.uu diff --git a/src/tests/KeyFile b/src/tests/KeyFile deleted file mode 100644 index a441634231c7bfaf07c4f24e3d7445b5d85cd4ec..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 100 wcmZQzU|?hbVz)0Q8>%>x)&kiC!GmvN4*!7wS)s>fRt}ID2!O;BfP9!d03&u2`Tzg` diff --git a/src/tests/KeyFile.uu b/src/tests/KeyFile.uu new file mode 100644 index 000000000..70e677b2d --- /dev/null +++ b/src/tests/KeyFile.uu @@ -0,0 +1,6 @@ +begin 664 KeyFile +M`````0````%&]#2P>@ABK0`````````````````````````````````````` +M`````````.#V%D#_____````````````````2+,%"/__________`````&"S +*!0@````````````` +` +end diff --git a/src/tests/kaserver.DB0 b/src/tests/kaserver.DB0 deleted file mode 100644 index d8edd37342d9ea379ce5d727dc5994a6728d8a6c..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 34880 zcmeI)Jx{_w7{KxCfMGQ81L$JZrIT(9ZLkCeAt@|QDgj?&bb#vMU;r64k&VT~!PUgc zm5{h<_y!JcP7baH?<|cD&=d>-!vB(b=k@Nn=lNZ_BGxQR2w_B=SVQ(R^69sQgeV#A zrs{_fm3k+DZ!CFUQ;7L?zlX6N0R#|0009ILKmY**5I_I{1P~Zcfs5_&%!{lLKmY** z5I_I{1Q0*~0R#|0009ILKmY**5I_I{1Q0*~0R#|0V0Z%M*6?Bz836@ABK0`````````````````````````````````````````````````` +M```````````````````````````````````````````````````````````` +M```````````````````````````````````````````````````````````` +M```````````````````````````````````````````````````````````` +M```````````````````````````````````````````````````````````` +M```````````````````````````````````````````````````````````` +M```````````````````````````````````````````````````````````` +M```````````````````````````````````````````````````````````` +M```````````````````````````````````````````````````````````` +M```````````````````````````````````````````````````````````` +M```````````````````````````````````````````````````````````` +M```````````````````````````````````````````````````````````` +M```````````````````````````````````````````````````````````` +M```````````````````````````````````````````````````````````` +M```````````````````````````````````````````````````````````` +M```````````````````````````````````````````````````````````` +M```````````````````````````````````````````````````````````` +M```````````````````````````````````````````````````````````` +%```````` +` +end diff --git a/src/tests/kaserver.DBSYS1 b/src/tests/kaserver.DBSYS1 deleted file mode 100644 index 9017fd98b5f67d928cc64c59b2c025472ce74f8c..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 64 LcmZQzpbP*206+i% diff --git a/src/tests/kaserver.DBSYS1.uu b/src/tests/kaserver.DBSYS1.uu new file mode 100644 index 000000000..189abae0c --- /dev/null +++ b/src/tests/kaserver.DBSYS1.uu @@ -0,0 +1,5 @@ +begin 664 kaserver.DBSYS1 +M```````````````````````````````````````````````````````````` +3```````````````````````````` +` +end diff --git a/src/tests/run-suite.pl b/src/tests/run-suite.pl index 0f93cef64..dec4b4bbf 100755 --- a/src/tests/run-suite.pl +++ b/src/tests/run-suite.pl @@ -87,6 +87,9 @@ die "Please specify a cellname\n" unless $cellname; unlink "$openafsdirpath->{'viceetcdir'}/CellServDB"; unlink "$openafsdirpath->{'viceetcdir'}/ThisCell"; if ($cellname eq "this.thirty.nine.character.name.for.sed") { + &uudecode("kaserver.DB0.uu"); + &uudecode("kaserver.DBSYS1.uu"); + &uudecode("KeyFile.uu"); copy("kaserver.DB0","$openafsdirpath->{'afsdbdir'}/kaserver.DB0"); copy("kaserver.DBSYS1","$openafsdirpath->{'afsdbdir'}/kaserver.DBSYS1"); copy("KeyFile","$openafsdirpath->{'afsconfdir'}/KeyFile"); @@ -261,3 +264,39 @@ END { run(pop @unwinds) while @unwinds; } +# perl uudecode implementation originally from +# http://www.perl.com/language/ppt/src/uudecode/uudecode.nick +sub uudecode { + my ( $filename ) = @_; + open(ENCODED, "$filename"); + FILESPEC : + while () { + my ($mode, $file); + next FILESPEC unless ($mode,$file) = /^begin\s+(\d+)\s+(\S+)/; + open(OUT, "> $file") or die "can't create $file: $!"; + binmode(OUT); # winsop + # Quickly protect file before data is written. + # XXX: Does this break on sub-Unix systems, like if + # it's a mode 400 or 000 file? If so, then we must + # wait until after the close. + chmod oct($mode), $file or die "can't chmod $file to mode $mode: $!"; + my $ended = 0; + LINE: + while () { + if (/^end$/) { + $ended = 1; + last LINE; + } + next LINE if /[a-z]/; + next LINE unless int((((ord() - 32) & 077) + 2) / 3) + == int(length() / 4); + print OUT unpack("u", $_) + or die "can't write $file: $!"; + + } + close(OUT) or die "can't close $file: $!"; + $ended or die "missing end; $file may be truncated"; + } + close(ENCODED); +} + -- 2.39.5