Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
emulab
emulab-devel
Commits
4144e7f8
Commit
4144e7f8
authored
Jan 21, 2010
by
Leigh B. Stoller
Browse files
No idea what this does, but I'm sure I do not want to lose it!
parent
fcc9595f
Changes
1
Hide whitespace changes
Inline
Side-by-side
www/installwikidocs.in
0 → 100755
View file @
4144e7f8
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
# Copyright (c) 2008 University of Utah and the Flux Group.
# All rights reserved.
#
use
English
;
use
Getopt::
Std
;
use
File::
Basename
;
use
File::
Find
;
sub
usage
{
print
STDERR
"
Usage: installwikidocs <sourcedir>
\n
";
exit
(
-
1
);
}
my
$optlist
=
"";
my
$TB
=
"
@prefix
@
";
my
$WIKIDOCS
=
"
$TB
/www/wikidocs
";
my
$HTMLINSTALL
=
"
$TB
/sbin/htmlinstall
";
# Protos
sub
FindCallBack
();
# un-taint path
$ENV
{'
PATH
'}
=
'
/bin:/usr/bin:/usr/local/bin
';
delete
@ENV
{'
IFS
',
'
CDPATH
',
'
ENV
',
'
BASH_ENV
'};
# Turn off line buffering on output
$|
=
1
;
usage
()
if
(
@ARGV
!=
1
);
my
$sourcedir
=
$ARGV
[
0
];
if
(
!
chdir
(
$sourcedir
))
{
die
("
Could not chdir to
$sourcedir
: $!
\n
");
}
if
(
!-
e
$WIKIDOCS
)
{
if
(
!
mkdir
("
$WIKIDOCS
",
0771
))
{
die
("
Could not make directory
$WIKIDOCS
: $!
\n
");
}
}
system
("
rsync -a --delete
$sourcedir
/
$WIKIDOCS
")
==
0
or
die
("
Could not rsync
$sourcedir
/ to
$WIKIDOCS
");
find
({'
wanted
'
=>
\
&FindCallBack
,
'
untaint
'
=>
1
},
$sourcedir
);
unlink
("
$WIKIDOCS
/robots.txt
")
if
(
-
e
"
$WIKIDOCS
/robots.txt
");
unlink
("
$WIKIDOCS
/.htaccess
")
if
(
-
e
"
$WIKIDOCS
/.htaccess
");
exit
(
0
);
sub
FindCallBack
()
{
my
$name
=
$_
;
return
if
(
$name
eq
"
.
"
||
$name
eq
"
..
");
my
$fullpath
=
"
$File
::Find::dir/
$name
";
my
$tmp
=
`
file -i
$name
`;
if
(
$tmp
=~
/text\/plain/
||
$tmp
=~
/text\/html/
)
{
print
"
$name
,
$WIKIDOCS
/
$fullpath
\n
";
}
}
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment