You've already forked pgbackrest
mirror of
https://github.com/pgbackrest/pgbackrest.git
synced 2025-06-27 00:21:08 +02:00
55 lines
2.1 KiB
Perl
55 lines
2.1 KiB
Perl
![]() |
####################################################################################################################################
|
||
|
# CIFS Storage Driver
|
||
|
#
|
||
|
# Implements storage functions for Posix-compliant file systems.
|
||
|
####################################################################################################################################
|
||
|
package pgBackRest::Storage::Cifs::Driver;
|
||
|
use parent 'pgBackRest::Storage::Posix::Driver';
|
||
|
|
||
|
use strict;
|
||
|
use warnings FATAL => qw(all);
|
||
|
use Carp qw(confess);
|
||
|
use English '-no_match_vars';
|
||
|
|
||
|
use Exporter qw(import);
|
||
|
our @EXPORT = qw();
|
||
|
|
||
|
use pgBackRest::Common::Log;
|
||
|
|
||
|
####################################################################################################################################
|
||
|
# Package name constant
|
||
|
####################################################################################################################################
|
||
|
use constant STORAGE_CIFS_DRIVER => __PACKAGE__;
|
||
|
push @EXPORT, qw(STORAGE_CIFS_DRIVER);
|
||
|
|
||
|
####################################################################################################################################
|
||
|
# pathSync - CIFS does not support path sync so this is a noop
|
||
|
####################################################################################################################################
|
||
|
sub pathSync
|
||
|
{
|
||
|
my $self = shift;
|
||
|
|
||
|
# Assign function parameters, defaults, and log debug info
|
||
|
my
|
||
|
(
|
||
|
$strOperation,
|
||
|
$strPath,
|
||
|
) =
|
||
|
logDebugParam
|
||
|
(
|
||
|
__PACKAGE__ . '->pathSync', \@_,
|
||
|
{name => 'strPath', trace => true},
|
||
|
);
|
||
|
|
||
|
# Return from function and log return values if any
|
||
|
return logDebugReturn($strOperation);
|
||
|
}
|
||
|
|
||
|
####################################################################################################################################
|
||
|
# Getters/Setters
|
||
|
####################################################################################################################################
|
||
|
sub capability {false}
|
||
|
sub className {STORAGE_CIFS_DRIVER}
|
||
|
|
||
|
1;
|