-/* Sends DELE command to the FTP server. */
-uerr_t
-ftp_dele (int csock, const char *file)
-{
- char *request, *respline;
- int nwritten;
- uerr_t err;
-
- /* Send DELE request. */
- request = ftp_request ("DELE", file);
- nwritten = fd_write (csock, request, strlen (request), -1.0);
- if (nwritten < 0)
- {
- xfree (request);
- return WRITEFAILED;
- }
- xfree (request);
- /* Get appropriate response. */
- err = ftp_response (csock, &respline);
- if (err != FTPOK)
- return err; /* Return with early bad status. */
-
- /* All OK, so far. */
- if (*respline == '5')
- {
- err = FTPNSFOD; /* Permanent Negative Completion. */
- }
- else if (*respline != '2') /* Success might be 226 or 250 (or ???). */
- {
- err = FTPRERR; /* Not Positive Completion. */
- }
-
- xfree (respline); /* Free "respline" storage. */
- return err; /* Return response-based status code. */
-}
-