Annotation of libwww/Library/src/HTAccess.c, revision 1.105

1.61      frystyk     1: /*                                                                  HTAccess.c
                      2: **     ACCESS MANAGER
                      3: **
1.75      frystyk     4: **     (c) COPYRIGHT MIT 1995.
1.61      frystyk     5: **     Please first read the full copyright statement in the file COPYRIGH.
1.1       timbl       6: **
                      7: ** Authors
1.79      frystyk     8: **     TBL     Tim Berners-Lee timbl@w3.org
1.4       timbl       9: **     JFG     Jean-Francois Groff jfg@dxcern.cern.ch
1.1       timbl      10: **     DD      Denis DeLaRoca (310) 825-4580  <CSP1DWD@mvs.oac.ucla.edu>
                     11: ** History
                     12: **       8 Jun 92 Telnet hopping prohibited as telnet is not secure TBL
                     13: **     26 Jun 92 When over DECnet, suppressed FTP, Gopher and News. JFG
1.42      frystyk    14: **      6 Oct 92 Moved HTClientHost and HTlogfile into here. TBL
1.1       timbl      15: **     17 Dec 92 Tn3270 added, bug fix. DD
1.2       timbl      16: **      4 Feb 93 Access registration, Search escapes bad chars TBL
1.9       timbl      17: **               PARAMETERS TO HTSEARCH AND HTLOADRELATIVE CHANGED
                     18: **     28 May 93 WAIS gateway explicit if no WAIS library linked in.
1.19      timbl      19: **        Dec 93 Bug change around, more reentrant, etc
1.42      frystyk    20: **     09 May 94 logfile renamed to HTlogfile to avoid clash with WAIS
1.53      duns       21: **      8 Jul 94 Insulate free() from _free structure element.
1.88      frystyk    22: **        Sep 95 Rewritten, HFN
1.1       timbl      23: */
                     24: 
1.68      frystyk    25: #if !defined(HT_DIRECT_WAIS) && !defined(HT_DEFAULT_WAIS_GATEWAY)
                     26: #define HT_DEFAULT_WAIS_GATEWAY "http://www.w3.org:8001/"
1.54      frystyk    27: #endif
1.8       timbl      28: 
1.67      frystyk    29: /* Library include files */
1.88      frystyk    30: #include "WWWLib.h"
1.93      frystyk    31: #include "HTReqMan.h"
                     32: #include "HTAccess.h"                                   /* Implemented here */
1.88      frystyk    33: 
1.99      frystyk    34: #ifndef VC
                     35: #define VC "unknown"
                     36: #endif
                     37: 
1.93      frystyk    38: PRIVATE char * HTAppName = NULL;         /* Application name: please supply */
                     39: PRIVATE char * HTAppVersion = NULL;    /* Application version: please supply */
1.2       timbl      40: 
1.99      frystyk    41: PRIVATE char * HTLibName = "libwww";
                     42: PRIVATE char * HTLibVersion = VC;
                     43: 
                     44: PRIVATE BOOL   HTSecure = NO;           /* Can we access local file system? */
                     45: 
1.59      frystyk    46: /* --------------------------------------------------------------------------*/
1.61      frystyk    47: /*                Initialization and Termination of the Library             */
                     48: /* --------------------------------------------------------------------------*/
                     49: 
1.99      frystyk    50: /*     Information about the Application
                     51: **     ---------------------------------
1.93      frystyk    52: */
                     53: PUBLIC CONST char * HTLib_appName (void)
                     54: {
1.99      frystyk    55:     return HTAppName ? HTAppName : "UNKNOWN";
                     56: }
                     57: 
                     58: PUBLIC CONST char * HTLib_appVersion (void)
                     59: {
                     60:     return HTAppVersion ? HTAppVersion : "0.0";
1.93      frystyk    61: }
                     62: 
