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

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
1.110   ! frystyk    98:     /*
        !            99:     ** We are here starting a hidden window to take care of events from
        !           100:     **  the async select() call in the async version of the event loop in
        !           101:     ** the Internal event manager (HTEvntrg.c)
        !           102:     */
1.105     frystyk   103:     HWND htSocketWin;
                    104:     static char className[] = "AsyncWindowClass";
                    105:     WNDCLASS wc;
                    106:     
                    107:     wc.style=0;
                    108:     wc.lpfnWndProc=(WNDPROC)AsyncWindowProc;
                    109:     wc.cbClsExtra=0;
                    110:     wc.cbWndExtra=0;
                    111:     wc.hInstance=GetCurrentProcess();
                    112:     wc.hIcon=0;
                    113:     wc.hCursor=0;
                    114:     wc.hbrBackground=0;
                    115:     wc.lpszMenuName=(LPSTR)0;
                    116:     wc.lpszClassName=className;
                    117: #endif /* WWW_WIN_ASYNC */
                    118: 
1.97      frystyk   119: #if WWWTRACE_MODE == WWWTRACE_FILE                       /* Open trace file */
1.102     frystyk   120:     if ((TDEST = fopen(HT_TRACE_FILE, "a")) != NULL) {
1.67      frystyk   121:        if (setvbuf(TDEST, NULL, _IOLBF, 0) < 0) {  /* Change to line buffer */
1.97      frystyk   122:            TTYPrint(TDEST, "WWWLibInit.. Can't initialize TRACE buffer - no TRACE\n");
1.67      frystyk   123:            fclose(TDEST);
                    124:            TDEST = NULL;
                    125:            WWW_TraceFlag = 0;
                    126:        }
                    127:     } else
                    128:        WWW_TraceFlag = 0;
1.97      frystyk   129: #endif /* WWWTRACE_FILE */
1.67      frystyk   130: 
1.91      frystyk   131:     if (WWWTRACE)
1.97      frystyk   132:        TTYPrint(TDEST, "WWWLibInit.. INITIALIZING LIBRARY OF COMMON CODE\n");
1.63      frystyk   133: 
1.93      frystyk   134:     /* Set the application name and version */
                    135:     if (AppName) {
                    136:        char *ptr;
                    137:        StrAllocCopy(HTAppName, AppName);
                    138:        ptr = HTAppName;
                    139:        while (*ptr) {
                    140:            if (WHITE(*ptr)) *ptr = '_';
                    141:            ptr++;
                    142:        }
                    143:     }
                    144:     if (AppVersion) {
                    145:        char *ptr;
                    146:        StrAllocCopy(HTAppVersion, AppVersion);
                    147:        ptr = HTAppVersion;
                    148:        while (*ptr) {
                    149:            if (WHITE(*ptr)) *ptr = '_';
                    150:            ptr++;
                    151:        }
                    152:     }
                    153: 
                    154:     HTBind_init();                                   /* Initialize bindings */
1.61      frystyk   155: 
1.62      frystyk   156: #ifdef WWWLIB_SIG
1.61      frystyk   157:     /* On Solaris (and others?) we get a BROKEN PIPE signal when connecting
1.67      frystyk   158:     ** to a port where we should get `connection refused'. We ignore this 
1.61      frystyk   159:     ** using the following function call
                    160:     */
                    161:     HTSetSignal();                                /* Set signals in library */
1.1       timbl     162: #endif
                    163: 
1.105     frystyk   164: #ifdef WWW_WIN_ASYNC
                    165:     if (!RegisterClass(&wc)) {
                    166:        TTYPrint(TDEST, "HTEvent_Loop.. Can't RegisterClass \"%s\"\n", className);
                    167:            return NO;
                    168:     }
                    169:     if (!(htSocketWin = CreateWindow(className, "", WS_POPUP, CW_USEDEFAULT, CW_USEDEFAULT, 
                    170:                                      CW_USEDEFAULT, CW_USEDEFAULT, 0, 0, GetCurrentProcess(),0))) {
                    171:                TTYPrint(TDEST, "HTEvent_Loop.. Can't CreateWindow \"%s\"\n", "");
                    172:        return NO;
                    173:     }
                    174:     HTEvent_setWinHandle (htSocketWin, WM_USER);     /* use first available message since app uses none */
                    175: #endif /* WWW_WIN_ASYNC */
                    176: 
