smeserver-affa/contribs10/smeserver-affa.spec

Summary: A rsync-based backup program for linux, adapted to Koozali SME server 10
%define name smeserver-affa
Name: %{name}
%define version 3.3.1
%define release 8
Version: %{version}
Release: %{release}%{?dist}
Vendor: Michael Weinberger <mweinber AT users DOT sourceforge DOT net> //// adaptation to sme-server Arnaud Guillaume <smeserver-affa AT guedel DOT eu>
License: GNU General Public License
Group: Applications/Archiving
Source: %{name}-%{version}.tar.gz
BuildRoot: /var/tmp/%{name}-%{version}-%{release}-buildroot
BuildArch: noarch
BuildRequires: e-smith-devtools

AutoReq: no

Requires: e-smith-release >= 10
Requires: smeserver-systemd-control
Requires: openssh-clients
Requires: perl-Config-IniFiles
Requires: perl-Filesys-DiskFree
Requires: perl-MailTools
Requires: perl-Proc-ProcessTable
Requires: perl-TimeDate 
Requires: perl-List-MoreUtils
Requires: rsync

Patch1: smeserver-affa-add-some-systemd-support.patch
Patch2: smeserver-affa-change-host-domain.patch
Patch3: smeserver-affa-change_to_rsa_keys.patch
Patch4: smeserver-affa-update-ssh-keys-links.patch
Patch5: smeserver-affa-fix-config-directory-name-spaces.patch
Patch6: smeserver-affa-fix-reporting-error.patch
Patch7: smeserver-affa-fix-ssh-knownhosts-error.patch

%description
Affa is a rsync-based backup program for SMEServer + RPMCheck + Watchdog + rise.  Documentation: http://affa.sf.net 

%prep
rm -rf $RPM_BUILD_ROOT

%setup -q -n %{name}-%{version}
%patch1 -p1
%patch2 -p1
%patch3 -p1
%patch4 -p1
%patch5 -p1
%patch6 -p1
%patch7 -p1


%build
# perl createlinks << if required
find . \( -name .gitinclude -o -name .gitignore \) -print0 | \
    xargs -0 rm -f

%install

/bin/rm -rf $RPM_BUILD_ROOT
(cd root   ;/usr/bin/find . -depth -print | /bin/cpio -dump $RPM_BUILD_ROOT)
/bin/rm -f %{name}-%{version}-filelist

# Set version String
cp -a $RPM_BUILD_ROOT/sbin/affa $RPM_BUILD_ROOT/sbin/affa.tmp
VERSIONSTRING=%{version}-`echo %{release}|sed -e 's/\..*$//'`
sed -e "s/my \$VERSION.*;/my \$VERSION='$VERSIONSTRING';/" < $RPM_BUILD_ROOT/sbin/affa.tmp > $RPM_BUILD_ROOT/sbin/affa
rm -f $RPM_BUILD_ROOT/sbin/affa.tmp

/sbin/e-smith/genfilelist $RPM_BUILD_ROOT \
    --ignoredir "/etc/sudoers.d" \
    --ignoredir "/etc/profile.d" \
    --file "/etc/profile.d/affa.sh" "attr(0555,root,root)" \
    --file "/etc/sudoers.d/affa" "attr(0440,root,root)" \
    > %{name}-%{version}-filelist

# We could use this for docs I guess - we should standardise this sort of thing
#%doc README LICENSE README
echo "%doc LICENSE COPYING README WARRANTY" >> %{name}-%{version}-filelist


%files -f %{name}-%{version}-filelist

%clean
rm -rf $RPM_BUILD_ROOT

%pre
exit 0

%post
exit 0

%preun
exit 0

%postun
exit 0

%changelog
* Thu Jun 30 2022 John Crisp <jcrisp@safeandsoundit.co.uk> 3.3.1-8
- Fix KnownHosts error [SME: 12081]
- Thanks to 'gieres' for finding this

* Thu Jun 30 2022 John Crisp <jcrisp@safeandsoundit.co.uk> 3.3.1-7
- Fix logging parse errors [SME:12084]
- Thanks to 'sti' for finding it 

* Thu Jun 30 2022 John Crisp <jcrisp@safeandsoundit.co.uk> 3.3.1-6
- Fix error with files with spaces in names - Credit to Trevor Drake-Brockman [SME: 11784]
- Fix directory search - Credit to Trevor Drake-Brockman [SME: 11784]