1.99      frystyk    63: /*     Information about libwww
                     64: **     ------------------------
                     65: */
                     66: PUBLIC CONST char * HTLib_name (void)
                     67: {
                     68:     return HTLibName ? HTLibName : "UNKNOWN";
                     69: }
                     70: 
                     71: PUBLIC CONST char * HTLib_version (void)
                     72: {
                     73:     return HTLibVersion ? HTLibVersion : "0.0";
                     74: }
                     75: 
                     76: /*     Access Local File System
                     77: **     ------------------------
                     78: **     In this mode we do not tough the local file system at all
1.93      frystyk    79: */
1.99      frystyk    80: PUBLIC BOOL HTLib_secure (void)
                     81: {
                     82:     return HTSecure;
                     83: }
                     84: 
                     85: PUBLIC void HTLib_setSecure (BOOL mode)
1.93      frystyk    86: {
1.99      frystyk    87:     HTSecure = mode;
1.93      frystyk    88: }
                     89: 
1.61      frystyk    90: /*                                                                  HTLibInit
                     91: **
                     92: **     This function initiates the Library and it MUST be called when
                     93: **     starting up an application. See also HTLibTerminate()
                     94: */
1.93      frystyk    95: PUBLIC BOOL HTLibInit (CONST char * AppName, CONST char * AppVersion)
1.61      frystyk    96: {
1.105   ! frystyk    97: #ifdef WWW_WIN_ASYNC
        !            98:     HWND htSocketWin;
        !            99:     static char className[] = "AsyncWindowClass";
        !           100:     WNDCLASS wc;
        !           101:     
        !           102:     wc.style=0;
        !           103:     wc.lpfnWndProc=(WNDPROC)AsyncWindowProc;
        !           104:     wc.cbClsExtra=0;
        !           105:     wc.cbWndExtra=0;
        !           106:     wc.hInstance=GetCurrentProcess();
        !           107:     wc.hIcon=0;
        !           108:     wc.hCursor=0;
        !           109:     wc.hbrBackground=0;
        !           110:     wc.lpszMenuName=(LPSTR)0;
        !           111:     wc.lpszClassName=className;
        !           112: #if 0
        !           113:    {0, /* no style */
        !           114:        AsyncWindowProc, /* to handle our async messages */
        !           115:        0, 0, /* allocate no extra bytes */
        !           116:        GetCurrentProcess(), /* hInstance to be filled in soon */
        !           117:        0, 0, 0, 0, /* icon, cursor, brush, menu */
        !           118:        className};
        !           119: #endif
        !           120: #endif /* WWW_WIN_ASYNC */
        !           121: 
1.97      frystyk   122: #if WWWTRACE_MODE == WWWTRACE_FILE                       /* Open trace file */
1.102     frystyk   123:     if ((TDEST = fopen(HT_TRACE_FILE, "a")) != NULL) {
1.67      frystyk   124:        if (setvbuf(TDEST, NULL, _IOLBF, 0) < 0) {  /* Change to line buffer */
1.97      frystyk   125:            TTYPrint(TDEST, "WWWLibInit.. Can't initialize TRACE buffer - no TRACE\n");
1.67      frystyk   126:            fclose(TDEST);
                    127:            TDEST = NULL;
                    128:            WWW_TraceFlag = 0;
                    129:        }
                    130:     } else
                    131:        WWW_TraceFlag = 0;
1.97      frystyk   132: #endif /* WWWTRACE_FILE */
1.67      frystyk   133: 
1.91      frystyk   134:     if (WWWTRACE)
1.97      frystyk   135:        TTYPrint(TDEST, "WWWLibInit.. INITIALIZING LIBRARY OF COMMON CODE\n");
1.63      frystyk   136: 
1.93      frystyk   137:     /* Set the application name and version */
                    138:     if (AppName) {
                    139:        char *ptr;
                    140:        StrAllocCopy(HTAppName, AppName);
                    141:        ptr = HTAppName;
                    142:        while (*ptr) {
                    143:            if (WHITE(*ptr)) *ptr = '_';
                    144:            ptr++;
                    145:        }
                    146:     }
                    147:     if (AppVersion) {
                    148:        char *ptr;
                    149:        StrAllocCopy(HTAppVersion, AppVersion);
                    150:        ptr = HTAppVersion;
                    151:        while (*ptr) {
                    152:            if (WHITE(*ptr)) *ptr = '_';
                    153:            ptr++;
                    154:        }
                    155:     }
                    156: 
                    157:     HTBind_init();                                   /* Initialize bindings */
1.61      frystyk   158: 
1.88      frystyk   159:     /* Register a call back function for the Net Manager */
1.101     frystyk   160:     HTNetCall_addAfter(HTLoad_terminate, HT_ALL);
1.88      frystyk   161: 
1.62      frystyk   162: #ifdef WWWLIB_SIG
1.61      frystyk   163:     /* On Solaris (and others?) we get a BROKEN PIPE signal when connecting
1.67      frystyk   164:     ** to a port where we should get `connection refused'. We ignore this 
1.61      frystyk   165:     ** using the following function call
                    166:     */
                    167:     HTSetSignal();                                /* Set signals in library */
1.1       timbl     168: #endif
                    169: 
1.105   ! frystyk   170: #ifdef WWW_WIN_ASYNC
        !           171:     if (!RegisterClass(&wc)) {
        !           172:        TTYPrint(TDEST, "HTEvent_Loop.. Can't RegisterClass \"%s\"\n", className);
        !           173:            return NO;
        !           174:     }
        !           175:     if (!(htSocketWin = CreateWindow(className, "", WS_POPUP, CW_USEDEFAULT, CW_USEDEFAULT, 
        !           176:                                      CW_USEDEFAULT, CW_USEDEFAULT, 0, 0, GetCurrentProcess(),0))) {
        !           177:                TTYPrint(TDEST, "HTEvent_Loop.. Can't CreateWindow \"%s\"\n", "");
        !           178:        return NO;
        !           179:     }
        !           180:     HTEvent_setWinHandle (htSocketWin, WM_USER);     /* use first available message since app uses none */
        !           181: #endif /* WWW_WIN_ASYNC */
        !           182: 
1.67      frystyk   183: #ifdef _WINDOWS
                    184:     /*
                    185:     ** Initialise WinSock DLL. This must also be shut down! PMH
                    186:     */
                    187:     {
                    188:         WSADATA            wsadata;
                    189:        if (WSAStartup(DESIRED_WINSOCK_VERSION, &wsadata)) {
1.91      frystyk   190:            if (WWWTRACE)
1.97      frystyk   191:                TTYPrint(TDEST, "WWWLibInit.. Can't initialize WinSoc\n");
1.67      frystyk   192:             WSACleanup();
                    193:             return NO;
                    194:         }
                    195:         if (wsadata.wVersion < MINIMUM_WINSOCK_VERSION) {
1.91      frystyk   196:             if (WWWTRACE)
1.97      frystyk   197:                TTYPrint(TDEST, "WWWLibInit.. Bad version of WinSoc\n");
1.67      frystyk   198:             WSACleanup();
                    199:             return NO;
                    200:         }
                    201:     }
                    202: #endif /* _WINDOWS */
                    203: 
1.71      frystyk   204: #ifndef NO_TIMEGM
                    205:     HTGetTimeZoneOffset();        /* Find offset from GMT if using mktime() */
                    206: #endif
1.70      frystyk   207:     HTTmp_setRoot(NULL);                    /* Set up default tmp directory */
1.61      frystyk   208:     return YES;
                    209: }
                    210: 
                    211: 
