Cross Reference:
xref
: /
illumos-gate
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
lib
/
CGI
/
eg
/
RunMeFirst
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
RunMeFirst revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!/
usr
/
local
/
bin
/
perl
# Make a world-writeable directory for saving state.
$ww
=
'WORLD_WRITABLE'
;
unless
(-w
$ww
)
{
$u =
umask
0
;
mkdir
$ww
,
0777
;
umask
$u;
}
# Decode the sample image.
for
$uu
(<*.
uu
>)
{
unless
(
open
UU
,
"<
$uu
"
)
{
warn
"Can't open
$uu
: $!\n"
;
next
}
while
(<
UU
>)
{
chomp
;
if
(/^
begin
\s+\d+\s+
(.+)
$/)
{
$bin
= $
1
;
last
;
}
}
unless
(
open
BIN
,
">
$bin
"
)
{
warn
"Can't create
$bin
: $!\n"
;
next
}
binmode
BIN
;
while
(<
UU
>)
{
chomp
;
last
if
/^
end
/;
print
BIN
unpack
"u"
, $_;
}
close
BIN
;
close
UU
;
}
# Create symlinks from *.txt to *.cgi for documentation purposes.
foreach
(<*.
cgi
>)
{
(
$target
= $_)
=~
s
/
cgi
$/
txt
/i;
symlink
$_,
$target
unless
-e
$target
;
}