1.108     frystyk   177: #ifdef _WINSOCKAPI_
1.67      frystyk   178:     /*
                    179:     ** Initialise WinSock DLL. This must also be shut down! PMH
                    180:     */
                    181:     {
                    182:         WSADATA            wsadata;
                    183:        if (WSAStartup(DESIRED_WINSOCK_VERSION, &wsadata)) {
1.91      frystyk   184:            if (WWWTRACE)
1.97      frystyk   185:                TTYPrint(TDEST, "WWWLibInit.. Can't initialize WinSoc\n");
1.67      frystyk   186:             WSACleanup();
                    187:             return NO;
                    188:         }
                    189:         if (wsadata.wVersion < MINIMUM_WINSOCK_VERSION) {
1.91      frystyk   190:             if (WWWTRACE)
1.97      frystyk   191:                TTYPrint(TDEST, "WWWLibInit.. Bad version of WinSoc\n");
1.67      frystyk   192:             WSACleanup();
                    193:             return NO;
                    194:         }
                    195:     }
1.108     frystyk   196: #endif /* _WINSOCKAPI_ */
1.67      frystyk   197: 
1.71      frystyk   198: #ifndef NO_TIMEGM
                    199:     HTGetTimeZoneOffset();        /* Find offset from GMT if using mktime() */
                    200: #endif
1.70      frystyk   201:     HTTmp_setRoot(NULL);                    /* Set up default tmp directory */
1.61      frystyk   202:     return YES;
                    203: }
                    204: 
                    205: 
1.90      frystyk   206: /*     HTLibTerminate
                    207: **     --------------
1.61      frystyk   208: **     This function frees memory kept by the Library and should be called
1.63      frystyk   209: **     before exit of an application (if you are on a PC platform)
1.61      frystyk   210: */
1.101     frystyk   211: PUBLIC BOOL HTLibTerminate (void)
1.61      frystyk   212: {
1.91      frystyk   213:     if (WWWTRACE)
1.97      frystyk   214:        TTYPrint(TDEST, "WWWLibTerm.. Cleaning up LIBRARY OF COMMON CODE\n");
1.101     frystyk   215:     HTAtom_deleteAll();                                         /* Remove the atoms */
                    216:     HTDNS_deleteAll();                         /* Remove the DNS host cache */
                    217:     HTAnchor_deleteAll(NULL);          /* Delete anchors and drop hyperdocs */
1.73      frystyk   218: 
1.81      frystyk   219:     HTProtocol_deleteAll();  /* Remove bindings between access and protocols */
1.73      frystyk   220:     HTBind_deleteAll();            /* Remove bindings between suffixes, media types */
                    221: 
1.77      frystyk   222:     HTFreeHostName();                      /* Free up some internal strings */
1.63      frystyk   223:     HTFreeMailAddress();
1.70      frystyk   224:     HTTmp_freeRoot();
1.67      frystyk   225: 
1.108     frystyk   226: #ifdef _WINSOCKAPI_
1.67      frystyk   227:     WSACleanup();
1.105     frystyk   228: #endif
                    229: 
                    230: #ifdef WWW_WIN_ASYNC
                    231:     DestroyWindow(HTEvent_getWinHandle(0));
1.67      frystyk   232: #endif
                    233: 
1.97      frystyk   234: #if WWWTRACE_MODE == WWWTRACE_FILE                      /* Close trace file */
1.67      frystyk   235:     if (TDEST) {
                    236:        fclose(TDEST);
                    237:        TDEST = NULL;
                    238:        WWW_TraceFlag = 0;
                    239:     }
1.97      frystyk   240: #endif /* WWWTRACE_FILE */
1.61      frystyk   241:     return YES;
                    242: }
                    243: 