* Wed Sep 22 2021 John Crisp <jcrisp@safeandsoundit.co.uk> 3.3.1-5
- Modify ssh key links [SME: 10783]
- Untidy the ssh commands so I can see them and tidy them more easily

* Wed Sep 22 2021 John Crisp <jcrisp@safeandsoundit.co.uk> 3.3.1-4
- Change ssh keys from DSA to RSA 4096 [SME: 10783]
- Fix missing /var/affa store dir

* Tue Sep 21 2021 John Crisp <jcrisp@safeandsoundit.co.uk> 3.3.1-3.sme
- Fix some syntax errors. Migrate to using HostName/DomainName

* Tue Sep 21 2021 John Crisp <jcrisp@safeandsoundit.co.uk> 3.3.1-2.sme
- Add some systemd support [SME: 11024]

* Mon Mar 29 2021 John Crisp <jcrisp@safeandsoundit.co.uk> 3.3.1-1.sme
- Fix Warranty [SME: 11500]
- Fix Licence [SME: 11501]
- Remove atalk [SME: 11503]

* Tue Mar 23 2021 John Crisp <jcrisp@safeandsoundit.co.uk> 3.3.0-1.sme
- New version for Koozali SME v10 [SME: 11024]
- incorporated old patches
- tidied up some old git files
- Very Alpha - see bug for details

* Mon Apr 10 2017 Arnaud Guillaume <smeserver-affa@guedel.eu> 3.2.2.3-8.sme
- Fix issue when multiple times are in an Affa configuration file, show-schedule only displays the last [SME: 10196]

* Wed Nov 23 2016 John Crisp <jcrisp@safeandsoundit.co.uk> 3.2.2.3-7.sme
- Fix find command error in delete imap dovecot files [SME: 9874]

* Fri Aug 19 2016 Arnaud Guillaume <smeserver-affa@guedel.eu> 3.2.2.3-6.sme
- Fix issue due to blank characters into file /etc/affa/job.conf [SME: 9449]

* Fri Aug 19 2016 John Crisp <jcrisp@safeandsoundit.co.uk> 3.2.2.3-5.sme
- Fix ssh port [SME: 8904]
- Modify changelog number to track define release number

* Wed Mar 23 2016 Arnaud Guillaume <smeserver-affa@guedel.eu> 3.2.2.3-4.sme
- Fix use of uninitialized value $1 in concatentation (.) or string at /sbin/affa/ line 4059 [SME: 9139]
- Fix "RPMCheck" not working [SME: 9270]
- Fix Inconsistent smb.conf when samba share option set to "yes" [SME: 9298]
- Fix affa --diskusage does not umount attached storage [SME: 9147]

* Mon Feb 29 2016 John Crisp <jcrisp@safeandsoundit.co.uk> 3.2.2.3-3.sme
- Fix typos in config files [SME: 9094]

* Tue Sep 22 2015 stephane de Labrusse <stephdl@de-labrusse.fr> 3.2.2.3-2.sme
- Initial release to contribs9

* Tue Sep 22 2015 stephane de Labrusse <stephdl@de-labrusse.fr> 3.2.2.3-1
- fixed column ExecTime shift
- Adjusted column indices in report
- Fixed typo in remoteHostName [SME: 9062]
- Code done by mats schuh <m.schuh@neckargeo.net>

* Tue Jan 13 2015 mats schuh <m.schuh@neckargeo.net> 3.2.2.2-1
- Added TotalBytesSent to archive reports and fixed report layout

