/usr/share/otrs/Kernel/System/FileTemp.pm is in otrs2 5.0.7-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 | # --
# Copyright (C) 2001-2016 OTRS AG, http://otrs.com/
# --
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
# the enclosed file COPYING for license information (AGPL). If you
# did not receive this file, see http://www.gnu.org/licenses/agpl.txt.
# --
package Kernel::System::FileTemp;
use strict;
use warnings;
use File::Temp qw( tempfile tempdir );
our @ObjectDependencies = (
'Kernel::Config',
);
=head1 NAME
Kernel::System::FileTemp - tmp files
=head1 SYNOPSIS
This module is managing temporary files and directories.
=head1 PUBLIC INTERFACE
=over 4
=cut
=item new()
create an object. Do not use it directly, instead use:
use Kernel::System::ObjectManager;
local $Kernel::OM = Kernel::System::ObjectManager->new();
my $FileTempObject = $Kernel::OM->Get('Kernel::System::FileTemp');
=cut
sub new {
my ( $Type, %Param ) = @_;
# allocate new hash for object
my $Self = {};
bless( $Self, $Type );
$Self->{FileHandleList} = [];
return $Self;
}
=item TempFile()
returns an opened temporary file handle and its file name.
Please note that you need to close the file handle for other processes to write to it.
my ($FileHandle, $Filename) = $TempObject->TempFile(
Suffix => '.png', # optional, defaults to '.tmp'
);
=cut
sub TempFile {
my ( $Self, %Param ) = @_;
my $TempDir = $Kernel::OM->Get('Kernel::Config')->Get('TempDir');
my ( $FH, $Filename ) = tempfile(
DIR => $TempDir,
SUFFIX => $Param{Suffix} // '.tmp',
UNLINK => 1,
);
# remember created tmp files and handles
push @{ $Self->{FileHandleList} }, $FH;
return ( $FH, $Filename );
}
=item TempDir()
returns a temp directory. The directory and its contents will be removed
if the FileTemp object goes out of scope.
=cut
sub TempDir {
my $Self = shift;
my $TempDir = $Kernel::OM->Get('Kernel::Config')->Get('TempDir');
my $DirName = tempdir(
DIR => $TempDir,
CLEANUP => 1,
);
return $DirName;
}
sub DESTROY {
my ( $Self, %Param ) = @_;
# close all existing file handles
FILEHANDLE:
for my $FileHandle ( @{ $Self->{FileHandleList} } ) {
next FILEHANDLE if !$FileHandle;
close $FileHandle;
}
File::Temp::cleanup();
return 1;
}
1;
=back
=head1 TERMS AND CONDITIONS
This software is part of the OTRS project (L<http://otrs.org/>).
This software comes with ABSOLUTELY NO WARRANTY. For details, see
the enclosed file COPYING for license information (AGPL). If you
did not receive this file, see L<http://www.gnu.org/licenses/agpl.txt>.
=cut
|