1.90      frystyk   212: /*     HTLibTerminate
                    213: **     --------------
1.61      frystyk   214: **     This function frees memory kept by the Library and should be called
1.63      frystyk   215: **     before exit of an application (if you are on a PC platform)
1.61      frystyk   216: */
1.101     frystyk   217: PUBLIC BOOL HTLibTerminate (void)
1.61      frystyk   218: {
1.91      frystyk   219:     if (WWWTRACE)
1.97      frystyk   220:        TTYPrint(TDEST, "WWWLibTerm.. Cleaning up LIBRARY OF COMMON CODE\n");
1.101     frystyk   221:     HTAtom_deleteAll();                                         /* Remove the atoms */
                    222:     HTDNS_deleteAll();                         /* Remove the DNS host cache */
                    223:     HTAnchor_deleteAll(NULL);          /* Delete anchors and drop hyperdocs */
1.73      frystyk   224: 
1.81      frystyk   225:     HTProtocol_deleteAll();  /* Remove bindings between access and protocols */
1.73      frystyk   226:     HTBind_deleteAll();            /* Remove bindings between suffixes, media types */
                    227: 
1.77      frystyk   228:     HTFreeHostName();                      /* Free up some internal strings */
1.63      frystyk   229:     HTFreeMailAddress();
1.70      frystyk   230:     HTTmp_freeRoot();
1.67      frystyk   231: 
                    232: #ifdef _WINDOWS
                    233:     WSACleanup();
1.105   ! frystyk   234: #endif
        !           235: 
        !           236: #ifdef WWW_WIN_ASYNC
        !           237:     DestroyWindow(HTEvent_getWinHandle(0));
1.67      frystyk   238: #endif
                    239: 
1.97      frystyk   240: #if WWWTRACE_MODE == WWWTRACE_FILE                      /* Close trace file */
1.67      frystyk   241:     if (TDEST) {
                    242:        fclose(TDEST);
                    243:        TDEST = NULL;
                    244:        WWW_TraceFlag = 0;
                    245:     }
1.97      frystyk   246: #endif /* WWWTRACE_FILE */
1.61      frystyk   247:     return YES;
                    248: }
                    249: 
