Difference between revisions of "API:EPrints/DataObj/File"

From EPrints Documentation
Jump to: navigation, search
Line 137: Line 137:
 
<!-- Pod2Wiki=head_object_methods -->
 
<!-- Pod2Wiki=head_object_methods -->
 
===Object Methods===
 
===Object Methods===
* $new_file = $file-&gt;clone( $parent )
+
<!-- Edit below this comment -->
: Clone the $file object (including contained files) and return the new object.
+
 
 +
 
 +
<!-- Pod2Wiki= -->
 +
<!-- Pod2Wiki=head_clone -->
 +
===clone===
 +
 
 +
<source lang="perl">$new_file = $file->clone( $parent )
 +
 
 +
</source>
 +
Clone the $file object (including contained files) and return the new object.
 +
 
 +
<!-- Edit below this comment -->
 +
 
 +
 
 +
<!-- Pod2Wiki= -->
 +
<!-- Pod2Wiki=head_remove -->
 +
===remove===
 +
 
 +
<source lang="perl">$success = $file->remove
 +
 
 +
</source>
 +
Delete the stored file.
 +
 
 +
<!-- Edit below this comment -->
 +
 
 +
 
 +
<!-- Pod2Wiki= -->
 +
<!-- Pod2Wiki=head_update -->
 +
===update===
 +
 
 +
<source lang="perl">$file->update( $epdata )
 +
 
 +
</source>
 +
<!-- Edit below this comment -->
 +
 
 +
 
 +
<!-- Pod2Wiki= -->
 +
<!-- Pod2Wiki=head_get_local_copy -->
 +
===get_local_copy===
 +
 
 +
<source lang="perl">$filename = $file->get_local_copy()
 +
 
 +
</source>
 +
Return the name of a local copy of the file (may be a {{API:PodLink|file=File/Temp|package_name=File::Temp|section=|text=File::Temp}} object).
 +
 
 +
Will retrieve and cache the remote object if necessary.
 +
 
 +
<!-- Edit below this comment -->
 +
 
 +
 
 +
<!-- Pod2Wiki= -->
 +
<!-- Pod2Wiki=head_add_file -->
 +
===add_file===
 +
 
 +
<source lang="perl">$success = $file->add_file( $filepath, $filename [, $preserve_path ] )
 +
 
 +
</source>
 +
Read and store the contents of $filepath at $filename.
 +
 
 +
If $preserve_path is untrue will strip any leading path in $filename.
 +
 
 +
<!-- Edit below this comment -->
 +
 
 +
 
 +
<!-- Pod2Wiki= -->
 +
<!-- Pod2Wiki=head_upload -->
 +
===upload===
 +
 
 +
<source lang="perl">$bytes = $file->upload( $filehandle, $filename, $filesize [, $preserve_path ] )
 +
 
 +
</source>
 +
Read and store the data from $filehandle at $filename at the next revision number.
 +
 
 +
If $preserve_path is untrue will strip any leading path in $filename.
 +
 
 +
Returns the number of bytes read from $filehandle or undef on failure.
 +
 
 +
<!-- Edit below this comment -->
 +
 
 +
 
 +
<!-- Pod2Wiki= -->
 +
<!-- Pod2Wiki=head_write_copy -->
 +
===write_copy===
  
* $success = $file-&gt;remove
+
<source lang="perl">$success = $stored->write_copy( $filename )
: Delete the stored file.
 
  
* $file-&gt;update( $epdata )
+
</source>
* $filename = $file-&gt;get_local_copy()
+
Write a copy of this file to $filename.
: Return the name of a local copy of the file (may be a {{API:PodLink|file=File/Temp|package_name=File::Temp|section=|text=File::Temp}} object).
 
  
: Will retrieve and cache the remote object if necessary.
+
Returns true if the written file contains the same number of bytes as the stored file.
 +
 
 +
<!-- Edit below this comment -->
  
* $success = $file-&gt;add_file( $filepath, $filename [, $preserve_path ] )
 
: Read and store the contents of $filepath at $filename.
 
  
: If $preserve_path is untrue will strip any leading path in $filename.
+
<!-- Pod2Wiki= -->
 +
<!-- Pod2Wiki=head_write_copy_fh -->
 +
===write_copy_fh===
  
* $bytes = $file-&gt;upload( $filehandle, $filename, $filesize [, $preserve_path ] )
+
<source lang="perl">$success = $stored->write_copy_fh( $filehandle )
: Read and store the data from $filehandle at $filename at the next revision number.
 
  
: If $preserve_path is untrue will strip any leading path in $filename.
+
</source>
 +
Write a copy of this file to $filehandle.
  
: Returns the number of bytes read from $filehandle or undef on failure.
+
<!-- Edit below this comment -->
  
* $success = $stored-&gt;write_copy( $filename )
 
: Write a copy of this file to $filename.
 
  
: Returns true if the written file contains the same number of bytes as the stored file.
+
<!-- Pod2Wiki= -->
 +
<!-- Pod2Wiki=head_generate_md5 -->
 +
===generate_md5===
  
* $success = $stored-&gt;write_copy_fh( $filehandle )
+
<source lang="perl">$md5 = $stored->generate_md5
: Write a copy of this file to $filehandle.
 
  
* $md5 = $stored-&gt;generate_md5
+
</source>
: Calculates and returns the MD5 for this file.
+
Calculates and returns the MD5 for this file.
  
* $digest = $file-&gt;generate_sha( [ ALGORITHM ] )
+
<!-- Edit below this comment -->
: Generate a SHA for this file, see {{API:PodLink|file=Digest/SHA|package_name=Digest::SHA|section=|text=Digest::SHA}} for a list of supported algorithms. Defaults to "256" (SHA-256).
 
  
: Returns the hex-encoded digest.
 
  
* $stored-&gt;add_plugin_copy( $plugin, $sourceid )
+
<!-- Pod2Wiki= -->
: Add a copy of this file stored using $plugin identified by $sourceid.
+
<!-- Pod2Wiki=head_generate_sha -->
 +
===generate_sha===
  
* $stored-&gt;remove_plugin_copy( $plugin )
+
<source lang="perl">$digest = $file->generate_sha( [ ALGORITHM ] )
: Remove the copy of this file stored using $plugin.
 
  
* $success = $stored-&gt;get_file( CALLBACK [, $offset, $n ] )
+
</source>
: Get the contents of the stored file.
+
Generate a SHA for this file, see {{API:PodLink|file=Digest/SHA|package_name=Digest::SHA|section=|text=Digest::SHA}} for a list of supported algorithms. Defaults to "256" (SHA-256).
  
: $offset is the position in bytes to start reading from, defaults to 0.
+
Returns the hex-encoded digest.
  
: $n is the number of bytes to read, defaults to <code>filesize</code>.
+
<!-- Edit below this comment -->
  
: CALLBACK is:
+
 
 +
<!-- Pod2Wiki= -->
 +
<!-- Pod2Wiki=head_add_plugin_copy -->
 +
===add_plugin_copy===
 +
 
 +
<source lang="perl">$stored->add_plugin_copy( $plugin, $sourceid )
 +
 
 +
</source>
 +
Add a copy of this file stored using $plugin identified by $sourceid.
 +
 
 +
<!-- Edit below this comment -->
 +
 
 +
 
 +
<!-- Pod2Wiki= -->
 +
<!-- Pod2Wiki=head_remove_plugin_copy -->
 +
===remove_plugin_copy===
 +
 
 +
<source lang="perl">$stored->remove_plugin_copy( $plugin )
 +
 
 +
</source>
 +
Remove the copy of this file stored using $plugin.
 +
 
 +
<!-- Edit below this comment -->
 +
 
 +
 
 +
<!-- Pod2Wiki= -->
 +
<!-- Pod2Wiki=head_get_file -->
 +
===get_file===
 +
 
 +
<source lang="perl">$success = $stored->get_file( CALLBACK [, $offset, $n ] )
 +
 
 +
</source>
 +
Get the contents of the stored file.
 +
 
 +
$offset is the position in bytes to start reading from, defaults to 0.
 +
 
 +
$n is the number of bytes to read, defaults to <code>filesize</code>.
 +
 
 +
CALLBACK is:
  
 
<source lang="perl">sub {
 
<source lang="perl">sub {
Line 200: Line 317:
 
}</source>
 
}</source>
  
: Returning 0 from the callback will cause the read to abort.
+
Returning 0 from the callback will cause the read to abort.
 +
 
 +
<!-- Edit below this comment -->
 +
 
 +
 
 +
<!-- Pod2Wiki= -->
 +
<!-- Pod2Wiki=head_set_file -->
 +
===set_file===
 +
 
 +
<source lang="perl">$content_length = $stored->set_file( CONTENT, $content_length )
  