* Sun Dec 07 2014 Arnaud Guillaume 3.2.2.2
- integration of the patch of Mats Schuh in order to enable check for external disk label before unmount
* Sat Aug 23 2014 Arnaud Guillaume 3.2.2.1
- adapted to the new release of rsync (bug by calculating the number and the size of the transfered files)
* Sat Apr 05 2014 Arnaud Guillaume 3.2.2.0
- first adaptation for sme server8
* Sun Mar 04 2012 Michael Weinberger 3.2.2
- Improved NRPE and sudoers config
- Fixed bug in DiskUsageRaw()
- Added NRPE command affa_diskusagenrpe
* Fri Mar 02 2012 Michael Weinberger 3.2.1
- Bugfix: command_prefix definiton was not added to /etc/nagios/affa-nrpe.cfg
* Thu Mar 01 2012 Michael Weinberger 3.2.0
- Bugfix: remoteRsyncBinary and localRsyncBinary was not used
* Sun Feb 26 2012 Michael Weinberger 3.1.7
- Bugfixes in showSchedule()
* Sun Feb 26 2012 Michael Weinberger 3.1.6
- added ICINGA/Nagios auto-configuration
* Fri Feb 24 2012 Michael Weinberger 3.1.4
- do not show Dedup interrupted in --status after the very first run
- improved --nrpe function
- added script yum_install_packages.sh
* Tue Oct 11 2011 Michael Weinberger 3.1.3
- MINOR IMPROVEMENTS
  --send-key: mkdir of RemoteAuthorizedKeysFile. Avoid errors if dir does not exist
  --log-tail: show last rotated if current log is empty or too short
  --check-conncetions: allow jobs as arguments 
* Mon Aug 29 2011 Michael Weinberger 3.1.2
- Bugfix: postJobCommand and postJobCommandRemote were not executed
* Sat Aug 13 2011 Michael Weinberger 3.1.1
- process state 'rsync interrupted' and 'dedup interrupted'
- --resume-interrupted
- resume interrupted jobs after server boot
* Sun Aug 07 2011 Michael Weinberger 3.1.0-1
- introduced status 'interrupted'(with --status)
* Fri Aug 05 2011 Michael Weinberger 3.1.0-0
- Release of 3.1.0
* Thu Aug 04 2011 Michael Weinberger 3.0.2-14
- de-duplicate, execPreJobCommand and execPostJobCommand only on scheduled run
- removed Command arg from sample scripts
- Fixed: Concatenated config in /tmp was world readable
- De-duplication info added to --show-schedule
* Tue Aug 02 2011 Michael Weinberger 3.0.2-6
- De-Duplication (freedup)
- De-Dup info in --status and --list-archives
- --status: only show enabled jobs. All with --all
- Fix: property globalStatus was not working
- Running state rsync or de-deduplicating display in --status
- Show de-deduplicating busy in --list-archives for scheduled.0
- new property dedupKill. When set no, --kill does not kill a job when de-duplicating
- new option --show-property

* Wed Jul 27 2011 Michael Weinberger 3.0.1-7
- Bug fixes: RemoteUser was not always used in ssh commands

* Sun Jul 24 2011 Michael Weinberger 3.0.1-6
- fixed bug in affa --status
- GlobalAffaConfig was mounted as Samba share
- call setupSamba() only in cronSetup()
- updated man

* Sat Jul 23 2011 Michael Weinberger 3.0.1-5
- new key NRPEtrigger
- full affa path required when starting re-run from cronjob
- improved deletion of shift out archives, --delete-job and --cleanup
- added --single-transaction to /etc/affa/scripts/mysql-dump-tables

* Wed Jul 20 2011 Michael Weinberger 3.0.0-0
- generic linux version made from Affa 2.0 (SME Version)

* Mon Apr 02 2007 Michael Weinberger
- bash version re-written in Perl

