use Exporter qw(import);
-our @EXPORT_OK = qw(GenerateMonitoredFiles FilePositions);
+our @EXPORT_OK = qw(GenerateMonitoredFiles GetFileposition DetectIPProtocolVersion FilePositions);
use Net::IP;
$new_file_positions{$file} = $current_file_positions{$file};
} else {
# Call function to obtain the file position.
- my $position = &_initFileposition($file);
+ my $position = &GetFileposition($file);
# Add filename and position to the temporary hash.
$new_file_positions{$file} = $position;
}
#
-## Function for fileposition initialization.
+## DetectIPProtocolVersion function.
+#
+## Wrapper function for determining the used protocol version (4/6)
+## for a given IP address.
+#
+sub DetectIPProtocolVersion ($) {
+ my $address = shift;
+
+ # Call external perl module to detect the used IP protocol version.
+ my $version = &Net::IP::ip_get_version($address);
+
+ # Return the detected version.
+ return $version;
+}
+
+#
+## Function to get the current (EOF) cursor postion.
#
## This function is used to get the cursor position of the end of file (EOF) of
## a specified file.
## with huge logfiles, at initialization time of the worker processes, the file will
## be opened once and the cursor position of the end of file (EOF) get stored.
#
-sub _initFileposition ($) {
+sub GetFileposition ($) {
my $file = $_[0];
# Open the file.