17 include (
"WHAT/Lib.Common.php");
18 include (
"WHAT/wncurses.php");
19 include (
"WHAT/wenv.php");
24 print
"<BR><H1>:~(</H1>";
31 if ($argv[1] !=
"")
$dbfree = $argv[1];
33 ncurses_winit(sprintf(_(
"Create other database for %s (%s)") , trim(`hostname -f`) , trim(`hostname -i`)));
36 $lhost = exec(
"dig `domainname` axfr | grep `hostname -f` | grep CNAME | awk '{print $1}'", $outlist,
$ret);
37 if (count($outlist) == 0) {
41 foreach ($outlist as $k => $v) {
42 $post[] = substr($v, 0, -1);
45 $wact = ncurses_newwin($lines - 9, $columns - 4, 7, 2);
46 ncurses_wborder(
$wact, 0, 0, 0, 0, 0, 0, 0, 0);
47 ncurses_wcolor_set(
$wact, 3);
53 ncurses_mvaddstr($lines - 2, 4, _(
"Enter name for database ? "));
56 ncurses_wclear(
$wact);
58 ncurses_mvwaddstr(
$wact, 3, 4, sprintf(_(
"Context : [%s]") ,
$context));
59 ncurses_mvwaddstr(
$wact, 5, 4, sprintf(_(
"Database : [%s]") ,
$dbank));
61 ncurses_wrefresh(
$wact);
67 ncurses_mvaddstr($lines - 2, 4, _(
"Continue (Y|N) ?") . str_repeat(
" ", 40));