Editing File: /usr/local/cpanel/3rdparty/perl/542/bin/ubic-update

#!/usr/local/cpanel/3rdparty/perl/542/bin/perl
package ubic_update;
$ubic_update::VERSION = '1.60';
use strict;
use warnings;

# ABSTRACT: update ubic metadata

use Getopt::Long 2.33;
use Pod::Usage;

return 1 if caller();

GetOptions() or pod2usage(2);
pod2usage(2) if @ARGV;

use Ubic::PortMap;

Ubic::PortMap::update();

__END__

=pod

=encoding UTF-8

=head1 NAME

ubic_update - update ubic metadata

=head1 VERSION

version 1.60

=head1 SYNOPSIS

ubic-update [--help]

=head1 DESCRIPTION

This script maintains ubic portmap - small database which allows to get service by port without full traversing of all services.

=head1 FUTURE DIRECTIONS

This script can (and possibly will) be reimplemented as ubic service.

=head1 SEE ALSO

There is an entry about ubic-update in L<Ubic::Manual::FAQ>.

=head1 AUTHOR

Vyacheslav Matyukhin <mmcleric@yandex-team.ru>

=head1 COPYRIGHT AND LICENSE

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut