1 #!/usr/bin/perl
2 #
3 
4 use strict;
5 use warnings;
6 #use OpenBSD::Pledge;
7 #use OpenBSD::Unveil;
8 
9 use lib qw(./lib);
10 use IRCNOW::Database;
11 
12 use IRCNOW::IO::IRC;
13 use IRCNOW::Acct::DNS qw(randip6);
14 
15 
16 # Load debug modules and set path for auto backups.
17 use IRCNOW::IO qw(:DEBUG);
18 $verbosity=ALL;		# verbosity is exported via :DEBUG sets the debug level
19 $IRCNOW::IO::backupspath = 'zones/';
20 
21 #my $acct=new IRCNOW::Acct();
22 #print $acct->newpass() . "\n";
23 
24 my $dnsAcct=new IRCNOW::Acct::DNS();
25 #$dnsAcct->init();
26 #unveil() or die "Unable to lock unveil $!";
27 
28 my $ipv6 = $dnsAcct->nextdns('resuwen');
29 print "Your new ipv6 address: $ipv6\n";
30 
31 my $random_ipv6 = randip6();
32 print "$random_ipv6\n";
33 
34 =pod
35 
36 =head1 NAME
37 
38 bin/dnsTest.pl
39 
40 =head1 SYNOPSIS
41 
42 #!/usr/bin/perl
43 use strict;
44 use warnings;
45 
46 # Load debug modules and set path for auto backups.
47 use IRCNOW::IO qw(:DEBUG :FILEIO);
48 $verbosity=ALL;		# verbosity is exported via :DEBUG sets the debug level
49 $IRCNOW::IO::backupspath = 'zones/';
50 
51 # DNS commands related to IRCNOW accounts.
52 use IRCNOW::Acct::DNS;
53 
54 my $ipv6 = $dnsAcct->nextdns('resuwen');
55 print "Your new ipv6 address: $ipv6\n";
56 
57 =head1 DESCRIPTION
58 
59 This script provides example usage of the IRCNOW::Acct::DNS module.
60 
61 =cut
62