view release on metacpan or  search on metacpan

FTP.xs  view on Meta::CPAN

 OUTPUT:
    RETVAL

void
logoff()
 CODE:
    ftplogoff();

void
ping(...)
 PPCODE:
    int r;
    unsigned long addr;
    int pktlen = SvIV(ST(1));
    if (SvPOKp(ST(0))) {
	char *host = SvPV(ST(0), na);
	r = ftpping(host,pktlen,&addr);
	EXTEND(sp, 2);
	PUSHs(sv_2mortal(newSViv(r)));
	if (r >= 0)
	    PUSHs(sv_2mortal(newSVnv((double)addr)));

FTP.xs  view on Meta::CPAN

    RETVAL = ftpputunique(session->host, session->userid, session->passwd, session->acct,
			  local, remote, tfrtype);
    if (RETVAL < 0)
	session->errno = ftperrno;
 OUTPUT:
    RETVAL

void
getcwd(session)
    OS2_FTP *	session
 PPCODE:
 {
    char wd[500];
    int r = ftppwd(session->host, session->userid, session->passwd, session->acct,
		   wd, sizeof wd);
    if (r < 0)
	session->errno = ftperrno;
    EXTEND(sp, 2);
    PUSHs(sv_2mortal(newSViv(r)));
    if (r >= 0)
        PUSHs(sv_2mortal(newSVpv(wd, strlen(wd))));

FTP.xs  view on Meta::CPAN

    RETVAL = ftpsite(session->host, session->userid, session->passwd, session->acct,
		     string);
    if (RETVAL < 0)
	session->errno = ftperrno;
 OUTPUT:
    RETVAL

void
sys(session)
    OS2_FTP *	session
 PPCODE:
 {
    char buf[2000];
    int r = ftpsys(session->host, session->userid, session->passwd, session->acct,
		   buf, sizeof buf);
    if (r < 0)
	session->errno = ftperrno;
    EXTEND(sp, 2);
    PUSHs(sv_2mortal(newSViv(r)));
    if (r >= 0)
        PUSHs(sv_2mortal(newSVpv(buf, strlen(buf))));