Skip to content
Snippets Groups Projects
Commit 76773a03 authored by Tomáš Plesník's avatar Tomáš Plesník
Browse files

zmena na pouzivani modulu warnings; pridana inicialnizace modulu FindBin

parent ebc3c21b
No related branches found
No related tags found
No related merge requests found
#!/usr/bin/perl -w #!/usr/bin/perl
# #
# getClients.pl # getClients.pl
# #
...@@ -7,10 +7,13 @@ ...@@ -7,10 +7,13 @@
# Use of this source is governed by a BSD-style license, see LICENSE file. # Use of this source is governed by a BSD-style license, see LICENSE file.
use strict; use strict;
use warnings;
use Getopt::Std; use Getopt::Std;
use DBI; use DBI;
use DBD::mysql; use DBD::mysql;
use FindBin qw($RealBin $RealScript); use FindBin qw($RealBin $RealScript);
FindBin::again();
use lib "$RealBin/../lib"; use lib "$RealBin/../lib";
use WardenCommon; use WardenCommon;
......
#!/usr/bin/perl -w #!/usr/bin/perl
# #
# getStatus.pl # getStatus.pl
# #
...@@ -7,11 +7,14 @@ ...@@ -7,11 +7,14 @@
# Use of this source is governed by a BSD-style license, see LICENSE file. # Use of this source is governed by a BSD-style license, see LICENSE file.
use strict; use strict;
use warnings;
use Getopt::Std; use Getopt::Std;
use DBI; use DBI;
use DBD::mysql; use DBD::mysql;
use Format::Human::Bytes; use Format::Human::Bytes;
use FindBin qw($RealBin $RealScript); use FindBin qw($RealBin $RealScript);
FindBin::again();
use lib "$RealBin/../lib"; use lib "$RealBin/../lib";
use WardenCommon; use WardenCommon;
......
#!/usr/bin/perl -w #!/usr/bin/perl
# #
# registerReceiver.pl # registerReceiver.pl
# #
...@@ -7,6 +7,8 @@ ...@@ -7,6 +7,8 @@
# Use of this source is governed by a BSD-style license, see LICENSE file. # Use of this source is governed by a BSD-style license, see LICENSE file.
use strict; use strict;
use warnings;
use Getopt::Std; use Getopt::Std;
use Switch; use Switch;
use DBI; use DBI;
...@@ -16,6 +18,7 @@ use Sys::Syslog qw(:DEFAULT setlogsock); ...@@ -16,6 +18,7 @@ use Sys::Syslog qw(:DEFAULT setlogsock);
Sys::Syslog::setlogsock('unix'); Sys::Syslog::setlogsock('unix');
use Carp; use Carp;
use FindBin qw($RealBin $RealScript); use FindBin qw($RealBin $RealScript);
FindBin::again();
use lib "$RealBin/../lib"; use lib "$RealBin/../lib";
use WardenCommon; use WardenCommon;
......
#!/usr/bin/perl -w #!/usr/bin/perl
# #
# registerSender.pl # registerSender.pl
# #
...@@ -7,6 +7,8 @@ ...@@ -7,6 +7,8 @@
# Use of this source is governed by a BSD-style license, see LICENSE file. # Use of this source is governed by a BSD-style license, see LICENSE file.
use strict; use strict;
use warnings;
use Getopt::Std; use Getopt::Std;
use Switch; use Switch;
use DBI; use DBI;
...@@ -16,6 +18,7 @@ use Sys::Syslog qw(:DEFAULT setlogsock); ...@@ -16,6 +18,7 @@ use Sys::Syslog qw(:DEFAULT setlogsock);
Sys::Syslog::setlogsock('unix'); Sys::Syslog::setlogsock('unix');
use Carp; use Carp;
use FindBin qw($RealBin $RealScript); use FindBin qw($RealBin $RealScript);
FindBin::again();
use lib "$RealBin/../lib"; use lib "$RealBin/../lib";
use WardenCommon; use WardenCommon;
......
#!/usr/bin/perl -w #!/usr/bin/perl
# #
# unregisterClient.pl # unregisterClient.pl
# #
...@@ -7,6 +7,8 @@ ...@@ -7,6 +7,8 @@
# Use of this source is governed by a BSD-style license, see LICENSE file. # Use of this source is governed by a BSD-style license, see LICENSE file.
use strict; use strict;
use warnings;
use Getopt::Std; use Getopt::Std;
use Switch; use Switch;
use DBI; use DBI;
...@@ -16,6 +18,7 @@ use Sys::Syslog qw(:DEFAULT setlogsock); ...@@ -16,6 +18,7 @@ use Sys::Syslog qw(:DEFAULT setlogsock);
Sys::Syslog::setlogsock('unix'); Sys::Syslog::setlogsock('unix');
use Carp; use Carp;
use FindBin qw($RealBin $RealScript); use FindBin qw($RealBin $RealScript);
FindBin::again();
use lib "$RealBin/../lib"; use lib "$RealBin/../lib";
use WardenCommon; use WardenCommon;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment