NAME

Gnome2::VFS - Perl interface to the 2.x series of the GNOME VFS library

SYNOPSIS

use Gnome2::VFS;

sub die_already {
  my ($action) = @_;
  die("An error occured while $action.\n");
}

die_already("initializing GNOME VFS") unless (Gnome2::VFS -> init());

my $source = "http://www.perldoc.com/about.html";
my ($result, $handle, $info);

# Open a connection to Perldoc.
($result, $handle) = Gnome2::VFS -> open($source, "read");
die_already("opening connection to '$source'")
  unless ($result eq "ok");

# Get the file information.
($result, $info) = $handle -> get_file_info("default");
die_already("retrieving information about '$source'")
  unless ($result eq "ok");

# Read the content.
my $bytes = $info -> { size };

my $bytes_read = 0;
my $buffer = "";

do {
  my ($tmp_buffer, $tmp_bytes_read);

  ($result, $tmp_bytes_read, $tmp_buffer) =
    $handle -> read($bytes - $bytes_read);

  $buffer .= $tmp_buffer;
  $bytes_read += $tmp_bytes_read;
} while ($result eq "ok" and $bytes_read < $bytes);

die_already("reading $bytes bytes from '$source'")
  unless ($result eq "ok" && $bytes_read == $bytes);

# Close the connection.
$result = $handle -> close();
die_already("closing connection to '$source'")
  unless ($result eq "ok");

# Create and open the target.
my $target = "/tmp/" . $info -> { name };
my $uri = Gnome2::VFS::URI -> new($target);

($result, $handle) = $uri -> create("write", 1, 0644);
die_already("creating '$target'") unless ($result eq "ok");

# Write to it.
my $bytes_written;

($result, $bytes_written) = $handle -> write($buffer, $bytes);
die_already("writing $bytes bytes to '$target'")
  unless ($result eq "ok" && $bytes_written == $bytes);

# Close the target.
$result = $handle -> close();
die_already("closing '$target'") unless ($result eq "ok");

Gnome2::VFS -> shutdown();

ABSTRACT

Perl bindings to the 2.x series of the GNOME VFS library. This module allows you to interface with the gnome-vfs libraries.

DESCRIPTION

Since this module tries to stick very closely to the C API, the documentation found at

http://developer.gnome.org/doc/API/2.0/gnome-vfs-2.0/

is the canonical reference.

In addition to that, there's also the automatically generated API documentation: Gnome2::VFS::index(3pm).

The mapping described in Gtk2::api(3pm) also applies to this module.

To discuss this module, ask questions and flame/praise the authors, join gtk-perl-list@gnome.org at lists.gnome.org.

KNOWN BUGS

There are some memory leaks especially with respect to callbacks. This mainly affects GnomeVFSAsync as well as some parts of GnomeVFSXfer and GnomeVFSOps. GnomeVFSMime leaks some list data.

GnomeVFSAsync is also known to crash occasionally when there are many concurrent transfers.

SEE ALSO

perl(1), Gnome2::VFS::index(3pm), Glib(3pm), Gtk2(3pm), Gtk2::api(3pm).

AUTHOR

Torsten Schoenfeld <kaffeetisch@web.de>.

COPYRIGHT AND LICENSE

Copyright (C) 2003 by the gtk2-perl team