#!/usr/bin/perl

$path=$0;
if ( $path =~ /^\// ){
  $gpath=$path;
  $gpath=~ s/\/bin\/.+$//gi;
}else{
  $gpath=$path;$gpath=~ s/\/.+$//gi;
  $a=`cd $gpath;echo \$PWD`;
  chomp($a);$gpath=$a;
  $gpath=~ s/\/bin$//gi;
}

if ( -d "$gpath/data" ){
  print "Found $gpath/data\n";
}else{
  print "Not found $gpath/data ABORTING \n";
  exit 1;
}

print "Default Client Passwword : ";
$pass=<stdin>;chomp($pass);

open(FL,">/etc/hgs2.conf");
print FL "$gpath:$pass:\n";
close(FL);

`chown nobody $gpath/data`;


print "OK\n";