1.59      frystyk   244: /* --------------------------------------------------------------------------*/
1.104     frystyk   245: /*                             Load Access functions                        */
1.59      frystyk   246: /* --------------------------------------------------------------------------*/
1.33      luotonen  247: 
1.90      frystyk   248: /*     Request a document
                    249: **     -----------------
                    250: **     Private version that requests a document from the request manager
                    251: **     Returns YES if request accepted, else NO
1.88      frystyk   252: */
1.101     frystyk   253: PRIVATE BOOL HTLoadDocument (HTRequest * request, BOOL recursive)
1.88      frystyk   254: {
                    255:     if (PROT_TRACE) {
1.90      frystyk   256:        HTParentAnchor *anchor = HTRequest_anchor(request);
                    257:        char * full_address = HTAnchor_address((HTAnchor *) anchor);
1.97      frystyk   258:        TTYPrint(TDEST, "HTAccess.... Accessing document %s\n", full_address);
1.88      frystyk   259:        free(full_address);
                    260:     }
1.96      frystyk   261:     return HTLoad(request, recursive);
1.58      frystyk   262: }
1.1       timbl     263: 
                    264: 
1.90      frystyk   265: /*     Request a document from absolute name
                    266: **     -------------------------------------
                    267: **     Request a document referencd by an absolute URL.
                    268: **     Returns YES if request accepted, else NO
                    269: */
                    270: PUBLIC BOOL HTLoadAbsolute (CONST char * url, HTRequest* request)
                    271: {
                    272:     if (url && request) {
                    273:        HTAnchor * anchor = HTAnchor_findAddress(url);
                    274:        HTRequest_setAnchor(request, anchor);
                    275:        return HTLoadDocument(request, NO);
                    276:     }
                    277:     return NO;
                    278: }
                    279: 
                    280: 
                    281: /*     Request a document from absolute name to stream
                    282: **     -----------------------------------------------
                    283: **     Request a document referencd by an absolute URL and sending the data
                    284: **     down a stream. This is _excactly_ the same as HTLoadAbsolute as
                    285: **     the ourputstream is specified using the function
                    286: **     HTRequest_setOutputStream(). 'filter' is ignored!
                    287: **     Returns YES if request accepted, else NO
                    288: */
                    289: PUBLIC BOOL HTLoadToStream (CONST char * url, BOOL filter, HTRequest *request)
                    290: {
                    291:     return HTLoadAbsolute(url, request);
                    292: }
                    293: 
                    294: 
                    295: /*     Request a document from relative name
                    296: **     -------------------------------------
                    297: **     Request a document referenced by a relative URL. The relative URL is 
                    298: **     made absolute by resolving it relative to the address of the 'base' 
                    299: **     anchor.
                    300: **     Returns YES if request accepted, else NO
                    301: */
                    302: PUBLIC BOOL HTLoadRelative (CONST char *       relative,
                    303:                            HTParentAnchor *    base,
                    304:                            HTRequest *         request)
                    305: {
                    306:     BOOL status = NO;
                    307:     if (relative && base && request) {
                    308:        char * rel = NULL;
                    309:        char * full_url = NULL;
                    310:        char * base_url = HTAnchor_address((HTAnchor *) base);
                    311:        StrAllocCopy(rel, relative);
                    312:        full_url = HTParse(HTStrip(rel), base_url,
                    313:                         PARSE_ACCESS|PARSE_HOST|PARSE_PATH|PARSE_PUNCTUATION);
                    314:        status = HTLoadAbsolute(full_url, request);
                    315:        free(rel);
                    316:        free(full_url);
                    317:        free(base_url);
                    318:     }
                    319:     return status;
                    320: }
                    321: 
                    322: 
                    323: /*     Request an anchor
                    324: **     -----------------
                    325: **     Request the document referenced by the anchor
                    326: **     Returns YES if request accepted, else NO
                    327: */
                    328: PUBLIC BOOL HTLoadAnchor (HTAnchor * anchor, HTRequest * request)
                    329: {
                    330:     if (anchor && request) {
                    331:        HTRequest_setAnchor(request, anchor);
                    332:        return HTLoadDocument(request, NO);
                    333:     }
                    334:     return NO;
                    335: }
                    336: 
                    337: 
                    338: /*     Request an anchor
                    339: **     -----------------
                    340: **     Same as HTLoadAnchor but any information in the Error Stack in the 
                    341: **     request object is kept, so that any error messages in one 
1.52      frystyk   342: **     This function is almost identical to HTLoadAnchor, but it doesn't
                    343: **     clear the error stack so that the information in there is kept.
1.90      frystyk   344: **     Returns YES if request accepted, else NO
                    345: */
                    346: PUBLIC BOOL HTLoadAnchorRecursive (HTAnchor * anchor, HTRequest * request)
                    347: {
                    348:     if (anchor && request) {
                    349:        HTRequest_setAnchor(request, anchor);
                    350:         return HTLoadDocument(request, YES);
                    351:     }
                    352:     return NO;
                    353: }
                    354: 
                    355: 
                    356: /*     Search an Anchor
                    357: **     ----------------
                    358: **     Performs a keyword search on word given by the user. Adds the keyword
                    359: **     to the end of the current address and attempts to open the new address.
                    360: **     The list of keywords must be a space-separated list and spaces will
                    361: **     be converted to '+' before the request is issued.
                    362: **     Search can also be performed by HTLoadAbsolute() etc.
                    363: **     Returns YES if request accepted, else NO
                    364: */
                    365: PUBLIC BOOL HTSearch (CONST char *     keywords,
                    366:                      HTParentAnchor *  base,
                    367:                      HTRequest *       request)
                    368: {
1.99      frystyk   369:     BOOL status = NO;
1.90      frystyk   370:     if (keywords && base && request) {
                    371:        char *base_url = HTAnchor_address((HTAnchor *) base);
                    372:        if (*keywords) {
                    373:            char *plus;
                    374:            StrAllocCat(base_url, "?");
                    375:            StrAllocCat(base_url, keywords);
                    376:            plus = strchr(base_url, '?');
                    377:            while (*plus) {
                    378:                if (*plus == ' ') *plus = '+';
                    379:                plus++;
                    380:            }
1.2       timbl     381:        }
1.99      frystyk   382:        status = HTLoadAbsolute(base_url, request);
                    383:        free(base_url);
1.90      frystyk   384:     }
1.99      frystyk   385:     return status;
1.2       timbl     386: }
                    387: 
                    388: 
