132 lines
3.8 KiB
Plaintext
132 lines
3.8 KiB
Plaintext
{
|
|
$Project$
|
|
$Workfile$
|
|
$Revision$
|
|
$DateUTC$
|
|
$Id$
|
|
|
|
This file is part of the Indy (Internet Direct) project, and is offered
|
|
under the dual-licensing agreement described on the Indy website.
|
|
(http://www.indyproject.org/)
|
|
|
|
Copyright:
|
|
(c) 1993-2005, Chad Z. Hower and the Indy Pit Crew. All rights reserved.
|
|
}
|
|
{
|
|
$Log$
|
|
}
|
|
{
|
|
Rev 1.0 11/28/2004 9:20:22 PM JPMugaas
|
|
Preliminary support for NCSA Telnet's FTP Server for MacIntosh.
|
|
}
|
|
|
|
unit IdFTPListParseNCSAForMACOS;
|
|
|
|
interface
|
|
|
|
{$i IdCompilerDefines.inc}
|
|
|
|
uses
|
|
Classes,
|
|
IdFTPList, IdFTPListParseBase, IdFTPListTypes;
|
|
|
|
{
|
|
NCSA Telnet for MacIntosh's FTP Server only lists the filenames followed by a /
|
|
if they are directories instead of files.
|
|
|
|
About the only way I can see to detect this server type is to use the greeting banner:
|
|
|
|
"Macintosh Resident FTP server, ready" or maybe, the SYST reply "MACOS NCSA".
|
|
|
|
Unlike many system types, spaces are permitted in filenames.
|
|
|
|
This also may work on an old Intercon TCP/Connect for MacIntosh. I only found that
|
|
by looking at some source-code in LibWWW which has some contributions from Dartmouth College.
|
|
|
|
The code is at:
|
|
|
|
http://dev.w3.org/cvsweb/libwww/Library/src/HTFTP.c?rev=1.109&content-type=text/x-cvsweb-markup
|
|
|
|
http://dev.w3.org/cvsweb/libwww/Library/src/HTFTPDir.c?rev=2.18&content-type=text/x-cvsweb-markup
|
|
|
|
and
|
|
|
|
http://web.mit.edu/afs/dev.mit.edu/project/andydev/src/andrew-8.0/WWW/Library/Implementation/HTFTP.c
|
|
}
|
|
type
|
|
TIdNCSAforMACOSFTPListItem = class(TIdMinimalFTPListItem);
|
|
|
|
TIdFTPLPNCSAforMACOS = class(TIdFTPLPNList)
|
|
protected
|
|
class function MakeNewItem(AOwner : TIdFTPListItems) : TIdFTPListItem; override;
|
|
class function ParseLine(const AItem : TIdFTPListItem; const APath : String = ''): Boolean; override;
|
|
public
|
|
class function GetIdent : String; override;
|
|
class function CheckListing(AListing : TStrings; const ASysDescript : String = ''; const ADetails : Boolean = True): Boolean; override;
|
|
end;
|
|
|
|
// RLebeau 2/14/09: this forces C++Builder to link to this unit so
|
|
// RegisterFTPListParser can be called correctly at program startup...
|
|
|
|
{$IFDEF HAS_DIRECTIVE_HPPEMIT_LINKUNIT}
|
|
{$HPPEMIT LINKUNIT}
|
|
{$ELSE}
|
|
{$HPPEMIT '#pragma link "IdFTPListParseNCSAForMACOS"'}
|
|
{$ENDIF}
|
|
|
|
implementation
|
|
|
|
uses
|
|
IdException,
|
|
IdGlobal;
|
|
|
|
{ TIdFTPLPNCSAforMACOS }
|
|
|
|
class function TIdFTPLPNCSAforMACOS.CheckListing(AListing: TStrings;
|
|
const ASysDescript: String; const ADetails: Boolean): Boolean;
|
|
begin
|
|
// From Google: http://groups.google.com/groups?q=MAC-OS+TCP/Connect&hl=en&lr=&selm=881%40lts.UUCP&rnum=4
|
|
//Intercon's MAC-OS reports "MAC-OS TCP/Connect for the Macintosh Version x.x"
|
|
//but LibWWW
|
|
//http://dev.w3.org/cvsweb/libwww/Library/src/HTFTP.c?rev=1.109&content-type=text/x-cvsweb-markup
|
|
//"MAC-OS TCP/ConnectII"
|
|
Result := (ASysDescript = 'MAC NCSA') or
|
|
TextStartsWith(ASysDescript, ' MAC-OS TCP/Connect');
|
|
end;
|
|
|
|
class function TIdFTPLPNCSAforMACOS.GetIdent: String;
|
|
begin
|
|
Result := 'NCSA for MACOS'; {do not localize}
|
|
end;
|
|
|
|
class function TIdFTPLPNCSAforMACOS.MakeNewItem(AOwner: TIdFTPListItems): TIdFTPListItem;
|
|
begin
|
|
Result := TIdNCSAforMACOSFTPListItem.Create(AOwner);
|
|
end;
|
|
|
|
class function TIdFTPLPNCSAforMACOS.ParseLine(const AItem: TIdFTPListItem;
|
|
const APath: String): Boolean;
|
|
begin
|
|
Result := True;
|
|
try
|
|
if CharIsInSet(AItem.Data, Length(AItem.Data), '/\') then
|
|
begin
|
|
AItem.ItemType := ditDirectory;
|
|
AItem.FileName := Copy(AItem.Data, 1, Length(AItem.Data)-1);
|
|
end else
|
|
begin
|
|
AItem.ItemType := ditFile;
|
|
AItem.FileName := AItem.Data;
|
|
end;
|
|
except
|
|
Result := False;
|
|
end;
|
|
end;
|
|
|
|
initialization
|
|
RegisterFTPListParser(TIdFTPLPNCSAforMACOS);
|
|
finalization
|
|
UnRegisterFTPListParser(TIdFTPLPNCSAforMACOS);
|
|
|
|
end.
|