1.59      frystyk   250: /* --------------------------------------------------------------------------*/
1.104     frystyk   251: /*                             Load Access functions                        */
1.59      frystyk   252: /* --------------------------------------------------------------------------*/
1.33      luotonen  253: 
1.90      frystyk   254: /*     Request a document
                    255: **     -----------------
                    256: **     Private version that requests a document from the request manager
                    257: **     Returns YES if request accepted, else NO
1.88      frystyk   258: */
1.101     frystyk   259: PRIVATE BOOL HTLoadDocument (HTRequest * request, BOOL recursive)
1.88      frystyk   260: {
                    261:     if (PROT_TRACE) {
1.90      frystyk   262:        HTParentAnchor *anchor = HTRequest_anchor(request);
                    263:        char * full_address = HTAnchor_address((HTAnchor *) anchor);
1.97      frystyk   264:        TTYPrint(TDEST, "HTAccess.... Accessing document %s\n", full_address);
1.88      frystyk   265:        free(full_address);
                    266:     }
1.96      frystyk   267:     return HTLoad(request, recursive);
1.58      frystyk   268: }
1.1       timbl     269: 
                    270: 
1.90      frystyk   271: /*     Request a document from absolute name
                    272: **     -------------------------------------
                    273: **     Request a document referencd by an absolute URL.
                    274: **     Returns YES if request accepted, else NO
                    275: */
                    276: PUBLIC BOOL HTLoadAbsolute (CONST char * url, HTRequest* request)
                    277: {
                    278:     if (url && request) {
                    279:        HTAnchor * anchor = HTAnchor_findAddress(url);
                    280:        HTRequest_setAnchor(request, anchor);
                    281:        return HTLoadDocument(request, NO);
                    282:     }
                    283:     return NO;
                    284: }
                    285: 
                    286: 
                    287: /*     Request a document from absolute name to stream
                    288: **     -----------------------------------------------
                    289: **     Request a document referencd by an absolute URL and sending the data
                    290: **     down a stream. This is _excactly_ the same as HTLoadAbsolute as
                    291: **     the ourputstream is specified using the function
                    292: **     HTRequest_setOutputStream(). 'filter' is ignored!
                    293: **     Returns YES if request accepted, else NO
                    294: */
                    295: PUBLIC BOOL HTLoadToStream (CONST char * url, BOOL filter, HTRequest *request)
                    296: {
                    297:     return HTLoadAbsolute(url, request);
                    298: }
                    299: 
                    300: 
                    301: /*     Request a document from relative name
                    302: **     -------------------------------------
                    303: **     Request a document referenced by a relative URL. The relative URL is 
                    304: **     made absolute by resolving it relative to the address of the 'base' 
                    305: **     anchor.
                    306: **     Returns YES if request accepted, else NO
                    307: */
                    308: PUBLIC BOOL HTLoadRelative (CONST char *       relative,
                    309:                            HTParentAnchor *    base,
                    310:                            HTRequest *         request)
                    311: {
                    312:     BOOL status = NO;
                    313:     if (relative && base && request) {
                    314:        char * rel = NULL;
                    315:        char * full_url = NULL;
                    316:        char * base_url = HTAnchor_address((HTAnchor *) base);
                    317:        StrAllocCopy(rel, relative);
                    318:        full_url = HTParse(HTStrip(rel), base_url,
                    319:                         PARSE_ACCESS|PARSE_HOST|PARSE_PATH|PARSE_PUNCTUATION);
                    320:        status = HTLoadAbsolute(full_url, request);
                    321:        free(rel);
                    322:        free(full_url);
                    323:        free(base_url);
                    324:     }
                    325:     return status;
                    326: }
                    327: 
                    328: 
                    329: /*     Request an anchor
                    330: **     -----------------
                    331: **     Request the document referenced by the anchor
                    332: **     Returns YES if request accepted, else NO
                    333: */
                    334: PUBLIC BOOL HTLoadAnchor (HTAnchor * anchor, HTRequest * request)
                    335: {
                    336:     if (anchor && request) {
                    337:        HTRequest_setAnchor(request, anchor);
                    338:        return HTLoadDocument(request, NO);
                    339:     }
                    340:     return NO;
                    341: }
                    342: 
                    343: 
                    344: /*     Request an anchor
                    345: **     -----------------
                    346: **     Same as HTLoadAnchor but any information in the Error Stack in the 
                    347: **     request object is kept, so that any error messages in one 
1.52      frystyk   348: **     This function is almost identical to HTLoadAnchor, but it doesn't
                    349: **     clear the error stack so that the information in there is kept.
1.90      frystyk   350: **     Returns YES if request accepted, else NO
                    351: */
                    352: PUBLIC BOOL HTLoadAnchorRecursive (HTAnchor * anchor, HTRequest * request)
                    353: {
                    354:     if (anchor && request) {
                    355:        HTRequest_setAnchor(request, anchor);
                    356:         return HTLoadDocument(request, YES);
                    357:     }
                    358:     return NO;
                    359: }
                    360: 
                    361: 
                    362: /*     Search an Anchor
                    363: **     ----------------
                    364: **     Performs a keyword search on word given by the user. Adds the keyword
                    365: **     to the end of the current address and attempts to open the new address.
                    366: **     The list of keywords must be a space-separated list and spaces will
                    367: **     be converted to '+' before the request is issued.
                    368: **     Search can also be performed by HTLoadAbsolute() etc.
                    369: **     Returns YES if request accepted, else NO
                    370: */
                    371: PUBLIC BOOL HTSearch (CONST char *     keywords,
                    372:                      HTParentAnchor *  base,
                    373:                      HTRequest *       request)
                    374: {
1.99      frystyk   375:     BOOL status = NO;
1.90      frystyk   376:     if (keywords && base && request) {
                    377:        char *base_url = HTAnchor_address((HTAnchor *) base);
                    378:        if (*keywords) {
                    379:            char *plus;
                    380:            StrAllocCat(base_url, "?");
                    381:            StrAllocCat(base_url, keywords);
                    382:            plus = strchr(base_url, '?');
                    383:            while (*plus) {
                    384:                if (*plus == ' ') *plus = '+';
                    385:                plus++;
                    386:            }
1.2       timbl     387:        }
1.99      frystyk   388:        status = HTLoadAbsolute(base_url, request);
                    389:        free(base_url);
1.90      frystyk   390:     }
1.99      frystyk   391:     return status;
1.2       timbl     392: }
                    393: 
                    394: 
