#!/usr/bin/perl

($host,$pass)=@ARGV;

if (( $host eq "" ) or ( $pass eq "")) {
  print "USAGE : register <host> <password> \n";
  exit 0;
}


$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;
}

`mkdir $gpath/data/$host`;

if ( -f "$gpath/data/$host/info2" ){
  print "Host already exists aborting !";
  exit  1;
}

open(FL,">$gpath/data/$host/info2");
print FL "HOST=$host\nPASS=$pass\n";
close(FL);
print "REGISTERED\n";
