Obsolete/dnsmanagerv1
Archived
3
0
Fork 0
Code

utf8 without env vars

Browse Source
This commit is contained in:
karchnu 2016-01-21 20:52:59 +01:00
parent c563daacc7
commit 417d88924d
20 changed files with 31 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
cli/get_domain.pl
View File

@ -1,6 +1,8 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
use v5.14; use v5.14;
use autodie; use autodie;
use utf8;
use open qw/:std :utf8/;
use Modern::Perl; use Modern::Perl;
use Data::Dump qw( dump ); use Data::Dump qw( dump );
@ -9,7 +11,6 @@ use lib './lib/';
use configuration ':all'; use configuration ':all';
use encryption ':all'; use encryption ':all';
use app; use app;
use utf8;
if( @ARGV != 1 ) { if( @ARGV != 1 ) {
say "usage : ./$0 domain"; say "usage : ./$0 domain";

3
cli/get_domains.pl
View File

@ -1,6 +1,8 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
use v5.14; use v5.14;
use autodie; use autodie;
use utf8;
use open qw/:std :utf8/;
use Modern::Perl; use Modern::Perl;
#use DNS::ZoneParse; #use DNS::ZoneParse;
@ -10,7 +12,6 @@ use Data::Dump qw( dump );
use lib './lib/'; use lib './lib/';
use configuration ':all'; use configuration ':all';
use app; use app;
use utf8;
if( @ARGV != 0 ) { if( @ARGV != 0 ) {
say "usage : ./$0"; say "usage : ./$0";

1
cli/get_users.pl
View File

@ -2,6 +2,7 @@
use v5.14; use v5.14;
use autodie; use autodie;
use utf8; use utf8;
use open qw/:std :utf8/;
use Modern::Perl; use Modern::Perl;
use Data::Dump qw( dump ); use Data::Dump qw( dump );

3
cli/toggle_admin.pl
View File

@ -1,6 +1,8 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
use v5.14; use v5.14;
use autodie; use autodie;
use utf8;
use open qw/:std :utf8/;
use Modern::Perl; use Modern::Perl;
use Data::Dump qw( dump ); use Data::Dump qw( dump );
@ -9,7 +11,6 @@ use lib './lib/';
use configuration ':all'; use configuration ':all';
use encryption ':all'; use encryption ':all';
use app; use app;
use utf8;
if( @ARGV != 1 ) { if( @ARGV != 1 ) {
say "usage : ./$0 login"; say "usage : ./$0 login";

3
cli/user_add.pl
View File

@ -1,6 +1,8 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
use v5.14; use v5.14;
use autodie; use autodie;
use utf8;
use open qw/:std :utf8/;
use Modern::Perl; use Modern::Perl;
use Data::Dump qw( dump ); use Data::Dump qw( dump );
@ -9,7 +11,6 @@ use lib './lib/';
use configuration ':all'; use configuration ':all';
use encryption ':all'; use encryption ':all';
use app; use app;
use utf8;
if( @ARGV != 2 ) { if( @ARGV != 2 ) {
say "usage : ./$0 login passwd"; say "usage : ./$0 login passwd";

3
cli/user_auth.pl
View File

@ -1,6 +1,8 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
use v5.14; use v5.14;
use autodie; use autodie;
use utf8;
use open qw/:std :utf8/;
use Modern::Perl; use Modern::Perl;
use Data::Dump qw( dump ); use Data::Dump qw( dump );
@ -9,7 +11,6 @@ use lib './lib/';
use configuration ':all'; use configuration ':all';
use encryption ':all'; use encryption ':all';
use app; use app;
use utf8;
if( @ARGV != 0 && @ARGV != 2 ) { if( @ARGV != 0 && @ARGV != 2 ) {
say "usage : ./$0 [ login passwd ]"; say "usage : ./$0 [ login passwd ]";

3
cli/user_del.pl
View File

@ -1,6 +1,8 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
use v5.14; use v5.14;
use autodie; use autodie;
use utf8;
use open qw/:std :utf8/;
use Modern::Perl; use Modern::Perl;
use Data::Dump qw( dump ); use Data::Dump qw( dump );
@ -8,7 +10,6 @@ use Data::Dump qw( dump );
use lib './lib/'; use lib './lib/';
use configuration ':all'; use configuration ':all';
use app; use app;
use utf8;
if( @ARGV != 1 ) { if( @ARGV != 1 ) {
say "usage : ./$0 user"; say "usage : ./$0 user";

2
cli/user_update_passwd.pl
View File

@ -1,6 +1,8 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
use v5.14; use v5.14;
use autodie; use autodie;
use utf8;
use open qw/:std :utf8/;
use Modern::Perl; use Modern::Perl;
use Data::Dump qw( dump ); use Data::Dump qw( dump );

3
cli/zone_add.pl
View File

@ -1,13 +1,14 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
use v5.14; use v5.14;
use autodie; use autodie;
use utf8;
use open qw/:std :utf8/;
use Modern::Perl; use Modern::Perl;
use lib './lib/'; use lib './lib/';
use configuration ':all'; use configuration ':all';
use encryption ':all'; use encryption ':all';
use app; use app;
use utf8;
if( @ARGV != 2 ) { if( @ARGV != 2 ) {
say "usage : ./$0 login ndd "; say "usage : ./$0 login ndd ";

3
cli/zone_del.pl
View File

@ -1,13 +1,14 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
use v5.14; use v5.14;
use autodie; use autodie;
use utf8;
use open qw/:std :utf8/;
use Modern::Perl; use Modern::Perl;
use lib './lib/'; use lib './lib/';
use configuration ':all'; use configuration ':all';
use encryption ':all'; use encryption ':all';
use app; use app;
use utf8;
if( @ARGV != 1 ) { if( @ARGV != 1 ) {
say "usage : ./$0 ndd "; say "usage : ./$0 ndd ";

3
lib/MyWeb/App.pm
View File

@ -3,6 +3,8 @@ package MyWeb::App;
use v5.14; use v5.14;
use strict; use strict;
use warnings; use warnings;
use utf8;
use open qw/:std :utf8/;
use Dancer2; use Dancer2;
use Dancer2::Plugin::Deferred; use Dancer2::Plugin::Deferred;
@ -10,7 +12,6 @@ use File::Basename;
#use Storable qw( freeze thaw ); #use Storable qw( freeze thaw );
#$Storable::Deparse = true; #$Storable::Deparse = true;
#$Storable::Eval=true; #$Storable::Eval=true;
use utf8;
use YAML::XS; use YAML::XS;
use configuration ':all'; use configuration ':all';

1
lib/rt/admin.pm
View File

@ -3,6 +3,7 @@ package rt::admin;
use configuration ':all'; use configuration ':all';
use app; use app;
use utf8; use utf8;
use open qw/:std :utf8/
use Data::Dump qw( dump ); use Data::Dump qw( dump );

1
lib/rt/adminfake.pm
View File

@ -3,6 +3,7 @@ package rt::adminfake;
use configuration ':all'; use configuration ':all';
use app; use app;
use utf8; use utf8;
use open qw/:std :utf8/
use Data::Dump qw( dump ); use Data::Dump qw( dump );

1
lib/rt/domain.pm
View File

@ -6,6 +6,7 @@ use encryption ':all';
use util ':all'; use util ':all';
use app; use app;
use utf8; use utf8;
use open qw/:std :utf8/
use Dancer ':syntax'; use Dancer ':syntax';
use Data::Dump qw( dump ); use Data::Dump qw( dump );
use Data::Validate::IP qw(is_ipv4 is_ipv6); use Data::Validate::IP qw(is_ipv4 is_ipv6);

1
lib/rt/domainfake.pm
View File

@ -6,6 +6,7 @@ use encryption ':all';
use util ':all'; use util ':all';
use app; use app;
use utf8; use utf8;
use open qw/:std :utf8/
use Dancer ':syntax'; use Dancer ':syntax';
use Data::Dump qw( dump ); use Data::Dump qw( dump );
use Data::Validate::IP qw(is_ipv4 is_ipv6); use Data::Validate::IP qw(is_ipv4 is_ipv6);

1
lib/rt/root.pm
View File

@ -3,6 +3,7 @@ package rt::root;
use configuration ':all'; use configuration ':all';
use app; use app;
use utf8; use utf8;
use open qw/:std :utf8/
use Exporter 'import'; use Exporter 'import';
# what we want to export eventually # what we want to export eventually

1
lib/rt/rootfake.pm
View File

@ -3,6 +3,7 @@ package rt::rootfake;
use configuration ':all'; use configuration ':all';
use app; use app;
use utf8; use utf8;
use open qw/:std :utf8/
use Exporter 'import'; use Exporter 'import';
# what we want to export eventually # what we want to export eventually

1
lib/rt/user.pm
View File

@ -5,6 +5,7 @@ use configuration ':all';
use encryption ':all'; use encryption ':all';
use app; use app;
use utf8; use utf8;
use open qw/:std :utf8/
use YAML::XS; use YAML::XS;

1
lib/rt/userfake.pm
View File

@ -5,6 +5,7 @@ use configuration ':all';
use encryption ':all'; use encryption ':all';
use app; use app;
use utf8; use utf8;
use open qw/:std :utf8/
use YAML::XS; use YAML::XS;

3
lib/testapp.pl
View File

@ -2,9 +2,10 @@
use v5.14; use v5.14;
use strict; use strict;
use warnings; use warnings;
use utf8;
use open qw/:std :utf8/;
use File::Basename; use File::Basename;
use utf8;
use YAML::XS; use YAML::XS;
use configuration ':all'; use configuration ':all';
use util ':all'; use util ':all';