1.90      frystyk   389: /*     Search a document from absolute name
                    390: **     ------------------------------------
                    391: **     Request a document referencd by an absolute URL appended with the
                    392: **     keywords given. The URL can NOT contain any fragment identifier!
                    393: **     The list of keywords must be a space-separated list and spaces will
                    394: **     be converted to '+' before the request is issued.
                    395: **     Returns YES if request accepted, else NO
                    396: */
                    397: PUBLIC BOOL HTSearchAbsolute (CONST char *     keywords,
                    398:                              CONST char *      url,
                    399:                              HTRequest *       request)
                    400: {
                    401:     if (url && request) {
                    402:        HTAnchor * anchor = HTAnchor_findAddress(url);
                    403:        return HTSearch(keywords, HTAnchor_parent(anchor), request);
                    404:     }
                    405:     return NO;
1.57      howcome   406: }
                    407: 
1.70      frystyk   408: /* --------------------------------------------------------------------------*/
1.104     frystyk   409: /*                             Post Access Functions                        */
1.70      frystyk   410: /* --------------------------------------------------------------------------*/
                    411: 
1.90      frystyk   412: /*     Copy an anchor
1.70      frystyk   413: **     --------------
1.90      frystyk   414: **     Fetch the URL (possibly local file URL) and send it using either PUT
                    415: **     or POST to the remote destination using HTTP. The caller can decide the
                    416: **     exact method used and which HTTP header fields to transmit by setting
                    417: **     the user fields in the request structure.
1.92      frystyk   418: **     If posting to NNTP then we can't dispatch at this level but must pass
                    419: **     the source anchor to the news module that then takes all the refs
                    420: **     to NNTP and puts into the "newsgroups" header
1.90      frystyk   421: **     Returns YES if request accepted, else NO
1.70      frystyk   422: */
1.109     frystyk   423: PUBLIC BOOL HTCopyAnchor (HTAnchor * src_anchor, HTRequest * main_dest)
1.80      frystyk   424: { 
1.106     frystyk   425:     HTRequest * src_req;
                    426:     HTList * cur;
1.109     frystyk   427:     if (!src_anchor || !main_dest) {
                    428:        if (WWWTRACE) TTYPrint(TDEST, "Copy........ BAD ARGUMENT\n");
1.90      frystyk   429:        return NO;
1.109     frystyk   430:     }
1.70      frystyk   431: 
1.80      frystyk   432:     /* Build the POST web if not already there */
1.109     frystyk   433:     if (!main_dest->source) {
                    434:        src_req = HTRequest_dupInternal(main_dest);       /* Get a duplicate */
1.80      frystyk   435:        HTAnchor_clearHeader((HTParentAnchor *) src_anchor);
1.109     frystyk   436:        src_req->method = METHOD_GET;
1.85      frystyk   437:        src_req->reload = HT_MEM_REFRESH;
1.104     frystyk   438:        src_req->output_stream = NULL;
1.80      frystyk   439:        src_req->output_format = WWW_SOURCE;     /* We want source (for now) */
                    440: 
                    441:        /* Set up the main link in the source anchor */
                    442:        {
1.106     frystyk   443:            HTLink * main_link = HTAnchor_mainLink((HTAnchor *) src_anchor);
                    444:            HTAnchor *main_anchor = HTLink_destination(main_link);
                    445:            HTMethod method = HTLink_method(main_link);
1.85      frystyk   446:            if (!main_link || method==METHOD_INVALID) {
1.91      frystyk   447:                if (WWWTRACE)
1.109     frystyk   448:                    TTYPrint(TDEST, "Copy Anchor. No destination found or unspecified method\n");
1.80      frystyk   449:                HTRequest_delete(src_req);
1.90      frystyk   450:                return NO;
1.80      frystyk   451:            }
1.109     frystyk   452:            main_dest->GenMask |= HT_G_DATE;             /* Send date header */
                    453:            main_dest->reload = HT_CACHE_REFRESH;
                    454:            main_dest->method = method;
                    455:            main_dest->input_format = WWW_SOURCE;
                    456:            HTRequest_addDestination(src_req, main_dest);
                    457:            if (HTLoadAnchor(main_anchor, main_dest) == NO)
                    458:                return NO;
1.80      frystyk   459:        }
1.78      frystyk   460: 
1.80      frystyk   461:        /* For all other links in the source anchor */
1.106     frystyk   462:        if ((cur = HTAnchor_subLinks(src_anchor))) {
                    463:            HTLink * pres;
1.109     frystyk   464:            while ((pres = (HTLink *) HTList_nextObject(cur))) {
1.106     frystyk   465:                HTAnchor *dest = HTLink_destination(pres);
                    466:                HTMethod method = HTLink_method(pres);
1.80      frystyk   467:                HTRequest *dest_req;
                    468:                if (!dest || method==METHOD_INVALID) {
1.91      frystyk   469:                    if (WWWTRACE)
1.97      frystyk   470:                        TTYPrint(TDEST, "Copy Anchor. Bad anchor setup %p\n",
1.80      frystyk   471:                                dest);
1.90      frystyk   472:                    return NO;
1.80      frystyk   473:                }
1.109     frystyk   474:                dest_req = HTRequest_dupInternal(main_dest);
1.107     frystyk   475:                dest_req->GenMask |= HT_G_DATE;          /* Send date header */
1.85      frystyk   476:                dest_req->reload = HT_CACHE_REFRESH;
1.80      frystyk   477:                dest_req->method = method;
1.104     frystyk   478:                dest_req->output_stream = NULL;
                    479:                dest_req->output_format = WWW_SOURCE;
1.109     frystyk   480:                HTRequest_addDestination(src_req, dest_req);
1.104     frystyk   481: 
1.90      frystyk   482:                if (HTLoadAnchor(dest, dest_req) == NO)
                    483:                    return NO;
1.80      frystyk   484:            }
                    485:        }
                    486:     } else {                    /* Use the existing Post Web and restart it */
1.109     frystyk   487:        src_req = main_dest->source;
1.80      frystyk   488:        if (src_req->mainDestination)
1.109     frystyk   489:            if (HTLoadDocument(main_dest, NO) == NO)
1.90      frystyk   490:                return NO;
1.80      frystyk   491:        if (src_req->destinations) {
1.106     frystyk   492:            HTRequest * pres;
                    493:            cur = HTAnchor_subLinks(src_anchor);
1.80      frystyk   494:            while ((pres = (HTRequest *) HTList_nextObject(cur)) != NULL) {
1.90      frystyk   495:                if (HTLoadDocument(pres, NO) == NO)
                    496:                    return NO;
1.80      frystyk   497:            }
                    498:        }
1.78      frystyk   499:     }
                    500: 
1.80      frystyk   501:     /* Now open the source */
                    502:     return HTLoadAnchor(src_anchor, src_req);
1.70      frystyk   503: }
                    504: 
                    505: 
