wodFTPServer ActiveX Control - Site Method
      
 

Description

Called when user wants to execute site specific command.


Return Type

None  


Syntax

object.Site Owner, User, Command, Action



The Site Method syntax has these parts:

Part Description
object An expression evaluating to an object of type wodFTPDNotify.
Owner A wodFTPDCom object. Reference to wodFTPServer instance that called this notification method.
User A FtpUser object. Reference to user who issued SITE command.
Command A String value. Contains parameters used with SITE command.
Action A FtpActions enumeration, as described in settings. When set to Deny/SilentDeny, wodFTPServer denies this action.

Settings

The settings for Action are:

Constant Value Description
 Deny 0 Deny execution of the action.
 Allow 1 Allow to execute action.
 SilentDeny 2 Silently deny execution of the action.
 SilentAllow 3 Silently allow to execute action.

Remarks

NOTE: This method is called only if you implemented IwodFTPDNotify interface in your application, and wodFTPD.Notification property has received reference to instance of your implementation.

Site notification method is called when user enters SITE cmd command. SITE command typically is used for implementing various non-standard commands on FTP servers. wodFTPServer allows you to implement such commands through this notification method.

If you accept the Command, you should set Action = Allow and return 214 response. If you set Action = Deny, then wodFTPServer will return an error to the client.

Usage sample for implementing SITE HELP command would be like this:

Private Sub IwodFTPDNotify_Site(ByVal Owner As wodFTPDComLib.IwodFTPDCom, ByVal User As wodFTPDComLib.IFtpUser, ByVal Command As String, Action As wodFTPDComLib.FtpActions)
      Dim a As String
      If Command = "HELP" Then
            a = "The following SITE extensions are recognized:" & vbCrLf
            a = a & "RATIO -- show all ratios in effect" & vbCrLf
            a = a & "The following SITE commands are recognized (* =>'s unimplemented)." & vbCrLf
            a = a & "HELP CHMOD" & vbCrLf
            a = a & "Direct comments to root@" & wodFTPD.MyHostname & "." & vbCrLf
            User.Send 214, a
            Action = Allow
      Else
            Action = Deny
      End If
End Sub