MySrv.Cloud/Dero_Name_Service_Cli_Tool
1
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Working demo

Browse Source
This commit is contained in:
Lennart Hansen 2022-04-21 02:04:20 +01:00
parent 44f26bff36
commit aa3ba28ea7
4 changed files with 183 additions and 87 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
README.md
View File

@ -1,3 +1,68 @@
# Dero_Name_Service_Cli_Tool
# Dero Naming Service Cli Tool
This tool allows you to easily, check one or more names if they are free to be registered on the DERO HE Block Chain
and then register the name to your own wallet if you wish to.
## Usage
Please example usage below
### Check if name is already registered
```
$ ./dero_ns_cli.pl --name Hansen33
Dero Name Service Cli Tool - register name to wallet
Name: (Hansen33) is taken by this address (dero1qy3dspltmkakl4gzpfvhc35kxxqpp2ypd9ehz72puyxhgs0sqglj6qgqt28kd)
$ ./dero_ns_cli.pl --name KingZulo
Dero Name Service Cli Tool - register name to wallet
Name: (KingZulo) is FREE to register
```
### Check if list of names are already registered
```
$ cat list
Captain
Azylem
Nelbert442
Hansen33
$ ./dero_ns_cli.pl --check-list ./list
Dero Name Service Cli Tool - register name to wallet
Name: (Captain) is taken by this address (dero1qy9s60kf40wcwhcf9ay6dgpz3gh748x6eq0cpghs4m39u55ecnrlzqg0vq5sy)
Name: (Azylem) is taken by this address (dero1qyfk5w2rvqpl9kzfd7fpteyp2k362y6audydcu2qrgcmj6vtasfkgqq9704gn)
Name: (Nelbert442) is taken by this address (dero1qytygwq00ppnef59l6r5g96yhcvgpzx0ftc0ctefs5td43vkn0p72qqlqrn8z)
Name: (Hansen33) is taken by this address (dero1qy3dspltmkakl4gzpfvhc35kxxqpp2ypd9ehz72puyxhgs0sqglj6qgqt28kd)
```
### Register name to your wallet
```
./dero_ns_cli.pl --name KingZulo --register
Dero Name Service Cli Tool - register name to wallet
Name: (KingZulo) is FREE - and will be registered in a little while
Checking wallet RPC (127.0.0.1:10103)
Wallet connected (127.0.0.1:10103)
Name: (KingZulo) registered on the DERO Stargate with TXT ID (5f0abf21b897dc432a52633cdcbb47d68fde749a18b58764f39a696bd6eabb88)
Name: (KingZulo) is now registered to this address (dero1qy3dspltmkakl4gzpfvhc35kxxqpp2ypd9ehz72puyxhgs0sqglj6qgqt28kd) - Congratulations!
```
(PS: If anyone want KingZulo I'm kinda willing to give it up)
## More About Dero
Dero - Stargate
[https://dero.io/](https://dero.io/)
[https://github.com/deroproject/derohe/](https://github.com/deroproject/derohe/)
## More Dero Smart Contracts Used Here
[Nameservice](https://docs.dero.io/rtd_pages/dev_dvm.html#nameservice)
[DVM Example](https://github.com/deroproject/documentation/tree/master/DVMDOCS/examples/nameservice)
Script to check and register your wallet with a name on the stargate block chain.

139
dero_nameservice.pl → dero_ns_cli.pl
View File

@ -3,6 +3,8 @@
# Script Written by Hansen33
# Discord: hansen33#2541
#
# Let's have some fun and register some more names.
#
# Dero name service
# https://docs.dero.io/rtd_pages/dev_dvm.html#nameservice
@ -21,51 +23,136 @@ use JSON;
use Data::Dumper;
use WWW::Curl::Easy;
use FindBin;
use lib "$FindBin::RealBin/../lib";
use Curses::UI;
# options
use Getopt::Long;
my $name;
my %options;
GetOptions(
'daemon-rpc=s' => \$options{'daemon-rpc'},
'wallet-rpc=s' => \$options{'wallet-rpc'},
'name=s' => \$options{'name'},
'register+' => \$options{'register'},
'name=s' => \$name,
'check-list=s' => \$options{'list'},
'help+' => \$options{'help'},
);
my $daemon = 'https://dero-node.mysrv.cloud';
$daemon = $options{'daemon-rpc'} if $options{'daemon-rpc'};
my $wallet_rpc = '127.0.0.0:10103';
my $wallet_rpc = '127.0.0.1:10103';
$wallet_rpc = $options{'wallet-rpc'} if $options{'wallet-rpc'};
my $name = 'MySrvCloud';
$name = $options{'name'} if $options{'name'};
print "Dero Name Service Cli Tool - register name to wallet\n";
my $check = check_name($name);
sub usage {
if (defined $check and $check->{'status'} eq 'OK') {
printf "Name: (%s) is taken by this address (%s)\n", $check->{'name'}, $check->{'address'};
} else {
printf "Name: (%s) is FREE - Do you want to register it?\n", $name;
print "usage: $0 --name <name> [--register] [--list <path>] [--daemon-rpc] [--wallet-rpc]\n";
print "\t--name name to check or register\n";
print "\t--register will attempt to register name to your wallet\n";
print "\t--check-list Check file with list of names - list can not be used with --register\n";
print "\t--daemon-rpc Specify URL for daemon if you don't want to use https://dero-node.mysrv.cloud/\n";
print "\t This is just to check if the name is registered already\n";
print "\t--wallet-rpc Specify wallet RPC if other than 127.0.0.1:10103 (local wallet)\n";
exit;
}
print "Checking wallet RPC\n";
my $count = 0;
while (not defined check_wallet_rpc() and $count < 10) {
usage() if $options{'help'};
print "Please start wallet with --rpc-server option\n" if $count == 0;
my @check_list;
sleep 1;
push @check_list, $name if defined $name;
$count++;
if ($options{'list'}) {
# Building list
if (-f $options{'list'}) {
open my $FILE, '<', $options{'list'} or die ("Failed to open file list for reading....");
while (my $line = <$FILE>) {
chomp $line;
push @check_list, $line;
}
} else {
usage();
}
}
#exit
my $reg = register($name);
print Dumper($reg);
foreach my $check_name (@check_list) {
my $check = check_name($check_name);
if (defined $check and $check->{'status'} eq 'OK') {
printf "Name: (%s) is taken by this address (%s)\n", $check->{'name'}, $check->{'address'};
} else {
if ($options{'register'}) {
printf "Name: (%s) is FREE - and will be registered in a little while\n", $name;
} else {
printf "Name: (%s) is FREE to register\n", $name;
}
}
}
if ($options{'register'}) {
my $max_wait = 120;
usage() if $options{'list'};
if (check_name($name)) {
printf "Name: (%s) is already registered, nothing to do\n", $name;
exit 0;
}
printf "Checking wallet RPC (%s)\n", $wallet_rpc;
my $count = 0;
while (not defined check_wallet_rpc() and $count < $max_wait) {
print "Please start wallet with --rpc-server option\n" if $count == 0;
printf "\rWaiting [%d/%d]... ", $count, $max_wait;
sleep 1;
$count++;
}
if (check_wallet_rpc()) {
printf "Wallet connected (%s)\n", $wallet_rpc;
my $reg = register($name);
if (defined $reg and $reg->{'result'}) {
printf "Name: (%s) registered on the DERO Stargate with TXT ID (%s)\n", $name, $reg->{'result'}->{'txid'};
} else {
print "Error, something went wrong!\n";
print Dumper($reg);
exit 1;
}
my $reg_check;
$count = 0;
while (not defined $reg_check) {
my $reg_check = check_name($name);
if (defined $reg_check and $reg_check->{'status'} eq 'OK') {
printf "\rName: (%s) is now registered to this address (%s) - Congratulations!\n", $reg_check->{'name'}, $reg_check->{'address'};
last;
} else {
printf "\rWaiting for registered to complete [%d/%d]... ", $count, $max_wait;
}
die "Something went wrong, it took too long to register.." if $count > $max_wait;
sleep 1;
$count++;
}
} else {
print "Failed to connect with your wallet, please check your settings!\n";
}
}
sub register {
@ -90,17 +177,17 @@ sub register {
{
'name' => 'name',
'datatype' => 'S',
'valye' => $name,
'value' => $name,
}
],
},
};
my $url = sprintf '%s/json_rpc', $daemon;
my $url = sprintf 'http://%s/json_rpc', $wallet_rpc;
my $status = decode_json( post_url($url, $data) );
return $status->{'result'};
return $status;
}
@ -109,9 +196,7 @@ sub check_wallet_rpc {
my ($ip,$port) = split /:/, $wallet_rpc;
my $cmd = sprintf 'timeout 1 /usr/bin/nc -z %s %d', $ip, $port;
system "$cmd >/dev/null 2>&1";
if ( $? == 0 ) {
return 1;
}

4
list Normal file
View File

@ -0,0 +1,4 @@
Captain
Azylem
Nelbert442
Hansen33

58
turorial.pl
View File

@ -1,58 +0,0 @@
#!/usr/bin/perl -w
# Tutorial example
# 2003 (c) by Marcus Thiesen (marcus@cpan.org)
# This file is a part of Curses::UI and might be distributed
# under the same terms as perl itself.
# Use the libraries from the distribution, instead of
# system wide libraries.
use FindBin;
use lib "$FindBin::RealBin/../lib";
use strict;
use Curses::UI;
my $cui = new Curses::UI( -color_support => 1 );
my @menu = (
{ -label => 'File',
-submenu => [
{ -label => 'Exit ^Q', -value => \&exit_dialog }
]
},
);
my $menu = $cui->add(
'menu','Menubar',
-menu => \@menu,
-fg => "blue",
);
my $win1 = $cui->add(
'win1', 'Window',
-border => 1,
-y => 1,
-bfg => 'red',
);
sub exit_dialog()
{
my $return = $cui->dialog(
-message => "Do you really want to quit?",
-title => "Are you sure???",
-buttons => ['yes', 'no'],
);
exit(0) if $return;
}
my $texteditor = $win1->add("text", "TextEditor", -text => "Here is some text\n"
. "And some more");
$cui->set_binding(sub {$menu->focus()}, "\cX");
$cui->set_binding( \&exit_dialog , "\cQ");
$texteditor->focus();
$cui->mainloop();