use strict; package Pos::Webtop::FileShare; sub new { my $this = shift; my $class = ref($this) || $this; my ($self) = @{{@_}}{qw/self/}; if ( not defined $self ) { $self = {}; bless($self,$class); } return $self; } # pure virtual sub getDirListing { die(ref(shift) . " did not define getDirListing method required by base class Pos::Webtop::FileShare\n"); } # pure virtual sub createDir { die(ref(shift) . " did not define createDir method required by base class Pos::Webtop::FileShare\n"); } # pure virtual sub deleteDir { die(ref(shift) . " did not define deleteDir method required by base class Pos::Webtop::FileShare\n"); } # pure virtual sub deleteFile { die(ref(shift) . " did not define deleteFile method required by base class Pos::Webtop::FileShare\n"); } # pure virtual sub getFileInfo { die(ref(shift) . " did not define getFileInfo method required by base class Pos::Webtop::FileShare\n"); } # pure virtual sub getFile { die(ref(shift) . " did not define getFile method required by base class Pos::Webtop::FileShare\n"); } # pure virtual sub putFile { die(ref(shift) . " did not define putFile method required by base class Pos::Webtop::FileShare\n"); } # pure virtual sub renameFile { die(ref(shift) . " did not define renameFile method required by base class Pos::Webtop::FileShare\n"); } # pure virtual that gets the root (share name in smb) directory of this share # for ftp, this will return undef. sub getRoot { die(ref(shift) . " did not define getRoot method required by base class Pos::Webtop::FileShare\n"); } 1;