* $content_length = $stored-&gt;set_file( CONTENT, $content_length )
+
</source>
: Write $content_length bytes from CONTENT to the file object. Updates <code>filesize</code> and <code>hash</code> (you must call [[API:EPrints/DataObj/File#commit|commit]]).
+
Write $content_length bytes from CONTENT to the file object. Updates <code>filesize</code> and <code>hash</code> (you must call [[API:EPrints/DataObj/File#commit|commit]]).
  
: Returns $content_length or undef on failure.
+
Returns $content_length or undef on failure.
  
: If CONTENT has fewer bytes than $content_length the result is undetermined and a warning will be printed.
+
If CONTENT has fewer bytes than $content_length the result is undetermined and a warning will be printed.
  
: CONTENT may be any one of:
+
CONTENT may be any one of:
  
** CODEREF
+
* CODEREF
:: Will be called until it returns empty string ("").
+
: Will be called until it returns empty string ("").
  
 
<source lang="perl">sub {
 
<source lang="perl">sub {
Line 219: Line 345:
 
};</source>
 
};</source>
  
** SCALARREF
+
* SCALARREF
:: A scalar reference to a string of octets that will be written as-is.
+
: A scalar reference to a string of octets that will be written as-is.
 +
 
 +
* GLOB
 +
: Will be treated as a file handle and read with sysread() until the eof.
 +
 
 +
<!-- Edit below this comment -->
 +
 
 +
 
 +
<!-- Pod2Wiki= -->
 +
<!-- Pod2Wiki=head_set_file_chunk -->
 +
===set_file_chunk===
  
** GLOB
+
<source lang="perl">$content_length = $file->set_file_chunk( CONTENT, $content_length, $offset, $total )
:: Will be treated as a file handle and read with sysread() until the eof.
 
  
* $content_length = $file-&gt;set_file_chunk( CONTENT, $content_length, $offset, $total )
+
</source>
: Write a chunk of data to the content, overwriting or appending to the existing content. See [[API:EPrints/DataObj/File#set_file|set_file]] for CONTENT and $content_length. <code>filesize</code> is updated if $offset + $content_length is greater than the current <code>filesize</code>.
+
Write a chunk of data to the content, overwriting or appending to the existing content. See [[API:EPrints/DataObj/File#set_file|set_file]] for CONTENT and $content_length. <code>filesize</code> is updated if $offset + $content_length is greater than the current <code>filesize</code>.
  
: $offset is the starting point (in bytes) to write. $total is the total file size, used to determine where to store the content.
+
$offset is the starting point (in bytes) to write. $total is the total file size, used to determine where to store the content.
  
: Returns the number of bytes written or undef on failure.
+
Returns the number of bytes written or undef on failure.
  
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
Line 238: Line 373:
 
<!-- Pod2Wiki=head_see_also -->
 
<!-- Pod2Wiki=head_see_also -->
 
==SEE ALSO==
 
==SEE ALSO==
: [[API:EPrints/Storage|EPrints::Storage]]
+
[[API:EPrints/Storage|EPrints::Storage]]
  
: [[API:EPrints/DataObj|EPrints::DataObj]] and [[API:EPrints/DataSet|EPrints::DataSet]].
+
[[API:EPrints/DataObj|EPrints::DataObj]] and [[API:EPrints/DataSet|EPrints::DataSet]].
  
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
Line 248: Line 383:
 
<!-- Pod2Wiki=head_copyright -->
 
<!-- Pod2Wiki=head_copyright -->
 
==COPYRIGHT==
 
==COPYRIGHT==
: Copyright 2000-2013 University of Southampton.
+
Copyright 2000-2013 University of Southampton.
  
: This file is part of EPrints http://www.eprints.org/.
+
This file is part of EPrints http://www.eprints.org/.
  
: EPrints is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.
+
EPrints is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.
  
: EPrints is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public License for more details.
+
EPrints is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public License for more details.
  
: You should have received a copy of the GNU Lesser General Public License along with EPrints.  If not, see http://www.gnu.org/licenses/.
+
You should have received a copy of the GNU Lesser General Public License along with EPrints.  If not, see http://www.gnu.org/licenses/.
  
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->

Revision as of 13:36, 25 July 2013

EPrints 3 Reference: Directory Structure - Metadata Fields - Repository Configuration - XML Config Files - XML Export Format - EPrints data structure - Core API - Data Objects


API: Core API

Latest Source Code (3.4, 3.3) | Revision Log | Before editing this page please read Pod2Wiki


NAME

EPrints::DataObj::File - a stored file


DESCRIPTION

This class contains the technical metadata associated with a file. A file is a sequence of bytes stored in the storage layer (a "stored object"). Utility methods for storing and retrieving the stored object from the storage layer are made available.

Revision numbers on File work slightly differently to other objects. A File is only revised when it's stored object is changed and not when changes to it's metadata are made.

This class is a subclass of EPrints::DataObj::SubObject.


CORE FIELDS

  • fileid
Unique identifier for this file.
  • rev_number (int)
The number of the current revision of this file.
  • datasetid
Id of the dataset of the parent object.
  • objectid
Id of the parent object.
  • filename
Name of the file (may contain directory separators).
  • mime_type
MIME type of the file (e.g. "image/png").
  • hash
Check sum of the file.
  • hash_type
Name of check sum algorithm used (e.g. "MD5").
  • filesize
Size of the file in bytes.
  • mtime
Last modification time of the file.
  • url
Virtual field for storing the file's URL.
  • data
Virtual field for storing the file's content.


METHODS

Constructor Methods

new_from_filename

$dataobj = EPrints::DataObj::File->new_from_filename( $session, $dataobj, $filename )

Convenience method to get an existing File object for $filename stored in $dataobj.

Returns undef if no such record exists.


create_from_data

$dataobj = EPrints::DataObj::File->create_from_data( $session, $data [, $dataset ] )

Create a new File record using $data.

Private data elements:

  _content - content to pass to [[API:EPrints/DataObj/File#set_file|set_file]].
  _filepath - path to source file used for improved mime-type detection


Class Methods

get_system_field_info

$thing = EPrints::DataObj::File->get_system_field_info

Core fields.


get_dataset_id

$dataset = EPrints::DataObj::File->get_dataset_id

Returns the id of the EPrints::DataSet object to which this record belongs.


Object Methods

clone

$new_file = $file->clone( $parent )

Clone the $file object (including contained files) and return the new object.


remove

$success = $file->remove

Delete the stored file.


update

$file->update( $epdata )


get_local_copy

$filename = $file->get_local_copy()

Return the name of a local copy of the file (may be a File::Temp object).

Will retrieve and cache the remote object if necessary.


add_file

$success = $file->add_file( $filepath, $filename [, $preserve_path ] )

Read and store the contents of $filepath at $filename.

If $preserve_path is untrue will strip any leading path in $filename.


upload

$bytes = $file->upload( $filehandle, $filename, $filesize [, $preserve_path ] )

Read and store the data from $filehandle at $filename at the next revision number.

If $preserve_path is untrue will strip any leading path in $filename.

Returns the number of bytes read from $filehandle or undef on failure.


write_copy

$success = $stored->write_copy( $filename )

Write a copy of this file to $filename.

Returns true if the written file contains the same number of bytes as the stored file.


write_copy_fh

$success = $stored->write_copy_fh( $filehandle )

Write a copy of this file to $filehandle.


generate_md5

$md5 = $stored->generate_md5

Calculates and returns the MD5 for this file.


generate_sha

$digest = $file->generate_sha( [ ALGORITHM ] )

Generate a SHA for this file, see Digest::SHA for a list of supported algorithms. Defaults to "256" (SHA-256).

Returns the hex-encoded digest.


add_plugin_copy

$stored->add_plugin_copy( $plugin, $sourceid )

Add a copy of this file stored using $plugin identified by $sourceid.


remove_plugin_copy

$stored->remove_plugin_copy( $plugin )

Remove the copy of this file stored using $plugin.


get_file

$success = $stored->get_file( CALLBACK [, $offset, $n ] )

Get the contents of the stored file.

$offset is the position in bytes to start reading from, defaults to 0.

$n is the number of bytes to read, defaults to filesize.

CALLBACK is:

sub {
	my( $buffer ) = @_;

	print $buffer;

	return 1;
}

Returning 0 from the callback will cause the read to abort.


set_file

$content_length = $stored->set_file( CONTENT, $content_length )

Write $content_length bytes from CONTENT to the file object. Updates filesize and hash (you must call commit).

Returns $content_length or undef on failure.

If CONTENT has fewer bytes than $content_length the result is undetermined and a warning will be printed.

CONTENT may be any one of:

  • CODEREF
Will be called until it returns empty string ("").
sub {
	sysread($fh, my $buffer, 1024);
	return $buffer;
};
  • SCALARREF
A scalar reference to a string of octets that will be written as-is.
  • GLOB
Will be treated as a file handle and read with sysread() until the eof.


set_file_chunk

$content_length = $file->set_file_chunk( CONTENT, $content_length, $offset, $total )

Write a chunk of data to the content, overwriting or appending to the existing content. See set_file for CONTENT and $content_length. filesize is updated if $offset + $content_length is greater than the current filesize.

$offset is the starting point (in bytes) to write. $total is the total file size, used to determine where to store the content.

Returns the number of bytes written or undef on failure.


SEE ALSO

EPrints::Storage

EPrints::DataObj and EPrints::DataSet.


COPYRIGHT

Copyright 2000-2013 University of Southampton.

This file is part of EPrints http://www.eprints.org/.

EPrints is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.

EPrints is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public License along with EPrints. If not, see http://www.gnu.org/licenses/.