1.90      frystyk   395: /*     Search a document from absolute name
                    396: **     ------------------------------------
                    397: **     Request a document referencd by an absolute URL appended with the
                    398: **     keywords given. The URL can NOT contain any fragment identifier!
                    399: **     The list of keywords must be a space-separated list and spaces will
                    400: **     be converted to '+' before the request is issued.
                    401: **     Returns YES if request accepted, else NO
                    402: */
                    403: PUBLIC BOOL HTSearchAbsolute (CONST char *     keywords,
                    404:                              CONST char *      url,
                    405:                              HTRequest *       request)
                    406: {
                    407:     if (url && request) {
                    408:        HTAnchor * anchor = HTAnchor_findAddress(url);
                    409:        return HTSearch(keywords, HTAnchor_parent(anchor), request);
                    410:     }
                    411:     return NO;
1.57      howcome   412: }
                    413: 
1.70      frystyk   414: /* --------------------------------------------------------------------------*/
1.104     frystyk   415: /*                             Post Access Functions                        */
1.70      frystyk   416: /* --------------------------------------------------------------------------*/
                    417: 
1.90      frystyk   418: /*     Copy an anchor
1.70      frystyk   419: **     --------------
1.90      frystyk   420: **     Fetch the URL (possibly local file URL) and send it using either PUT
                    421: **     or POST to the remote destination using HTTP. The caller can decide the
                    422: **     exact method used and which HTTP header fields to transmit by setting
                    423: **     the user fields in the request structure.
1.92      frystyk   424: **     If posting to NNTP then we can't dispatch at this level but must pass
                    425: **     the source anchor to the news module that then takes all the refs
                    426: **     to NNTP and puts into the "newsgroups" header
1.90      frystyk   427: **     Returns YES if request accepted, else NO
1.70      frystyk   428: */
1.90      frystyk   429: PUBLIC BOOL HTCopyAnchor (HTAnchor * src_anchor, HTRequest * main_req)
1.80      frystyk   430: { 
1.78      frystyk   431:     HTRequest *src_req;
1.85      frystyk   432:     if (!src_anchor || !main_req)
1.90      frystyk   433:        return NO;
1.70      frystyk   434: 
1.80      frystyk   435:     /* Build the POST web if not already there */
1.85      frystyk   436:     if (!main_req->source) {
1.104     frystyk   437:        src_req = HTRequest_dup(main_req);        /* First set up the source */
1.80      frystyk   438:        HTAnchor_clearHeader((HTParentAnchor *) src_anchor);
1.85      frystyk   439:        src_req->reload = HT_MEM_REFRESH;
1.80      frystyk   440:        src_req->source = src_req;                        /* Point to myself */
1.104     frystyk   441:        src_req->output_stream = NULL;
1.80      frystyk   442:        src_req->output_format = WWW_SOURCE;     /* We want source (for now) */
                    443: 
                    444:        /* Set up the main link in the source anchor */
                    445:        {
1.85      frystyk   446:            HTLink *main_link = HTAnchor_findMainLink(src_anchor);
                    447:            HTAnchor *main_anchor = HTAnchor_linkDest(main_link);
                    448:            HTMethod method = HTAnchor_linkMethod(main_link);
                    449:            if (!main_link || method==METHOD_INVALID) {
1.91      frystyk   450:                if (WWWTRACE)
1.97      frystyk   451:                    TTYPrint(TDEST, "Copy Anchor. No destination found or unspecified method");
1.80      frystyk   452:                HTRequest_delete(src_req);
1.90      frystyk   453:                return NO;
1.80      frystyk   454:            }
1.85      frystyk   455:            if (HTAnchor_linkResult(main_link) == HT_LINK_NONE) {
                    456:                main_req->GenMask |= HT_DATE;            /* Send date header */
                    457:                main_req->source = src_req;
                    458:                main_req->reload = HT_CACHE_REFRESH;
                    459:                main_req->method = method;
                    460:                HTRequest_addDestination(src_req, main_req);
1.104     frystyk   461:                main_req->input_format = WWW_SOURCE;
1.90      frystyk   462:                if (HTLoadAnchor(main_anchor, main_req) == NO)
                    463:                    return NO;
1.85      frystyk   464:            }
1.80      frystyk   465:        }
1.78      frystyk   466: 
1.80      frystyk   467:        /* For all other links in the source anchor */
                    468:        if (src_anchor->links) {
                    469:            HTList *cur = src_anchor->links;
                    470:            HTLink *pres;
1.85      frystyk   471:            while ((pres = (HTLink *) HTList_nextObject(cur)) &&
                    472:                   HTAnchor_linkResult(pres) == HT_LINK_NONE) {
                    473:                HTAnchor *dest = HTAnchor_linkDest(pres);
                    474:                HTMethod method = HTAnchor_linkMethod(pres);
1.80      frystyk   475:                HTRequest *dest_req;
                    476:                if (!dest || method==METHOD_INVALID) {
1.91      frystyk   477:                    if (WWWTRACE)
1.97      frystyk   478:                        TTYPrint(TDEST, "Copy Anchor. Bad anchor setup %p\n",
1.80      frystyk   479:                                dest);
1.90      frystyk   480:                    return NO;
1.80      frystyk   481:                }
1.104     frystyk   482:                dest_req = HTRequest_dup(main_req);
1.85      frystyk   483:                dest_req->GenMask |= HT_DATE;            /* Send date header */
1.80      frystyk   484:                dest_req->source = src_req;
1.85      frystyk   485:                dest_req->reload = HT_CACHE_REFRESH;
1.80      frystyk   486:                dest_req->method = method;
                    487:                HTRequest_addDestination(src_req, dest_req);
1.104     frystyk   488: 
                    489:                dest_req->output_stream = NULL;
                    490:                dest_req->output_format = WWW_SOURCE;
                    491: 
1.90      frystyk   492:                if (HTLoadAnchor(dest, dest_req) == NO)
                    493:                    return NO;
1.80      frystyk   494:            }
                    495:        }
                    496:     } else {                    /* Use the existing Post Web and restart it */
1.85      frystyk   497:        src_req = main_req->source;
1.80      frystyk   498:        if (src_req->mainDestination)
1.90      frystyk   499:            if (HTLoadDocument(main_req, NO) == NO)
                    500:                return NO;
1.80      frystyk   501:        if (src_req->destinations) {
                    502:            HTList *cur = src_anchor->links;
                    503:            HTRequest *pres;
                    504:            while ((pres = (HTRequest *) HTList_nextObject(cur)) != NULL) {
1.90      frystyk   505:                if (HTLoadDocument(pres, NO) == NO)
                    506:                    return NO;
1.80      frystyk   507:            }
                    508:        }
1.78      frystyk   509:     }
                    510: 
1.80      frystyk   511:     /* Now open the source */
                    512:     return HTLoadAnchor(src_anchor, src_req);
1.70      frystyk   513: }
                    514: 
                    515: 
