ouch/inspircd
2
0
Fork 0
mirror of https://github.com/inspircd/inspircd.git synced 2025-03-10 02:59:01 -04:00
Code Issues Packages Projects Releases Wiki Activity

Complete lack of any consistent indenting SERIOUSLY ftl.

Browse Source 
git-svn-id: http://svn.inspircd.org/repository/trunk/inspircd@3137 e03df62e-2008-0410-955e-edbf42e46eb7
This commit is contained in:
brain 2006-02-08 10:49:10 +00:00
parent 62fda57bdc
commit c629bce35e
1 changed files with 47 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

92
configure vendored
View File

@ -718,51 +718,53 @@ sub makecache {
}
sub dir_check {
my ($desc, $hash_key) = @_;
my $complete = 0;
while (!$complete) {
print "In what directory $desc?\n";
print "[\033[1;32m$config{$hash_key}\033[0m] -> ";
chomp($var = <STDIN>);
if ($var eq "") { $var = $config{$hash_key}; }
if ($var =~ /^\~\/(.+)$/) {
# Convert it to a full path..
$var = resolve_directory($ENV{HOME} . "/" . $1);
}
if (substr($var,0,1) ne "/")
{
# Assume relative Path was given.. fill in the rest.
$var = $this . "/$var";
}
$var = resolve_directory($var);
if (! -e $var) {
print "$var does not exist. Create it?\n[\033[1;32my\033[0m] ";
chomp($tmp = <STDIN>);
if (($tmp eq "") || ($tmp =~ /^y/i)) {
# Attempt to Create the Dir..
$chk = system("mkdir -p \"$var\" >> /dev/null 2>&1") / 256;
if ($chk != 0) {
print "Unable to create directory. ($var)\n\n";
# Restart Loop..
next;
}
} else {
# They said they don't want to create, and we can't install there.
print "\n\n";
next;
}
} else {
if (!is_dir($var)) {
# Target exists, but is not a directory.
print "File $var exists, but is not a directory.\n\n";
next;
}
}
# Either Dir Exists, or was created fine.
$config{$hash_key} = $var;
$complete = 1;
print "\n";
}
my ($desc, $hash_key) = @_;
my $complete = 0;
while (!$complete) {
print "In what directory $desc?\n";
print "[\033[1;32m$config{$hash_key}\033[0m] -> ";
chomp($var = <STDIN>);
if ($var eq "") {
$var = $config{$hash_key};
}
if ($var =~ /^\~\/(.+)$/) {
# Convert it to a full path..
$var = resolve_directory($ENV{HOME} . "/" . $1);
}
if (substr($var,0,1) ne "/")
{
# Assume relative Path was given.. fill in the rest.
$var = $this . "/$var";
}
$var = resolve_directory($var);
if (! -e $var) {
print "$var does not exist. Create it?\n[\033[1;32my\033[0m] ";
chomp($tmp = <STDIN>);
if (($tmp eq "") || ($tmp =~ /^y/i)) {
# Attempt to Create the Dir..
$chk = system("mkdir -p \"$var\" >> /dev/null 2>&1") / 256;
if ($chk != 0) {
print "Unable to create directory. ($var)\n\n";
# Restart Loop..
next;
}
} else {
# They said they don't want to create, and we can't install there.
print "\n\n";
next;
}
} else {
if (!is_dir($var)) {
# Target exists, but is not a directory.
print "File $var exists, but is not a directory.\n\n";
next;
}
}
# Either Dir Exists, or was created fine.
$config{$hash_key} = $var;
$complete = 1;
print "\n";
}
}
sub getosflags {