1.90      frystyk   506: /*     Upload an Anchor
1.70      frystyk   507: **     ----------------
1.90      frystyk   508: **     Send the contents (in hyperdoc) of the source anchor using either PUT
                    509: **     or POST to the remote destination using HTTP. The caller can decide the
                    510: **     exact method used and which HTTP header fields to transmit by setting
                    511: **     the user fields in the request structure.
                    512: **     Returns YES if request accepted, else NO
                    513: */
                    514: PUBLIC BOOL HTUploadAnchor (HTAnchor *         src_anchor,
                    515:                            HTParentAnchor *    dest_anchor,
                    516:                            HTRequest *         dest_req)
1.70      frystyk   517: {
1.106     frystyk   518:     HTMethod allowed = HTAnchor_methods(dest_anchor);
1.109     frystyk   519:     if (!src_anchor || !dest_anchor || !dest_req) {
                    520:        if (WWWTRACE) TTYPrint(TDEST, "Upload...... BAD ARGUMENT\n");
1.90      frystyk   521:        return NO;
1.109     frystyk   522:     }
1.106     frystyk   523:     if (!(allowed & dest_req->method)) {
1.103     frystyk   524:        BOOL confirm = NO;
                    525:        HTAlertCallback *cbf = HTAlert_find(HT_A_CONFIRM);
1.106     frystyk   526:        if (cbf) confirm=(*cbf)(dest_req, HT_A_CONFIRM, HT_MSG_METHOD, NULL,
                    527:                                (void *) HTMethod_name(dest_req->method),NULL);
1.103     frystyk   528:        if (!confirm) return NO;
1.70      frystyk   529:     }
1.77      frystyk   530: 
                    531:     /* @@@ NOT FINISHED @@@ */
1.70      frystyk   532: 
1.90      frystyk   533:     return NO;
1.1       timbl     534: }
1.97      frystyk   535: 

Webmaster