1	jcrisp	1.2	Summary: A rsync-based backup program for linux, adapted to Koozali SME server 10
2	brianr	1.1	%define name smeserver-affa
3			Name: %{name}
4	jcrisp	1.3	%define version 3.3.1
5	jcrisp	1.10	%define release 8
6	brianr	1.1	Version: %{version}
7			Release: %{release}%{?dist}
8			Vendor: Michael Weinberger <mweinber AT users DOT sourceforge DOT net> //// adaptation to sme-server Arnaud Guillaume <smeserver-affa AT guedel DOT eu>
9			License: GNU General Public License
10			Group: Applications/Archiving
11			Source: %{name}-%{version}.tar.gz
12			BuildRoot: /var/tmp/%{name}-%{version}-%{release}-buildroot
13			BuildArch: noarch
14	jcrisp	1.2	BuildRequires: e-smith-devtools
15
16	brianr	1.1	AutoReq: no
17
18	jcrisp	1.2	Requires: e-smith-release >= 10
19	jcrisp	1.4	Requires: smeserver-systemd-control
20	brianr	1.1	Requires: openssh-clients
21			Requires: perl-Config-IniFiles
22			Requires: perl-Filesys-DiskFree
23			Requires: perl-MailTools
24			Requires: perl-Proc-ProcessTable
25			Requires: perl-TimeDate
26	jcrisp	1.2	Requires: perl-List-MoreUtils
27	brianr	1.1	Requires: rsync
28
29	jcrisp	1.4	Patch1: smeserver-affa-add-some-systemd-support.patch
30	jcrisp	1.5	Patch2: smeserver-affa-change-host-domain.patch
31	jcrisp	1.6	Patch3: smeserver-affa-change_to_rsa_keys.patch
32	jcrisp	1.7	Patch4: smeserver-affa-update-ssh-keys-links.patch
33	jcrisp	1.8	Patch5: smeserver-affa-fix-config-directory-name-spaces.patch
34	jcrisp	1.9	Patch6: smeserver-affa-fix-reporting-error.patch
35	jcrisp	1.10	Patch7: smeserver-affa-fix-ssh-knownhosts-error.patch
36	brianr	1.1
37			%description
38	jcrisp	1.2	Affa is a rsync-based backup program for SMEServer + RPMCheck + Watchdog + rise. Documentation: http://affa.sf.net
39	brianr	1.1
40			%prep
41	jcrisp	1.2	rm -rf $RPM_BUILD_ROOT
42
43	brianr	1.1	%setup -q -n %{name}-%{version}
44	jcrisp	1.4	%patch1 -p1
45	jcrisp	1.5	%patch2 -p1
46	jcrisp	1.6	%patch3 -p1
47	jcrisp	1.7	%patch4 -p1
48	jcrisp	1.8	%patch5 -p1
49	jcrisp	1.9	%patch6 -p1
50	jcrisp	1.10	%patch7 -p1
51	jcrisp	1.9
52	brianr	1.1
53			%build
54	jcrisp	1.2	# perl createlinks << if required
55			find . \( -name .gitinclude -o -name .gitignore \) -print0 \| \
56			xargs -0 rm -f
57	brianr	1.1
58			%install
59
60	jcrisp	1.2	/bin/rm -rf $RPM_BUILD_ROOT
61			(cd root ;/usr/bin/find . -depth -print \| /bin/cpio -dump $RPM_BUILD_ROOT)
62			/bin/rm -f %{name}-%{version}-filelist
63	brianr	1.1
64			# Set version String
65			cp -a $RPM_BUILD_ROOT/sbin/affa $RPM_BUILD_ROOT/sbin/affa.tmp
66			VERSIONSTRING=%{version}-`echo %{release}\|sed -e 's/\..*$//'`
67			sed -e "s/my \$VERSION.*;/my \$VERSION='$VERSIONSTRING';/" < $RPM_BUILD_ROOT/sbin/affa.tmp > $RPM_BUILD_ROOT/sbin/affa
68			rm -f $RPM_BUILD_ROOT/sbin/affa.tmp
69
70	jcrisp	1.2	/sbin/e-smith/genfilelist $RPM_BUILD_ROOT \
71			--ignoredir "/etc/sudoers.d" \
72			--ignoredir "/etc/profile.d" \
73			--file "/etc/profile.d/affa.sh" "attr(0555,root,root)" \
74			--file "/etc/sudoers.d/affa" "attr(0440,root,root)" \
75			> %{name}-%{version}-filelist
76	brianr	1.1
77	jcrisp	1.2	# We could use this for docs I guess - we should standardise this sort of thing
78			#%doc README LICENSE README
79	jcrisp	1.3	echo "%doc LICENSE COPYING README WARRANTY" >> %{name}-%{version}-filelist
80
81
82
83			%files -f %{name}-%{version}-filelist
84	brianr	1.1
85			%clean
86			rm -rf $RPM_BUILD_ROOT
87
88			%pre
89			exit 0
90
91			%post
92			exit 0
93
94			%preun
95			exit 0
96
97			%postun
98			exit 0
99
100			%changelog
101	jcrisp	1.10	* Thu Jun 30 2022 John Crisp <jcrisp@safeandsoundit.co.uk> 3.3.1-8
102			- Fix KnownHosts error [SME: 12081]
103			- Thanks to 'gieres' for finding this
104
105	jcrisp	1.9	* Thu Jun 30 2022 John Crisp <jcrisp@safeandsoundit.co.uk> 3.3.1-7
106			- Fix logging parse errors [SME:12084]
107			- Thanks to 'sti' for finding it
108
109	jcrisp	1.8	* Thu Jun 30 2022 John Crisp <jcrisp@safeandsoundit.co.uk> 3.3.1-6
110			- Fix error with files with spaces in names - Credit to Trevor Drake-Brockman [SME: 11784]
111			- Fix directory search - Credit to Trevor Drake-Brockman [SME: 11784]
112
113	jcrisp	1.7	* Wed Sep 22 2021 John Crisp <jcrisp@safeandsoundit.co.uk> 3.3.1-5
114			- Modify ssh key links [SME: 10783]
115			- Untidy the ssh commands so I can see them and tidy them more easily
116
117	jcrisp	1.6	* Wed Sep 22 2021 John Crisp <jcrisp@safeandsoundit.co.uk> 3.3.1-4
118			- Change ssh keys from DSA to RSA 4096 [SME: 10783]
119			- Fix missing /var/affa store dir
120
121	jcrisp	1.5	* Tue Sep 21 2021 John Crisp <jcrisp@safeandsoundit.co.uk> 3.3.1-3.sme
122			- Fix some syntax errors. Migrate to using HostName/DomainName
123
124	jcrisp	1.4	* Tue Sep 21 2021 John Crisp <jcrisp@safeandsoundit.co.uk> 3.3.1-2.sme
125			- Add some systemd support [SME: 11024]
126
127	jcrisp	1.3	* Mon Mar 29 2021 John Crisp <jcrisp@safeandsoundit.co.uk> 3.3.1-1.sme
128			- Fix Warranty [SME: 11500]
129			- Fix Licence [SME: 11501]
130			- Remove atalk [SME: 11503]
131
132			* Tue Mar 23 2021 John Crisp <jcrisp@safeandsoundit.co.uk> 3.3.0-1.sme
133	jcrisp	1.2	- New version for Koozali SME v10 [SME: 11024]
134			- incorporated old patches
135			- tidied up some old git files
136			- Very Alpha - see bug for details
137
138	brianr	1.1	* Mon Apr 10 2017 Arnaud Guillaume <smeserver-affa@guedel.eu> 3.2.2.3-8.sme
139			- Fix issue when multiple times are in an Affa configuration file, show-schedule only displays the last [SME: 10196]
140
141			* Wed Nov 23 2016 John Crisp <jcrisp@safeandsoundit.co.uk> 3.2.2.3-7.sme
142			- Fix find command error in delete imap dovecot files [SME: 9874]
143
144			* Fri Aug 19 2016 Arnaud Guillaume <smeserver-affa@guedel.eu> 3.2.2.3-6.sme
145			- Fix issue due to blank characters into file /etc/affa/job.conf [SME: 9449]
146
147			* Fri Aug 19 2016 John Crisp <jcrisp@safeandsoundit.co.uk> 3.2.2.3-5.sme
148			- Fix ssh port [SME: 8904]
149			- Modify changelog number to track define release number
150
151			* Wed Mar 23 2016 Arnaud Guillaume <smeserver-affa@guedel.eu> 3.2.2.3-4.sme
152			- Fix use of uninitialized value $1 in concatentation (.) or string at /sbin/affa/ line 4059 [SME: 9139]
153			- Fix "RPMCheck" not working [SME: 9270]
154			- Fix Inconsistent smb.conf when samba share option set to "yes" [SME: 9298]
155			- Fix affa --diskusage does not umount attached storage [SME: 9147]
156
157			* Mon Feb 29 2016 John Crisp <jcrisp@safeandsoundit.co.uk> 3.2.2.3-3.sme
158			- Fix typos in config files [SME: 9094]
159
160			* Tue Sep 22 2015 stephane de Labrusse <stephdl@de-labrusse.fr> 3.2.2.3-2.sme
161			- Initial release to contribs9
162
163			* Tue Sep 22 2015 stephane de Labrusse <stephdl@de-labrusse.fr> 3.2.2.3-1
164			- fixed column ExecTime shift
165			- Adjusted column indices in report
166			- Fixed typo in remoteHostName [SME: 9062]
167			- Code done by mats schuh <m.schuh@neckargeo.net>
168
169			* Tue Jan 13 2015 mats schuh <m.schuh@neckargeo.net> 3.2.2.2-1
170			- Added TotalBytesSent to archive reports and fixed report layout
171
172			* Sun Dec 07 2014 Arnaud Guillaume 3.2.2.2
173			- integration of the patch of Mats Schuh in order to enable check for external disk label before unmount
174			* Sat Aug 23 2014 Arnaud Guillaume 3.2.2.1
175			- adapted to the new release of rsync (bug by calculating the number and the size of the transfered files)
176			* Sat Apr 05 2014 Arnaud Guillaume 3.2.2.0
177			- first adaptation for sme server8
178			* Sun Mar 04 2012 Michael Weinberger 3.2.2
179			- Improved NRPE and sudoers config
180			- Fixed bug in DiskUsageRaw()
181			- Added NRPE command affa_diskusagenrpe
182			* Fri Mar 02 2012 Michael Weinberger 3.2.1
183			- Bugfix: command_prefix definiton was not added to /etc/nagios/affa-nrpe.cfg
184			* Thu Mar 01 2012 Michael Weinberger 3.2.0
185			- Bugfix: remoteRsyncBinary and localRsyncBinary was not used
186			* Sun Feb 26 2012 Michael Weinberger 3.1.7
187			- Bugfixes in showSchedule()
188			* Sun Feb 26 2012 Michael Weinberger 3.1.6
189			- added ICINGA/Nagios auto-configuration
190			* Fri Feb 24 2012 Michael Weinberger 3.1.4
191			- do not show Dedup interrupted in --status after the very first run
192			- improved --nrpe function
193			- added script yum_install_packages.sh
194			* Tue Oct 11 2011 Michael Weinberger 3.1.3
195			- MINOR IMPROVEMENTS
196			--send-key: mkdir of RemoteAuthorizedKeysFile. Avoid errors if dir does not exist
197			--log-tail: show last rotated if current log is empty or too short
198			--check-conncetions: allow jobs as arguments
199	jcrisp	1.2	* Mon Aug 29 2011 Michael Weinberger 3.1.2
200	brianr	1.1	- Bugfix: postJobCommand and postJobCommandRemote were not executed
201			* Sat Aug 13 2011 Michael Weinberger 3.1.1
202			- process state 'rsync interrupted' and 'dedup interrupted'
203			- --resume-interrupted
204			- resume interrupted jobs after server boot
205			* Sun Aug 07 2011 Michael Weinberger 3.1.0-1
206			- introduced status 'interrupted'(with --status)
207			* Fri Aug 05 2011 Michael Weinberger 3.1.0-0
208			- Release of 3.1.0
209			* Thu Aug 04 2011 Michael Weinberger 3.0.2-14
210			- de-duplicate, execPreJobCommand and execPostJobCommand only on scheduled run
211			- removed Command arg from sample scripts
212			- Fixed: Concatenated config in /tmp was world readable
213			- De-duplication info added to --show-schedule
214			* Tue Aug 02 2011 Michael Weinberger 3.0.2-6
215			- De-Duplication (freedup)
216			- De-Dup info in --status and --list-archives
217			- --status: only show enabled jobs. All with --all
218			- Fix: property globalStatus was not working
219			- Running state rsync or de-deduplicating display in --status
220			- Show de-deduplicating busy in --list-archives for scheduled.0
221			- new property dedupKill. When set no, --kill does not kill a job when de-duplicating
222			- new option --show-property
223
224			* Wed Jul 27 2011 Michael Weinberger 3.0.1-7
225			- Bug fixes: RemoteUser was not always used in ssh commands
226
227			* Sun Jul 24 2011 Michael Weinberger 3.0.1-6
228			- fixed bug in affa --status
229			- GlobalAffaConfig was mounted as Samba share
230			- call setupSamba() only in cronSetup()
231			- updated man
232
233			* Sat Jul 23 2011 Michael Weinberger 3.0.1-5
234			- new key NRPEtrigger
235			- full affa path required when starting re-run from cronjob
236			- improved deletion of shift out archives, --delete-job and --cleanup
237			- added --single-transaction to /etc/affa/scripts/mysql-dump-tables
238
239			* Wed Jul 20 2011 Michael Weinberger 3.0.0-0
240			- generic linux version made from Affa 2.0 (SME Version)
241
242			* Mon Apr 02 2007 Michael Weinberger
243			- bash version re-written in Perl
244