1.90      frystyk   516: /*     Upload an Anchor
1.70      frystyk   517: **     ----------------
1.90      frystyk   518: **     Send the contents (in hyperdoc) of the source anchor using either PUT
                    519: **     or POST to the remote destination using HTTP. The caller can decide the
                    520: **     exact method used and which HTTP header fields to transmit by setting
                    521: **     the user fields in the request structure.
                    522: **     Returns YES if request accepted, else NO
                    523: */
                    524: PUBLIC BOOL HTUploadAnchor (HTAnchor *         src_anchor,
                    525:                            HTParentAnchor *    dest_anchor,
                    526:                            HTRequest *         dest_req)
1.70      frystyk   527: {
1.90      frystyk   528:     if (!src_anchor || !dest_anchor || !dest_req)
                    529:        return NO;
1.70      frystyk   530:     if (!(dest_anchor->methods & dest_req->method)) {
1.103     frystyk   531:        BOOL confirm = NO;
                    532:        HTAlertCallback *cbf = HTAlert_find(HT_A_CONFIRM);
                    533:        if (cbf)
                    534:            confirm=(*cbf)(dest_req, HT_A_CONFIRM, HT_MSG_METHOD, NULL,
                    535:                           (void *) HTMethod_name(dest_req->method), NULL);
                    536:        if (!confirm) return NO;
1.70      frystyk   537:     }
1.77      frystyk   538: 
                    539:     /* @@@ NOT FINISHED @@@ */
1.70      frystyk   540: 
1.90      frystyk   541:     return NO;
1.1       timbl     542: }
1.97      frystyk   543: 
1.104     frystyk   544: /* --------------------------------------------------------------------------*/
                    545: /*                           Server Access functions                        */
                    546: /* --------------------------------------------------------------------------*/
                    547: 
                    548: /*     Serv a Document
                    549: **     ---------------
                    550: **     This function sets up a request to service a document using the
                    551: **     specified access scheme.
                    552: */
                    553: PUBLIC BOOL HTServDocument (HTRequest * request, CONST char * access)
                    554: {
                    555:     if (request && access) {
                    556:        HTRequest_setAccess(request, (char *) access);
                    557:        return HTServ(request, NO);
                    558:     }
                    559:     return NO;
                    560: }

Webmaster