if ($nossl) { &mkdirs($nossl); } #### sub mkdirs { # Can be used to build SSL and non-SSL sites. my $nossl; my $newsite = $nossl; if ( -e "/virtual/$newsite" ) { die "The site \"$newsite\" must already be built!\n"; } else { my %mkdircmd = ( virtual => "mkdir /virtual/$newsite", apachedir => "mkdir /etc/httpd/conf/$newsite", ssl_crt => "mkdir /etc/httpd/conf/$newsite/ssl.crt", ssl_csr => "mkdir /etc/httpd/conf/$newsite/ssl.csr", ssl_key => "mkdir /etc/httpd/conf/$newsite/ssl.crt", logs => "mkdir /var/log/httpd/$newsite" ); system( $mkdircmd {'virtual'} ); system( $mkdircmd {'apachedir'} ); system( $mkdircmd {'ssl_crt'} ); system( $mkdircmd {'ssl_csr'} ); system( $mkdircmd {'ssl_key'} ); system( $mkdircmd {'logs'} ); sleep 2; print "Directories have been built!\n"; } }