/* * This file was generated automatically by xsubpp version 1.9507 from the * contents of AFS.xs. Do not edit this file, edit AFS.xs instead. * * ANY CHANGES MADE HERE WILL BE LOST! * */ #line 1 "AFS.xs" /*********************************************************************** * * AFS.xs - AFS extensions for Perl * * RCS-Id: @(#)$Id: AFS.xs 772 2006-02-16 13:13:16Z nog $ * * Copyright (c) 2003, International Business Machines Corporation and others. * * This software has been released under the terms of the IBM Public * License. For details, see the IBM-LICENSE file in the LICENCES * directory or online at http://www.openafs.org/dl/license10.html * * Contributors * 2004-2006: Norbert E. Gruener * 2003: Alf Wachsmann * Venkata Phani Kiran Achanta , and * Norbert E. Gruener * 2001-2002: Norbert E. Gruener * * The original library was written by Roland Schemers * and is covered by the following copyright: * * Copyright (c) 1994 Board of Trustees, Leland Stanford Jr. University * For conditions of distribution and use, see the copyright notice in * the Stanford-LICENCE file. * * The code for the original library were mainly taken from the AFS * source distribution, which comes with this message: * * Copyright (C) 1989-1994 Transarc Corporation - All rights reserved * P_R_P_Q_# (C) COPYRIGHT IBM CORPORATION 1987, 1988, 1989 * ***********************************************************************/ #include "EXTERN.h" #ifdef __sgi /* needed to get a clean compile */ #include #endif #include "perl.h" #include "XSUB.h" #include "ppport.h" #include /* tired of seeing messages about TRUE/FALSE being redefined in rx/xdr.h */ #undef TRUE #undef FALSE #include #include #include #include #include #include #include #include #include #include #include #include #include #undef VIRTUE #undef VICE #include "afs/prs_fs.h" #include #include #if defined(AFS_3_4) #else #include #endif #include #include #include #include #ifndef RV_RDONLY #define RV_RDONLY 0x10000 #endif #include #include #include #include "afs/prclient.h" #include #include #include #include #include #include #include #include #include #if defined(AFS_3_4) || defined(AFS_3_5) #else #define int32 afs_int32 #define uint32 afs_uint32 #endif const char *const xs_version = "AFS.xs (Major Version 2.4 $Rev: 772 $)"; /* here because it seemed too painful to #define KERNEL before #inc afs.h */ struct VenusFid { int32 Cell; struct AFSFid Fid; }; /* tpf nog 03/29/99 */ /* the following was added by leg@andrew, 10/9/96 */ /*#ifdef __hpux*//* only on hp700_ux90 systems */ #if defined(__hpux) || defined(_AIX) || defined(sun) || defined(__sun__) || defined(__sgi) || defined(__linux) static int32 name_is_numeric(char *); #endif typedef SV *AFS__ACL; typedef struct ktc_principal *AFS__KTC_PRINCIPAL; typedef struct ktc_token *AFS__KTC_TOKEN; typedef struct ktc_encryptionKey *AFS__KTC_EKEY; typedef struct ubik_client *AFS__KAS; typedef struct ubik_client *AFS__PTS; typedef struct ubik_client *AFS__VLDB; typedef struct ubik_client *AFS__VOS; typedef struct rx_connection *AFS__BOS; extern char *error_message(); extern struct ubik_client *cstruct; extern int UV_SetSecurity(); #ifdef OpenAFS extern int UV_SetVolumeInfo(); #endif extern int VL_DeleteEntry(); extern int VL_SetLock(); extern int VL_ReleaseLock(); extern int VL_ChangeAddr(); extern int VL_GetAddrs(); extern int VL_GetAddrsU(); extern struct hostent *hostutil_GetHostByName(); extern char *hostutil_GetNameByINet(); extern char *volutil_PartitionName(); static rxkad_level vsu_rxkad_level = rxkad_clear; static struct ktc_token the_null_token; static int32 convert_numeric_names = 1; #define MAXSIZE 2048 #define MAXINSIZE 1300 #ifndef MAXPATHLEN #define MAXPATHLEN 1024 #endif #define AFS_ASK 0 #define AFS_ABORT 1 #define AFS_FULL 2 #define AFS_INC 3 #ifdef AFS_PTHREAD_ENV #undef clock_haveCurrentTime #undef clock_UpdateTime struct clock clock_now; #endif /* AFS_PTHREAD_ENV*/ /* error handling macros */ #define ERROR_EXIT(code) {error=(code); goto error_exit;} #define SETCODE(code) set_code(code) #define BSETCODE(code, msg) bv_set_code(code, msg) #define VSETCODE(code, msg) bv_set_code(code, msg) static int32 raise_exception = 0; static void bv_set_code(code, msg) int32 code; const char *msg; { SV *sv = perl_get_sv("AFS::CODE", TRUE); sv_setiv(sv, (IV) code); /* printf("BV_SET_CODE %s (%d)\n", msg, code); */ if (code == 0) { sv_setpv(sv, ""); } else { if (raise_exception) { char buffer[1024]; sprintf(buffer, "AFS exception: %s (%d)", msg, code); croak(buffer); } /* printf("BV_SET_CODE %s (%d)\n", msg, code); */ sv_setpv(sv, (char *) msg); } SvIOK_on(sv); } static void set_code(code) int32 code; { SV *sv = perl_get_sv("AFS::CODE", TRUE); if (code == -1) { code = errno; } /* printf("SET_CODE %d\n", code); */ sv_setiv(sv, (IV) code); if (code == 0) { sv_setpv(sv, ""); } else { if (raise_exception) { char buffer[1024]; sprintf(buffer, "AFS exception: %s (%d)", error_message(code), code); croak(buffer); } sv_setpv(sv, (char *) error_message(code)); } SvIOK_on(sv); } /* taken from openafs-1.2.9 */ /* volser/vsprocs.c */ set_errbuff(buffer, errcode) char *buffer; int32 errcode; { /*replace by a big switch statement */ switch (errcode) { case 0: break; case -1: sprintf(buffer, "Possible communication failure\n"); break; case VSALVAGE: sprintf(buffer, "Volume needs to be salvaged\n"); break; case VNOVNODE: sprintf(buffer, "Bad vnode number quoted\n"); break; case VNOVOL: sprintf(buffer, "Volume not attached, does not exist, or not on line\n"); break; case VVOLEXISTS: sprintf(buffer, "Volume already exists\n"); break; case VNOSERVICE: sprintf(buffer, "Volume is not in service\n"); break; case VOFFLINE: sprintf(buffer, "Volume is off line\n"); break; case VONLINE: sprintf(buffer, "Volume is already on line\n"); break; case VDISKFULL: sprintf(buffer, "Partition is full\n"); break; case VOVERQUOTA: sprintf(buffer, "Volume max quota exceeded\n"); break; case VBUSY: sprintf(buffer, "Volume temporarily unavailable\n"); break; case VMOVED: sprintf(buffer, "Volume has moved to another server\n"); break; case VL_IDEXIST: sprintf(buffer, "VLDB: volume Id exists in the vldb\n"); break; case VL_IO: sprintf(buffer, "VLDB: a read terminated too early\n"); break; case VL_NAMEEXIST: sprintf(buffer, "VLDB: volume entry exists in the vldb\n"); break; case VL_CREATEFAIL: sprintf(buffer, "VLDB: internal creation failure\n"); break; case VL_NOENT: sprintf(buffer, "VLDB: no such entry\n"); break; case VL_EMPTY: sprintf(buffer, "VLDB: vldb database is empty\n"); break; case VL_ENTDELETED: sprintf(buffer, "VLDB: entry is deleted (soft delete)\n"); break; case VL_BADNAME: sprintf(buffer, "VLDB: volume name is illegal\n"); break; case VL_BADINDEX: sprintf(buffer, "VLDB: index was out of range\n"); break; case VL_BADVOLTYPE: sprintf(buffer, "VLDB: bad volume type\n"); break; case VL_BADSERVER: sprintf(buffer, "VLDB: illegal server number (not within limits)\n"); break; case VL_BADPARTITION: sprintf(buffer, "VLDB: bad partition number\n"); break; case VL_REPSFULL: sprintf(buffer, "VLDB: run out of space for replication sites\n"); break; case VL_NOREPSERVER: sprintf(buffer, "VLDB: no such repsite server exists\n"); break; case VL_DUPREPSERVER: sprintf(buffer, "VLDB: replication site server already exists\n"); break; case VL_RWNOTFOUND: sprintf(buffer, "VLDB: parent r/w entry not found\n"); break; case VL_BADREFCOUNT: sprintf(buffer, "VLDB: illegal reference count number\n"); break; case VL_SIZEEXCEEDED: sprintf(buffer, "VLDB: vldb size for attributes exceeded\n"); break; case VL_BADENTRY: sprintf(buffer, "VLDB: bad incoming vldb entry\n"); break; case VL_BADVOLIDBUMP: sprintf(buffer, "VLDB: illegal max volid increment\n"); break; case VL_IDALREADYHASHED: sprintf(buffer, "VLDB: (RO/BACK) Id already hashed\n"); break; case VL_ENTRYLOCKED: sprintf(buffer, "VLDB: vldb entry is already locked\n"); break; case VL_BADVOLOPER: sprintf(buffer, "VLDB: bad volume operation code\n"); break; case VL_BADRELLOCKTYPE: sprintf(buffer, "VLDB: bad release lock type\n"); break; case VL_RERELEASE: sprintf(buffer, "VLDB: status report: last release was aborted\n"); break; case VL_BADSERVERFLAG: sprintf(buffer, "VLDB: invalid replication site server flag\n"); break; case VL_PERM: sprintf(buffer, "VLDB: no permission access for call\n"); break; case VOLSERREAD_DUMPERROR: sprintf(buffer, "VOLSER: Problems encountered in reading the dump file !\n"); break; case VOLSERDUMPERROR: sprintf(buffer, "VOLSER: Problems encountered in doing the dump !\n"); break; case VOLSERATTACH_ERROR: sprintf(buffer, "VOLSER: Could not attach the volume\n"); break; case VOLSERDETACH_ERROR: sprintf(buffer, "VOLSER: Could not detach the volume\n"); break; case VOLSERILLEGAL_PARTITION: sprintf(buffer, "VOLSER: encountered illegal partition number\n"); break; case VOLSERBAD_ACCESS: sprintf(buffer, "VOLSER: permission denied, not a super user\n"); break; case VOLSERVLDB_ERROR: sprintf(buffer, "VOLSER: error detected in the VLDB\n"); break; case VOLSERBADNAME: sprintf(buffer, "VOLSER: error in volume name\n"); break; case VOLSERVOLMOVED: sprintf(buffer, "VOLSER: volume has moved\n"); break; case VOLSERBADOP: sprintf(buffer, "VOLSER: illegal operation\n"); break; case VOLSERBADRELEASE: sprintf(buffer, "VOLSER: release could not be completed\n"); break; case VOLSERVOLBUSY: sprintf(buffer, "VOLSER: volume is busy\n"); break; case VOLSERNO_MEMORY: sprintf(buffer, "VOLSER: volume server is out of memory\n"); break; case VOLSERNOVOL: sprintf(buffer, "VOLSER: no such volume - location specified incorrectly or volume does not exist\n"); break; case VOLSERMULTIRWVOL: sprintf(buffer, "VOLSER: multiple RW volumes with same ID, one of which should be deleted\n"); break; case VOLSERFAILEDOP: sprintf(buffer, "VOLSER: not all entries were successfully processed\n"); break; default: sprintf(buffer, "Unknown ERROR code\n"); break; } return 0; } #ifdef AFS_PTHREAD_ENV void IOMGR_Sleep (seconds) int seconds; { double i,j; croak("DEBUG: IOMGR_Sleep not available ...\nPlease inform the author..."); j = 0.0; i = 1.0/j; } void clock_UpdateTime () { double i,j; croak("DEBUG: clock_UpdateTime not available ...\nPlease inform the author.. ."); j = 0.0; i = 1.0/j; } int clock_haveCurrentTime () { double i,j; croak("DEBUG: clock_haveCurrentTime not available...\nPlease inform the auth or..."); j = 0.0; i = 1.0/j; return 1; } #endif /* AFS_PTHREAD_ENV*/ static int32 not_here(s) char *s; { croak("%s not implemented on this architecture or under this AFS version", s); return -1; } PrintDiagnostics(astring, acode) char *astring; afs_int32 acode; { if (acode == EACCES) { fprintf(STDERR, "You are not authorized to perform the 'vos %s' command (%d)\n", astring, acode); } else { fprintf(STDERR, "Error in vos %s command.\n", astring); PrintError("", acode); } return 0; } /* end of error handling macros */ /* general helper functions */ static struct afsconf_dir *cdir = NULL; static char *config_dir = NULL; static int32 internal_GetConfigDir() { if (cdir == NULL) { if (config_dir == NULL) { #if defined(AFS_3_4) config_dir = (char *) safemalloc(strlen(AFSCONF_CLIENTNAME) + 1); strcpy(config_dir, AFSCONF_CLIENTNAME); #else config_dir = (char *) safemalloc(strlen(AFSDIR_CLIENT_ETC_DIRPATH) + 1); strcpy(config_dir, AFSDIR_CLIENT_ETC_DIRPATH); #endif } cdir = afsconf_Open(config_dir); if (!cdir) { return errno; } } return 0; } static int32 internal_GetServerConfigDir() { if (cdir == NULL) { if (config_dir == NULL) { #if defined(AFS_3_4) config_dir = (char *) safemalloc(strlen(AFSCONF_SERVERNAME) + 1); strcpy(config_dir, AFSCONF_SERVERNAME); #else config_dir = (char *) safemalloc(strlen(AFSDIR_SERVER_ETC_DIRPATH) + 1); strcpy(config_dir, AFSDIR_SERVER_ETC_DIRPATH); #endif } cdir = afsconf_Open(config_dir); if (!cdir) { return errno; } } return 0; } static int32 internal_GetCellInfo(cell, service, info) char *cell; char *service; struct afsconf_cell *info; { int32 code; code = internal_GetConfigDir(); if (code == 0) code = afsconf_GetCellInfo(cdir, cell, service, info); return code; } static char *internal_GetLocalCell(code) int32 *code; { static char localcell[MAXCELLCHARS] = ""; if (localcell[0]) { *code = 0; } else { *code = internal_GetConfigDir(); if (*code == 0) *code = afsconf_GetLocalCell(cdir, localcell, sizeof(localcell)); } return localcell; } static void stolower(s) char *s; { while (*s) { if (isupper(*s)) *s = tolower(*s); s++; } } /* return 1 if name is all '-' or digits. Used to remove orphan entries from ACls */ static int32 name_is_numeric(name) char *name; { if (*name != '-' && !isdigit(*name)) return 0; else name++; while (*name) { if (!isdigit(*name)) return 0; name++; } return 1; /* name is (most likely numeric) */ } /* end of general helper functions */ /* helper functions for PTS class: */ static struct ubik_client *internal_pts_new(code, sec, cell) int32 *code; int32 sec; char *cell; { struct rx_connection *serverconns[MAXSERVERS]; struct rx_securityClass *sc; struct ktc_token token; struct afsconf_cell info; /* tpf nog 03/29/99 * caused by changes in ubikclient.c,v 2.20 1996/12/10 * and in ubikclient.c,v 2.24 1997/01/21 * struct ubik_client *client; */ struct ubik_client *client = 0; struct ktc_principal prin; int32 i; *code = internal_GetConfigDir(); if (*code == 0) *code = internal_GetCellInfo(cell, "afsprot", &info); if (*code) return NULL; *code = rx_Init(0); if (*code) return NULL; if (sec > 0) { strcpy(prin.cell, info.name); prin.instance[0] = 0; strcpy(prin.name, "afs"); *code = ktc_GetToken(&prin, &token, sizeof(token), (char *) 0); if (*code) { if (sec == 2) return NULL; /* we want security or nothing */ sec = 0; } else { sc = (struct rx_securityClass *) rxkad_NewClientSecurityObject (rxkad_clear, &token.sessionKey, token.kvno, token.ticketLen, token.ticket); } } if (sec == 0) sc = (struct rx_securityClass *) rxnull_NewClientSecurityObject(); else sec = 2; bzero(serverconns, sizeof(serverconns)); for (i = 0; i < info.numServers; i++) { serverconns[i] = rx_NewConnection(info.hostAddr[i].sin_addr.s_addr, info.hostAddr[i].sin_port, PRSRV, sc, sec); } *code = ubik_ClientInit(serverconns, &client); if (*code) return NULL; *code = rxs_Release(sc); return client; } static int32 internal_pr_name(server, id, name) int32 id; struct ubik_client *server; char *name; { namelist lnames; idlist lids; register int32 code; lids.idlist_len = 1; lids.idlist_val = (int32 *) safemalloc(sizeof(int32)); *lids.idlist_val = id; lnames.namelist_len = 0; lnames.namelist_val = NULL; code = ubik_Call(PR_IDToName, server, 0, &lids, &lnames); if (lnames.namelist_val) { strncpy(name, (char *) lnames.namelist_val, PR_MAXNAMELEN); safefree(lnames.namelist_val); } if (lids.idlist_val) safefree(lids.idlist_val); return code; } static int32 internal_pr_id(server, name, id, anon) struct ubik_client *server; char *name; int32 *id; int32 anon; { namelist lnames; idlist lids; int32 code; if (convert_numeric_names && name_is_numeric(name)) { *id = atoi(name); return 0; } lids.idlist_len = 0; lids.idlist_val = 0; lnames.namelist_len = 1; lnames.namelist_val = (prname *) safemalloc(PR_MAXNAMELEN); stolower(name); strncpy((char *) lnames.namelist_val, name, PR_MAXNAMELEN); code = ubik_Call(PR_NameToID, server, 0, &lnames, &lids); if (lids.idlist_val) { *id = *lids.idlist_val; safefree(lids.idlist_val); } if (lnames.namelist_val) safefree(lnames.namelist_val); if (code == 0 && anon == 0 && *id == ANONYMOUSID) { code = PRNOENT; } return code; } static int32 parse_pts_setfields(access, flags) char *access; int32 *flags; { *flags = 0; if (strlen(access) != 5) return PRBADARG; if (access[0] == 'S') *flags |= 0x80; else if (access[0] == 's') *flags |= 0x40; else if (access[0] != '-') return PRBADARG; if (access[1] == 'O') *flags |= 0x20; else if (access[1] != '-') return PRBADARG; if (access[2] == 'M') *flags |= 0x10; else if (access[2] == 'm') *flags |= 0x08; else if (access[2] != '-') return PRBADARG; if (access[3] == 'A') *flags |= 0x04; else if (access[3] == 'a') *flags |= 0x02; else if (access[3] != '-') return PRBADARG; if (access[4] == 'r') *flags |= 0x01; else if (access[4] != '-') return PRBADARG; return 0; } static char *parse_flags_ptsaccess(flags) int32 flags; { static char buff[6]; strcpy(buff, "-----"); if (flags & 0x01) buff[4] = 'r'; if (flags & 0x02) buff[3] = 'a'; if (flags & 0x04) buff[3] = 'A'; if (flags & 0x08) buff[2] = 'm'; if (flags & 0x10) buff[2] = 'M'; if (flags & 0x20) buff[1] = 'O'; if (flags & 0x40) buff[0] = 's'; if (flags & 0x80) buff[0] = 'S'; return buff; } static parse_prcheckentry(server, stats, entry, lookupids, convertflags) struct ubik_client *server; HV *stats; struct prcheckentry *entry; int32 lookupids; int convertflags; { int32 code; char name[PR_MAXNAMELEN]; hv_store(stats, "id", 2, newSViv(entry->id), 0); hv_store(stats, "name", 4, newSVpv(entry->name, strlen(entry->name)), 0); if (convertflags) { hv_store(stats, "flags", 5, newSVpv(parse_flags_ptsaccess(entry->flags), 5), 0); } else { hv_store(stats, "flags", 5, newSViv(entry->flags), 0); } if (lookupids) { code = internal_pr_name(server, entry->owner, name); if (code) hv_store(stats, "owner", 5, newSViv(entry->owner), 0); else hv_store(stats, "owner", 5, newSVpv(name, strlen(name)), 0); code = internal_pr_name(server, entry->creator, name); if (code) hv_store(stats, "creator", 7, newSViv(entry->creator), 0); else hv_store(stats, "creator", 7, newSVpv(name, strlen(name)), 0); } else { hv_store(stats, "owner", 5, newSViv(entry->owner), 0); hv_store(stats, "creator", 7, newSViv(entry->creator), 0); } hv_store(stats, "ngroups", 7, newSViv(entry->ngroups), 0); /* hv_store(stats, "nusers",6, newSViv(entry->nusers),0);*/ hv_store(stats, "count", 5, newSViv(entry->count), 0); /* hv_store(stats, "reserved0",9, newSViv(entry->reserved[0]),0); hv_store(stats, "reserved1",9, newSViv(entry->reserved[1]),0); hv_store(stats, "reserved2",9, newSViv(entry->reserved[2]),0); hv_store(stats, "reserved3",9, newSViv(entry->reserved[3]),0); hv_store(stats, "reserved4",9, newSViv(entry->reserved[4]),0); */ return 1; } static parse_prdebugentry(server, stats, entry, lookupids, convertflags) struct ubik_client *server; HV *stats; struct prdebugentry *entry; int32 lookupids; int convertflags; { int32 code; char name[PR_MAXNAMELEN]; char buff[128]; int i; hv_store(stats, "id", 2, newSViv(entry->id), 0); hv_store(stats, "name", 4, newSVpv(entry->name, strlen(entry->name)), 0); if (convertflags) { hv_store(stats, "flags", 5, newSVpv(parse_flags_ptsaccess(entry->flags), 5), 0); } else { hv_store(stats, "flags", 5, newSViv(entry->flags), 0); } if (lookupids) { code = internal_pr_name(server, entry->owner, name); if (code) hv_store(stats, "owner", 5, newSViv(entry->owner), 0); else hv_store(stats, "owner", 5, newSVpv(name, strlen(name)), 0); code = internal_pr_name(server, entry->creator, name); if (code) hv_store(stats, "creator", 7, newSViv(entry->creator), 0); else hv_store(stats, "creator", 7, newSVpv(name, strlen(name)), 0); for (i = 0; i < 10; i++) { sprintf(buff, "entries%d", i); code = internal_pr_name(server, entry->entries[i], name); if (code) hv_store(stats, buff, strlen(buff), newSViv(entry->entries[i]), 0); else hv_store(stats, buff, strlen(buff), newSVpv(name, strlen(name)), 0); } } else { hv_store(stats, "owner", 5, newSViv(entry->owner), 0); hv_store(stats, "creator", 7, newSViv(entry->creator), 0); for (i = 0; i < 10; i++) { sprintf(buff, "entries%d", i); hv_store(stats, buff, strlen(buff), newSViv(entry->entries[i]), 0); } } hv_store(stats, "cellid", 6, newSViv(entry->cellid), 0); hv_store(stats, "next", 4, newSViv(entry->next), 0); hv_store(stats, "nextID", 6, newSViv(entry->nextID), 0); hv_store(stats, "nextname", 8, newSViv(entry->nextname), 0); hv_store(stats, "ngroups", 7, newSViv(entry->ngroups), 0); hv_store(stats, "nusers", 6, newSViv(entry->nusers), 0); hv_store(stats, "count", 5, newSViv(entry->count), 0); hv_store(stats, "instance", 8, newSViv(entry->instance), 0); hv_store(stats, "owned", 5, newSViv(entry->owned), 0); hv_store(stats, "nextOwned", 9, newSViv(entry->nextOwned), 0); hv_store(stats, "parent", 6, newSViv(entry->parent), 0); hv_store(stats, "sibling", 7, newSViv(entry->sibling), 0); hv_store(stats, "child", 5, newSViv(entry->child), 0); hv_store(stats, "reserved0", 9, newSViv(entry->reserved[0]), 0); hv_store(stats, "reserved1", 9, newSViv(entry->reserved[1]), 0); hv_store(stats, "reserved2", 9, newSViv(entry->reserved[2]), 0); hv_store(stats, "reserved3", 9, newSViv(entry->reserved[3]), 0); hv_store(stats, "reserved4", 9, newSViv(entry->reserved[4]), 0); return 1; } static int32 check_name_for_id(name, id) char *name; int32 id; { char buff[32]; sprintf(buff, "%d", id); return strcmp(buff, name) == 0; } /* end of helper functions for PTS class: */ /* helper functions for VOS class: */ #ifndef OpenAFS void vsu_SetCrypt(cryptflag) int cryptflag; { if (cryptflag) { vsu_rxkad_level = rxkad_crypt; } else { vsu_rxkad_level = rxkad_auth; } } #endif int32 GetVolumeInfo(volid, server, part, voltype, rentry) afs_int32 volid, *server, *part, *voltype; register struct nvldbentry *rentry; { afs_int32 vcode; int i, index = -1; vcode = VLDB_GetEntryByID(volid, -1, rentry); if (vcode) { char buffer[80]; sprintf(buffer, "Could not fetch the entry for volume %u from VLDB \n", volid); VSETCODE(vcode, buffer); return (vcode); } MapHostToNetwork(rentry); if (volid == rentry->volumeId[ROVOL]) { *voltype = ROVOL; for (i = 0; i < rentry->nServers; i++) { if ((index == -1) && (rentry->serverFlags[i] & ITSROVOL) && !(rentry->serverFlags[i] & RO_DONTUSE)) index = i; } if (index == -1) { char buffer[80]; sprintf(buffer, "RO volume is not found in VLDB entry for volume %u\n", volid); VSETCODE(-1, buffer); return -1; } *server = rentry->serverNumber[index]; *part = rentry->serverPartition[index]; return 0; } index = Lp_GetRwIndex(rentry); if (index == -1) { char buffer[80]; sprintf(buffer, "RW Volume is not found in VLDB entry for volume %u\n", volid); VSETCODE(-1, buffer); return -1; } if (volid == rentry->volumeId[RWVOL]) { *voltype = RWVOL; *server = rentry->serverNumber[index]; *part = rentry->serverPartition[index]; return 0; } if (volid == rentry->volumeId[BACKVOL]) { *voltype = BACKVOL; *server = rentry->serverNumber[index]; *part = rentry->serverPartition[index]; return 0; } } static VolNameOK(name) char *name; { int total; total = strlen(name); if (!strcmp(&name[total - 9], ".readonly")) { return 0; } else if (!strcmp(&name[total - 7], ".backup")) { return 0; } else { return 1; } } static IsNumeric(name) char *name; { int result, len, i; char *ptr; result = 1; ptr = name; len = strlen(name); for (i = 0; i < len; i++) { if (*ptr < '0' || *ptr > '9') { result = 0; break; } ptr++; } return result; } int IsPartValid(partId, server, code) afs_int32 server, partId, *code; { struct partList dummyPartList; int i, success, cnt; success = 0; *code = 0; *code = UV_ListPartitions(server, &dummyPartList, &cnt); if (*code) return success; for (i = 0; i < cnt; i++) { if (dummyPartList.partFlags[i] & PARTVALID) if (dummyPartList.partId[i] == partId) success = 1; } return success; } afs_int32 GetServer(aname) char *aname; { register struct hostent *th; afs_int32 addr; int b1, b2, b3, b4; register afs_int32 code; char hostname[MAXHOSTCHARS]; code = sscanf(aname, "%d.%d.%d.%d", &b1, &b2, &b3, &b4); if (code == 4) { addr = (b1 << 24) | (b2 << 16) | (b3 << 8) | b4; addr = ntohl(addr); /* convert to host order */ } else { th = gethostbyname(aname); if (!th) return 0; /* memcpy(&addr, th->h_addr, sizeof(addr)); */ Copy(th->h_addr, &addr, th->h_length, char); } if (addr == htonl(0x7f000001)) { /* local host */ code = gethostname(hostname, MAXHOSTCHARS); if (code) return 0; th = gethostbyname(hostname); /* returns host byte order */ if (!th) return 0; /* memcpy(&addr, th->h_addr, sizeof(addr)); */ Copy(th->h_addr, &addr, th->h_length, char); } return (addr); } /*sends the contents of file associated with and to Rx Stream * associated with */ SendFile(ufd, call, blksize) usd_handle_t ufd; register struct rx_call *call; long blksize; { char *buffer = (char *) 0; afs_int32 error = 0; int done = 0; afs_uint32 nbytes; buffer = (char *) safemalloc(blksize); if (!buffer) { char buf[80]; sprintf(buf, "malloc failed\n"); VSETCODE(-1, buf); return -1; } while (!error && !done) { #ifndef AFS_NT40_ENV /* NT csn't select on non-socket fd's */ fd_set in; FD_ZERO(&in); FD_SET((long) (ufd->handle), &in); /* don't timeout if read blocks */ #ifdef AFS_PTHREAD_ENV select(((long) (ufd->handle)) + 1, &in, 0, 0, 0); #else IOMGR_Select(((long) (ufd->handle)) + 1, &in, 0, 0, 0); #endif /* AFS_PTHREAD_ENV*/ #endif error = USD_READ(ufd, buffer, blksize, &nbytes); if (error) { char buf[80]; sprintf(buf, "File system read failed\n"); VSETCODE(error, buf); break; } if (nbytes == 0) { done = 1; break; } if (rx_Write(call, buffer, nbytes) != nbytes) { error = -1; break; } } if (buffer) free(buffer); return error; } /* function invoked by UV_RestoreVolume, reads the data from rx_trx_stream and * writes it out to the volume. */ afs_int32 WriteData(call, rock) struct rx_call *call; char *rock; { char *filename; usd_handle_t ufd; long blksize; afs_int32 error, code; int ufdIsOpen = 0; error = 0; filename = rock; if (!filename || !*filename) { usd_StandardInput(&ufd); blksize = 4096; ufdIsOpen = 1; } else { code = usd_Open(filename, USD_OPEN_RDONLY, 0, &ufd); if (code == 0) { ufdIsOpen = 1; code = USD_IOCTL(ufd, USD_IOCTL_GETBLKSIZE, &blksize); } if (code) { char buffer[80]; sprintf(buffer, "Could not access file '%s'\n", filename); error = VOLSERBADOP; VSETCODE(error, buffer); goto wfail; } } code = SendFile(ufd, call, blksize); if (code) { error = code; goto wfail; } wfail: if (ufdIsOpen) { code = USD_CLOSE(ufd); if (code) { char buffer[80]; sprintf(buffer, "Could not close dump file %s\n", (filename && *filename) ? filename : "STDOUT"); VSETCODE(code, buffer); if (!error) error = code; } } return error; } /* Receive data from stream into file associated * with */ int ReceiveFile(ufd, call, blksize) usd_handle_t ufd; struct rx_call *call; long blksize; { char *buffer = (char *) 0; afs_int32 bytesread; afs_uint32 bytesleft, w; afs_int32 error = 0; buffer = (char *) safemalloc(blksize); if (!buffer) { char buf[80]; sprintf(buf, "memory allocation failed\n"); VSETCODE(-1, buf); ERROR_EXIT(-1); } while ((bytesread = rx_Read(call, buffer, blksize)) > 0) { for (bytesleft = bytesread; bytesleft; bytesleft -= w) { #ifndef AFS_NT40_ENV /* NT csn't select on non-socket fd's */ fd_set out; FD_ZERO(&out); FD_SET((long) (ufd->handle), &out); /* don't timeout if write blocks */ #ifdef AFS_PTHREAD_ENV select(((long) (ufd->handle)) + 1, 0, &out, 0, 0); #else IOMGR_Select(((long) (ufd->handle)) + 1, 0, &out, 0, 0); #endif /* AFS_PTHREAD_ENV*/ #endif error = USD_WRITE(ufd, &buffer[bytesread - bytesleft], bytesleft, &w); if (error) { char buf[80]; sprintf(buf, "File system write failed\n"); VSETCODE(-1, buf); ERROR_EXIT(-1); } } } error_exit: if (buffer) free(buffer); return (error); } afs_int32 DumpFunction(call, filename) struct rx_call *call; char *filename; { usd_handle_t ufd; /* default is to stdout */ afs_int32 error = 0, code; afs_hyper_t size; long blksize; int ufdIsOpen = 0; /* Open the output file */ if (!filename || !*filename) { usd_StandardOutput(&ufd); blksize = 4096; ufdIsOpen = 1; } else { code = usd_Open(filename, USD_OPEN_CREATE | USD_OPEN_RDWR, 0666, &ufd); if (code == 0) { ufdIsOpen = 1; hzero(size); code = USD_IOCTL(ufd, USD_IOCTL_SETSIZE, &size); } if (code == 0) { code = USD_IOCTL(ufd, USD_IOCTL_GETBLKSIZE, &blksize); } if (code) { char buffer[80]; sprintf(buffer, "Could not create file '%s'\n", filename); VSETCODE(VOLSERBADOP, buffer); ERROR_EXIT(VOLSERBADOP); } } code = ReceiveFile(ufd, call, blksize); if (code) ERROR_EXIT(code); error_exit: /* Close the output file */ if (ufdIsOpen) { code = USD_CLOSE(ufd); if (code) { char buffer[80]; sprintf(buffer, "Could not close dump file %s\n", (filename && *filename) ? filename : "STDIN"); VSETCODE(code, buffer); if (!error) error = code; } } return (error); } struct tqElem { afs_int32 volid; struct tqElem *next; }; struct tqHead { afs_int32 count; struct tqElem *next; }; static struct tqHead busyHead, notokHead; static void qInit(ahead) struct tqHead *ahead; { Zero(ahead, 1, struct tqHead); return; } static void qPut(ahead, volid) struct tqHead *ahead; afs_int32 volid; { struct tqElem *elem; elem = (struct tqElem *) safemalloc(sizeof(struct tqElem)); elem->next = ahead->next; elem->volid = volid; ahead->next = elem; ahead->count++; return; } static void qGet(ahead, volid) struct tqHead *ahead; afs_int32 *volid; { struct tqElem *tmp; if (ahead->count <= 0) return; *volid = ahead->next->volid; tmp = ahead->next; ahead->next = tmp->next; ahead->count--; free(tmp); return; } static FileExists(filename) char *filename; { usd_handle_t ufd; int code; afs_hyper_t size; code = usd_Open(filename, USD_OPEN_RDONLY, 0, &ufd); if (code) { return 0; } code = USD_IOCTL(ufd, USD_IOCTL_GETSIZE, &size); USD_CLOSE(ufd); if (code) { return 0; } return 1; } static void myDisplayFormat(vol, pntr, server, part, totalOK, totalNotOK, totalBusy, fast) HV *vol; volintInfo *pntr; afs_int32 server, part; int *totalOK, *totalNotOK, *totalBusy; int fast; { char pname[10]; char hostname[256]; hv_store(vol, "name", 4, newSVpv(pntr->name, strlen((char *) pntr->name)), 0); if (fast) { hv_store(vol, "volid", 5, newSViv(pntr->volid), 0); } else { hv_store(vol, "status", 6, newSViv(pntr->status), 0); hv_store(vol, "volid", 5, newSViv(pntr->volid), 0); if (pntr->status == VOK) { if (pntr->type == 0) hv_store(vol, "type", 4, newSVpv("RW", 2), 0); if (pntr->type == 1) hv_store(vol, "type", 4, newSVpv("RO", 2), 0); if (pntr->type == 2) hv_store(vol, "type", 4, newSVpv("BK", 2), 0); hv_store(vol, "size", 4, newSViv(pntr->size), 0); if (pntr->inUse == 1) { hv_store(vol, "inUse", 5, newSVpv("On-line", 7), 0); *totalOK += 1; } else { hv_store(vol, "inUse", 5, newSVpv("Off-line", 8), 0); *totalNotOK += 1; } MapPartIdIntoName(part, pname); strcpy(hostname, (char *) hostutil_GetNameByINet(server)); hv_store(vol, "server", 6, newSVpv(hostname, strlen((char *) hostname)), 0); hv_store(vol, "backupID", 8, newSViv(pntr->backupID), 0); hv_store(vol, "parentID", 8, newSViv(pntr->parentID), 0); hv_store(vol, "cloneID", 7, newSViv(pntr->cloneID), 0); hv_store(vol, "maxquota", 8, newSViv(pntr->maxquota), 0); hv_store(vol, "creationDate", 12, newSViv(pntr->creationDate), 0); if (pntr->updateDate < pntr->creationDate) hv_store(vol, "updateDate", 10, newSViv(pntr->creationDate), 0); else hv_store(vol, "updateDate", 10, newSViv(pntr->updateDate), 0); hv_store(vol, "dayUse", 6, newSViv(pntr->dayUse), 0); } else if (pntr->status == VBUSY) { *totalBusy += 1; qPut(&busyHead, pntr->volid); } else { *totalNotOK += 1; qPut(¬okHead, pntr->volid); } } } static void myXDisplayFormat(stats, a_xInfoP, a_servID, a_partID, a_totalOKP, a_totalNotOKP, a_totalBusyP) HV *stats; volintXInfo *a_xInfoP; afs_int32 a_servID; afs_int32 a_partID; int *a_totalOKP; int *a_totalNotOKP; int *a_totalBusyP; { /*XDisplayFormat */ char hostname[256]; char pname[10]; HV *stat1 = (HV *) sv_2mortal((SV *) newHV()); HV *stat2 = (HV *) sv_2mortal((SV *) newHV()); HV *stat3 = (HV *) sv_2mortal((SV *) newHV()); HV *stat4 = (HV *) sv_2mortal((SV *) newHV()); HV *stat5 = (HV *) sv_2mortal((SV *) newHV()); HV *stat6 = (HV *) sv_2mortal((SV *) newHV()); HV *stat7 = (HV *) sv_2mortal((SV *) newHV()); HV *stat8 = (HV *) sv_2mortal((SV *) newHV()); /* Fully-detailed listing. */ hv_store(stats, "status", 6, newSViv(a_xInfoP->status), 0); if (a_xInfoP->status == VOK) { /* Volume's status is OK - all the fields are valid. */ hv_store(stats, "volid", 5, newSViv(a_xInfoP->volid), 0); if (a_xInfoP->type == 0) hv_store(stats, "type", 4, newSVpv("RW", 2), 0); if (a_xInfoP->type == 1) hv_store(stats, "type", 4, newSVpv("RO", 2), 0); if (a_xInfoP->type == 2) hv_store(stats, "type", 4, newSVpv("BK", 2), 0); hv_store(stats, "size", 4, newSViv(a_xInfoP->size), 0); hv_store(stats, "filecount", 9, newSViv(a_xInfoP->filecount), 0); if (a_xInfoP->inUse == 1) { hv_store(stats, "inUse", 5, newSVpv("On-line", 7), 0); (*a_totalOKP)++; } else { hv_store(stats, "inUse", 5, newSVpv("Off-line", 8), 0); (*a_totalNotOKP)++; } MapPartIdIntoName(a_partID, pname); strcpy(hostname, (char *) hostutil_GetNameByINet(a_servID)); hv_store(stats, "server", 6, newSVpv(hostname, strlen((char *) hostname)), 0); hv_store(stats, "partition", 9, newSVpv(pname, strlen(pname)), 0); hv_store(stats, "parentID", 8, newSViv(a_xInfoP->parentID), 0); hv_store(stats, "cloneID", 7, newSViv(a_xInfoP->cloneID), 0); hv_store(stats, "backupID", 8, newSViv(a_xInfoP->backupID), 0); hv_store(stats, "maxquota", 8, newSViv(a_xInfoP->maxquota), 0); hv_store(stats, "creationDate", 12, newSViv(a_xInfoP->creationDate), 0); if (a_xInfoP->updateDate < a_xInfoP->creationDate) { hv_store(stats, "updateDate", 10, newSViv(a_xInfoP->creationDate), 0); } else { hv_store(stats, "updateDate", 10, newSViv(a_xInfoP->updateDate), 0); } hv_store(stats, "dayUse", 6, newSViv(a_xInfoP->dayUse), 0); hv_store(stat1, "samenet", 7, newSViv(a_xInfoP->stat_reads[VOLINT_STATS_SAME_NET]), 0); hv_store(stat1, "samenetauth", 11, newSViv(a_xInfoP->stat_reads[VOLINT_STATS_SAME_NET_AUTH]), 0); hv_store(stat1, "diffnet", 7, newSViv(a_xInfoP->stat_reads[VOLINT_STATS_DIFF_NET]), 0); hv_store(stat1, "diffnetauth", 11, newSViv(a_xInfoP->stat_reads[VOLINT_STATS_DIFF_NET_AUTH]), 0); hv_store(stats, "Reads", 5, newRV_inc((SV *) (stat1)), 0); hv_store(stat2, "samenet", 7, newSViv(a_xInfoP->stat_writes[VOLINT_STATS_SAME_NET]), 0); hv_store(stat2, "samenetauth", 11, newSViv(a_xInfoP->stat_writes[VOLINT_STATS_SAME_NET_AUTH]), 0); hv_store(stat2, "diffnet", 7, newSViv(a_xInfoP->stat_writes[VOLINT_STATS_DIFF_NET]), 0); hv_store(stat2, "diffnetauth", 11, newSViv(a_xInfoP->stat_writes[VOLINT_STATS_DIFF_NET_AUTH]), 0); hv_store(stats, "Writes", 6, newRV_inc((SV *) (stat2)), 0); hv_store(stat3, "fileSameAuthor", 12, newSViv(a_xInfoP->stat_fileSameAuthor[VOLINT_STATS_TIME_IDX_0]), 0); hv_store(stat3, "fileDiffAuthor", 12, newSViv(a_xInfoP->stat_fileDiffAuthor[VOLINT_STATS_TIME_IDX_0]), 0); hv_store(stat3, "dirSameAuthor", 11, newSViv(a_xInfoP->stat_dirSameAuthor[VOLINT_STATS_TIME_IDX_0]), 0); hv_store(stat3, "dirDiffAuthor", 11, newSViv(a_xInfoP->stat_dirDiffAuthor[VOLINT_STATS_TIME_IDX_0]), 0); hv_store(stats, "0-60sec", 7, newRV_inc((SV *) (stat3)), 0); hv_store(stat4, "fileSameAuthor", 12, newSViv(a_xInfoP->stat_fileSameAuthor[VOLINT_STATS_TIME_IDX_1]), 0); hv_store(stat4, "fileDiffAuthor", 12, newSViv(a_xInfoP->stat_fileDiffAuthor[VOLINT_STATS_TIME_IDX_1]), 0); hv_store(stat4, "dirSameAuthor", 11, newSViv(a_xInfoP->stat_dirSameAuthor[VOLINT_STATS_TIME_IDX_1]), 0); hv_store(stat4, "dirDiffAuthor", 11, newSViv(a_xInfoP->stat_dirDiffAuthor[VOLINT_STATS_TIME_IDX_1]), 0); hv_store(stats, "1-10min", 7, newRV_inc((SV *) (stat4)), 0); hv_store(stat5, "fileSameAuthor", 12, newSViv(a_xInfoP->stat_fileSameAuthor[VOLINT_STATS_TIME_IDX_2]), 0); hv_store(stat5, "fileDiffAuthor", 12, newSViv(a_xInfoP->stat_fileDiffAuthor[VOLINT_STATS_TIME_IDX_2]), 0); hv_store(stat5, "dirSameAuthor", 11, newSViv(a_xInfoP->stat_dirSameAuthor[VOLINT_STATS_TIME_IDX_2]), 0); hv_store(stat5, "dirDiffAuthor", 11, newSViv(a_xInfoP->stat_dirDiffAuthor[VOLINT_STATS_TIME_IDX_2]), 0); hv_store(stats, "10min-1hr", 9, newRV_inc((SV *) (stat5)), 0); hv_store(stat6, "fileSameAuthor", 12, newSViv(a_xInfoP->stat_fileSameAuthor[VOLINT_STATS_TIME_IDX_3]), 0); hv_store(stat6, "fileDiffAuthor", 12, newSViv(a_xInfoP->stat_fileDiffAuthor[VOLINT_STATS_TIME_IDX_3]), 0); hv_store(stat6, "dirSameAuthor", 11, newSViv(a_xInfoP->stat_dirSameAuthor[VOLINT_STATS_TIME_IDX_3]), 0); hv_store(stat6, "dirDiffAuthor", 11, newSViv(a_xInfoP->stat_dirDiffAuthor[VOLINT_STATS_TIME_IDX_3]), 0); hv_store(stats, "1hr-1day", 8, newRV_inc((SV *) (stat6)), 0); hv_store(stat7, "fileSameAuthor", 12, newSViv(a_xInfoP->stat_fileSameAuthor[VOLINT_STATS_TIME_IDX_4]), 0); hv_store(stat7, "fileDiffAuthor", 12, newSViv(a_xInfoP->stat_fileDiffAuthor[VOLINT_STATS_TIME_IDX_4]), 0); hv_store(stat7, "dirSameAuthor", 11, newSViv(a_xInfoP->stat_dirSameAuthor[VOLINT_STATS_TIME_IDX_4]), 0); hv_store(stat7, "dirDiffAuthor", 11, newSViv(a_xInfoP->stat_dirDiffAuthor[VOLINT_STATS_TIME_IDX_4]), 0); hv_store(stats, "1day-1wk", 8, newRV_inc((SV *) (stat7)), 0); hv_store(stat8, "fileSameAuthor", 12, newSViv(a_xInfoP->stat_fileSameAuthor[VOLINT_STATS_TIME_IDX_5]), 0); hv_store(stat8, "fileDiffAuthor", 12, newSViv(a_xInfoP->stat_fileDiffAuthor[VOLINT_STATS_TIME_IDX_5]), 0); hv_store(stat8, "dirSameAuthor", 11, newSViv(a_xInfoP->stat_dirSameAuthor[VOLINT_STATS_TIME_IDX_5]), 0); hv_store(stat8, "dirDiffAuthor", 11, newSViv(a_xInfoP->stat_dirDiffAuthor[VOLINT_STATS_TIME_IDX_5]), 0); hv_store(stats, ">1wk", 4, newRV_inc((SV *) (stat8)), 0); } /*Volume status OK */ else if (a_xInfoP->status == VBUSY) { (*a_totalBusyP)++; qPut(&busyHead, a_xInfoP->volid); } /*Busy volume */ else { (*a_totalNotOKP)++; qPut(¬okHead, a_xInfoP->volid); } /*Screwed volume */ } /*myXDisplayFormat */ /* static void XVolumeStats_ZZZ(volinfo, a_xInfoP, a_entryP, a_srvID, a_partID, a_volType) */ /* HV *volinfo; */ /* volintXInfo *a_xInfoP; */ /* struct nvldbentry *a_entryP; */ /* afs_int32 a_srvID; */ /* afs_int32 a_partID; */ /* int a_volType; */ /* { /\*XVolumeStats *\/ */ /* int totalOK, totalNotOK, totalBusy; /\*Dummies - we don't really count here *\/ */ /* myXDisplayFormat(volinfo, a_xInfoP, /\*Ptr to extended volume info *\/ */ /* a_srvID, /\*Server ID to print *\/ */ /* a_partID, /\*Partition ID to print *\/ */ /* &totalOK, /\*Ptr to total-OK counter *\/ */ /* &totalNotOK, /\*Ptr to total-screwed counter *\/ */ /* &totalBusy); /\*Ptr to total-busy counter *\/ */ /* return; */ /* } /\*XVolumeStats *\/ */ static void VolumeStats(volinfo, pntr, entry, server, part, voltype) HV *volinfo; volintInfo *pntr; struct nvldbentry *entry; int voltype; afs_int32 server, part; { int totalOK, totalNotOK, totalBusy; myDisplayFormat(volinfo, pntr, server, part, &totalOK, &totalNotOK, &totalBusy, 0); return; } static void DisplayVolumes(partition, server, part, pntr, count, fast) HV *partition; afs_int32 server, part; volintInfo *pntr; afs_int32 count, fast; { int totalOK, totalNotOK, totalBusy, i; afs_int32 volid; totalOK = 0; totalNotOK = 0; totalBusy = 0; qInit(&busyHead); qInit(¬okHead); for (i = 0; i < count; i++) { HV *vol = (HV *) sv_2mortal((SV *) newHV()); myDisplayFormat(vol, pntr, server, part, &totalOK, &totalNotOK, &totalBusy, fast); hv_store(partition, pntr->name, strlen(pntr->name), newRV_inc((SV *) (vol)), 0); pntr++; } if (!fast) { hv_store(partition, " totalBusy", 10, newSViv(totalBusy), 0); hv_store(partition, " totalNotOK", 11, newSViv(totalNotOK), 0); } } /* static void myDisplayFormat2(vol, server, partition, pntr) */ /* HV *vol; */ /* long server, partition; */ /* volintInfo *pntr; */ /* { */ /* static long server_cache = -1, partition_cache = -1; */ /* static char hostname[256], address[32], pname[16]; */ /* if (server != server_cache) { */ /* struct in_addr s; */ /* s.s_addr = server; */ /* strcpy(hostname, (char *) hostutil_GetNameByINet(server)); */ /* strcpy(address, inet_ntoa(s)); */ /* server_cache = server; */ /* } */ /* if (partition != partition_cache) { */ /* MapPartIdIntoName(partition, pname); */ /* partition_cache = partition; */ /* } */ /* hv_store(vol, "name", 4, newSVpv(pntr->name, strlen(pntr->name)), 0); */ /* hv_store(vol, "id", 2, newSViv(pntr->volid), 0); */ /* hv_store(vol, "address", 7, newSVpv(address, strlen(address)), 0); */ /* hv_store(vol, "hostname", 8, newSVpv(hostname, strlen(hostname)), 0); */ /* hv_store(vol, "part", 4, newSVpv(pname, strlen(pname)), 0); */ /* hv_store(vol, "status", 6, newSViv(pntr->status), 0); */ /* hv_store(vol, "backupID", 8, newSViv(pntr->backupID), 0); */ /* hv_store(vol, "parentID", 8, newSViv(pntr->parentID), 0); */ /* hv_store(vol, "cloneID", 7, newSViv(pntr->cloneID), 0); */ /* hv_store(vol, "inUse", 5, newSViv(pntr->inUse), 0); */ /* hv_store(vol, "needsSalvaged", 13, newSViv(pntr->needsSalvaged), 0); */ /* /\* 0xD3 is from afs/volume.h since I had trouble including the file *\/ */ /* hv_store(vol, "destroyMe", 9, newSViv(pntr->destroyMe), 0); */ /* hv_store(vol, "type", 4, newSViv(pntr->type), 0); */ /* hv_store(vol, "creationDate", 12, newSViv(pntr->creationDate), 0); */ /* hv_store(vol, "accessDate", 10, newSViv(pntr->accessDate), 0); */ /* hv_store(vol, "updateDate", 10, newSViv(pntr->updateDate), 0); */ /* hv_store(vol, "backupDate", 10, newSViv(pntr->backupDate), 0); */ /* hv_store(vol, "copyDate", 8, newSViv(pntr->copyDate), 0); */ /* hv_store(vol, "flags", 5, newSViv(pntr->flags), 0); */ /* hv_store(vol, "diskused", 8, newSViv(pntr->size), 0); */ /* hv_store(vol, "maxquota", 8, newSViv(pntr->maxquota), 0); */ /* hv_store(vol, "minquota", 8, newSViv(pntr->spare0), 0); */ /* hv_store(vol, "filecount", 9, newSViv(pntr->filecount), 0); */ /* hv_store(vol, "dayUse", 6, newSViv(pntr->dayUse), 0); */ /* hv_store(vol, "weekUse", 7, newSViv(pntr->spare1), 0); */ /* hv_store(vol, "spare2", 6, newSViv(pntr->spare2), 0); */ /* hv_store(vol, "spare3", 6, newSViv(pntr->spare3), 0); */ /* return; */ /* } */ /* static void DisplayVolumes2(part, server, partition, pntr, count) */ /* HV *part; */ /* volintInfo *pntr; */ /* long server, partition, count; */ /* { */ /* long i; */ /* for (i = 0; i < count; i++) { */ /* HV *vol = (HV *) sv_2mortal((SV *) newHV()); */ /* myDisplayFormat2(vol, server, partition, pntr); */ /* hv_store(part, pntr->name, strlen(pntr->name), newRV_inc((SV *) (vol)), 0); */ /* pntr++; */ /* } */ /* return; */ /* } */ static void XDisplayVolumes(part, a_servID, a_partID, a_xInfoP, a_count) HV *part; afs_int32 a_servID; afs_int32 a_partID; volintXInfo *a_xInfoP; afs_int32 a_count; { /*XDisplayVolumes */ int totalOK; /*Total OK volumes */ int totalNotOK; /*Total screwed volumes */ int totalBusy; /*Total busy volumes */ int i; /*Loop variable */ afs_int32 volid; /*Current volume ID */ /* Initialize counters and (global!!) queues.*/ totalOK = 0; totalNotOK = 0; totalBusy = 0; qInit(&busyHead); qInit(¬okHead); /* Display each volume in the list.*/ for (i = 0; i < a_count; i++) { HV *vol = (HV *) sv_2mortal((SV *) newHV()); myXDisplayFormat(vol, a_xInfoP, a_servID, a_partID, &totalOK, &totalNotOK, &totalBusy); hv_store(part, a_xInfoP->name, strlen(a_xInfoP->name), newRV_inc((SV *) (vol)), 0); a_xInfoP++; } /* If any volumes were found to be busy or screwed, display them.*/ hv_store(part, " totalBusy", 10, newSViv(totalBusy), 0); hv_store(part, " totalNotOK", 11, newSViv(totalNotOK), 0); } /*XDisplayVolumes */ /* end of helper functions for VOS class */ /* helper functions for VLDB class: */ void myEnumerateEntry(stats, entry) HV *stats; struct nvldbentry *entry; { int i; char pname[10]; char hostname[256]; int isMixed = 0; AV *av = (AV *) sv_2mortal((SV *) newAV()); if (entry->flags & RW_EXISTS) hv_store(stats, "RWrite", 6, newSViv(entry->volumeId[RWVOL]), 0); if (entry->flags & RO_EXISTS) hv_store(stats, "ROnly", 5, newSViv(entry->volumeId[ROVOL]), 0); if (entry->flags & BACK_EXISTS) hv_store(stats, "Backup", 6, newSViv(entry->volumeId[BACKVOL]), 0); if ((entry->cloneId != 0) && (entry->flags & RO_EXISTS)) hv_store(stats, "cloneId", 7, newSViv(entry->cloneId), 0); hv_store(stats, "nServers", 8, newSViv(entry->nServers), 0); for (i = 0; i < entry->nServers; i++) { if (entry->serverFlags[i] & NEW_REPSITE) isMixed = 1; } for (i = 0; i < entry->nServers; i++) { HV *server = (HV *) sv_2mortal((SV *) newHV()); MapPartIdIntoName(entry->serverPartition[i], pname); strcpy(hostname, (char *) hostutil_GetNameByINet(entry->serverNumber[i])); hv_store(server, "name", 4, newSVpv(hostname, strlen((char *) hostname)), 0); hv_store(server, "partition", 9, newSVpv(pname, strlen((char *) pname)), 0); hv_store(server, "serverFlags", 11, newSViv(entry->serverFlags[i]), 0); if (entry->serverFlags[i] & ITSRWVOL) hv_store(server, "type", 4, newSVpv("RW", 2), 0); else hv_store(server, "type", 4, newSVpv("RO", 2), 0); if (isMixed) { if (entry->serverFlags[i] & NEW_REPSITE) hv_store(server, "release", 7, newSVpv("New release", 12), 0); else hv_store(server, "release", 7, newSVpv("Old release", 12), 0); } else { if (entry->serverFlags[i] & RO_DONTUSE) hv_store(server, "release", 7, newSVpv("Not released", 12), 0); } av_push(av, newRV_inc((SV *) (server))); } hv_store(stats, "server", 6, newRV_inc((SV *) (av)), 0); hv_store(stats, "flags", 5, newSViv(entry->flags), 0); if (entry->flags & VLOP_ALLOPERS) hv_store(stats, "locked", 6, newSViv(entry->flags & VLOP_ALLOPERS), 0); return; } static VolumeInfoCmd(stats, name) HV *stats; char *name; { struct nvldbentry entry; afs_int32 vcode; /* printf("DEBUG-1-VolumeInfoCmd %s \n", name); */ /* The vlserver will handle names with the .readonly * and .backup extension as well as volume ids. */ vcode = VLDB_GetEntryByName(name, &entry); /* printf("DEBUG-2-VolumeInfoCmd %d \n", vcode); */ if (vcode) return (vcode); /* printf("DEBUG-3-VolumeInfoCmd \n"); */ MapHostToNetwork(&entry); /* printf("DEBUG-4-VolumeInfoCmd \n"); */ myEnumerateEntry(stats, &entry); /* printf("DEBUG-5-VolumeInfoCmd \n"); */ return 0; } /* static void PostVolumeStats_ZZZ(volinfo, entry) */ /* HV *volinfo; */ /* struct nvldbentry *entry; */ /* { */ /* myEnumerateEntry(volinfo, entry); */ /* /\* Check for VLOP_ALLOPERS *\/ */ /* if (entry->flags & VLOP_ALLOPERS) */ /* fprintf(STDOUT, " Volume is currently LOCKED \n"); */ /* return; */ /* } */ static void myprint_addrs(addr, addrs, m_uuid, nentries, print, noresolve) HV * addr; const bulkaddrs * addrs; const afsUUID * m_uuid; int nentries; int print; int noresolve; { afs_int32 vcode; afs_int32 i, j; afs_int32 *addrp; bulkaddrs m_addrs; ListAddrByAttributes m_attrs; afs_int32 m_unique, m_nentries, *m_addrp; afs_int32 base, index; char buf[1024]; #ifdef OpenAFS if (print) { afsUUID_to_string(m_uuid, buf, sizeof(buf)); hv_store(addr, "UUID", 4, newSVpv(buf, strlen(buf)), 0); } #else noresolve = 0; #endif /* print out the list of all the server */ addrp = (afs_int32 *) addrs->bulkaddrs_val; for (i = 0; i < nentries; i++, addrp++) { /* If it is a multihomed address, then we will need to * get the addresses for this multihomed server from * the vlserver and print them. */ if (((*addrp & 0xff000000) == 0xff000000) && ((*addrp) & 0xffff)) { /* Get the list of multihomed fileservers */ base = (*addrp >> 16) & 0xff; index = (*addrp) & 0xffff; if ((base >= 0) && (base <= VL_MAX_ADDREXTBLKS) && (index >= 1) && (index <= VL_MHSRV_PERBLK)) { AV *names = newAV(); AV *IPs = newAV(); m_attrs.Mask = VLADDR_INDEX; m_attrs.index = (base * VL_MHSRV_PERBLK) + index; m_nentries = 0; m_addrs.bulkaddrs_val = 0; m_addrs.bulkaddrs_len = 0; vcode = ubik_Call(VL_GetAddrsU, cstruct, 0, &m_attrs, &m_uuid, &m_unique, &m_nentries, &m_addrs); if (vcode) { char buffer[80]; sprintf(buffer, "AFS::VLDB: could not list the multi-homed server addresses\n"); VSETCODE(vcode, buffer); } /* Print the list */ m_addrp = (afs_int32 *) m_addrs.bulkaddrs_val; for (j = 0; j < m_nentries; j++, m_addrp++) { *m_addrp = htonl(*m_addrp); #ifdef OpenAFS if (noresolve) { char hoststr[16]; sprintf(buf, "%s", afs_inet_ntoa_r(*m_addrp, hoststr)); av_push(IPs, newSVpv(buf, strlen(buf))); } else { #endif sprintf(buf, "%s", (char *) hostutil_GetNameByINet(*m_addrp)); av_push(names, newSVpv(buf, strlen(buf))); #ifdef OpenAFS } #endif } /* for loop */ if (j == 0) { printf("\n"); av_push(names, newSVpv(NULL, 0)); av_push(IPs, newSVpv(NULL, 0)); } continue; hv_store(addr, "IP", 2, newRV_inc((SV *) (IPs)), 0); hv_store(addr, "name", 4, newRV_inc((SV *) (names)), 0); } } /* Otherwise, it is a non-multihomed entry and contains * the IP address of the server - print it. */ *addrp = htonl(*addrp); #ifdef OpenAFS if (noresolve) { char hoststr[16]; sprintf(buf, "%s", afs_inet_ntoa_r(*addrp, hoststr)); hv_store(addr, "IP", 2, newSVpv(buf, strlen(buf)), 0); } else { #endif sprintf(buf, "%s", (char *) hostutil_GetNameByINet(*addrp)); hv_store(addr, "name", 4, newSVpv(buf, strlen(buf)), 0); #ifdef OpenAFS } #endif } /* for loop */ return; } static void GetServerAndPart(entry, voltype, server, part, previdx) struct nvldbentry *entry; afs_int32 *server, *part; int voltype; int *previdx; { int i, istart, vtype; *server = -1; *part = -1; /* Doesn't check for non-existance of backup volume */ if ((voltype == RWVOL) || (voltype == BACKVOL)) { vtype = ITSRWVOL; istart = 0; /* seach the entire entry */ } else { vtype = ITSROVOL; /* Seach from beginning of entry or pick up where we left off */ istart = ((*previdx < 0) ? 0 : *previdx + 1); } for (i = istart; i < entry->nServers; i++) { if (entry->serverFlags[i] & vtype) { *server = entry->serverNumber[i]; *part = entry->serverPartition[i]; *previdx = i; return; } } /* Didn't find any, return -1 */ *previdx = -1; return; } /* end of helper functions for VLDB class */ /* helper functions for BOS class */ /* is this a digit or a digit-like thing? */ static int ismeta(ac, abase) register int abase; register int ac; { /* if (ac == '-' || ac == 'x' || ac == 'X') return 1; */ if (ac >= '0' && ac <= '7') return 1; if (abase <= 8) return 0; if (ac >= '8' && ac <= '9') return 1; if (abase <= 10) return 0; if (ac >= 'a' && ac <= 'f') return 1; if (ac >= 'A' && ac <= 'F') return 1; return 0; } /* given that this is a digit or a digit-like thing, compute its value */ static int getmeta(ac) register int ac; { if (ac >= '0' && ac <= '9') return ac - '0'; if (ac >= 'a' && ac <= 'f') return ac - 'a' + 10; if (ac >= 'A' && ac <= 'F') return ac - 'A' + 10; return 0; } #ifndef OpenAFS afs_uint32 GetUInt32(as, aval) register char *as; afs_uint32 *aval; { register afs_uint32 total; register int tc; int base; total = 0; /* initialize things */ /* skip over leading spaces */ while ((tc = *as)) { if (tc != ' ' && tc != '\t') break; } /* compute the base */ if (*as == '0') { as++; if (*as == 'x' || *as == 'X') { base = 16; as++; } else base = 8; } else base = 10; /* compute the # itself */ while ((tc = *as)) { if (!ismeta(tc, base)) return -1; total *= base; total += getmeta(tc); as++; } *aval = total; return 0; } #else #if defined(OpenAFS_1_3) || defined(OpenAFS_1_4) afs_uint32 GetUInt32(as, aval) register char *as; afs_uint32 *aval; { croak("DEBUG: GetUInt32 for OpenAFS not available ...\nPlease inform the author.. ."); } #endif #endif /* keep those lines small */ static char *em(acode) afs_int32 acode; { if (acode == -1) return "communications failure (-1)"; else if (acode == -3) return "communications timeout (-3)"; else return (char *) error_message(acode); } static struct rx_connection *internal_bos_new(code, hostname, localauth, noauth, aencrypt, tname) int32 *code; char *hostname; int localauth; int noauth; int aencrypt; char *tname; { struct hostent *th; register struct rx_connection *tconn; struct rx_securityClass *sc[3]; int scIndex; afs_int32 addr; int encryptLevel; struct ktc_principal sname; struct ktc_token ttoken; th = (struct hostent *) hostutil_GetHostByName(hostname); if (!th) { char buffer[80]; sprintf(buffer, "AFS::BOS: can't find address for host '%s'\n", hostname); *code = -1; BSETCODE(code, buffer); /* printf("bos DEBUG-1: %s\n", buffer); */ return NULL; } /* Copy(th->h_addr, &addr, sizeof(afs_int32), afs_int32); */ Copy(th->h_addr, &addr, th->h_length, char); /* get tokens for making authenticated connections */ *code = rx_Init(0); if (*code) { char buffer[80]; sprintf(buffer, "AFS::BOS: could not initialize rx (%d)\n", *code); BSETCODE(code, buffer); /* printf("bos DEBUG-2\n"); */ return NULL; } *code = ka_Init(0); if (*code) { char buffer[80]; sprintf(buffer, "AFS::BOS: could not initialize ka (%d)\n", *code); BSETCODE(code, buffer); /* printf("bos DEBUG-3\n"); */ return NULL; } if (localauth) internal_GetServerConfigDir(); else internal_GetConfigDir(); cdir = afsconf_Open(config_dir); if (!cdir) { *code = errno; SETCODE(code); /* printf("bos DEBUG-4\n"); */ return NULL; } if (cdir) { struct afsconf_cell info; /* next call expands cell name abbrevs for us and handles looking up * local cell */ *code = internal_GetCellInfo(tname, (char *) 0, &info); if (*code) { char buffer[80]; sprintf(buffer, "AFS::BOS %d (can't find cell '%s' in cell database)", *code, (tname ? tname : "")); BSETCODE(code, buffer); /* printf("bos DEBUG-5\n"); */ return NULL; } else strcpy(sname.cell, info.name); } else { char buffer[80]; sprintf(buffer, "AFS::BOS: can't open cell database (%s)\n", config_dir); *code = -1; BSETCODE(code, buffer); /* printf("bos DEBUG-6\n"); */ return NULL; } sname.instance[0] = 0; strcpy(sname.name, "afs"); sc[0] = (struct rx_securityClass *) rxnull_NewClientSecurityObject(); sc[1] = 0; sc[2] = 0; scIndex = 0; if (!noauth) { /* not -noauth */ if (localauth) { /* -localauth */ *code = afsconf_GetLatestKey(cdir, 0, 0); if (*code) fprintf(stderr, "AFS::BOS %d (getting key from local KeyFile)", *code); else { if (aencrypt) *code = afsconf_ClientAuthSecure(cdir, &sc[2], &scIndex); else *code = afsconf_ClientAuth(cdir, &sc[2], &scIndex); if (*code) fprintf(stderr, "AFS::BOS %d (calling ClientAuth)", *code); else if (scIndex != 2) /* this shouldn't happen */ sc[scIndex] = sc[2]; } } else { /* not -localauth, check for tickets */ *code = ktc_GetToken(&sname, &ttoken, sizeof(ttoken), (char *) 0); if (*code == 0) { /* have tickets, will travel */ if (ttoken.kvno >= 0 && ttoken.kvno <= 255); else { fprintf(stderr, "AFS::BOS: funny kvno (%d) in ticket, proceeding\n", ttoken.kvno); } /* kerberos tix */ if (aencrypt) encryptLevel = rxkad_crypt; else encryptLevel = rxkad_clear; sc[2] = (struct rx_securityClass *) rxkad_NewClientSecurityObject (encryptLevel, &ttoken.sessionKey, ttoken.kvno, ttoken.ticketLen, ttoken.ticket); scIndex = 2; } else fprintf(stderr, "AFS::BOS %d (getting tickets)", *code); } if ((scIndex == 0) || (sc[scIndex] == 0)) { fprintf(stderr, "AFS::BOS: running unauthenticated\n"); scIndex = 0; } } tconn = rx_NewConnection(addr, htons(AFSCONF_NANNYPORT), 1, sc[scIndex], scIndex); if (!tconn) { char buffer[80]; sprintf(buffer, "AFS::BOS: could not create rx connection\n"); *code = -1; BSETCODE(code, buffer); /* printf("bos DEBUG-7\n"); */ return NULL; } rxs_Release(sc[scIndex]); return tconn; } static int DoStat(stats, aname, aconn, aint32p, firstTime) HV *stats; IN char *aname; IN register struct rx_connection *aconn; IN int aint32p; IN int firstTime; /* true iff first instance in cmd */ { afs_int32 temp; char buffer[500]; register afs_int32 code; register afs_int32 i; struct bozo_status istatus; char *tp; char *is1, *is2, *is3, *is4; /* instance strings */ char info[255]; tp = buffer; code = BOZO_GetInstanceInfo(aconn, aname, &tp, &istatus); if (code) { char buf[240]; sprintf(buf, "AFS::BOS: failed to get instance info for '%s' (%s)\n", aname, em(code)); BSETCODE(code, buf); return -1; } if (firstTime && aint32p && (istatus.flags & BOZO_BADDIRACCESS)) { char buf[80]; sprintf(buf, "Bosserver reports inappropriate access on server directories\n"); BSETCODE(-1, buf); } /*printf("Instance %s, ", aname); */ if (aint32p) { /* printf("(type is %s) ", buffer); */ hv_store(stats, "type", 4, newSVpv(buffer, strlen(buffer)), 0); } sprintf(info, "%s", ""); if (istatus.fileGoal == istatus.goal) { if (!istatus.goal) sprintf(info, "%s", "disabled"); } else { if (istatus.fileGoal) sprintf(info, "%s", "temporarily disabled"); else sprintf(info, "%s", "temporarily enabled"); } hv_store(stats, "info", 4, newSVpv(info, strlen(info)), 0); hv_store(stats, "goal", 4, newSViv(istatus.goal), 0); hv_store(stats, "fileGoal", 8, newSViv(istatus.fileGoal), 0); if (istatus.flags & BOZO_ERRORSTOP) { /* printf("stopped for too many errors, "); */ hv_store(stats, "status", 6, newSViv(BOZO_ERRORSTOP), 0); } if (istatus.flags & BOZO_HASCORE) { /* printf("has core file, "); */ hv_store(stats, "status", 6, newSViv(BOZO_HASCORE), 0); } hv_store(stats, "flags", 5, newSViv(istatus.flags), 0); tp = buffer; code = BOZO_GetStatus(aconn, aname, &temp, &tp); if (code) { char buf[240]; sprintf(buf, "AFS::BOS: failed to get status for instance '%s' (%s)\n", aname, em(code)); BSETCODE(code, buf); } else { /* printf("currently ", aname); */ /* if (temp == BSTAT_NORMAL) printf("running normally.\n"); */ /* else if (temp == BSTAT_SHUTDOWN) printf("shutdown.\n"); */ /* else if (temp == BSTAT_STARTINGUP) printf("starting up.\n"); */ /* else if (temp == BSTAT_SHUTTINGDOWN) printf("shutting down.\n"); */ hv_store(stats, "status", 6, newSViv(temp), 0); if (buffer[0] != 0) { /* printf(" Auxiliary status is: %s.\n", buffer); */ hv_store(stats, "aux_status", 10, newSVpv(buffer, strlen(buffer)), 0); } } /* are we done yet? */ if (!aint32p) return 0; if (istatus.procStartTime) { /* printf(" Process last started at %s (%d proc starts)\n", */ /* DateOf(istatus.procStartTime), istatus.procStarts); */ hv_store(stats, "procStartTime", 13, newSViv(istatus.procStartTime), 0); hv_store(stats, "procStarts", 10, newSViv(istatus.procStarts), 0); } if (istatus.lastAnyExit) { /* printf(" Last exit at %s\n", DateOf(istatus.lastAnyExit)); */ hv_store(stats, "lastAnyExit", 11, newSViv(istatus.lastAnyExit), 0); } if (istatus.lastErrorExit) { is1 = is2 = is3 = is4 = (char *) 0; /* printf(" Last error exit at %s, ", DateOf(istatus.lastErrorExit)); */ hv_store(stats, "lastErrorExit", 13, newSViv(istatus.lastErrorExit), 0); code = BOZO_GetInstanceStrings(aconn, aname, &is1, &is2, &is3, &is4); /* don't complain about failing call, since could simply mean * interface mismatch. */ if (code == 0) { if (*is1 != 0) { /* non-null instance string */ /* printf("by %s, ", is1); */ hv_store(stats, "by", 2, newSVpv(is1, strlen(is1)), 0); } Safefree(is1); Safefree(is2); Safefree(is3); Safefree(is4); } if (istatus.errorSignal) { /* if (istatus.errorSignal == SIGTERM) */ /* printf("due to shutdown request\n"); */ /* else */ /* printf("due to signal %d\n", istatus.errorSignal); */ hv_store(stats, "errorSignal", 11, newSViv(istatus.errorSignal), 0); } else { /* printf("by exiting with code %d\n", istatus.errorCode); */ hv_store(stats, "errorCode", 9, newSViv(istatus.errorCode), 0); } } if (aint32p > 1) { AV *av = (AV *) sv_2mortal((SV *) newAV()); /* try to display all the parms */ for (i = 0;; i++) { tp = buffer; code = BOZO_GetInstanceParm(aconn, aname, i, &tp); if (code) break; /* fprintf(stderr, " Command %d is '%s'\n", i+1, buffer); */ av_push(av, newSVpv(buffer, strlen(buffer))); } hv_store(stats, "command", 7, newRV_inc((SV *) (av)), 0); tp = buffer; code = BOZO_GetInstanceParm(aconn, aname, 999, &tp); if (!code) { /* Any type of failure is treated as not having a notifier program */ /* printf(" Notifier is '%s'\n", buffer); */ hv_store(stats, "notifier", 8, newSVpv(buffer, strlen(buffer)), 0); } /* printf("\n"); */ } return 0; } static afs_int32 GetServerGoal(aconn, aname) char *aname; struct rx_connection *aconn; { char buffer[500]; char *tp; register afs_int32 code; struct bozo_status istatus; tp = buffer; code = BOZO_GetInstanceInfo(aconn, aname, &tp, &istatus); if (code) { printf("AFS::BOS: failed to get instance info for '%s' (%s)\n", aname, em(code)); /* if we can't get the answer, assume its running */ return BSTAT_NORMAL; } if (istatus.goal == 0) return BSTAT_SHUTDOWN; else return BSTAT_NORMAL; } #define PARMBUFFERSSIZE 32 static struct SalvageParms { afs_int32 Optdebug; afs_int32 Optnowrite; afs_int32 Optforce; afs_int32 Optoktozap; afs_int32 Optrootfiles; afs_int32 Optsalvagedirs; afs_int32 Optblockreads; afs_int32 OptListResidencies; afs_int32 OptSalvageRemote; afs_int32 OptSalvageArchival; afs_int32 OptIgnoreCheck; afs_int32 OptForceOnLine; afs_int32 OptUseRootDirACL; afs_int32 OptTraceBadLinkCounts; afs_int32 OptDontAskFS; afs_int32 OptLogLevel; afs_int32 OptRxDebug; afs_uint32 OptResidencies; } mrafsParm; static int DoSalvage(aconn, aparm1, aparm2, aoutName, showlog, parallel, atmpDir, orphans) struct rx_connection *aconn; char *aoutName; char *aparm1; char *aparm2; afs_int32 showlog; char *parallel; char *atmpDir; char *orphans; { register afs_int32 code; char *parms[6]; char buffer; char tbuffer[BOZO_BSSIZE]; struct bozo_status istatus; struct rx_call *tcall; char *tp; FILE *outFile; int closeIt = 0; char partName[20]; /* canonical name for partition */ char pbuffer[PARMBUFFERSSIZE]; afs_int32 partNumber; char *notifier = NONOTIFIER; /* if a partition was specified, canonicalize the name, since the salvager has a stupid partition ID parser */ if (aparm1) { partNumber = volutil_GetPartitionID(aparm1); if (partNumber < 0) { char buffer[80]; sprintf(buffer, "AFS::BOS: could not parse partition ID '%s'\n", aparm1); BSETCODE(EINVAL, buffer); return EINVAL; } tp = (char *) volutil_PartitionName(partNumber); if (!tp) { char buffer[80]; sprintf(buffer, "AFS::BOS: internal error parsing partition ID '%s'\n", aparm1); BSETCODE(EINVAL, buffer); return EINVAL; } strcpy(partName, tp); } else partName[0] = 0; /* open the file name */ if (aoutName) { outFile = fopen(aoutName, "w"); if (!outFile) { char buffer[80]; sprintf(buffer, "AFS::BOS: can't open specified SalvageLog file '%s'\n", aoutName); BSETCODE(ENOENT, buffer); return ENOENT; } closeIt = 1; /* close this file later */ } else { outFile = stdout; closeIt = 0; /* don't close this file later */ } for (code = 2; code < 6; code++) parms[code] = ""; if (!aparm2) aparm2 = ""; /* MUST pass canonical (wire-format) salvager path to bosserver */ strncpy(tbuffer, AFSDIR_CANONICAL_SERVER_SALVAGER_FILEPATH, BOZO_BSSIZE); if (*aparm2 != 0) { if ((strlen(tbuffer) + 1 + strlen(partName) + 1 + strlen(aparm2) + 1) > BOZO_BSSIZE) { char buffer[80]; sprintf(buffer, "AFS::BOS: command line too big\n"); BSETCODE(E2BIG, buffer); return (E2BIG); } strcat(tbuffer, " "); strcat(tbuffer, partName); strcat(tbuffer, " "); strcat(tbuffer, aparm2); } else { if ((strlen(tbuffer) + 4 + strlen(partName) + 1) > BOZO_BSSIZE) { char buffer[80]; sprintf(buffer, "AFS::BOS: command line too big\n"); BSETCODE(E2BIG, buffer); return (E2BIG); } strcat(tbuffer, " -f "); strcat(tbuffer, partName); } /* add the parallel option if given */ if (parallel != (char *) 0) { if ((strlen(tbuffer) + 11 + strlen(parallel) + 1) > BOZO_BSSIZE) { char buffer[80]; sprintf(buffer, "AFS::BOS: command line too big\n"); BSETCODE(E2BIG, buffer); return (E2BIG); } strcat(tbuffer, " -parallel "); strcat(tbuffer, parallel); } /* add the tmpdir option if given */ if (atmpDir != (char *) 0) { if ((strlen(tbuffer) + 9 + strlen(atmpDir) + 1) > BOZO_BSSIZE) { char buffer[80]; sprintf(buffer, "AFS::BOS: command line too big\n"); BSETCODE(E2BIG, buffer); return (E2BIG); } strcat(tbuffer, " -tmpdir "); strcat(tbuffer, atmpDir); } /* add the orphans option if given */ if (orphans != (char *) 0) { if ((strlen(tbuffer) + 10 + strlen(orphans) + 1) > BOZO_BSSIZE) { char buffer[80]; sprintf(buffer, "AFS::BOS: command line too big\n"); BSETCODE(E2BIG, buffer); return (E2BIG); } strcat(tbuffer, " -orphans "); strcat(tbuffer, orphans); } if (mrafsParm.Optdebug) strcat(tbuffer, " -debug"); if (mrafsParm.Optnowrite) strcat(tbuffer, " -nowrite"); if (mrafsParm.Optforce) strcat(tbuffer, " -force"); if (mrafsParm.Optoktozap) strcat(tbuffer, " -oktozap"); if (mrafsParm.Optrootfiles) strcat(tbuffer, " -rootfiles"); if (mrafsParm.Optsalvagedirs) strcat(tbuffer, " -salvagedirs"); if (mrafsParm.Optblockreads) strcat(tbuffer, " -blockreads"); if (mrafsParm.OptListResidencies) strcat(tbuffer, " -ListResidencies"); if (mrafsParm.OptSalvageRemote) strcat(tbuffer, " -SalvageRemote"); if (mrafsParm.OptSalvageArchival) strcat(tbuffer, " -SalvageArchival"); if (mrafsParm.OptIgnoreCheck) strcat(tbuffer, " -IgnoreCheck"); if (mrafsParm.OptForceOnLine) strcat(tbuffer, " -ForceOnLine"); if (mrafsParm.OptUseRootDirACL) strcat(tbuffer, " -UseRootDirACL"); if (mrafsParm.OptTraceBadLinkCounts) strcat(tbuffer, " -TraceBadLinkCounts"); if (mrafsParm.OptDontAskFS) strcat(tbuffer, " -DontAskFS"); if (mrafsParm.OptLogLevel) { sprintf(pbuffer, " -LogLevel %ld", mrafsParm.OptLogLevel); strcat(tbuffer, pbuffer); } if (mrafsParm.OptRxDebug) strcat(tbuffer, " -rxdebug"); if (mrafsParm.OptResidencies) { sprintf(pbuffer, " -Residencies %lu", mrafsParm.OptResidencies); strcat(tbuffer, pbuffer); } parms[0] = tbuffer; parms[1] = "now"; /* when to do it */ code = BOZO_CreateBnode(aconn, "cron", "salvage-tmp", parms[0], parms[1], parms[2], parms[3], parms[4], notifier); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to start 'salvager' (%s)\n", em(code)); BSETCODE(code, buffer); goto done; } /* now wait for bnode to disappear */ while (1) { #ifdef AFS_PTHREAD_ENV sleep(5); #else IOMGR_Sleep(5); #endif /* AFS_PTHREAD_ENV*/ tp = tbuffer; code = BOZO_GetInstanceInfo(aconn, "salvage-tmp", &tp, &istatus); if (code) break; /* fprintf(stderr, "AFS::BOS: waiting for salvage to complete.\n"); */ } if (code != BZNOENT) { char buffer[240]; sprintf(buffer, "AFS::BOS: salvage failed (%s)\n", em(code)); BSETCODE(code, buffer); goto done; } code = 0; /* now print the log file to the output file */ /* fprintf(stderr, "AFS::BOS: salvage completed\n"); */ if (aoutName || showlog) { fprintf(outFile, "SalvageLog:\n"); tcall = rx_NewCall(aconn); /* MUST pass canonical (wire-format) salvager log path to bosserver */ code = StartBOZO_GetLog(tcall, AFSDIR_CANONICAL_SERVER_SLVGLOG_FILEPATH); if (code) { rx_EndCall(tcall, code); goto done; } /* copy data */ while (1) { code = rx_Read(tcall, &buffer, 1); if (code != 1) break; putc(buffer, outFile); if (buffer == 0) break; /* the end delimeter */ } code = rx_EndCall(tcall, 0); /* fall through into cleanup code */ } done: if (closeIt && outFile) fclose(outFile); return code; } /* end of helper functions for BOS class */ /* helper functions for FS class: */ static int32 isafs(path, follow) char *path; int32 follow; { struct ViceIoctl vi; register int32 code; char space[MAXSIZE]; vi.in_size = 0; vi.out_size = MAXSIZE; vi.out = space; code = pioctl(path, VIOC_FILE_CELL_NAME, &vi, follow); if (code) { if ((errno == EINVAL) || (errno == ENOENT)) return 0; if (errno == ENOSYS) return 0; } return 1; } static char *format_rights(rights) int32 rights; { static char buff[32]; char *p; p = buff; if (rights & PRSFS_READ) { *p++ = 'r'; } if (rights & PRSFS_LOOKUP) { *p++ = 'l'; } if (rights & PRSFS_INSERT) { *p++ = 'i'; } if (rights & PRSFS_DELETE) { *p++ = 'd'; } if (rights & PRSFS_WRITE) { *p++ = 'w'; } if (rights & PRSFS_LOCK) { *p++ = 'k'; } if (rights & PRSFS_ADMINISTER) { *p++ = 'a'; } if (rights & PRSFS_USR0) { *p++ = 'A'; } if (rights & PRSFS_USR1) { *p++ = 'B'; } if (rights & PRSFS_USR2) { *p++ = 'C'; } if (rights & PRSFS_USR3) { *p++ = 'D'; } if (rights & PRSFS_USR4) { *p++ = 'E'; } if (rights & PRSFS_USR5) { *p++ = 'F'; } if (rights & PRSFS_USR6) { *p++ = 'G'; } if (rights & PRSFS_USR7) { *p++ = 'H'; } *p = 0; return buff; } static int32 parse_rights(buffer, rights) char *buffer; int32 *rights; { char *p; *rights = 0; p = buffer; while (*p) { switch (*p) { case 'r': *rights |= PRSFS_READ; break; case 'w': *rights |= PRSFS_WRITE; break; case 'i': *rights |= PRSFS_INSERT; break; case 'l': *rights |= PRSFS_LOOKUP; break; case 'd': *rights |= PRSFS_DELETE; break; case 'k': *rights |= PRSFS_LOCK; break; case 'a': *rights |= PRSFS_ADMINISTER; break; case 'A': *rights |= PRSFS_USR0; break; case 'B': *rights |= PRSFS_USR1; break; case 'C': *rights |= PRSFS_USR2; break; case 'D': *rights |= PRSFS_USR3; break; case 'E': *rights |= PRSFS_USR4; break; case 'F': *rights |= PRSFS_USR5; break; case 'G': *rights |= PRSFS_USR6; break; case 'H': *rights |= PRSFS_USR7; break; default: return EINVAL; } p++; } return 0; } static int32 canonical_parse_rights(buffer, rights) char *buffer; int32 *rights; { char *p; *rights = 0; p = buffer; if (strcmp(p, "read") == 0) p = "rl"; else if (strcmp(p, "write") == 0) p = "rlidwk"; else if (strcmp(p, "all") == 0) p = "rlidwka"; else if (strcmp(p, "mail") == 0) p = "lik"; else if (strcmp(p, "none") == 0) p = ""; return parse_rights(p, rights); } static int32 parse_acl(p, ph, nh) char *p; HV *ph, *nh; { int32 pos, neg, acl; char *facl; char user[MAXSIZE]; if (sscanf(p, "%d", &pos) != 1) return 0; while (*p && *p != '\n') p++; if (*p == '\n') p++; if (sscanf(p, "%d", &neg) != 1) return 0; while (*p && *p != '\n') p++; if (*p == '\n') p++; while (pos--) { if (sscanf(p, "%s %d", user, &acl) != 2) return 0; facl = format_rights(acl); hv_store(ph, user, strlen(user), newSVpv(facl, strlen(facl)), 0); while (*p && *p != '\n') p++; if (*p == '\n') p++; } while (neg--) { if (sscanf(p, "%s %d", user, &acl) != 2) return 0; facl = format_rights(acl); hv_store(nh, user, strlen(user), newSVpv(facl, strlen(facl)), 0); while (*p && *p != '\n') p++; if (*p == '\n') p++; } return 1; } static parse_volstat(stats, space) HV *stats; char *space; { struct VolumeStatus *status; char *name, *offmsg, *motd; char type[32]; status = (VolumeStatus *) space; name = (char *) status + sizeof(*status); offmsg = name + strlen(name) + 1; motd = offmsg + strlen(offmsg) + 1; hv_store(stats, "Name", 4, newSVpv(name, strlen(name)), 0); hv_store(stats, "OffMsg", 6, newSVpv(offmsg, strlen(offmsg)), 0); hv_store(stats, "Motd", 4, newSVpv(motd, strlen(motd)), 0); hv_store(stats, "Vid", 3, newSViv(status->Vid), 0); hv_store(stats, "ParentId", 8, newSViv(status->ParentId), 0); hv_store(stats, "Online", 6, newSViv(status->Online), 0); hv_store(stats, "InService", 9, newSViv(status->InService), 0); hv_store(stats, "Blessed", 7, newSViv(status->Blessed), 0); hv_store(stats, "NeedsSalvage", 12, newSViv(status->NeedsSalvage), 0); if (status->Type == ReadOnly) strcpy(type, "ReadOnly"); else if (status->Type == ReadWrite) strcpy(type, "ReadWrite"); else sprintf(type, "%d", status->Type); hv_store(stats, "Type", 4, newSVpv(type, strlen(type)), 0); hv_store(stats, "MinQuota", 8, newSViv(status->MinQuota), 0); hv_store(stats, "MaxQuota", 8, newSViv(status->MaxQuota), 0); hv_store(stats, "BlocksInUse", 11, newSViv(status->BlocksInUse), 0); hv_store(stats, "PartBlocksAvail", 15, newSViv(status->PartBlocksAvail), 0); hv_store(stats, "PartMaxBlocks", 13, newSViv(status->PartMaxBlocks), 0); return 1; } /* end of helper functions for FS class: */ /* helper functions for KAS class: */ static parse_kaentryinfo(stats, ka) HV *stats; struct kaentryinfo *ka; { char buffer[sizeof(struct kaident)]; sprintf(buffer, "%s%s%s", ka->modification_user.name, ka->modification_user.instance[0] ? "." : "", ka->modification_user.instance); hv_store(stats, "modification_user", 17, newSVpv(buffer, strlen(buffer)), 0); hv_store(stats, "minor_version", 13, newSViv(ka->minor_version), 0); hv_store(stats, "flags", 5, newSViv(ka->flags), 0); hv_store(stats, "user_expiration", 15, newSViv(ka->user_expiration), 0); hv_store(stats, "modification_time", 17, newSViv(ka->modification_time), 0); hv_store(stats, "change_password_time", 20, newSViv(ka->change_password_time), 0); hv_store(stats, "max_ticket_lifetime", 19, newSViv(ka->max_ticket_lifetime), 0); hv_store(stats, "key_version", 11, newSViv(ka->key_version), 0); hv_store(stats, "keyCheckSum", 11, newSVuv(ka->keyCheckSum), 0); hv_store(stats, "misc_auth_bytes", 15, newSVuv(ka->misc_auth_bytes), 0); /* 1234567890123456789012345 */ return 1; } static parse_ka_getstats(stats, dstats, kas, kad) HV *stats; HV *dstats; struct kasstats *kas; struct kadstats *kad; { hv_store(stats, "minor_version", 13, newSViv(kas->minor_version), 0); hv_store(stats, "allocs", 6, newSViv(kas->allocs), 0); hv_store(stats, "frees", 5, newSViv(kas->frees), 0); hv_store(stats, "cpws", 4, newSViv(kas->cpws), 0); hv_store(stats, "reserved1", 9, newSViv(kas->reserved1), 0); hv_store(stats, "reserved2", 9, newSViv(kas->reserved2), 0); hv_store(stats, "reserved3", 9, newSViv(kas->reserved3), 0); hv_store(stats, "reserved4", 9, newSViv(kas->reserved4), 0); /* dynamic stats */ hv_store(dstats, "minor_version", 13, newSViv(kad->minor_version), 0); hv_store(dstats, "host", 4, newSViv(kad->host), 0); hv_store(dstats, "start_time", 10, newSViv(kad->start_time), 0); hv_store(dstats, "hashTableUtilization", 20, newSViv(kad->hashTableUtilization), 0); hv_store(dstats, "string_checks", 13, newSViv(kad->string_checks), 0); hv_store(dstats, "reserved1", 9, newSViv(kad->reserved1), 0); hv_store(dstats, "reserved2", 9, newSViv(kad->reserved2), 0); hv_store(dstats, "reserved3", 9, newSViv(kad->reserved3), 0); hv_store(dstats, "reserved4", 9, newSViv(kad->reserved4), 0); hv_store(dstats, "Authenticate_requests", 21, newSViv(kad->Authenticate.requests), 0); hv_store(dstats, "Authenticate_aborts", 19, newSViv(kad->Authenticate.aborts), 0); hv_store(dstats, "ChangePassword_requests", 23, newSViv(kad->ChangePassword.requests), 0); hv_store(dstats, "ChangePassword_aborts", 21, newSViv(kad->ChangePassword.aborts), 0); hv_store(dstats, "GetTicket_requests", 18, newSViv(kad->GetTicket.requests), 0); hv_store(dstats, "GetTicket_aborts", 16, newSViv(kad->GetTicket.aborts), 0); hv_store(dstats, "CreateUser_requests", 19, newSViv(kad->CreateUser.requests), 0); hv_store(dstats, "CreateUser_aborts", 17, newSViv(kad->CreateUser.aborts), 0); hv_store(dstats, "SetPassword_requests", 20, newSViv(kad->SetPassword.requests), 0); hv_store(dstats, "SetPassword_aborts", 18, newSViv(kad->SetPassword.aborts), 0); hv_store(dstats, "SetFields_requests", 18, newSViv(kad->SetFields.requests), 0); hv_store(dstats, "SetFields_aborts", 16, newSViv(kad->SetFields.aborts), 0); hv_store(dstats, "DeleteUser_requests", 19, newSViv(kad->DeleteUser.requests), 0); hv_store(dstats, "DeleteUser_aborts", 17, newSViv(kad->DeleteUser.aborts), 0); hv_store(dstats, "GetEntry_requests", 17, newSViv(kad->GetEntry.requests), 0); hv_store(dstats, "GetEntry_aborts", 15, newSViv(kad->GetEntry.aborts), 0); hv_store(dstats, "ListEntry_requests", 18, newSViv(kad->ListEntry.requests), 0); hv_store(dstats, "ListEntry_aborts", 16, newSViv(kad->ListEntry.aborts), 0); hv_store(dstats, "GetStats_requests", 17, newSViv(kad->GetStats.requests), 0); hv_store(dstats, "GetStats_aborts", 15, newSViv(kad->GetStats.aborts), 0); hv_store(dstats, "GetPassword_requests", 20, newSViv(kad->GetPassword.requests), 0); hv_store(dstats, "GetPassword_aborts", 18, newSViv(kad->GetPassword.aborts), 0); hv_store(dstats, "GetRandomKey_requests", 21, newSViv(kad->GetRandomKey.requests), 0); hv_store(dstats, "GetRandomKey_aborts", 19, newSViv(kad->GetRandomKey.aborts), 0); hv_store(dstats, "Debug_requests", 14, newSViv(kad->Debug.requests), 0); hv_store(dstats, "Debug_aborts", 12, newSViv(kad->Debug.aborts), 0); hv_store(dstats, "UAuthenticate_requests", 22, newSViv(kad->UAuthenticate.requests), 0); hv_store(dstats, "UAuthenticate_aborts", 20, newSViv(kad->UAuthenticate.aborts), 0); hv_store(dstats, "UGetTicket_requests", 19, newSViv(kad->UGetTicket.requests), 0); hv_store(dstats, "UGetTicket_aborts", 17, newSViv(kad->UGetTicket.aborts), 0); hv_store(dstats, "Unlock_requests", 15, newSViv(kad->Unlock.requests), 0); hv_store(dstats, "Unlock_aborts", 13, newSViv(kad->Unlock.aborts), 0); hv_store(dstats, "LockStatus_requests", 19, newSViv(kad->LockStatus.requests), 0); hv_store(dstats, "LockStatus_aborts", 17, newSViv(kad->LockStatus.aborts), 0); /* 1234567890123456789012345 */ return 1; } static parse_ka_debugInfo(stats, ka) HV *stats; struct ka_debugInfo *ka; { char buff[1024]; int i; hv_store(stats, "lastOperation", 13, newSVpv(ka->lastOperation, strlen(ka->lastOperation)), 0); hv_store(stats, "lastAuth", 7, newSVpv(ka->lastAuth, strlen(ka->lastAuth)), 0); hv_store(stats, "lastUAuth", 9, newSVpv(ka->lastUAuth, strlen(ka->lastUAuth)), 0); hv_store(stats, "lastTGS", 7, newSVpv(ka->lastTGS, strlen(ka->lastTGS)), 0); hv_store(stats, "lastUTGS", 8, newSVpv(ka->lastUTGS, strlen(ka->lastUTGS)), 0); hv_store(stats, "lastAdmin", 9, newSVpv(ka->lastAdmin, strlen(ka->lastAdmin)), 0); hv_store(stats, "lastTGSServer", 13, newSVpv(ka->lastTGSServer, strlen(ka->lastTGSServer)), 0); hv_store(stats, "lastUTGSServer", 14, newSVpv(ka->lastUTGSServer, strlen(ka->lastUTGSServer)), 0); hv_store(stats, "minorVersion", 12, newSViv(ka->minorVersion), 0); hv_store(stats, "host", 4, newSViv(ka->host), 0); hv_store(stats, "startTime", 9, newSViv(ka->startTime), 0); hv_store(stats, "noAuth", 6, newSViv(ka->noAuth), 0); hv_store(stats, "lastTrans", 9, newSViv(ka->lastTrans), 0); hv_store(stats, "nextAutoCPW", 11, newSViv(ka->nextAutoCPW), 0); hv_store(stats, "updatesRemaining", 16, newSViv(ka->updatesRemaining), 0); hv_store(stats, "dbHeaderRead", 12, newSViv(ka->dbHeaderRead), 0); hv_store(stats, "dbVersion", 9, newSViv(ka->dbVersion), 0); hv_store(stats, "dbFreePtr", 9, newSViv(ka->dbFreePtr), 0); hv_store(stats, "dbEofPtr", 8, newSViv(ka->dbEofPtr), 0); hv_store(stats, "dbKvnoPtr", 9, newSViv(ka->dbKvnoPtr), 0); hv_store(stats, "dbSpecialKeysVersion", 20, newSViv(ka->dbSpecialKeysVersion), 0); hv_store(stats, "cheader_lock", 12, newSViv(ka->cheader_lock), 0); hv_store(stats, "keycache_lock", 13, newSViv(ka->keycache_lock), 0); hv_store(stats, "kcVersion", 9, newSViv(ka->kcVersion), 0); hv_store(stats, "kcSize", 6, newSViv(ka->kcSize), 0); hv_store(stats, "reserved1", 9, newSViv(ka->reserved1), 0); hv_store(stats, "reserved2", 9, newSViv(ka->reserved2), 0); hv_store(stats, "reserved3", 9, newSViv(ka->reserved3), 0); hv_store(stats, "reserved4", 9, newSViv(ka->reserved4), 0); if (ka->kcUsed > KADEBUGKCINFOSIZE) { hv_store(stats, "actual_kcUsed", 13, newSViv(ka->kcUsed), 0); ka->kcUsed = KADEBUGKCINFOSIZE; } hv_store(stats, "kcUsed", 6, newSViv(ka->kcUsed), 0); for (i = 0; i < ka->kcUsed; i++) { sprintf(buff, "kcInfo_used%d", i); hv_store(stats, buff, strlen(buff), newSViv(ka->kcInfo[i].used), 0); sprintf(buff, "kcInfo_kvno%d", i); hv_store(stats, buff, strlen(buff), newSViv(ka->kcInfo[i].kvno), 0); sprintf(buff, "kcInfo_primary%d", i); hv_store(stats, buff, strlen(buff), newSViv((unsigned char) ka->kcInfo[i].primary), 0); sprintf(buff, "kcInfo_keycksum%d", i); hv_store(stats, buff, strlen(buff), newSViv((unsigned char) ka->kcInfo[i].keycksum), 0); sprintf(buff, "kcInfo_principal%d", i); hv_store(stats, buff, strlen(buff), newSVpv(ka->kcInfo[i].principal, strlen(ka->kcInfo[i].principal)), 0); } /* 1234567890123456789012345 */ return 1; } /* end of helper functions for KAS class: */ /************************ Start of XS stuff **************************/ /* PROTOTYPES: DISABLE added by leg@andrew, 10/7/96 */ #line 3102 "AFS.c" XS(XS_AFS_pioctl) { dXSARGS; if (items != 7) Perl_croak(aTHX_ "Usage: AFS::pioctl(path, setpath, op, in, setin, setout, follow)"); SP -= items; { char * path = (char *)SvPV(ST(0),PL_na); int32 setpath = (int32)SvIV(ST(1)); int32 op = (int32)SvIV(ST(2)); SV * in = ST(3); int32 setin = (int32)SvIV(ST(4)); int32 setout = (int32)SvIV(ST(5)); int32 follow = (int32)SvIV(ST(6)); #line 3105 "AFS.xs" { struct ViceIoctl vi; int32 code; char space[MAXSIZE]; STRLEN insize; if (!setpath) path = NULL; if (setout) { space[0] = '\0'; vi.out_size = MAXSIZE; vi.out = space; } else { vi.out_size = 0; vi.out = 0; } if (setin) { vi.in = (char *) SvPV(ST(2), insize); vi.in_size = insize; } else { vi.in = 0; vi.in_size = 0; } code = pioctl(path, op, &vi, follow); SETCODE(code); if (code == 0 && setout) { EXTEND(sp, 1); printf("out_size = %d\n", vi.out_size); PUSHs(sv_2mortal(newSVpv(vi.out, vi.out_size))); } } #line 3153 "AFS.c" PUTBACK; return; } } XS(XS_AFS_getvolstats) { dXSARGS; if (items < 1 || items > 2) Perl_croak(aTHX_ "Usage: AFS::getvolstats(dir, follow=1)"); SP -= items; { char * dir = (char *)SvPV(ST(0),PL_na); int32 follow; if (items < 2) follow = 1; else { follow = (int32)SvIV(ST(1)); } #line 3146 "AFS.xs" { struct ViceIoctl vi; int32 code; char space[MAXSIZE]; HV *stats; vi.out_size = MAXSIZE; vi.in_size = 0; vi.out = space; code = pioctl(dir, VIOCGETVOLSTAT, &vi, follow); SETCODE(code); if (code == 0) { stats = newHV(); if (parse_volstat(stats, space)) { EXTEND(sp, 1); PUSHs(sv_2mortal(newRV_noinc((SV *) stats))); } else { hv_undef(stats); } } } #line 3197 "AFS.c" PUTBACK; return; } } XS(XS_AFS_whereis) { dXSARGS; if (items < 1 || items > 3) Perl_croak(aTHX_ "Usage: AFS::whereis(dir, ip=0, follow=1)"); SP -= items; { char * dir = (char *)SvPV(ST(0),PL_na); int32 ip; int32 follow; if (items < 2) ip = 0; else { ip = (int32)SvIV(ST(1)); } if (items < 3) follow = 1; else { follow = (int32)SvIV(ST(2)); } #line 3175 "AFS.xs" { struct ViceIoctl vi; int32 code; char space[MAXSIZE]; vi.out_size = MAXSIZE; vi.in_size = 0; vi.out = space; code = pioctl(dir, VIOCWHEREIS, &vi, follow); SETCODE(code); if (code == 0) { struct in_addr *hosts = (struct in_addr *) space; struct hostent *ht; int i; char *h; for (i = 0; i < MAXHOSTS; i++) { if (hosts[i].s_addr == 0) break; if (ip == 0) { ht = gethostbyaddr((const char *) &hosts[i], sizeof(struct in_addr), AF_INET); if (ht == NULL) h = (char *) inet_ntoa(hosts[i]); else h = ht->h_name; } else { h = (char *) inet_ntoa(hosts[i]); } XPUSHs(sv_2mortal(newSVpv(h, strlen(h)))); } } } #line 3259 "AFS.c" PUTBACK; return; } } XS(XS_AFS_checkservers) { dXSARGS; if (items < 1 || items > 3) Perl_croak(aTHX_ "Usage: AFS::checkservers(fast, cell=0, ip=0)"); SP -= items; { int32 fast = (int32)SvIV(ST(0)); char * cell; int32 ip; if (items < 2) cell = 0; else { cell = (char *)SvPV(ST(1),PL_na); } if (items < 3) ip = 0; else { ip = (int32)SvIV(ST(2)); } #line 3215 "AFS.xs" { struct chservinfo checkserv; struct ViceIoctl vi; int32 code, *num; char space[MAXSIZE]; checkserv.magic = 0x12345678; checkserv.tflags = 2; if (fast) checkserv.tflags |= 0x1; if (cell) { checkserv.tflags &= ~2; strcpy(checkserv.tbuffer, cell); checkserv.tsize = strlen(cell); } checkserv.tinterval = -1; vi.out_size = MAXSIZE; vi.in_size = sizeof(checkserv); vi.in = (char *) &checkserv; vi.out = space; code = pioctl(0, VIOCCKSERV, &vi, 1); num = (int32 *) space; SETCODE(code); if (code == 0 && *num > 0) { struct in_addr *hosts = (struct in_addr *) (space + sizeof(int32)); struct hostent *ht; int i; char *h; for (i = 0; i < MAXHOSTS; i++) { if (hosts[i].s_addr == 0) break; if (ip == 0) { ht = gethostbyaddr((const char *) &hosts[i], sizeof(struct in_addr), AF_INET); if (ht == NULL) h = (char *) inet_ntoa(hosts[i]); else h = ht->h_name; } else { h = (char *) inet_ntoa(hosts[i]); } XPUSHs(sv_2mortal(newSVpv(h, strlen(h)))); } } } #line 3336 "AFS.c" PUTBACK; return; } } XS(XS_AFS_getcell) { dXSARGS; if (items < 1 || items > 2) Perl_croak(aTHX_ "Usage: AFS::getcell(in_index, ip=0)"); SP -= items; { int32 in_index = (int32)SvIV(ST(0)); int32 ip; if (items < 2) ip = 0; else { ip = (int32)SvIV(ST(1)); } #line 3269 "AFS.xs" { struct ViceIoctl vi; int32 code, max = OMAXHOSTS; int32 *lp; char space[MAXSIZE]; lp = (int32 *) space; *lp++ = in_index; *lp = 0x12345678; vi.in_size = sizeof(int32) * 2; vi.in = (char *) space; vi.out_size = MAXSIZE; vi.out = space; code = pioctl(NULL, VIOCGETCELL, &vi, 1); SETCODE(code); if (code == 0) { struct in_addr *hosts = (struct in_addr *) space; /* int32 *magic = (int32 *) space; */ struct hostent *ht; int i; char *h; /*if (*magic == 0x12345678) { */ max = MAXHOSTS; /* hosts++; */ /* } */ h = (char *) hosts + max * sizeof(int32); XPUSHs(sv_2mortal(newSVpv(h, strlen(h)))); for (i = 0; i < max; i++) { if (hosts[i].s_addr == 0) break; if (ip == 0) { ht = gethostbyaddr((const char *) &hosts[i], sizeof(struct in_addr), AF_INET); if (ht == NULL) h = (char *) inet_ntoa(hosts[i]); else h = ht->h_name; } else { h = (char *) inet_ntoa(hosts[i]); } XPUSHs(sv_2mortal(newSVpv(h, strlen(h)))); } } } #line 3403 "AFS.c" PUTBACK; return; } } XS(XS_AFS__get_server_version) { dXSARGS; if (items < 1 || items > 3) Perl_croak(aTHX_ "Usage: AFS::_get_server_version(port, hostName=\"localhost\", verbose=0)"); { short port = (short)SvIV(ST(0)); char * hostName; int32 verbose; if (items < 2) hostName = "localhost"; else { hostName = (char *)SvPV(ST(1),PL_na); } if (items < 3) verbose = 0; else { verbose = (int32)SvIV(ST(2)); } #line 3321 "AFS.xs" { #if defined(AFS_3_4) not_here("AFS::Utils::get_server_version"); #else struct sockaddr_in taddr; struct in_addr hostAddr; struct hostent *th; int32 host; short port_num = htons(port); int32 length = 64; int32 code; char version[64]; int s; /* lookup host */ if (hostName) { th = (struct hostent *) hostutil_GetHostByName(hostName); if (!th) { warn("rxdebug: host %s not found in host table\n", hostName); SETCODE(EFAULT); XSRETURN_UNDEF; } /* bcopy(th->h_addr, &host, sizeof(int32)); */ Copy(th->h_addr, &host, th->h_length, char); } else host = htonl(0x7f000001); /* IP localhost */ hostAddr.s_addr = host; if (verbose) printf("Trying %s (port %d):\n", inet_ntoa(hostAddr), ntohs(port_num)); s = socket(AF_INET, SOCK_DGRAM, 0); taddr.sin_family = AF_INET; taddr.sin_port = 0; taddr.sin_addr.s_addr = 0; code = bind(s, (struct sockaddr *) &taddr, sizeof(struct sockaddr_in)); SETCODE(code); if (code) { perror("bind"); XSRETURN_UNDEF; } code = rx_GetServerVersion(s, host, port_num, length, version); ST(0) = sv_newmortal(); if (code < 0) { SETCODE(code); } else { sv_setpv(ST(0), version); } #endif } #line 3485 "AFS.c" } XSRETURN(1); } XS(XS_AFS_get_syslib_version) { dXSARGS; if (items != 0) Perl_croak(aTHX_ "Usage: AFS::get_syslib_version()"); { #line 3379 "AFS.xs" { extern char *AFSVersion; ST(0) = sv_newmortal(); sv_setpv(ST(0), AFSVersion); } #line 3503 "AFS.c" } XSRETURN(1); } XS(XS_AFS_XSVERSION) { dXSARGS; if (items != 0) Perl_croak(aTHX_ "Usage: AFS::XSVERSION()"); { #line 3389 "AFS.xs" { ST(0) = sv_newmortal(); sv_setpv(ST(0), xs_version); } #line 3519 "AFS.c" } XSRETURN(1); } XS(XS_AFS_sysname) { dXSARGS; if (items < 0 || items > 1) Perl_croak(aTHX_ "Usage: AFS::sysname(newname=0)"); { char * newname; if (items < 1) newname = 0; else { newname = (char *)SvPV(ST(0),PL_na); } #line 3398 "AFS.xs" { struct ViceIoctl vi; int32 code, set; char space[MAXSIZE]; set = (newname && *newname); vi.in = space; bcopy(&set, space, sizeof(set)); vi.in_size = sizeof(set); if (set) { strcpy(space + sizeof(set), newname); vi.in_size += strlen(newname) + 1; } vi.out_size = MAXSIZE; vi.out = (caddr_t) space; code = pioctl(NULL, VIOC_AFS_SYSNAME, &vi, 0); SETCODE(code); ST(0) = sv_newmortal(); if (code == 0) { sv_setpv(ST(0), space + sizeof(set)); } } #line 3561 "AFS.c" } XSRETURN(1); } XS(XS_AFS_getcrypt) { dXSARGS; if (items != 0) Perl_croak(aTHX_ "Usage: AFS::getcrypt()"); { #line 3425 "AFS.xs" { #ifdef VIOC_GETRXKCRYPT struct ViceIoctl vi; int32 code, flag; char space[MAXSIZE]; vi.in_size = 0; vi.out_size = MAXSIZE; vi.out = (caddr_t) space; code = pioctl(0, VIOC_GETRXKCRYPT, &vi, 1); SETCODE(code); ST(0) = sv_newmortal(); if (code == 0) { bcopy((char *) space, &flag, sizeof(int32)); sv_setiv(ST(0), flag); } #else not_here("AFS::CM::getcrypt"); #endif } #line 3594 "AFS.c" } XSRETURN(1); } XS(XS_AFS_setcrypt) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::setcrypt(as)"); { char * as = (char *)SvPV(ST(0),PL_na); int32 RETVAL; dXSTARG; #line 3451 "AFS.xs" { #ifdef VIOC_SETRXKCRYPT struct ViceIoctl vi; int32 code, flag; char space[MAXSIZE]; if (strcmp(as, "on") == 0) flag = 1; else if (strcmp(as, "off") == 0) flag = 0; else { warn("setcrypt: %s must be \"on\" or \"off\".\n", as); SETCODE(EINVAL); XSRETURN_UNDEF; } vi.in = (char *) &flag; vi.in_size = sizeof(flag); vi.out_size = 0; code = pioctl(0, VIOC_SETRXKCRYPT, &vi, 1); SETCODE(code); RETVAL = (code == 0); #else not_here("AFS::CM::setcrypt"); #endif } #line 3635 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS_whichcell) { dXSARGS; if (items < 1 || items > 2) Perl_croak(aTHX_ "Usage: AFS::whichcell(dir, follow=1)"); { char * dir = (char *)SvPV(ST(0),PL_na); int32 follow; if (items < 2) follow = 1; else { follow = (int32)SvIV(ST(1)); } #line 3485 "AFS.xs" { struct ViceIoctl vi; int32 code; char space[MAXSIZE]; vi.in_size = 0; vi.out_size = MAXSIZE; vi.out = (caddr_t) space; code = pioctl(dir, VIOC_FILE_CELL_NAME, &vi, follow); SETCODE(code); ST(0) = sv_newmortal(); if (code == 0) { sv_setpv(ST(0), space); } } #line 3671 "AFS.c" } XSRETURN(1); } XS(XS_AFS_lsmount) { dXSARGS; if (items < 1 || items > 2) Perl_croak(aTHX_ "Usage: AFS::lsmount(path, follow=1)"); { char * path = (char *)SvPV(ST(0),PL_na); int32 follow; if (items < 2) follow = 1; else { follow = (int32)SvIV(ST(1)); } #line 3506 "AFS.xs" { struct ViceIoctl vi; int32 code; char space[MAXSIZE]; char *dir, *file; char parent[1024]; if (strlen(path) > (sizeof(parent) - 1)) code = EINVAL; else { strcpy(parent, path); file = strrchr(parent, '/'); if (file) { dir = parent; *file++ = '\0'; } else { dir = "."; file = parent; } vi.in_size = strlen(file) + 1; vi.in = file; vi.out_size = MAXSIZE; vi.out = (caddr_t) space; code = pioctl(dir, VIOC_AFS_STAT_MT_PT, &vi, follow); } SETCODE(code); ST(0) = sv_newmortal(); if (code == 0) { sv_setpv(ST(0), space); } } #line 3725 "AFS.c" } XSRETURN(1); } XS(XS_AFS_rmmount) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::rmmount(path)"); { char * path = (char *)SvPV(ST(0),PL_na); int32 RETVAL; dXSTARG; #line 3545 "AFS.xs" { struct ViceIoctl vi; int32 code; char *file, *dir; char parent[1024]; if (strlen(path) > (sizeof(parent) - 1)) code = EINVAL; else { strcpy(parent, path); file = strrchr(parent, '/'); if (file) { dir = parent; *file++ = '\0'; } else { dir = "."; file = parent; } vi.in_size = strlen(file) + 1; vi.in = file; vi.out_size = 0; code = pioctl(dir, VIOC_AFS_DELETE_MT_PT, &vi, 0); } SETCODE(code); RETVAL = (code == 0); } #line 3769 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS_flushvolume) { dXSARGS; if (items < 1 || items > 2) Perl_croak(aTHX_ "Usage: AFS::flushvolume(path, follow=1)"); { char * path = (char *)SvPV(ST(0),PL_na); int32 follow; int32 RETVAL; dXSTARG; if (items < 2) follow = 1; else { follow = (int32)SvIV(ST(1)); } #line 3582 "AFS.xs" { struct ViceIoctl vi; int32 code; char space[MAXSIZE]; vi.in_size = 0; vi.out_size = MAXSIZE; vi.out = (caddr_t) space; code = pioctl(path, VIOC_FLUSHVOLUME, &vi, follow); SETCODE(code); RETVAL = (code == 0); } #line 3804 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS_flush) { dXSARGS; if (items < 1 || items > 2) Perl_croak(aTHX_ "Usage: AFS::flush(path, follow=1)"); { char * path = (char *)SvPV(ST(0),PL_na); int32 follow; int32 RETVAL; dXSTARG; if (items < 2) follow = 1; else { follow = (int32)SvIV(ST(1)); } #line 3602 "AFS.xs" { struct ViceIoctl vi; int32 code; char space[MAXSIZE]; vi.in_size = 0; vi.out_size = MAXSIZE; vi.out = (caddr_t) space; code = pioctl(path, VIOCFLUSH, &vi, follow); SETCODE(code); RETVAL = (code == 0); } #line 3840 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS_flushcb) { dXSARGS; if (items < 1 || items > 2) Perl_croak(aTHX_ "Usage: AFS::flushcb(path, follow=1)"); { char * path = (char *)SvPV(ST(0),PL_na); int32 follow; int32 RETVAL; dXSTARG; if (items < 2) follow = 1; else { follow = (int32)SvIV(ST(1)); } #line 3623 "AFS.xs" { struct ViceIoctl vi; int32 code; char space[MAXSIZE]; vi.in_size = 0; vi.out_size = MAXSIZE; vi.out = (caddr_t) space; code = pioctl(path, VIOCFLUSHCB, &vi, follow); SETCODE(code); RETVAL = (code == 0); } #line 3875 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS_setquota) { dXSARGS; if (items < 2 || items > 3) Perl_croak(aTHX_ "Usage: AFS::setquota(path, newquota, follow=1)"); { char * path = (char *)SvPV(ST(0),PL_na); int32 newquota = (int32)SvIV(ST(1)); int32 follow; int32 RETVAL; dXSTARG; if (items < 3) follow = 1; else { follow = (int32)SvIV(ST(2)); } #line 3644 "AFS.xs" { struct ViceIoctl vi; int32 code; char space[MAXSIZE]; struct VolumeStatus *status; char *input; vi.in_size = sizeof(*status) + 3; vi.in = space; vi.out_size = MAXSIZE; vi.out = space; status = (VolumeStatus *) space; status->MinQuota = -1; status->MaxQuota = newquota; input = (char *) status + sizeof(*status); *(input++) = '\0'; /* never set name: this call doesn't change vldb */ *(input++) = '\0'; /* offmsg */ *(input++) = '\0'; /* motd */ code = pioctl(path, VIOCSETVOLSTAT, &vi, follow); SETCODE(code); RETVAL = (code == 0); } #line 3923 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS_getquota) { dXSARGS; if (items < 1 || items > 2) Perl_croak(aTHX_ "Usage: AFS::getquota(path, follow=1)"); SP -= items; { char * path = (char *)SvPV(ST(0),PL_na); int32 follow; if (items < 2) follow = 1; else { follow = (int32)SvIV(ST(1)); } #line 3676 "AFS.xs" { struct ViceIoctl vi; int32 code; char space[MAXSIZE]; struct VolumeStatus *status; vi.out_size = MAXSIZE; vi.in_size = 0; vi.in = 0; vi.out = space; code = pioctl(path, VIOCGETVOLSTAT, &vi, follow); SETCODE(code); if (code == 0) { status = (VolumeStatus *)space; EXTEND(sp, 1); PUSHs(sv_2mortal(newSViv(status->MaxQuota))); } } #line 3964 "AFS.c" PUTBACK; return; } } XS(XS_AFS_mkmount) { dXSARGS; if (items < 2 || items > 4) Perl_croak(aTHX_ "Usage: AFS::mkmount(mountp, volume, rw=0, cell=0)"); { char * mountp = (char *)SvPV(ST(0),PL_na); char * volume = (char *)SvPV(ST(1),PL_na); int32 rw; char * cell; int32 RETVAL; dXSTARG; if (items < 3) rw = 0; else { rw = (int32)SvIV(ST(2)); } if (items < 4) cell = 0; else { cell = (char *)SvPV(ST(3),PL_na); } #line 3703 "AFS.xs" { char buffer[1024]; char parent[1024]; int32 code = 0; if (cell && !*cell) cell = NULL; if (strlen(mountp) > (sizeof(parent) - 1)) code = EINVAL; else { char *p; strcpy(parent, mountp); p = strrchr(parent, '/'); if (p) *p = 0; else strcpy(parent, "."); if (!isafs(parent)) code = EINVAL; } if (code == 0) { sprintf(buffer, "%c%s%s%s.", rw ? '%' : '#', cell ? cell : "", cell ? ":" : "", volume); code = symlink(buffer, mountp); } SETCODE(code); RETVAL = (code == 0); } #line 4025 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS_checkvolumes) { dXSARGS; if (items != 0) Perl_croak(aTHX_ "Usage: AFS::checkvolumes()"); { int32 RETVAL; dXSTARG; #line 3739 "AFS.xs" { struct ViceIoctl vi; int32 code; vi.in_size = 0; vi.out_size = 0; code = pioctl(NULL, VIOCCKBACK, &vi, 0); SETCODE(code); RETVAL = (code == 0); } #line 4050 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS_checkconn) { dXSARGS; if (items != 0) Perl_croak(aTHX_ "Usage: AFS::checkconn()"); { int32 RETVAL; dXSTARG; #line 3755 "AFS.xs" { struct ViceIoctl vi; int32 code; int32 status; vi.in_size = 0; vi.out_size = sizeof(status); vi.out = (caddr_t) & status; code = pioctl(NULL, VIOCCKCONN, &vi, 0); SETCODE(code); RETVAL = (status == 0); } #line 4077 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS_getcacheparms) { dXSARGS; if (items != 0) Perl_croak(aTHX_ "Usage: AFS::getcacheparms()"); SP -= items; { int32 RETVAL; dXSTARG; #line 3773 "AFS.xs" { struct ViceIoctl vi; int32 code; int32 stats[16]; vi.in_size = 0; vi.in = 0; vi.out_size = sizeof(stats); vi.out = (char *) stats; code = pioctl(NULL, VIOCGETCACHEPARMS, &vi, 0); SETCODE(code); if (code == 0) { EXTEND(sp, 2); PUSHs(sv_2mortal(newSViv(stats[0]))); PUSHs(sv_2mortal(newSViv(stats[1]))); } } #line 4111 "AFS.c" PUTBACK; return; } } XS(XS_AFS_setcachesize) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::setcachesize(size)"); { int32 size = (int32)SvIV(ST(0)); int32 RETVAL; dXSTARG; #line 3796 "AFS.xs" { struct ViceIoctl vi; int32 code; vi.in_size = sizeof(size);; vi.in = (char *) &size; vi.out_size = 0; vi.out = 0; code = pioctl(NULL, VIOCSETCACHESIZE, &vi, 0); SETCODE(code); RETVAL = (code == 0); } #line 4139 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS_unlog) { dXSARGS; if (items != 0) Perl_croak(aTHX_ "Usage: AFS::unlog()"); { int32 RETVAL; dXSTARG; #line 3814 "AFS.xs" { struct ViceIoctl vi; int32 code; vi.in_size = 0; vi.out_size = 0; code = pioctl(NULL, VIOCUNLOG, &vi, 0); SETCODE(code); RETVAL = (code == 0); } #line 4164 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS_getfid) { dXSARGS; if (items < 1 || items > 2) Perl_croak(aTHX_ "Usage: AFS::getfid(path, follow=1)"); SP -= items; { char * path = (char *)SvPV(ST(0),PL_na); int32 follow; int32 RETVAL; dXSTARG; if (items < 2) follow = 1; else { follow = (int32)SvIV(ST(1)); } #line 3832 "AFS.xs" { struct ViceIoctl vi; int32 code; struct VenusFid vf; vi.in_size = 0; vi.out_size = sizeof(vf); vi.out = (char *) &vf; code = pioctl(path, VIOCGETFID, &vi, follow); SETCODE(code); if (code == 0) { EXTEND(sp, 4); PUSHs(sv_2mortal(newSViv(vf.Cell))); PUSHs(sv_2mortal(newSViv(vf.Fid.Volume))); PUSHs(sv_2mortal(newSViv(vf.Fid.Vnode))); PUSHs(sv_2mortal(newSViv(vf.Fid.Unique))); } } #line 4206 "AFS.c" PUTBACK; return; } } XS(XS_AFS_isafs) { dXSARGS; if (items < 1 || items > 2) Perl_croak(aTHX_ "Usage: AFS::isafs(path, follow=1)"); { char * path = (char *)SvPV(ST(0),PL_na); int32 follow; int32 RETVAL; dXSTARG; if (items < 2) follow = 1; else { follow = (int32)SvIV(ST(1)); } #line 3856 "AFS.xs" { int32 code; RETVAL = isafs(path, follow); if (!RETVAL) code = errno; else code = 0; SETCODE(code); } #line 4238 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS_cm_access) { dXSARGS; if (items < 1 || items > 3) Perl_croak(aTHX_ "Usage: AFS::cm_access(path, perm=\"read\", follow=1)"); { char * path = (char *)SvPV(ST(0),PL_na); char * perm; int32 follow; int32 RETVAL; dXSTARG; if (items < 2) perm = "read"; else { perm = (char *)SvPV(ST(1),PL_na); } if (items < 3) follow = 1; else { follow = (int32)SvIV(ST(2)); } #line 3874 "AFS.xs" { struct ViceIoctl vi; int32 code; int32 rights; code = canonical_parse_rights(perm, &rights); if (code == 0) { code = vi.in_size = sizeof(rights); vi.in = (char *) &rights; vi.out_size = 0; vi.out = 0; code = pioctl(path, VIOCACCESS, &vi, follow); } SETCODE(code); RETVAL = (code == 0); } #line 4284 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS_ascii2rights) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::ascii2rights(perm)"); { char * perm = (char *)SvPV(ST(0),PL_na); int32 RETVAL; dXSTARG; #line 3897 "AFS.xs" { int32 code, rights = -1; code = canonical_parse_rights(perm, &rights); SETCODE(code); if (code != 0) rights = -1; RETVAL = rights; } #line 4310 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS_rights2ascii) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::rights2ascii(perm)"); { int32 perm = (int32)SvIV(ST(0)); #line 3914 "AFS.xs" { char *p; p = format_rights(perm); SETCODE(0); ST(0) = sv_newmortal(); sv_setpv(ST(0), p); } #line 4333 "AFS.c" } XSRETURN(1); } XS(XS_AFS_crights) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::crights(perm)"); { char * perm = (char *)SvPV(ST(0),PL_na); #line 3928 "AFS.xs" { int32 code; int32 rights; code = canonical_parse_rights(perm, &rights); SETCODE(code); ST(0) = sv_newmortal(); if (code == 0) { sv_setpv(ST(0), format_rights(rights)); } } #line 4357 "AFS.c" } XSRETURN(1); } XS(XS_AFS_getcellstatus) { dXSARGS; if (items < 0 || items > 1) Perl_croak(aTHX_ "Usage: AFS::getcellstatus(cell=0)"); SP -= items; { char * cell; if (items < 1) cell = 0; else { cell = (char *)SvPV(ST(0),PL_na); } #line 3944 "AFS.xs" { struct ViceIoctl vi; struct afsconf_cell info; int32 code, flags; if (cell && !*cell) cell = NULL; code = internal_GetCellInfo(cell, 0, &info); if (code == 0) { vi.in_size = strlen(info.name) + 1; vi.in = info.name; vi.out_size = sizeof(flags); vi.out = (char *) &flags; code = pioctl(0, VIOC_GETCELLSTATUS, &vi, 0); } SETCODE(code); if (code == 0) { EXTEND(sp, 1); PUSHs(sv_2mortal(newSViv((flags & 0x2) == 0))); } } #line 4398 "AFS.c" PUTBACK; return; } } XS(XS_AFS_setcellstatus) { dXSARGS; if (items < 1 || items > 2) Perl_croak(aTHX_ "Usage: AFS::setcellstatus(setuid_allowed, cell=0)"); SP -= items; { int32 setuid_allowed = (int32)SvIV(ST(0)); char * cell; int32 RETVAL; dXSTARG; if (items < 2) cell = 0; else { cell = (char *)SvPV(ST(1),PL_na); } #line 3971 "AFS.xs" { struct ViceIoctl vi; struct afsconf_cell info; int32 code; struct set_status { int32 status; int32 reserved; char cell[MAXCELLCHARS]; } set; if (cell && !*cell) cell = NULL; code = internal_GetCellInfo(cell, 0, &info); if (code == 0) { set.reserved = 0; strcpy(set.cell, info.name); if (setuid_allowed) set.status = 0; else set.status = 0x2; vi.in_size = sizeof(set); vi.in = (char *) &set; vi.out_size = 0; vi.out = (char *) 0; code = pioctl(0, VIOC_SETCELLSTATUS, &vi, 0); } SETCODE(code); EXTEND(sp, 1); PUSHs(sv_2mortal(newSViv(code == 0))); } #line 4452 "AFS.c" PUTBACK; return; } } XS(XS_AFS_wscell) { dXSARGS; if (items != 0) Perl_croak(aTHX_ "Usage: AFS::wscell()"); { #line 4005 "AFS.xs" { struct ViceIoctl vi; int32 code; char space[MAXSIZE]; vi.in_size = 0; vi.out_size = MAXSIZE; vi.out = (caddr_t) space; code = pioctl(NULL, VIOC_GET_WS_CELL, &vi, 0); SETCODE(code); ST(0) = sv_newmortal(); if (code == 0) { sv_setpv(ST(0), space); } } #line 4480 "AFS.c" } XSRETURN(1); } XS(XS_AFS__getacl) { dXSARGS; if (items < 1 || items > 2) Perl_croak(aTHX_ "Usage: AFS::_getacl(dir, follow=1)"); SP -= items; { char * dir = (char *)SvPV(ST(0),PL_na); int32 follow; if (items < 2) follow = 1; else { follow = (int32)SvIV(ST(1)); } #line 4026 "AFS.xs" { struct ViceIoctl vi; int32 code; char space[MAXSIZE]; HV *ph, *nh; vi.out_size = MAXSIZE; vi.in_size = 0; vi.out = space; code = pioctl(dir, VIOCGETAL, &vi, follow); SETCODE(code); if (code == 0) { ph = newHV(); nh = newHV(); if (parse_acl(space, ph, nh)) { AV *acl; acl = newAV(); av_store(acl, 0, newRV_noinc((SV *) ph)); av_store(acl, 1, newRV_noinc((SV *) nh)); EXTEND(sp, 1); PUSHs(sv_bless(sv_2mortal(newRV_noinc((SV *) acl)), gv_stashpv("AFS::ACL", 1))); } else { hv_undef(ph); hv_undef(nh); } } } #line 4530 "AFS.c" PUTBACK; return; } } XS(XS_AFS_setacl) { dXSARGS; if (items < 2 || items > 3) Perl_croak(aTHX_ "Usage: AFS::setacl(dir, acl, follow=1)"); { char * dir = (char *)SvPV(ST(0),PL_na); SV * acl = ST(1); int32 follow; int32 RETVAL; dXSTARG; if (items < 3) follow = 1; else { follow = (int32)SvIV(ST(2)); } #line 4062 "AFS.xs" { struct ViceIoctl vi; int32 code; char space[MAXSIZE]; char acls[MAXSIZE], *p; HV *ph, *nh; AV *object; SV **sv; HE *he; int plen, nlen; int32 rights; char *name, *perm; if (sv_isa(acl, "AFS::ACL") && SvROK(acl) && (SvTYPE(SvRV(acl)) == SVt_PVAV) ) { object = (AV *) SvRV(acl); } else { croak("acl is not of type AFS::ACL"); } ph = nh = NULL; sv = av_fetch(object, 0, 0); if (sv) { SV *sph = *sv; if (SvROK(sph) && (SvTYPE(SvRV(sph)) == SVt_PVHV)) { ph = (HV *) SvRV(sph); } } sv = av_fetch(object, 1, 0); if (sv) { SV *snh = *sv; if (SvROK(snh) && (SvTYPE(SvRV(snh)) == SVt_PVHV)) { nh = (HV *) SvRV(snh); } } plen = nlen = 0; p = acls; *p = 0; code = 0; if (ph) { hv_iterinit(ph); while ((code == 0) && (he = hv_iternext(ph))) { I32 len; name = hv_iterkey(he, &len); perm = SvPV(hv_iterval(ph, he), PL_na); code = canonical_parse_rights(perm, &rights); if (code == 0 && rights && !name_is_numeric(name)) { sprintf(p, "%s\t%d\n", name, rights); p += strlen(p); plen++; } } } if (code == 0 && nh) { hv_iterinit(nh); while ((code == 0) && (he = hv_iternext(nh))) { I32 len; name = hv_iterkey(he, &len); perm = SvPV(hv_iterval(nh, he), PL_na); code = canonical_parse_rights(perm, &rights); if (code == 0 && rights && !name_is_numeric(name)) { sprintf(p, "%s\t%d\n", name, rights); p += strlen(p); nlen++; } } } if (code == 0) { sprintf(space, "%d\n%d\n%s", plen, nlen, acls); vi.in_size = strlen(space) + 1; vi.in = space; vi.out_size = 0; vi.out = 0; code = pioctl(dir, VIOCSETAL, &vi, follow); } SETCODE(code); RETVAL = (code == 0); } #line 4643 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__KTC_PRINCIPAL__new) { dXSARGS; if (items < 2) Perl_croak(aTHX_ "Usage: AFS::KTC_PRINCIPAL::_new(class, name, ...)"); SP -= items; { char * class = (char *)SvPV(ST(0),PL_na); char * name = (char *)SvPV(ST(1),PL_na); AFS__KTC_PRINCIPAL RETVAL; #line 4162 "AFS.xs" { struct ktc_principal *p; int32 code; if (items != 2 && items != 4) croak("Usage: AFS::KTC_PRINCIPAL->new(USER.INST@CELL) or AFS::KTC_PRINCIPAL->new(USER, INST, CELL)"); p = (struct ktc_principal *) safemalloc(sizeof(struct ktc_principal)); p->name[0] = '\0'; p->instance[0] = '\0'; p->cell[0] = '\0'; if (items == 2) { code = ka_ParseLoginName(name, p->name, p->instance, p->cell); } else { STRLEN nlen, ilen, clen; char *i = (char *) SvPV(ST(2), ilen); char *c = (char *) SvPV(ST(3), clen); nlen = strlen(name); if (nlen > MAXKTCNAMELEN - 1 || ilen > MAXKTCNAMELEN - 1 || clen > MAXKTCREALMLEN - 1) code = KABADNAME; else { strcpy(p->name, name); strcpy(p->instance, i); strcpy(p->cell, c); code = 0; } } SETCODE(code); ST(0) = sv_newmortal(); if (code == 0) { sv_setref_pv(ST(0), "AFS::KTC_PRINCIPAL", (void *) p); } else { safefree(p); } XSRETURN(1); } #line 4701 "AFS.c" PUTBACK; return; } } XS(XS_AFS__KTC_PRINCIPAL_set) { dXSARGS; if (items < 2) Perl_croak(aTHX_ "Usage: AFS::KTC_PRINCIPAL::set(p, name, ...)"); SP -= items; { AFS__KTC_PRINCIPAL p; char * name = (char *)SvPV(ST(1),PL_na); if (sv_derived_from(ST(0), "AFS::KTC_PRINCIPAL")) { IV tmp = SvIV((SV*)SvRV(ST(0))); p = INT2PTR(AFS__KTC_PRINCIPAL,tmp); } else croak("p is not of type AFS::KTC_PRINCIPAL"); #line 4209 "AFS.xs" { int32 code; if (items != 2 && items != 4) croak("Usage: set($user.$inst@$cell) or set($user,$inst,$cell)"); if (items == 2) { code = ka_ParseLoginName(name, p->name, p->instance, p->cell); } else { STRLEN nlen, ilen, clen; char *i = (char *) SvPV(ST(2), ilen); char *c = (char *) SvPV(ST(3), clen); nlen = strlen(name); if (nlen > MAXKTCNAMELEN - 1 || ilen > MAXKTCNAMELEN - 1 || clen > MAXKTCREALMLEN - 1) code = KABADNAME; else { strcpy(p->name, name); strcpy(p->instance, i); strcpy(p->cell, c); code = 0; } } SETCODE(code); EXTEND(sp, 1); PUSHs(sv_2mortal(newSViv(code == 0))); } #line 4752 "AFS.c" PUTBACK; return; } } XS(XS_AFS__KTC_PRINCIPAL_DESTROY) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::KTC_PRINCIPAL::DESTROY(p)"); { AFS__KTC_PRINCIPAL p; int32 RETVAL; dXSTARG; if (SvROK(ST(0))) { IV tmp = SvIV((SV*)SvRV(ST(0))); p = INT2PTR(AFS__KTC_PRINCIPAL,tmp); } else croak("p is not a reference"); #line 4242 "AFS.xs" { safefree(p); RETVAL = 1; } #line 4779 "AFS.c" } XSRETURN(1); } XS(XS_AFS__KTC_PRINCIPAL_name) { dXSARGS; if (items < 1 || items > 2) Perl_croak(aTHX_ "Usage: AFS::KTC_PRINCIPAL::name(p, name=0)"); SP -= items; { AFS__KTC_PRINCIPAL p; char * name; if (sv_derived_from(ST(0), "AFS::KTC_PRINCIPAL")) { IV tmp = SvIV((SV*)SvRV(ST(0))); p = INT2PTR(AFS__KTC_PRINCIPAL,tmp); } else croak("p is not of type AFS::KTC_PRINCIPAL"); if (items < 2) name = 0; else { name = (char *)SvPV(ST(1),PL_na); } #line 4253 "AFS.xs" { int32 code = 0; if (name != 0) { int nlen = strlen(name); if (nlen > MAXKTCNAMELEN - 1) code = KABADNAME; else strcpy(p->name, name); SETCODE(code); } if (code == 0) { EXTEND(sp, 1); PUSHs(sv_2mortal(newSVpv(p->name, strlen(p->name)))); } } #line 4823 "AFS.c" PUTBACK; return; } } XS(XS_AFS__KTC_PRINCIPAL_instance) { dXSARGS; if (items < 1 || items > 2) Perl_croak(aTHX_ "Usage: AFS::KTC_PRINCIPAL::instance(p, instance=0)"); SP -= items; { AFS__KTC_PRINCIPAL p; char * instance; if (sv_derived_from(ST(0), "AFS::KTC_PRINCIPAL")) { IV tmp = SvIV((SV*)SvRV(ST(0))); p = INT2PTR(AFS__KTC_PRINCIPAL,tmp); } else croak("p is not of type AFS::KTC_PRINCIPAL"); if (items < 2) instance = 0; else { instance = (char *)SvPV(ST(1),PL_na); } #line 4275 "AFS.xs" { int32 code = 0; if (instance != 0) { int ilen = strlen(instance); if (ilen > MAXKTCNAMELEN - 1) code = KABADNAME; else strcpy(p->instance, instance); SETCODE(code); } if (code == 0) { EXTEND(sp, 1); PUSHs(sv_2mortal(newSVpv(p->instance, strlen(p->instance)))); } } #line 4869 "AFS.c" PUTBACK; return; } } XS(XS_AFS__KTC_PRINCIPAL_cell) { dXSARGS; if (items < 1 || items > 2) Perl_croak(aTHX_ "Usage: AFS::KTC_PRINCIPAL::cell(p, cell=0)"); SP -= items; { AFS__KTC_PRINCIPAL p; char * cell; if (sv_derived_from(ST(0), "AFS::KTC_PRINCIPAL")) { IV tmp = SvIV((SV*)SvRV(ST(0))); p = INT2PTR(AFS__KTC_PRINCIPAL,tmp); } else croak("p is not of type AFS::KTC_PRINCIPAL"); if (items < 2) cell = 0; else { cell = (char *)SvPV(ST(1),PL_na); } #line 4298 "AFS.xs" { int32 code = 0; if (cell != 0) { int clen = strlen(cell); if (clen > MAXKTCREALMLEN - 1) code = KABADNAME; else strcpy(p->cell, cell); SETCODE(code); } if (code == 0) { EXTEND(sp, 1); PUSHs(sv_2mortal(newSVpv(p->cell, strlen(p->cell)))); } } #line 4914 "AFS.c" PUTBACK; return; } } XS(XS_AFS__KTC_PRINCIPAL_principal) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::KTC_PRINCIPAL::principal(p)"); SP -= items; { AFS__KTC_PRINCIPAL p; if (sv_derived_from(ST(0), "AFS::KTC_PRINCIPAL")) { IV tmp = SvIV((SV*)SvRV(ST(0))); p = INT2PTR(AFS__KTC_PRINCIPAL,tmp); } else croak("p is not of type AFS::KTC_PRINCIPAL"); #line 4319 "AFS.xs" { int32 code = 0; char buffer[MAXKTCNAMELEN + MAXKTCNAMELEN + MAXKTCREALMLEN + 3]; sprintf(buffer, "%s%s%s%s%s", p->name, p->instance[0] ? "." : "", p->instance, p->cell[0] ? "@" : "", p->cell); EXTEND(sp, 1); PUSHs(sv_2mortal(newSVpv(buffer, strlen(buffer)))); SETCODE(code); } #line 4946 "AFS.c" PUTBACK; return; } } XS(XS_AFS__KTC_TOKEN_DESTROY) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::KTC_TOKEN::DESTROY(t)"); { AFS__KTC_TOKEN t; int32 RETVAL; dXSTARG; if (SvROK(ST(0))) { IV tmp = SvIV((SV*)SvRV(ST(0))); t = INT2PTR(AFS__KTC_TOKEN,tmp); } else croak("t is not a reference"); #line 4337 "AFS.xs" { if (t && t != &the_null_token) safefree(t); RETVAL = 1; } #line 4973 "AFS.c" } XSRETURN(1); } XS(XS_AFS__KTC_TOKEN_startTime) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::KTC_TOKEN::startTime(t)"); SP -= items; { AFS__KTC_TOKEN t; int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::KTC_TOKEN")) { IV tmp = SvIV((SV*)SvRV(ST(0))); t = INT2PTR(AFS__KTC_TOKEN,tmp); } else croak("t is not of type AFS::KTC_TOKEN"); #line 4347 "AFS.xs" { EXTEND(sp,1); PUSHs(sv_2mortal(newSViv(t->startTime))); } #line 5000 "AFS.c" PUTBACK; return; } } XS(XS_AFS__KTC_TOKEN_endTime) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::KTC_TOKEN::endTime(t)"); SP -= items; { AFS__KTC_TOKEN t; int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::KTC_TOKEN")) { IV tmp = SvIV((SV*)SvRV(ST(0))); t = INT2PTR(AFS__KTC_TOKEN,tmp); } else croak("t is not of type AFS::KTC_TOKEN"); #line 4356 "AFS.xs" { EXTEND(sp,1); PUSHs(sv_2mortal(newSViv(t->endTime))); } #line 5028 "AFS.c" PUTBACK; return; } } XS(XS_AFS__KTC_TOKEN_kvno) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::KTC_TOKEN::kvno(t)"); SP -= items; { AFS__KTC_TOKEN t; int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::KTC_TOKEN")) { IV tmp = SvIV((SV*)SvRV(ST(0))); t = INT2PTR(AFS__KTC_TOKEN,tmp); } else croak("t is not of type AFS::KTC_TOKEN"); #line 4365 "AFS.xs" { EXTEND(sp,1); PUSHs(sv_2mortal(newSViv(t->kvno))); } #line 5056 "AFS.c" PUTBACK; return; } } XS(XS_AFS__KTC_TOKEN_ticketLen) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::KTC_TOKEN::ticketLen(t)"); SP -= items; { AFS__KTC_TOKEN t; int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::KTC_TOKEN")) { IV tmp = SvIV((SV*)SvRV(ST(0))); t = INT2PTR(AFS__KTC_TOKEN,tmp); } else croak("t is not of type AFS::KTC_TOKEN"); #line 4374 "AFS.xs" { EXTEND(sp,1); PUSHs(sv_2mortal(newSViv(t->ticketLen))); } #line 5084 "AFS.c" PUTBACK; return; } } XS(XS_AFS__KTC_TOKEN_ticket) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::KTC_TOKEN::ticket(t)"); SP -= items; { AFS__KTC_TOKEN t; if (sv_derived_from(ST(0), "AFS::KTC_TOKEN")) { IV tmp = SvIV((SV*)SvRV(ST(0))); t = INT2PTR(AFS__KTC_TOKEN,tmp); } else croak("t is not of type AFS::KTC_TOKEN"); #line 4383 "AFS.xs" { EXTEND(sp,1); PUSHs(sv_2mortal(newSVpv(t->ticket,t->ticketLen))); } #line 5110 "AFS.c" PUTBACK; return; } } XS(XS_AFS__KTC_TOKEN_sessionKey) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::KTC_TOKEN::sessionKey(t)"); SP -= items; { AFS__KTC_TOKEN t; if (sv_derived_from(ST(0), "AFS::KTC_TOKEN")) { IV tmp = SvIV((SV*)SvRV(ST(0))); t = INT2PTR(AFS__KTC_TOKEN,tmp); } else croak("t is not of type AFS::KTC_TOKEN"); #line 4392 "AFS.xs" { struct ktc_encryptionKey *key; SV *sv; key = (struct ktc_encryptionKey *) safemalloc(sizeof(*key)); *key = t->sessionKey; sv = sv_newmortal(); EXTEND(sp, 1); sv_setref_pv(sv, "AFS::KTC_EKEY", (void *) key); PUSHs(sv); } #line 5143 "AFS.c" PUTBACK; return; } } XS(XS_AFS__KTC_TOKEN_string) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::KTC_TOKEN::string(t)"); SP -= items; { AFS__KTC_TOKEN t; if (sv_derived_from(ST(0), "AFS::KTC_TOKEN")) { IV tmp = SvIV((SV*)SvRV(ST(0))); t = INT2PTR(AFS__KTC_TOKEN,tmp); } else croak("t is not of type AFS::KTC_TOKEN"); #line 4408 "AFS.xs" { EXTEND(sp,1); PUSHs(sv_2mortal(newSVpv((char*)t,sizeof(*t)))); } #line 5169 "AFS.c" PUTBACK; return; } } XS(XS_AFS__KTC_EKEY_DESTROY) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::KTC_EKEY::DESTROY(k)"); { AFS__KTC_EKEY k; int32 RETVAL; dXSTARG; if (SvROK(ST(0))) { IV tmp = SvIV((SV*)SvRV(ST(0))); k = INT2PTR(AFS__KTC_EKEY,tmp); } else croak("k is not a reference"); #line 4420 "AFS.xs" { safefree(k); RETVAL = 1; } #line 5196 "AFS.c" } XSRETURN(1); } XS(XS_AFS__KTC_EKEY_string) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::KTC_EKEY::string(k)"); SP -= items; { AFS__KTC_EKEY k; if (sv_derived_from(ST(0), "AFS::KTC_EKEY")) { IV tmp = SvIV((SV*)SvRV(ST(0))); k = INT2PTR(AFS__KTC_EKEY,tmp); } else croak("k is not of type AFS::KTC_EKEY"); #line 4430 "AFS.xs" { EXTEND(sp,1); PUSHs(sv_2mortal(newSVpv((char*)k,sizeof(*k)))); } #line 5221 "AFS.c" PUTBACK; return; } } XS(XS_AFS__VOS_new) { dXSARGS; if (items < 0 || items > 7) Perl_croak(aTHX_ "Usage: AFS::VOS::new(class=0, verb=0, timeout=90, noauth=0, localauth=0, tcell=NULL, crypt=0)"); SP -= items; { char * class; int verb; int timeout; int noauth; int localauth; char * tcell; int crypt; #line 4448 "AFS.xs" int32 code = -1; extern int verbose; #line 5245 "AFS.c" AFS__VOS RETVAL; if (items < 1) class = 0; else { class = (char *)SvPV(ST(0),PL_na); } if (items < 2) verb = 0; else { verb = (int)SvIV(ST(1)); } if (items < 3) timeout = 90; else { timeout = (int)SvIV(ST(2)); } if (items < 4) noauth = 0; else { noauth = (int)SvIV(ST(3)); } if (items < 5) localauth = 0; else { localauth = (int)SvIV(ST(4)); } if (items < 6) tcell = NULL; else { tcell = (char *)SvPV(ST(5),PL_na); } if (items < 7) crypt = 0; else { crypt = (int)SvIV(ST(6)); } #line 4452 "AFS.xs" { /* Initialize the ubik_client connection */ rx_SetRxDeadTime(timeout); /* timeout seconds inactivity before declared dead */ cstruct = (struct ubik_client *) 0; verbose = verb; if (crypt) /* -crypt specified */ vsu_SetCrypt(1); if (code = vsu_ClientInit((noauth != 0), AFSDIR_CLIENT_ETC_DIRPATH, tcell, localauth, &cstruct, UV_SetSecurity)) { char buffer[80]; sprintf(buffer, "could not initialize VLDB library (code=%u) \n", code); VSETCODE(code, buffer); } SETCODE(code); ST(0) = sv_newmortal(); if (code == 0) { sv_setref_pv(ST(0), "AFS::VOS", (void *) cstruct); XSRETURN(1); } else { XSRETURN_UNDEF; } } #line 5317 "AFS.c" PUTBACK; return; } } XS(XS_AFS__VOS__DESTROY) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::VOS::_DESTROY(self)"); { AFS__VOS self; #line 4484 "AFS.xs" int32 code = 0; #line 5332 "AFS.c" int32 RETVAL; dXSTARG; if (SvROK(ST(0))) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__VOS,tmp); } else croak("self is not a reference"); #line 4486 "AFS.xs" { /* if (self) { */ /* printf("DEBUG-21 %p \n", self); */ code = ubik_ClientDestroy((struct ubik_client *) self); /* printf("DEBUG-23 %d \n", code); */ /* Safefree(self); */ /* self = 0; */ /* } */ rx_Finalize(); SETCODE(code); /* printf("DEBUG-24 \n"); */ RETVAL = (code == 0); /* printf("DEBUG-25 \n"); */ } #line 5357 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__VOS_status) { dXSARGS; if (items != 2) Perl_croak(aTHX_ "Usage: AFS::VOS::status(cstruct, aserver)"); { AFS__VOS cstruct; char * aserver = (char *)SvPV(ST(1),PL_na); #line 4508 "AFS.xs" afs_int32 server, code; transDebugInfo *pntr; afs_int32 count; char buffer[128]; #line 5376 "AFS.c" if (sv_derived_from(ST(0), "AFS::VOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VOS,tmp); } else croak("cstruct is not of type AFS::VOS"); #line 4513 "AFS.xs" { server = GetServer(aserver); if (!server) { sprintf(buffer, "AFS::VOS: host '%s' not found in host table\n", aserver); VSETCODE(-1, buffer); XSRETURN_UNDEF; goto done; } code = UV_VolserStatus(server, &pntr, &count); if (code) { PrintDiagnostics("status", code); SETCODE(1); XSRETURN_UNDEF; goto done; } ST(0) = sv_newmortal(); if (count == 0) { sprintf(buffer, "No active transactions on %s\n", aserver); sv_setpv(ST(0), buffer); } else { sprintf(buffer, "Total transactions: %d\n", count); sv_setpv(ST(0), buffer); } done: ; } #line 5413 "AFS.c" } XSRETURN(1); } XS(XS_AFS__VOS_release) { dXSARGS; if (items < 2 || items > 3) Perl_croak(aTHX_ "Usage: AFS::VOS::release(cstruct, name, force=0)"); { AFS__VOS cstruct; char * name = (char *)SvPV(ST(1),PL_na); int force; #line 4548 "AFS.xs" struct nvldbentry entry; afs_int32 avolid, aserver, apart, vtype, code, err; #line 5430 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::VOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VOS,tmp); } else croak("cstruct is not of type AFS::VOS"); if (items < 3) force = 0; else { force = (int)SvIV(ST(2)); } #line 4551 "AFS.xs" { RETVAL = 0; avolid = vsu_GetVolumeID(name, cstruct, &err); if (avolid == 0) { char buffer[80]; if (err) set_errbuff(buffer, err); else sprintf(buffer, "AFS::VOS: can't find volume '%s'\n", name); VSETCODE(err ? err : ENOENT, buffer); goto done; } code = GetVolumeInfo(avolid, &aserver, &apart, &vtype, &entry); if (code) { SETCODE(code); goto done; } if (vtype != RWVOL) { char buffer[80]; sprintf(buffer, "%s not a RW volume\n", name); VSETCODE(ENOENT, buffer); goto done; } if (!ISNAMEVALID(entry.name)) { char buffer[80]; sprintf(buffer, "Volume name %s is too long, rename before releasing\n", entry.name); VSETCODE(E2BIG, buffer); goto done; } code = UV_ReleaseVolume(avolid, aserver, apart, force); if (code) { PrintDiagnostics("release", code); SETCODE(code); goto done; } SETCODE(0); RETVAL = 1; done: ; } #line 5490 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__VOS_create) { dXSARGS; if (items < 4 || items > 5) Perl_croak(aTHX_ "Usage: AFS::VOS::create(cstruct, server, partition, name, maxquota=NULL)"); { AFS__VOS cstruct; char * server = (char *)SvPV(ST(1),PL_na); char * partition = (char *)SvPV(ST(2),PL_na); char * name = (char *)SvPV(ST(3),PL_na); char * maxquota; #line 4606 "AFS.xs" int32 pname; char part[10]; int32 volid,code; struct nvldbentry entry; int32 vcode; int32 quota = 5000; afs_int32 tserver; #line 5515 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::VOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VOS,tmp); } else croak("cstruct is not of type AFS::VOS"); if (items < 5) maxquota = NULL; else { maxquota = (char *)SvPV(ST(4),PL_na); } #line 4614 "AFS.xs" { RETVAL = 0; tserver = GetServer(server); if (!tserver) { char buffer[80]; sprintf(buffer, "AFS::VOS: host '%s' not found in host table\n", server); VSETCODE(ENOENT, buffer); goto done; } pname = volutil_GetPartitionID(partition); if (pname < 0) { char buffer[80]; sprintf(buffer, "AFS::VOS: could not interpret partition name '%s'\n", partition); VSETCODE(ENOENT, buffer); goto done; } if (!IsPartValid(pname, tserver, &code)) { /*check for validity of the partition */ char buffer[80]; if (code) set_errbuff(buffer, code); else sprintf(buffer, "AFS::VOS: partition %s does not exist on the server\n", partition); VSETCODE(code ? code : ENOENT, buffer); goto done; } if (!ISNAMEVALID(name)) { char buffer[80]; sprintf(buffer, "AFS::VOS: the name of the root volume %s exceeds the size limit of %d\n", name, VOLSER_OLDMAXVOLNAME - 10); VSETCODE(E2BIG, buffer); goto done; } if (!VolNameOK(name)) { char buffer[80]; sprintf(buffer, "Illegal volume name %s, should not end in .readonly or .backup\n", name); VSETCODE(EINVAL, buffer); goto done; } if (IsNumeric(name)) { char buffer[80]; sprintf(buffer, "Illegal volume name %s, should not be a number\n", name); VSETCODE(EINVAL, buffer); goto done; } vcode = VLDB_GetEntryByName(name, &entry); if (!vcode) { char buffer[80]; sprintf(buffer, "Volume %s already exists\n", name); VSETCODE(EEXIST, buffer); goto done; } if (maxquota) { if (!IsNumeric(maxquota)) { char buffer[80]; sprintf(buffer, "Initial quota %d should be numeric.\n", maxquota); VSETCODE(EINVAL, buffer); goto done; } code = util_GetInt32(maxquota, "a); if (code) { char buffer[80]; sprintf(buffer, "AFS::VOS: bad integer specified for quota.\n"); VSETCODE(code, buffer); goto done; } } code = UV_CreateVolume2(tserver, pname, name, quota, 0, 0, 0, 0, &volid); if (code) { SETCODE(code); goto done; } SETCODE(0); RETVAL = volid; done: ; } #line 5617 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__VOS_backup) { dXSARGS; if (items != 2) Perl_croak(aTHX_ "Usage: AFS::VOS::backup(cstruct, name)"); { AFS__VOS cstruct; char * name = (char *)SvPV(ST(1),PL_na); #line 4711 "AFS.xs" int32 avolid, aserver, apart, vtype, code, err; int32 buvolid, buserver, bupart, butype; struct nvldbentry entry; struct nvldbentry buentry; #line 5636 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::VOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VOS,tmp); } else croak("cstruct is not of type AFS::VOS"); #line 4716 "AFS.xs" { RETVAL = 0; avolid = vsu_GetVolumeID(name, cstruct, &err); if (avolid == 0) { char buffer[80]; if (err) set_errbuff(buffer, err); else sprintf(buffer, "AFS::VOS: can't find volume ID or name '%s'\n", name); VSETCODE(err ? err : ENOENT, buffer); goto done; } code = GetVolumeInfo(avolid, &aserver, &apart, &vtype, &entry); if (code) { SETCODE(code); goto done; } /* verify this is a readwrite volume */ if (vtype != RWVOL) { char buffer[80]; sprintf(buffer, "%s not RW volume\n", name); VSETCODE(-1, buffer); goto done; } /* is there a backup volume already? */ if (entry.flags & BACK_EXISTS) { /* yep, where is it? */ buvolid = entry.volumeId[BACKVOL]; code = GetVolumeInfo(buvolid, &buserver, &bupart, &butype, &buentry); if (code) { SETCODE(code); goto done; } /* is it local? */ code = VLDB_IsSameAddrs(buserver, aserver, &err); if (err) { char buffer[80]; sprintf(buffer, "Failed to get info about server's %d address(es) from vlserver; aborting call!\n", buserver); VSETCODE(err, buffer); goto done; } if (!code) { char buffer[80]; sprintf(buffer, "FATAL ERROR: backup volume %u exists on server %u\n", buvolid, buserver); VSETCODE(-1, buffer); goto done; } } /* nope, carry on */ code = UV_BackupVolume(aserver, apart, avolid); if (code) { PrintDiagnostics("backup", code); SETCODE(0); goto done; } SETCODE(0); RETVAL = 1; done: ; } #line 5717 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__VOS_remove) { dXSARGS; if (items < 2 || items > 4) Perl_croak(aTHX_ "Usage: AFS::VOS::remove(cstruct, name, servername=NULL, parti=NULL)"); { AFS__VOS cstruct; char * name = (char *)SvPV(ST(1),PL_na); char * servername; char * parti; #line 4797 "AFS.xs" afs_int32 err, code = 0; afs_int32 server = 0, partition = -1, volid; char pname[10]; afs_int32 idx, j; #line 5738 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::VOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VOS,tmp); } else croak("cstruct is not of type AFS::VOS"); if (items < 3) servername = NULL; else { servername = (char *)SvPV(ST(2),PL_na); } if (items < 4) parti = NULL; else { parti = (char *)SvPV(ST(3),PL_na); } #line 4802 "AFS.xs" { RETVAL = 0; if (servername && strlen(servername) != 0) { server = GetServer(servername); if (!server) { char buffer[80]; sprintf(buffer, "AFS::VOS: server '%s' not found in host table\n", servername); VSETCODE(ENOENT, buffer); goto done; } } if (parti && strlen(parti) != 0) { partition = volutil_GetPartitionID(parti); if (partition < 0) { char buffer[80]; sprintf(buffer, "AFS::VOS: could not interpret partition name '%s'\n", parti); VSETCODE(EINVAL, buffer); goto done; } /* Check for validity of the partition */ if (!IsPartValid(partition, server, &code)) { char buffer[80]; if (code) set_errbuff(buffer, code); else sprintf(buffer, "AFS::VOS: partition %s does not exist on the server\n", parti); VSETCODE(ENOENT, buffer); goto done; } } volid = vsu_GetVolumeID(name, cstruct, &err); if (volid == 0) { char buffer[80]; sprintf(buffer, "Can't find volume name '%s' in VLDB\n", name); if (err) set_errbuff(buffer, err); VSETCODE(ENOENT, buffer); goto done; } /* If the server or partition option are not complete, try to fill * them in from the VLDB entry. */ if ((partition == -1) || !server) { struct nvldbentry entry; code = VLDB_GetEntryByID(volid, -1, &entry); if (code) { char buffer[80]; sprintf(buffer, "Could not fetch the entry for volume %u from VLDB\n", volid); VSETCODE(code, buffer); goto done; } if (((volid == entry.volumeId[RWVOL]) && (entry.flags & RW_EXISTS)) || ((volid == entry.volumeId[BACKVOL]) && (entry.flags & BACK_EXISTS))) { idx = Lp_GetRwIndex(&entry); if ((idx == -1) || (server && (server != entry.serverNumber[idx])) || ((partition != -1) && (partition != entry.serverPartition[idx]))) { char buffer[80]; sprintf(buffer, "AFS::VOS: Volume '%s' no match\n", name); VSETCODE(ENOENT, buffer); goto done; } } else if ((volid == entry.volumeId[ROVOL]) && (entry.flags & RO_EXISTS)) { for (idx = -1, j = 0; j < entry.nServers; j++) { if (entry.serverFlags[j] != ITSROVOL) continue; if (((server == 0) || (server == entry.serverNumber[j])) && ((partition == -1) || (partition == entry.serverPartition[j]))) { if (idx != -1) { char buffer[80]; sprintf(buffer, "AFS::VOS: Volume '%s' matches more than one RO\n", name); VSETCODE(ENOENT, buffer); goto done; } idx = j; } } if (idx == -1) { char buffer[80]; sprintf(buffer, "AFS::VOS: Volume '%s' no match\n", name); VSETCODE(ENOENT, buffer); goto done; } } else { char buffer[80]; sprintf(buffer, "AFS::VOS: Volume '%s' no match\n", name); VSETCODE(ENOENT, buffer); goto done; } server = htonl(entry.serverNumber[idx]); partition = entry.serverPartition[idx]; } code = UV_DeleteVolume(server, partition, volid); if (code) { PrintDiagnostics("remove", code); SETCODE(code); goto done; } SETCODE(0); RETVAL = volid; done: ; } #line 5879 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__VOS_rename) { dXSARGS; if (items != 3) Perl_croak(aTHX_ "Usage: AFS::VOS::rename(cstruct, oldname, newname)"); { AFS__VOS cstruct; char * oldname = (char *)SvPV(ST(1),PL_na); char * newname = (char *)SvPV(ST(2),PL_na); #line 4932 "AFS.xs" afs_int32 code1, code2, code; struct nvldbentry entry; #line 5897 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::VOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VOS,tmp); } else croak("cstruct is not of type AFS::VOS"); #line 4935 "AFS.xs" { RETVAL = 0; code1 = VLDB_GetEntryByName(oldname, &entry); if (code1) { char buffer[80]; sprintf(buffer, "AFS::VOS: Could not find entry for volume %s\n", oldname); VSETCODE(-1, buffer); goto done; } code2 = VLDB_GetEntryByName(newname, &entry); if ((!code1) && (!code2)) { /*the newname already exists */ char buffer[80]; sprintf(buffer, "AFS::VOS: volume %s already exists\n", newname); VSETCODE(-1, buffer); goto done; } if (code1 && code2) { char buffer[80]; sprintf(buffer, "AFS::VOS: Could not find entry for volume %s or %s\n", oldname, newname); VSETCODE(-1, buffer); goto done; } if (!VolNameOK(oldname)) { char buffer[80]; sprintf(buffer, "Illegal volume name %s, should not end in .readonly or .backup\n", oldname); VSETCODE(-1, buffer); goto done; } if (!ISNAMEVALID(newname)) { char buffer[80]; sprintf(buffer, "AFS::VOS: the new volume name %s exceeds the size limit of %d\n", newname, VOLSER_OLDMAXVOLNAME - 10); VSETCODE(-1, buffer); goto done; } if (!VolNameOK(newname)) { char buffer[80]; sprintf(buffer, "Illegal volume name %s, should not end in .readonly or .backup\n", newname); VSETCODE(-1, buffer); goto done; } if (IsNumeric(newname)) { char buffer[80]; sprintf(buffer, "Illegal volume name %s, should not be a number\n", newname); VSETCODE(-1, buffer); goto done; } MapHostToNetwork(&entry); code = UV_RenameVolume(&entry, oldname, newname); if (code) { PrintDiagnostics("rename", code); SETCODE(code); goto done; } SETCODE(0); RETVAL = 1; done: ; } #line 5973 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__VOS__setfields) { dXSARGS; if (items < 2 || items > 4) Perl_croak(aTHX_ "Usage: AFS::VOS::_setfields(cstruct, name, mquota=NULL, clearuse=0)"); { AFS__VOS cstruct; char * name = (char *)SvPV(ST(1),PL_na); char * mquota; int32 clearuse; #line 5011 "AFS.xs" #ifdef OpenAFS struct nvldbentry entry; int32 vcode = 0; volintInfo info; int32 volid; int32 code, err; int32 aserver, apart; int previdx = -1; #endif #line 5999 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::VOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VOS,tmp); } else croak("cstruct is not of type AFS::VOS"); if (items < 3) mquota = NULL; else { mquota = (char *)SvPV(ST(2),PL_na); } if (items < 4) clearuse = 0; else { clearuse = (int32)SvIV(ST(3)); } #line 5021 "AFS.xs" { #ifdef OpenAFS RETVAL = 0; volid = vsu_GetVolumeID(name, cstruct, &err); /* -id */ if (volid == 0) { char buffer[80]; if (err) set_errbuff(buffer, err); else sprintf(buffer, "Unknown volume ID or name '%s'\n", name); VSETCODE(err ? err : -1, buffer); goto done; } code = VLDB_GetEntryByID(volid, RWVOL, &entry); if (code) { char buffer[80]; sprintf(buffer, "Could not fetch the entry for volume number %u from VLDB \n", volid); VSETCODE(code, buffer); goto done; } MapHostToNetwork(&entry); GetServerAndPart(&entry, RWVOL, &aserver, &apart, &previdx); if (previdx == -1) { char buffer[80]; sprintf(buffer, "Volume %s does not exist in VLDB\n\n", name); VSETCODE(ENOENT, buffer); goto done; } Zero(&info, 1, volintInfo); info.volid = volid; info.type = RWVOL; info.dayUse = -1; info.maxquota = -1; info.flags = -1; info.spare0 = -1; info.spare1 = -1; info.spare2 = -1; info.spare3 = -1; if (mquota) { /* -max */ code = util_GetInt32(mquota, &info.maxquota); if (code) { char buffer[80]; sprintf(buffer, "invalid quota value\n"); VSETCODE(code, buffer); goto done; } } if (clearuse) { /* -clearuse */ info.dayUse = 0; } code = UV_SetVolumeInfo(aserver, apart, volid, &info); if (code) { char buffer[80]; sprintf(buffer, "Could not update volume info fields for volume number %u\n", volid); VSETCODE(code, buffer); } else SETCODE(code); RETVAL = 1; done: ; #else not_here("AFS::VOS::setfields"); #endif } #line 6094 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__VOS_restore) { dXSARGS; if (items < 4 || items > 10) Perl_croak(aTHX_ "Usage: AFS::VOS::restore(cstruct, server, partition, name, file=NULL, id=NULL, inter=0, overwrite=NULL, offline=0, readonly=0)"); { AFS__VOS cstruct; char * server = (char *)SvPV(ST(1),PL_na); char * partition = (char *)SvPV(ST(2),PL_na); char * name = (char *)SvPV(ST(3),PL_na); char * file; char * id; int inter; char * overwrite; int offline; int readonly; #line 5109 "AFS.xs" afs_int32 avolid, aserver, apart, code,vcode, err; afs_int32 aoverwrite = AFS_ABORT; int restoreflags, voltype = RWVOL; char prompt = 'n'; char afilename[NameLen], avolname[VOLSER_MAXVOLNAME +1], apartName[10]; char volname[VOLSER_MAXVOLNAME +1]; struct nvldbentry entry; #line 6124 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::VOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VOS,tmp); } else croak("cstruct is not of type AFS::VOS"); if (items < 5) file = NULL; else { file = (char *)SvPV(ST(4),PL_na); } if (items < 6) id = NULL; else { id = (char *)SvPV(ST(5),PL_na); } if (items < 7) inter = 0; else { inter = (int)SvIV(ST(6)); } if (items < 8) overwrite = NULL; else { overwrite = (char *)SvPV(ST(7),PL_na); } if (items < 9) offline = 0; else { offline = (int)SvIV(ST(8)); } if (items < 10) readonly = 0; else { readonly = (int)SvIV(ST(9)); } #line 5117 "AFS.xs" { if (inter) aoverwrite = AFS_ASK; if (id && strlen(id) != 0) { avolid = vsu_GetVolumeID(id, cstruct, &err); if (avolid == 0) { char buffer[80]; if (err) set_errbuff(buffer, err); else sprintf(buffer, "AFS::VOS: can't find volume '%s'\n", id); VSETCODE(err ? err : -1, buffer); RETVAL = 0; goto done; } } else avolid = 0; if (overwrite && strlen(overwrite) != 0) { if ((strcmp(overwrite, "a") == 0) || (strcmp(overwrite, "abort") == 0)) { aoverwrite = AFS_ABORT; } else if ((strcmp(overwrite, "f") == 0) || (strcmp(overwrite, "full") == 0)) { aoverwrite = AFS_FULL; } else if ((strcmp(overwrite, "i") == 0) || (strcmp(overwrite, "inc") == 0) || (strcmp(overwrite, "increment") == 0) || (strcmp(overwrite, "incremental") == 0)) { aoverwrite = AFS_INC; } else { char buffer[80]; sprintf(buffer, "AFS::VOS: %s is not a valid OVERWRITE argument\n", overwrite); VSETCODE(-1, buffer); RETVAL = 0; goto done; } } if (readonly) { voltype = ROVOL; } aserver = GetServer(server); if (aserver == 0) { char buffer[80]; sprintf(buffer, "AFS::VOS: server '%s' not found in host table\n", server); VSETCODE(-1, buffer); RETVAL = 0; goto done; } apart = volutil_GetPartitionID(partition); if (apart < 0) { char buffer[80]; sprintf(buffer, "AFS::VOS: could not interpret partition name '%s'\n", partition); VSETCODE(-1, buffer); RETVAL = 0; goto done; } if (!IsPartValid(apart, aserver, &code)) { /*check for validity of the partition */ char buffer[80]; if (code) set_errbuff(buffer, code); else sprintf(buffer, "AFS::VOS: partition %s does not exist on the server\n", partition); VSETCODE(code ? code : -1, buffer); RETVAL = 0; goto done; } strcpy(avolname, name); if (!ISNAMEVALID(avolname)) { char buffer[80]; sprintf(buffer, "AFS::VOS: the name of the volume %s exceeds the size limit\n", avolname); VSETCODE(-1, buffer); RETVAL = 0; goto done; } if (!VolNameOK(avolname)) { char buffer[80]; sprintf(buffer, "Illegal volume name %s, should not end in .readonly or .backup\n", avolname); VSETCODE(-1, buffer); RETVAL = 0; goto done; } if (file && strlen(file) != 0) { strcpy(afilename, file); if (!FileExists(afilename)) { char buffer[80]; sprintf(buffer, "Can't access file %s\n", afilename); VSETCODE(-1, buffer); RETVAL = 0; goto done; } } else { strcpy(afilename, ""); } /* Check if volume exists or not */ vsu_ExtractName(volname, avolname); vcode = VLDB_GetEntryByName(volname, &entry); if (vcode) { /* no volume - do a full restore */ restoreflags = RV_FULLRST; if ((aoverwrite == AFS_INC) || (aoverwrite == AFS_ABORT)) { char buffer[80]; sprintf(buffer, "Volume does not exist; Will perform a full restore\n"); VSETCODE(vcode, buffer); } } else if ((!readonly && Lp_GetRwIndex(&entry) == -1) /* RW volume does not exist - do a full */ ||(readonly && !Lp_ROMatch(0, 0, &entry))) { /* RO volume does not exist - do a full */ restoreflags = RV_FULLRST; if ((aoverwrite == AFS_INC) || (aoverwrite == AFS_ABORT)) fprintf(stderr, "%s Volume does not exist; Will perform a full restore\n", readonly ? "RO" : "RW"); if (avolid == 0) { avolid = entry.volumeId[voltype]; } else if (entry.volumeId[voltype] != 0 && entry.volumeId[voltype] != avolid) { avolid = entry.volumeId[voltype]; } } else { /* volume exists - do we do a full incremental or abort */ int Oserver, Opart, Otype, vol_elsewhere = 0; struct nvldbentry Oentry; int c, dc; if (avolid == 0) { avolid = entry.volumeId[voltype]; } else if (entry.volumeId[voltype] != 0 && entry.volumeId[voltype] != avolid) { avolid = entry.volumeId[voltype]; } /* A file name was specified - check if volume is on another partition */ vcode = GetVolumeInfo(avolid, &Oserver, &Opart, &Otype, &Oentry); if (vcode) { SETCODE(0); RETVAL = 0; goto done; } vcode = VLDB_IsSameAddrs(Oserver, aserver, &err); if (err) { char buffer[80]; sprintf(buffer, "Failed to get info about server's %d address(es) from vlserver (err=%d); aborting call!\n", Oserver, err); VSETCODE(err, buffer); RETVAL = 0; goto done; } if (!vcode || (Opart != apart)) vol_elsewhere = 1; if (aoverwrite == AFS_ASK) { if (strcmp(afilename, "") == 0) { /* The file is from standard in */ char buffer[80]; sprintf(buffer, "Volume exists and no OVERWRITE argument specified; Aborting restore command\n"); VSETCODE(-1, buffer); RETVAL = 0; goto done; } /* Ask what to do */ if (vol_elsewhere) { char buffer[80]; sprintf(buffer, "The volume %s %u already exists on a different server/part\n", volname, entry.volumeId[voltype]); VSETCODE(-1, buffer); fprintf(stderr, "Do you want to do a full restore or abort? [fa](a): "); } else { char buffer[80]; sprintf(buffer, "The volume %s %u already exists in the VLDB\n", volname, entry.volumeId[voltype]); VSETCODE(-1, buffer); fprintf(stderr, "Do you want to do a full/incremental restore or abort? [fia](a): "); } dc = c = getchar(); while (!(dc == EOF || dc == '\n')) dc = getchar(); /* goto end of line */ if ((c == 'f') || (c == 'F')) aoverwrite = AFS_FULL; else if ((c == 'i') || (c == 'I')) aoverwrite = AFS_INC; else aoverwrite = AFS_ABORT; } if (aoverwrite == AFS_ABORT) { char buffer[80]; sprintf(buffer, "Volume exists; Aborting restore command\n"); VSETCODE(-1, buffer); RETVAL = 0; goto done; } else if (aoverwrite == AFS_FULL) { restoreflags = RV_FULLRST; fprintf(stderr, "Volume exists; Will delete and perform full restore\n"); } else if (aoverwrite == AFS_INC) { restoreflags = 0; if (vol_elsewhere) { char buffer[80]; sprintf(buffer, "%s volume %u already exists on a different server/part; not allowed\n", readonly ? "RO" : "RW", avolid); VSETCODE(-1, buffer); RETVAL = 0; goto done; } } } if (offline) restoreflags |= RV_OFFLINE; if (readonly) restoreflags |= RV_RDONLY; code = UV_RestoreVolume(aserver, apart, avolid, avolname, restoreflags, WriteData, afilename); if (code) { PrintDiagnostics("restore", code); SETCODE(code); RETVAL = 0; goto done; } MapPartIdIntoName(apart, apartName); /* patch typo here - originally "parms[1]", should be "parms[0]" */ SETCODE(0); RETVAL = 1; done: ; } #line 6420 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__VOS_dump) { dXSARGS; if (items < 2 || items > 6) Perl_croak(aTHX_ "Usage: AFS::VOS::dump(cstruct, id, time=NULL, file=NULL, server=NULL, partition=NULL)"); { AFS__VOS cstruct; char * id = (char *)SvPV(ST(1),PL_na); char * time; char * file; char * server; char * partition; #line 5379 "AFS.xs" afs_int32 avolid, aserver, apart, voltype, fromdate=0, code, err, i; char filename[NameLen]; struct nvldbentry entry; #line 6442 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::VOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VOS,tmp); } else croak("cstruct is not of type AFS::VOS"); if (items < 3) time = NULL; else { time = (char *)SvPV(ST(2),PL_na); } if (items < 4) file = NULL; else { file = (char *)SvPV(ST(3),PL_na); } if (items < 5) server = NULL; else { server = (char *)SvPV(ST(4),PL_na); } if (items < 6) partition = NULL; else { partition = (char *)SvPV(ST(5),PL_na); } #line 5383 "AFS.xs" { RETVAL = 0; rx_SetRxDeadTime(60 * 10); for (i = 0; i < MAXSERVERS; i++) { struct rx_connection *rxConn = ubik_GetRPCConn((struct ubik_client *) cstruct, i); if (rxConn == 0) break; rx_SetConnDeadTime(rxConn, rx_connDeadTime); if (rxConn->service) rxConn->service->connDeadTime = rx_connDeadTime; } avolid = vsu_GetVolumeID(id, cstruct, &err); if (avolid == 0) { char buffer[80]; if (err) set_errbuff(buffer, err); else sprintf(buffer, "AFS::VOS: can't find volume '%s'\n", id); VSETCODE(err ? err : ENOENT, buffer); goto done; } if ((server && (strlen(server) != 0)) || (partition && (strlen(partition) != 0))) { if (!(server && (strlen(server) != 0)) || !(partition && (strlen(partition) != 0))) { char buffer[80]; sprintf(buffer, "Must specify both SERVER and PARTITION arguments\n"); VSETCODE(-1, buffer); goto done; } aserver = GetServer(server); if (aserver == 0) { char buffer[80]; sprintf(buffer, "Invalid server name\n"); VSETCODE(-1, buffer); goto done; } apart = volutil_GetPartitionID(partition); if (apart < 0) { char buffer[80]; sprintf(buffer, "Invalid partition name\n"); VSETCODE(-1, buffer); goto done; } } else { code = GetVolumeInfo(avolid, &aserver, &apart, &voltype, &entry); if (code) { SETCODE(code); goto done; } } if (time && strcmp(time, "0")) { code = ktime_DateToInt32(time, &fromdate); if (code) { char buffer[80]; sprintf(buffer, "AFS::VOS: failed to parse date '%s' (error=%d))\n", time, code); VSETCODE(code, buffer); goto done; } } if (file && (strlen(file) != 0)) { strcpy(filename, file); } else { strcpy(filename, ""); } code = UV_DumpVolume(avolid, aserver, apart, fromdate, DumpFunction, filename); if (code) { PrintDiagnostics("dump", code); SETCODE(code); goto done; } SETCODE(0); RETVAL = 1; done: ; } #line 6559 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__VOS_partinfo) { dXSARGS; if (items < 2 || items > 3) Perl_croak(aTHX_ "Usage: AFS::VOS::partinfo(cstruct, server, partname=NULL)"); SP -= items; { AFS__VOS cstruct; char * server = (char *)SvPV(ST(1),PL_na); char * partname; #line 5478 "AFS.xs" afs_int32 apart; afs_int32 aserver, code; char pname[10]; struct diskPartition partition; struct partList dummyPartList; int i, cnt; HV *partlist = (HV*)sv_2mortal((SV*)newHV()); #line 6583 "AFS.c" if (sv_derived_from(ST(0), "AFS::VOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VOS,tmp); } else croak("cstruct is not of type AFS::VOS"); if (items < 3) partname = NULL; else { partname = (char *)SvPV(ST(2),PL_na); } #line 5486 "AFS.xs" { apart = -1; aserver = GetServer(server); if (aserver == 0) { char buffer[80]; sprintf(buffer, "AFS::VOS: server '%s' not found in host table\n", server); VSETCODE(-1, buffer); XSRETURN_UNDEF; goto done; } if (partname && (strlen(partname) != 0)) { apart = volutil_GetPartitionID(partname); if (apart < 0) { char buffer[80]; sprintf(buffer, "AFS::VOS: could not interpret partition name '%s'\n", partname); VSETCODE(-1, buffer); XSRETURN_UNDEF; goto done; } dummyPartList.partId[0] = apart; dummyPartList.partFlags[0] = PARTVALID; cnt = 1; } if (apart != -1) { if (!IsPartValid(apart, aserver, &code)) { /*check for validity of the partition */ char buffer[80]; if (code) set_errbuff(buffer, code); else sprintf(buffer, "AFS::VOS: partition %s does not exist on the server\n", partname); VSETCODE(code ? code : -1, buffer); XSRETURN_UNDEF; goto done; } } else { code = UV_ListPartitions(aserver, &dummyPartList, &cnt); if (code) { PrintDiagnostics("listpart", code); SETCODE(code); XSRETURN_UNDEF; goto done; } } for (i = 0; i < cnt; i++) { if (dummyPartList.partFlags[i] & PARTVALID) { HV *part = (HV *) sv_2mortal((SV *) newHV()); MapPartIdIntoName(dummyPartList.partId[i], pname); code = UV_PartitionInfo(aserver, pname, &partition); if (code) { char buffer[80]; sprintf(buffer, "Could not get information on partition %s\n", pname); VSETCODE(code, buffer); XSRETURN_UNDEF; goto done; } hv_store(part, "free", 4, newSViv(partition.free), 0); hv_store(part, "minFree", 7, newSViv(partition.minFree), 0); hv_store(partlist, pname, strlen(pname), newRV_inc((SV *) (part)), 0); } } ST(0) = sv_2mortal(newRV_inc((SV *) partlist)); SETCODE(0); XSRETURN(1); done: ; } #line 6670 "AFS.c" PUTBACK; return; } } XS(XS_AFS__VOS_listvol) { dXSARGS; if (items < 2 || items > 5) Perl_croak(aTHX_ "Usage: AFS::VOS::listvol(cstruct, server, partname=NULL, fast=0, extended=0)"); SP -= items; { AFS__VOS cstruct; char * server = (char *)SvPV(ST(1),PL_na); char * partname; int fast; int extended; #line 5567 "AFS.xs" afs_int32 apart = -1, aserver, code = 0; volintInfo *pntr,*oldpntr; afs_int32 count; int i; char *base; volintXInfo *xInfoP, *origxInfoP; /*Ptr to current/orig extended vol info*/ int wantExtendedInfo; /*Do we want extended vol info?*/ char pname[10]; struct partList dummyPartList; int all, cnt; HV *vollist = (HV*)sv_2mortal((SV*)newHV()); #line 6702 "AFS.c" if (sv_derived_from(ST(0), "AFS::VOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VOS,tmp); } else croak("cstruct is not of type AFS::VOS"); if (items < 3) partname = NULL; else { partname = (char *)SvPV(ST(2),PL_na); } if (items < 4) fast = 0; else { fast = (int)SvIV(ST(3)); } if (items < 5) extended = 0; else { extended = (int)SvIV(ST(4)); } #line 5581 "AFS.xs" { if (fast) all = 0; else all = 1; if (fast && extended) { char buffer[80]; sprintf(buffer, "AFS::VOS: FAST and EXTENDED flags are mutually exclusive\n"); VSETCODE(-1, buffer); XSRETURN_UNDEF; goto done; } if (extended) wantExtendedInfo = 1; else wantExtendedInfo = 0; if (partname && (strlen(partname) != 0)) { apart = volutil_GetPartitionID(partname); if (apart < 0) { char buffer[80]; sprintf(buffer, "AFS::VOS: could not interpret partition name '%s'\n", partname); VSETCODE(-1, buffer); XSRETURN_UNDEF; goto done; } dummyPartList.partId[0] = apart; dummyPartList.partFlags[0] = PARTVALID; cnt = 1; } aserver = GetServer(server); if (aserver == 0) { char buffer[80]; sprintf(buffer, "AFS::VOS: server '%s' not found in host table\n", server); VSETCODE(-1, buffer); XSRETURN_UNDEF; goto done; } if (apart != -1) { if (!IsPartValid(apart, aserver, &code)) { /*check for validity of the partition */ char buffer[80]; if (code) set_errbuff(buffer, code); else sprintf(buffer, "AFS::VOS: partition %s does not exist on the server\n", partname); VSETCODE(code ? code : -1, buffer); XSRETURN_UNDEF; goto done; } } else { code = UV_ListPartitions(aserver, &dummyPartList, &cnt); if (code) { PrintDiagnostics("listvol", code); SETCODE(-1); XSRETURN_UNDEF; goto done; } } for (i = 0; i < cnt; i++) { if (dummyPartList.partFlags[i] & PARTVALID) { /*HV *part = (HV*)sv_2mortal((SV*)newHV()); */ HV *part = newHV(); if (wantExtendedInfo) code = UV_XListVolumes(aserver, dummyPartList.partId[i], all, &xInfoP, &count); else code = UV_ListVolumes(aserver, dummyPartList.partId[i], all, &pntr, &count); if (code) { PrintDiagnostics("listvol", code); if (pntr) Safefree(pntr); SETCODE(-1); XSRETURN_UNDEF; goto done; } if (wantExtendedInfo) { origxInfoP = xInfoP; base = (char *) xInfoP; } else { oldpntr = pntr; base = (char *) pntr; } MapPartIdIntoName(dummyPartList.partId[i], pname); if (wantExtendedInfo) { XDisplayVolumes(part, aserver, dummyPartList.partId[i], origxInfoP, count); if (xInfoP) Safefree(xInfoP); xInfoP = (volintXInfo *) 0; } else { DisplayVolumes(part, aserver, dummyPartList.partId[i], oldpntr, count, fast); if (pntr) Safefree(pntr); pntr = (volintInfo *) 0; } hv_store(vollist, pname, strlen(pname), newRV_inc((SV *) (part)), 0); } } ST(0) = sv_2mortal(newRV_inc((SV *) vollist)); SETCODE(0); XSRETURN(1); done: ; } #line 6851 "AFS.c" PUTBACK; return; } } XS(XS_AFS__VOS_move) { dXSARGS; if (items != 6) Perl_croak(aTHX_ "Usage: AFS::VOS::move(cstruct, id, froms, fromp, tos, top)"); { AFS__VOS cstruct; char * id = (char *)SvPV(ST(1),PL_na); char * froms = (char *)SvPV(ST(2),PL_na); char * fromp = (char *)SvPV(ST(3),PL_na); char * tos = (char *)SvPV(ST(4),PL_na); char * top = (char *)SvPV(ST(5),PL_na); #line 5713 "AFS.xs" afs_int32 volid, fromserver, toserver, frompart, topart,code, err; char fromPartName[10], toPartName[10]; struct diskPartition partition; /* for space check */ volintInfo *p; #line 6874 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::VOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VOS,tmp); } else croak("cstruct is not of type AFS::VOS"); #line 5718 "AFS.xs" { RETVAL = 0; volid = vsu_GetVolumeID(id, cstruct, &err); if (volid == 0) { char buffer[80]; if (err) set_errbuff(buffer, err); else sprintf(buffer, "AFS::VOS: can't find volume ID or name '%s'\n", id); VSETCODE(err ? err : ENOENT, buffer); goto done; } fromserver = GetServer(froms); if (fromserver == 0) { char buffer[80]; sprintf(buffer, "AFS::VOS: server '%s' not found in host table\n", froms); VSETCODE(ENOENT, buffer); goto done; } toserver = GetServer(tos); if (toserver == 0) { char buffer[80]; sprintf(buffer, "AFS::VOS: server '%s' not found in host table\n", tos); VSETCODE(ENOENT, buffer); goto done; } frompart = volutil_GetPartitionID(fromp); if (frompart < 0) { char buffer[80]; sprintf(buffer, "AFS::VOS: could not interpret partition name '%s'\n", fromp); VSETCODE(EINVAL, buffer); goto done; } if (!IsPartValid(frompart, fromserver, &code)) { /*check for validity of the partition */ char buffer[80]; if (code) set_errbuff(buffer, code); else sprintf(buffer, "AFS::VOS: partition %s does not exist on the server\n", fromp); VSETCODE(code ? code : ENOENT, buffer); goto done; } topart = volutil_GetPartitionID(top); if (topart < 0) { char buffer[80]; sprintf(buffer, "AFS::VOS: could not interpret partition name '%s'\n", top); VSETCODE(EINVAL, buffer); goto done; } if (!IsPartValid(topart, toserver, &code)) { /*check for validity of the partition */ char buffer[80]; if (code) set_errbuff(buffer, code); else sprintf(buffer, "AFS::VOS: partition %s does not exist on the server\n", top); VSETCODE(code ? code : ENOENT, buffer); goto done; } /* check source partition for space to clone volume */ MapPartIdIntoName(topart, toPartName); MapPartIdIntoName(frompart, fromPartName); /* check target partition for space to move volume */ code = UV_PartitionInfo(toserver, toPartName, &partition); if (code) { char buffer[80]; sprintf(buffer, "AFS::VOS: cannot access partition %s\n", toPartName); VSETCODE(code, buffer); goto done; } p = (volintInfo *) 0; code = UV_ListOneVolume(fromserver, frompart, volid, &p); if (code) { char buffer[80]; sprintf(buffer, "AFS::VOS:cannot access volume %u\n", volid); free(p); VSETCODE(code, buffer); goto done; } if (partition.free <= p->size) { char buffer[80]; sprintf(buffer, "AFS::VOS: no space on target partition %s to move volume %u\n", toPartName, volid); VSETCODE(-1, buffer); Safefree(p); goto done; } Safefree(p); /* successful move still not guaranteed but shoot for it */ code = UV_MoveVolume(volid, fromserver, frompart, toserver, topart); if (code) { PrintDiagnostics("move", code); SETCODE(code); goto done; } SETCODE(0); RETVAL = volid; done: ; } #line 6997 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__VOS_zap) { dXSARGS; if (items < 4 || items > 6) Perl_croak(aTHX_ "Usage: AFS::VOS::zap(cstruct, servername, parti, id, force=0, backup=0)"); { AFS__VOS cstruct; char * servername = (char *)SvPV(ST(1),PL_na); char * parti = (char *)SvPV(ST(2),PL_na); char * id = (char *)SvPV(ST(3),PL_na); int32 force; int32 backup; #line 5843 "AFS.xs" struct nvldbentry entry; int32 volid, code, server, part, zapbackupid=0, backupid=0, err; #line 7018 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::VOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VOS,tmp); } else croak("cstruct is not of type AFS::VOS"); if (items < 5) force = 0; else { force = (int32)SvIV(ST(4)); } if (items < 6) backup = 0; else { backup = (int32)SvIV(ST(5)); } #line 5846 "AFS.xs" { RETVAL = 0; if (backup) { zapbackupid = 1; } volid = vsu_GetVolumeID(id, cstruct, &err); if (volid == 0) { char buffer[80]; if (err) set_errbuff(buffer, err); else sprintf(buffer, "AFS::VOS: can't find volume '%s'\n", id); VSETCODE(err ? err : -1, buffer); goto done; } part = volutil_GetPartitionID(parti); if (part < 0) { char buffer[80]; sprintf(buffer, "AFS::VOS: could not interpret partition name '%s'\n", parti); VSETCODE(-1, buffer); goto done; } server = GetServer(servername); if (!server) { char buffer[80]; sprintf(buffer, "AFS::VOS: host '%s' not found in host table\n", servername); VSETCODE(-1, buffer); goto done; } if (!IsPartValid(part, server, &code)) { /*check for validity of the partition */ char buffer[80]; if (code) set_errbuff(buffer, code); else sprintf(buffer, "AFS::VOS: partition %s does not exist on the server\n", servername); VSETCODE(code ? code : -1, buffer); goto done; } code = VLDB_GetEntryByID(volid, -1, &entry); if (!code) { if (volid == entry.volumeId[RWVOL]) backupid = entry.volumeId[BACKVOL]; } if (zapbackupid) { volintInfo *pntr = (volintInfo *) 0; if (!backupid) { code = UV_ListOneVolume(server, part, volid, &pntr); if (!code) { if (volid == pntr->parentID) backupid = pntr->backupID; if (pntr) free(pntr); } } if (backupid) { code = UV_VolumeZap(server, part, backupid); if (code) { PrintDiagnostics("zap", code); SETCODE(code); goto done; } fprintf(STDOUT, "Backup Volume %u deleted\n", backupid); } } code = UV_VolumeZap(server, part, volid); if (code) { PrintDiagnostics("zap", code); SETCODE(code); goto done; } SETCODE(0); RETVAL = volid; done: ; } #line 7121 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__VOS_offline) { dXSARGS; if (items < 4 || items > 6) Perl_croak(aTHX_ "Usage: AFS::VOS::offline(cstruct, servername, parti, id, busy=0, sleeptime=0)"); { AFS__VOS cstruct; char* servername = (char *)SvPV(ST(1),PL_na); char* parti = (char *)SvPV(ST(2),PL_na); char * id = (char *)SvPV(ST(3),PL_na); int32 busy; int32 sleeptime; #line 5942 "AFS.xs" int32 server, partition, volid; int32 code, err=0; int32 transflag, transdone; #line 7143 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::VOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VOS,tmp); } else croak("cstruct is not of type AFS::VOS"); if (items < 5) busy = 0; else { busy = (int32)SvIV(ST(4)); } if (items < 6) sleeptime = 0; else { sleeptime = (int32)SvIV(ST(5)); } #line 5946 "AFS.xs" { RETVAL = 0; server = GetServer(servername); if (server == 0) { char buffer[80]; sprintf(buffer, "AFS::VOS: server '%s' not found in host table\n", servername); VSETCODE(-1, buffer); goto done; } partition = volutil_GetPartitionID(parti); if (partition < 0) { char buffer[80]; sprintf(buffer, "AFS::VOS: could not interpret partition name '%s'\n", parti); VSETCODE(ENOENT, buffer); goto done; } volid = vsu_GetVolumeID(id, cstruct, &err); /* -id */ if (!volid) { char buffer[80]; if (err) set_errbuff(buffer, err); else sprintf(buffer, "Unknown volume ID or name '%s'\n", servername); VSETCODE(err ? err : -1, buffer); goto done; } transflag = (busy ? ITBusy : ITOffline); transdone = (sleeptime ? 0 /*online */ : VTOutOfService); if (busy && !sleep) { char buffer[80]; sprintf(buffer, "SLEEP argument must be used with BUSY flag\n"); VSETCODE(-1, buffer); goto done; } code = UV_SetVolume(server, partition, volid, transflag, transdone, sleeptime); if (code) { char buffer[80]; sprintf(buffer, "Failed to set volume. Code = %d\n", code); VSETCODE(code, buffer); goto done; } SETCODE(0); RETVAL = 1; done: ; } #line 7217 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__VOS_online) { dXSARGS; if (items != 4) Perl_croak(aTHX_ "Usage: AFS::VOS::online(cstruct, servername, parti, id)"); { AFS__VOS cstruct; char* servername = (char *)SvPV(ST(1),PL_na); char* parti = (char *)SvPV(ST(2),PL_na); char * id = (char *)SvPV(ST(3),PL_na); #line 6007 "AFS.xs" int32 server, partition, volid; int32 code, err=0; #line 7236 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::VOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VOS,tmp); } else croak("cstruct is not of type AFS::VOS"); #line 6010 "AFS.xs" { RETVAL = 0; server = GetServer(servername); if (server == 0) { char buffer[80]; sprintf(buffer, "AFS::VOS: server '%s' not found in host table\n", servername); VSETCODE(-1, buffer); goto done; } partition = volutil_GetPartitionID(parti); if (partition < 0) { char buffer[80]; sprintf(buffer, "AFS::VOS: could not interpret partition name '%s'\n", parti); VSETCODE(ENOENT, buffer); goto done; } volid = vsu_GetVolumeID(id, cstruct, &err); /* -id */ if (!volid) { char buffer[80]; if (err) set_errbuff(buffer, err); else sprintf(buffer, "Unknown volume ID or name '%s'\n", servername); VSETCODE(err ? err : -1, buffer); goto done; } code = UV_SetVolume(server, partition, volid, ITOffline, 0 /*online */ , 0 /*sleep */ ); if (code) { char buffer[80]; sprintf(buffer, "Failed to set volume. Code = %d\n", code); VSETCODE(code, buffer); goto done; } SETCODE(0); RETVAL = 1; done: ; } #line 7289 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__VOS__backupsys) { dXSARGS; if (items < 1 || items > 7) Perl_croak(aTHX_ "Usage: AFS::VOS::_backupsys(cstruct, seenprefix=NULL, servername=NULL, partition=NULL, exclude=0, seenxprefix=NULL, noaction=0)"); SP -= items; { AFS__VOS cstruct; SV* seenprefix; char * servername; char * partition; int exclude; SV* seenxprefix; int32 noaction; #line 6065 "AFS.xs" int32 apart=0, avolid; int32 aserver=0, code, aserver1, apart1; int32 vcode; struct VldbListByAttributes attributes; nbulkentries arrayEntries; register struct nvldbentry *vllist; int32 nentries; int j, i, len, verbose = 1; char pname[10]; int ex, exp; afs_int32 totalBack=0; afs_int32 totalFail=0; int previdx=-1, error, same; char *ccode, *itp, *first; int match; STRLEN prfxlength=0; SV *regex; AV *av; AV *av1 = (AV*)sv_2mortal((SV*)newAV()); AV *av2 = (AV*)sv_2mortal((SV*)newAV()); #line 7330 "AFS.c" if (sv_derived_from(ST(0), "AFS::VOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VOS,tmp); } else croak("cstruct is not of type AFS::VOS"); if (items < 2) seenprefix = NULL; else { seenprefix = ST(1); } if (items < 3) servername = NULL; else { servername = (char *)SvPV(ST(2),PL_na); } if (items < 4) partition = NULL; else { partition = (char *)SvPV(ST(3),PL_na); } if (items < 5) exclude = 0; else { exclude = (int)SvIV(ST(4)); } if (items < 6) seenxprefix = NULL; else { seenxprefix = ST(5); } if (items < 7) noaction = 0; else { noaction = (int32)SvIV(ST(6)); } #line 6086 "AFS.xs" { Zero(&attributes, 1, VldbListByAttributes); attributes.Mask = 0; if (servername && (strlen(servername) != 0)) { /* -server */ aserver = GetServer(servername); if (aserver == 0) { char buffer[80]; sprintf(buffer, "AFS::VOS: server '%s' not found in host table\n", servername); VSETCODE(-1, buffer); XSRETURN_UNDEF; goto done; } attributes.server = ntohl(aserver); attributes.Mask |= VLLIST_SERVER; } else { servername = NULL; } if (partition && (strlen(partition) != 0)) { /* -partition */ apart = volutil_GetPartitionID(partition); if (apart < 0) { char buffer[80]; sprintf(buffer, "AFS::VOS: could not interpret partition name '%s'\n", partition); VSETCODE(-1, buffer); XSRETURN_UNDEF; goto done; } attributes.partition = apart; attributes.Mask |= VLLIST_PARTITION; } else { partition = NULL; } /* Check to make sure the prefix and xprefix expressions compile ok */ if (seenprefix && (prfxlength = sv_len(seenprefix)) == 0) seenprefix = NULL; if (seenprefix && (! (SvTYPE(SvRV(seenprefix)) == SVt_PVAV))) { VSETCODE(-1, "AFS::VOS: PREFIX not an array reference"); XSRETURN_UNDEF; goto done; } if (seenprefix) { av = (AV *) SvRV(seenprefix); len = av_len(av); if (len != -1) { for (j = 0; j <= len; j++) { regex = *av_fetch(av, j, 0); itp = SvPV_nolen(regex); if (strncmp(itp, "^", 1) == 0) { ccode = (char *) re_comp(itp); if (ccode) { char buffer[80]; sprintf(buffer, "Unrecognizable PREFIX regular expression: '%s': %s\n", itp, ccode); VSETCODE(ccode, buffer); XSRETURN_UNDEF; goto done; } } } /*for loop */ } } if (seenxprefix && (prfxlength = sv_len(seenxprefix)) == 0) seenxprefix = NULL; if (seenxprefix && (! (SvTYPE(SvRV(seenxprefix)) == SVt_PVAV))) { VSETCODE(-1, "AFS::VOS: XPREFIX not an array reference"); XSRETURN_UNDEF; goto done; } if (seenxprefix) { av = (AV *) SvRV(seenxprefix); len = av_len(av); if (len != -1) { for (j = 0; j <= len; j++) { regex = *av_fetch(av, j, 0); itp = SvPV_nolen(regex); if (strncmp(itp, "^", 1) == 0) { ccode = (char *) re_comp(itp); if (ccode) { char buffer[80]; sprintf(buffer, "Unrecognizable XPREFIX regular expression: '%s': %s\n", itp, ccode); VSETCODE(ccode, buffer); XSRETURN_UNDEF; goto done; } } } /*for */ } } Zero(&arrayEntries, 1, nbulkentries); /* initialize to hint the stub to alloc space */ vcode = VLDB_ListAttributes(&attributes, &nentries, &arrayEntries); if (vcode) { VSETCODE(vcode, "Could not access the VLDB for attributes"); XSRETURN_UNDEF; goto done; } /* a bunch of output generation code deleted. A.W. */ for (j = 0; j < nentries; j++) { /* process each vldb entry */ vllist = &arrayEntries.nbulkentries_val[j]; if (seenprefix) { av = (AV *) SvRV(seenprefix); len = av_len(av); for (i = 0; i <= len; i++) { regex = *av_fetch(av, i, 0); itp = SvPV_nolen(regex); if (strncmp(itp, "^", 1) == 0) { ccode = (char *) re_comp(itp); if (ccode) { char buffer[80]; sprintf(buffer, "Error in PREFIX regular expression: '%s': %s\n", itp, ccode); VSETCODE(ccode, buffer); XSRETURN_UNDEF; goto done; } match = (re_exec(vllist->name) == 1); } else { match = (strncmp(vllist->name, itp, strlen(itp)) == 0); } if (match) break; } } else { match = 1; } /* Without the -exclude flag: If it matches the prefix, then * check if we want to exclude any from xprefix. * With the -exclude flag: If it matches the prefix, then * check if we want to add any from xprefix. */ if (match && seenxprefix) { av = (AV *) SvRV(seenxprefix); len = av_len(av); for (i = 0; i <= len; i++) { regex = *av_fetch(av, i, 0); itp = SvPV_nolen(regex); if (strncmp(itp, "^", 1) == 0) { ccode = (char *) re_comp(itp); if (ccode) { char buffer[80]; sprintf(buffer, "Error in PREFIX regular expression: '%s': %s\n", itp, ccode); VSETCODE(ccode, buffer); XSRETURN_UNDEF; goto done; } if (re_exec(vllist->name) == 1) { match = 0; break; } } else { if (strncmp(vllist->name, itp, strlen(itp)) == 0) { match = 0; break; } } } } if (exclude) match = !match; /* -exclude will reverse the match */ if (!match) continue; /* Skip if no match */ /* Print list of volumes to backup */ if (noaction) { av_push(av1, newSVpv(vllist->name, strlen(vllist->name))); continue; } if (!(vllist->flags & RW_EXISTS)) { if (verbose) { fprintf(STDOUT, "Omitting to backup %s since RW volume does not exist \n", vllist->name); fprintf(STDOUT, "\n"); } fflush(STDOUT); continue; } avolid = vllist->volumeId[RWVOL]; MapHostToNetwork(vllist); GetServerAndPart(vllist, RWVOL, &aserver1, &apart1, &previdx); if (aserver1 == -1 || apart1 == -1) { av_push(av2, newSVpv(vllist->name, strlen(vllist->name))); fprintf(STDOUT, "could not backup %s, invalid VLDB entry\n", vllist->name); totalFail++; continue; } if (aserver) { same = VLDB_IsSameAddrs(aserver, aserver1, &error); if (error) { av_push(av2, newSVpv(vllist->name, strlen(vllist->name))); fprintf(stderr, "Failed to get info about server's %d address(es) from vlserver (err=%d); aborting call!\n", aserver, error); totalFail++; continue; } } if ((aserver && !same) || (apart && (apart != apart1))) { if (verbose) { fprintf(STDOUT, "Omitting to backup %s since the RW is in a different location\n", vllist->name); } continue; } if (verbose) { time_t now = time(0); fprintf(STDOUT, "Creating backup volume for %s on %s", vllist->name, ctime(&now)); fflush(STDOUT); } code = UV_BackupVolume(aserver1, apart1, avolid); if (code) { av_push(av2, newSVpv(vllist->name, strlen(vllist->name))); fprintf(STDOUT, "Could not backup %s\n", vllist->name); totalFail++; } else { av_push(av1, newSVpv(vllist->name, strlen(vllist->name))); totalBack++; } } /* process each vldb entry */ if (arrayEntries.nbulkentries_val) free(arrayEntries.nbulkentries_val); XPUSHs(sv_2mortal(newRV_inc((SV *) (av1)))); XPUSHs(sv_2mortal(newRV_inc((SV *) (av2)))); XSRETURN(2); SETCODE(0); done: ; } #line 7630 "AFS.c" PUTBACK; return; } } XS(XS_AFS__VOS_listpart) { dXSARGS; if (items != 2) Perl_croak(aTHX_ "Usage: AFS::VOS::listpart(cstruct, server)"); SP -= items; { AFS__VOS cstruct; char * server = (char *)SvPV(ST(1),PL_na); #line 6357 "AFS.xs" int32 aserver, code; struct partList dummyPartList; int i, total, cnt; char pname[10]; #line 7650 "AFS.c" if (sv_derived_from(ST(0), "AFS::VOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VOS,tmp); } else croak("cstruct is not of type AFS::VOS"); #line 6362 "AFS.xs" { aserver = GetServer(server); if (aserver == 0) { char buffer[80]; sprintf(buffer, "AFS::VOS: server '%s' not found in host table\n", server); VSETCODE(-1, buffer); XSRETURN_UNDEF; goto done; } code = UV_ListPartitions(aserver, &dummyPartList, &cnt); if (code) { PrintDiagnostics("listpart", code); XSRETURN_UNDEF; goto done; } total = 0; for (i = 0; i < cnt; i++) { if (dummyPartList.partFlags[i] & PARTVALID) { Zero(pname, 10, char); MapPartIdIntoName(dummyPartList.partId[i], pname); XPUSHs(sv_2mortal(newSVpv(pname, strlen(pname)))); total++; } } XSRETURN(total); SETCODE(0); done: ; } #line 7690 "AFS.c" PUTBACK; return; } } XS(XS_AFS__VOS_listvolume) { dXSARGS; if (items != 2) Perl_croak(aTHX_ "Usage: AFS::VOS::listvolume(cstruct, name)"); SP -= items; { AFS__VOS cstruct; char * name = (char *)SvPV(ST(1),PL_na); #line 6399 "AFS.xs" struct nvldbentry entry; afs_int32 vcode = 0; volintInfo *pntr = (volintInfo *)0; afs_int32 volid; afs_int32 code, err; int voltype, foundserv = 0, foundentry = 0; afs_int32 aserver, apart; char apartName[10]; int previdx = -1; HV *volinfo = (HV*)sv_2mortal((SV*)newHV()); #line 7716 "AFS.c" if (sv_derived_from(ST(0), "AFS::VOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VOS,tmp); } else croak("cstruct is not of type AFS::VOS"); #line 6410 "AFS.xs" { volid = vsu_GetVolumeID(name, cstruct, &err); /* -id */ if (volid == 0) { char buffer[80]; if (err) set_errbuff(buffer, err); else sprintf(buffer, "Unknown volume ID or name '%s'\n", name); VSETCODE(err ? err : -1, buffer); XSRETURN_UNDEF; goto done; } vcode = VLDB_GetEntryByID(volid, -1, &entry); if (vcode) { char buffer[80]; sprintf(buffer, "Could not fetch the entry for volume number %u from VLDB \n", volid); VSETCODE(vcode, buffer); XSRETURN_UNDEF; goto done; } MapHostToNetwork(&entry); if (entry.volumeId[RWVOL] == volid) voltype = RWVOL; else if (entry.volumeId[BACKVOL] == volid) voltype = BACKVOL; else /* (entry.volumeId[ROVOL] == volid) */ voltype = ROVOL; do { /* do {...} while (voltype == ROVOL) */ /* Get the entry for the volume. If its a RW vol, get the RW entry. * It its a BK vol, get the RW entry (even if VLDB may say the BK doen't exist). * If its a RO vol, get the next RO entry. */ GetServerAndPart(&entry, ((voltype == ROVOL) ? ROVOL : RWVOL), &aserver, &apart, &previdx); if (previdx == -1) { /* searched all entries */ if (!foundentry) { char buffer[80]; sprintf(buffer, "Volume %s does not exist in VLDB\n\n", name); VSETCODE(ENOENT, buffer); XSRETURN_UNDEF; goto done; } break; } foundentry = 1; /* Get information about the volume from the server */ code = UV_ListOneVolume(aserver, apart, volid, &pntr); if (code) { char buffer[80]; if (code == ENODEV) { if ((voltype == BACKVOL) && !(entry.flags & BACK_EXISTS)) { /* The VLDB says there is no backup volume and its not on disk */ sprintf(buffer, "Volume %s does not exist\n", name); } else { sprintf(buffer, "Volume does not exist on server %s as indicated by the VLDB\n", hostutil_GetNameByINet(aserver)); } } else { sprintf(buffer, "examine"); } VSETCODE(code, buffer); } else { foundserv = 1; MapPartIdIntoName(apart, apartName); /* hv_store(volinfo, "name", 4, newSVpv(name, strlen((char *) name)), 0); */ hv_store(volinfo, "partition", 9, newSVpv(apartName, strlen((char *) apartName)), 0); VolumeStats(volinfo, pntr, &entry, aserver, apart, voltype); if ((voltype == BACKVOL) && !(entry.flags & BACK_EXISTS)) { /* The VLDB says there is no backup volume yet we found one on disk */ char buffer[80]; sprintf(buffer, "Volume %s does not exist in VLDB\n", name); VSETCODE(ENOENT, buffer); } } if (pntr) Safefree(pntr); } while (voltype == ROVOL); ST(0) = sv_2mortal(newRV_inc((SV *) volinfo)); SETCODE(0); XSRETURN(1); done: ; } #line 7819 "AFS.c" PUTBACK; return; } } XS(XS_AFS__VLDB_new) { dXSARGS; if (items < 0 || items > 7) Perl_croak(aTHX_ "Usage: AFS::VLDB::new(class=0, verb=0, timeout=90, noauth=0, localauth=0, tcell=NULL, crypt=0)"); SP -= items; { char * class; int verb; int timeout; int noauth; int localauth; char * tcell; int crypt; #line 6518 "AFS.xs" int32 code = -1; extern int verbose; #line 7842 "AFS.c" AFS__VLDB RETVAL; if (items < 1) class = 0; else { class = (char *)SvPV(ST(0),PL_na); } if (items < 2) verb = 0; else { verb = (int)SvIV(ST(1)); } if (items < 3) timeout = 90; else { timeout = (int)SvIV(ST(2)); } if (items < 4) noauth = 0; else { noauth = (int)SvIV(ST(3)); } if (items < 5) localauth = 0; else { localauth = (int)SvIV(ST(4)); } if (items < 6) tcell = NULL; else { tcell = (char *)SvPV(ST(5),PL_na); } if (items < 7) crypt = 0; else { crypt = (int)SvIV(ST(6)); } #line 6521 "AFS.xs" { /* Initialize the ubik_client connection */ rx_SetRxDeadTime(timeout); /* timeout seconds inactivity before declared dead */ cstruct = (struct ubik_client *) 0; verbose = verb; if (crypt) /* -crypt specified */ vsu_SetCrypt(1); if (code = vsu_ClientInit((noauth != 0), AFSDIR_CLIENT_ETC_DIRPATH, tcell, localauth, &cstruct, UV_SetSecurity)) { char buffer[80]; sprintf(buffer, "could not initialize VLDB library (code=%d) \n", code); VSETCODE(code, buffer); } ST(0) = sv_newmortal(); if (code == 0) { sv_setref_pv(ST(0), "AFS::VLDB", (void *) cstruct); XSRETURN(1); } else XSRETURN_UNDEF; } #line 7910 "AFS.c" PUTBACK; return; } } XS(XS_AFS__VLDB__DESTROY) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::VLDB::_DESTROY(self)"); { AFS__VLDB self; #line 6549 "AFS.xs" int32 code = 0; #line 7925 "AFS.c" int32 RETVAL; dXSTARG; if (SvROK(ST(0))) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__VLDB,tmp); } else croak("self is not a reference"); #line 6551 "AFS.xs" { code = ubik_ClientDestroy(self); /* printf("DEBUG-23 %d \n", code); */ rx_Finalize(); SETCODE(code); /* printf("DEBUG-24 \n"); */ RETVAL = (code == 0); /* printf("DEBUG-25 \n"); */ } #line 7945 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__VLDB_addsite) { dXSARGS; if (items != 4) Perl_croak(aTHX_ "Usage: AFS::VLDB::addsite(cstruct, server, partition, id)"); { AFS__VLDB cstruct; char * server = (char *)SvPV(ST(1),PL_na); char * partition = (char *)SvPV(ST(2),PL_na); char * id = (char *)SvPV(ST(3),PL_na); #line 6570 "AFS.xs" int32 avolid, aserver, apart, code = 1, err; char apartName[10]; #line 7964 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::VLDB")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VLDB,tmp); } else croak("cstruct is not of type AFS::VLDB"); #line 6573 "AFS.xs" { RETVAL = 0; avolid = vsu_GetVolumeID(id, cstruct, &err); if (avolid == 0) { char buffer[80]; if (err) set_errbuff(buffer, err); else sprintf(buffer, "AFS::VLDB: can't find volume '%s'\n", id); VSETCODE(err ? err : -1, buffer); goto done; } aserver = GetServer(server); if (aserver == 0) { char buffer[80]; sprintf(buffer, "AFS::VLDB: server '%s' not found in host table\n", server); VSETCODE(-1, buffer); goto done; } apart = volutil_GetPartitionID(partition); if (apart < 0) { char buffer[80]; sprintf(buffer, "AFS::VLDB: could not interpret partition name '%s'\n", partition); VSETCODE(-1, buffer); goto done; } if (!IsPartValid(apart, aserver, &code)) { /*check for validity of the partition */ char buffer[80]; if (code) set_errbuff(buffer, code); else sprintf(buffer, "AFS::VLDB: partition %s does not exist on the server\n", partition); VSETCODE(code ? code : -1, buffer); goto done; } code = UV_AddSite(aserver, apart, avolid); if (code) { char buffer[80]; sprintf(buffer, "addsite didn't work\n"); VSETCODE(code, buffer); goto done; } RETVAL = 1; done: ; } #line 8023 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__VLDB_changeloc) { dXSARGS; if (items != 4) Perl_croak(aTHX_ "Usage: AFS::VLDB::changeloc(cstruct, id, server, partition)"); { AFS__VLDB cstruct; char * id = (char *)SvPV(ST(1),PL_na); char * server = (char *)SvPV(ST(2),PL_na); char * partition = (char *)SvPV(ST(3),PL_na); #line 6633 "AFS.xs" #ifdef OpenAFS afs_int32 avolid, aserver, apart, code, err; char apartName[10]; #endif #line 8044 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::VLDB")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VLDB,tmp); } else croak("cstruct is not of type AFS::VLDB"); #line 6638 "AFS.xs" { #ifdef OpenAFS RETVAL = 0; avolid = vsu_GetVolumeID(id, cstruct, &err); if (avolid == 0) { char buffer[80]; if (err) set_errbuff(buffer, err); else sprintf(buffer, "AFS::VLDB: can't find volume '%s'\n", id); VSETCODE(err ? err : -1, buffer); goto done; } aserver = GetServer(server); if (aserver == 0) { char buffer[80]; sprintf(buffer, "AFS::VLDB: server '%s' not found in host table\n", server); VSETCODE(-1, buffer); goto done; } apart = volutil_GetPartitionID(partition); if (apart < 0) { char buffer[80]; sprintf(buffer, "AFS::VLDB: could not interpret partition name '%s'\n", partition); VSETCODE(code, buffer); goto done; } if (!IsPartValid(apart, aserver, &code)) { /*check for validity of the partition */ char buffer[80]; if (code) set_errbuff(buffer, code); else sprintf(buffer, "AFS::VLDB: partition %s does not exist on the server\n", server); VSETCODE(code ? code : -1, buffer); goto done; } code = UV_ChangeLocation(aserver, apart, avolid); if (code) { VSETCODE(code, "addsite"); goto done; } SETCODE(0); RETVAL = 1; done: ; #else not_here("AFS::VLDB::changeloc"); #endif } #line 8105 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__VLDB__listvldb) { dXSARGS; if (items < 1 || items > 5) Perl_croak(aTHX_ "Usage: AFS::VLDB::_listvldb(cstruct, name=NULL, servername=NULL, parti=NULL, lock=0)"); SP -= items; { AFS__VLDB cstruct; char * name; char * servername; char * parti; int lock; #line 6701 "AFS.xs" afs_int32 apart; afs_int32 aserver, code; afs_int32 vcode; struct VldbListByAttributes attributes; nbulkentries arrayEntries; struct nvldbentry *vllist; afs_int32 centries, nentries = 0; int j; afs_int32 thisindex, nextindex; HV *status, *stats; #line 8134 "AFS.c" if (sv_derived_from(ST(0), "AFS::VLDB")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VLDB,tmp); } else croak("cstruct is not of type AFS::VLDB"); if (items < 2) name = NULL; else { name = (char *)SvPV(ST(1),PL_na); } if (items < 3) servername = NULL; else { servername = (char *)SvPV(ST(2),PL_na); } if (items < 4) parti = NULL; else { parti = (char *)SvPV(ST(3),PL_na); } if (items < 5) lock = 0; else { lock = (int)SvIV(ST(4)); } #line 6712 "AFS.xs" { status = (HV *) sv_2mortal((SV *) newHV()); if (name && strlen(name) == 0) name = NULL; if (servername && strlen(servername) == 0) servername = NULL; if (parti && strlen(parti) == 0) parti = NULL; /* printf("name %s, server %s, part %s lock %d \n", name, servername, parti, lock); */ aserver = 0; apart = 0; attributes.Mask = 0; /* printf("DEBUG-1 \n"); */ /* If the volume name is given, Use VolumeInfoCmd to look it up * and not ListAttributes. */ if (name) { /* printf("DEBUG-2 \n"); */ if (lock) { char buffer[80]; /* printf("DEBUG-3 \n"); */ sprintf(buffer, "AFS::VLDB: illegal use of '-locked' switch, need to specify server and/or partition\n"); VSETCODE(-1, buffer); XSRETURN_UNDEF; goto done; } /* printf("DEBUG-4 \n"); */ stats = (HV *) sv_2mortal((SV *) newHV()); code = VolumeInfoCmd(stats, name); if (code) { char buffer[80]; set_errbuff(buffer, code); VSETCODE(code, buffer); XSRETURN_UNDEF; goto done; } /* printf("DEBUG-5 \n"); */ hv_store(status, name, strlen(name), newRV_inc((SV *) (stats)), 0); goto finish; } /* Server specified */ /* printf("DEBUG-6 \n"); */ if (servername) { /* printf("DEBUG-7 \n"); */ aserver = GetServer(servername); if (aserver == 0) { char buffer[80]; sprintf(buffer, "AFS::VLDB: server '%s' not found in host table\n", servername); VSETCODE(-1, buffer); XSRETURN_UNDEF; goto done; } attributes.server = ntohl(aserver); attributes.Mask |= VLLIST_SERVER; } /* Partition specified */ /* printf("DEBUG-8 \n"); */ if (parti) { /* printf("DEBUG-9 \n"); */ apart = volutil_GetPartitionID(parti); if (apart < 0) { char buffer[80]; sprintf(buffer, "AFS::VLDB: could not interpret partition name '%s'\n", parti); VSETCODE(-1, buffer); XSRETURN_UNDEF; goto done; } attributes.partition = apart; attributes.Mask |= VLLIST_PARTITION; } /* printf("DEBUG-10 \n"); */ if (lock) { /* printf("DEBUG-11 \n"); */ attributes.Mask |= VLLIST_FLAG; attributes.flag = VLOP_ALLOPERS; } /* printf("DEBUG-12 \n"); */ for (thisindex = 0; (thisindex != -1); thisindex = nextindex) { /* printf("DEBUG-13 \n"); */ /* memset(&arrayEntries, 0, sizeof(arrayEntries)); */ /* Zero(&arrayEntries, sizeof(arrayEntries), nbulkentries); ??? nog ??? */ Zero(&arrayEntries, 1, nbulkentries); /* printf("DEBUG-14 \n"); */ centries = 0; nextindex = -1; vcode = VLDB_ListAttributesN2(&attributes, 0, thisindex, ¢ries, &arrayEntries, &nextindex); /* printf("DEBUG-15 \n"); */ if (vcode == RXGEN_OPCODE) { /* Vlserver not running with ListAttributesN2. Fall back */ vcode = VLDB_ListAttributes(&attributes, ¢ries, &arrayEntries); nextindex = -1; } /* printf("DEBUG-16 \n"); */ if (vcode) { char buffer[80]; sprintf(buffer, "Could not access the VLDB for attributes\n"); VSETCODE(vcode, buffer); XSRETURN_UNDEF; goto done; } nentries += centries; /* We don't sort, so just print the entries now */ /* printf("DEBUG-17 \n"); */ for (j = 0; j < centries; j++) { /* process each entry */ /* printf("DEBUG-18 \n"); */ vllist = &arrayEntries.nbulkentries_val[j]; MapHostToNetwork(vllist); stats = newHV(); myEnumerateEntry(stats, vllist); hv_store(status, vllist->name, strlen(vllist->name), newRV_inc((SV *) (stats)), 0); } } finish: /* printf("DEBUG-19 \n"); */ ST(0) = sv_2mortal(newRV_inc((SV *) status)); code = 0; SETCODE(code); XSRETURN(1); done: if (vllist) Safefree(vllist); if (arrayEntries.nbulkentries_val) Safefree(arrayEntries.nbulkentries_val); } #line 8306 "AFS.c" PUTBACK; return; } } XS(XS_AFS__VLDB_listaddrs) { dXSARGS; if (items < 1 || items > 5) Perl_croak(aTHX_ "Usage: AFS::VLDB::listaddrs(cstruct, host=NULL, uuid=NULL, noresolve=0, printuuid=0)"); SP -= items; { AFS__VLDB cstruct; char * host; char * uuid; int noresolve; int printuuid; #line 6860 "AFS.xs" afs_int32 vcode; afs_int32 i, j; afs_int32 nentries; bulkaddrs m_addrs; ListAddrByAttributes m_attrs; afsUUID m_uuid, askuuid; afs_int32 m_unique, m_nentries; #line 8332 "AFS.c" if (sv_derived_from(ST(0), "AFS::VLDB")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VLDB,tmp); } else croak("cstruct is not of type AFS::VLDB"); if (items < 2) host = NULL; else { host = (char *)SvPV(ST(1),PL_na); } if (items < 3) uuid = NULL; else { uuid = (char *)SvPV(ST(2),PL_na); } if (items < 4) noresolve = 0; else { noresolve = (int)SvIV(ST(3)); } if (items < 5) printuuid = 0; else { printuuid = (int)SvIV(ST(4)); } #line 6868 "AFS.xs" { Zero(&m_attrs, 1, ListAddrByAttributes); m_attrs.Mask = VLADDR_INDEX; Zero(&m_addrs, 1, bulkaddrs); Zero(&askuuid, 1, afsUUID); #ifdef OpenAFS if (uuid && strlen(uuid) != 0) { /* -uuid */ afsUUID_from_string(uuid, &askuuid); m_attrs.Mask = VLADDR_UUID; m_attrs.uuid = askuuid; } else #endif uuid = NULL; if (host && strlen(host) != 0) { /* -host */ struct hostent *he; afs_int32 saddr; he = (struct hostent *) hostutil_GetHostByName(host); if (he == (struct hostent *) 0) { char buffer[80]; sprintf(buffer, "Can't get host info for '%s'\n", host); XSRETURN_UNDEF; VSETCODE(-1, buffer); goto done; } /*memcpy(&saddr, he->h_addr, 4); */ /* Copy(he->h_addr, &saddr, sizeof(afs_int32), afs_int32); */ Copy(he->h_addr, &saddr, he->h_length, char); m_attrs.Mask = VLADDR_IPADDR; m_attrs.ipaddr = ntohl(saddr); } else host = NULL; m_addrs.bulkaddrs_val = 0; m_addrs.bulkaddrs_len = 0; vcode = ubik_Call_New(VL_GetAddrs, cstruct, 0, 0, 0, &m_unique, &nentries, &m_addrs); if (vcode) { char buffer[80]; sprintf(buffer, "AFS::VLDB: could not list the server addresses\n"); VSETCODE(vcode, buffer); XSRETURN_UNDEF; goto done; } m_nentries = 0; m_addrs.bulkaddrs_val = 0; m_addrs.bulkaddrs_len = 0; i = 1; j = 0; while (1) { HV *addr = (HV *) sv_2mortal((SV *) newHV()); m_attrs.index = i; vcode = ubik_Call_New(VL_GetAddrsU, cstruct, 0, &m_attrs, &m_uuid, &m_unique, &m_nentries, &m_addrs); if (vcode == VL_NOENT) { i++; nentries++; continue; } if (vcode) { char buffer[80]; sprintf(buffer, "AFS::VLDB: could not list the server addresses\n"); VSETCODE(vcode, buffer); XSRETURN_UNDEF; goto done; } myprint_addrs(addr, &m_addrs, &m_uuid, m_nentries, printuuid, noresolve); XPUSHs(sv_2mortal(newRV_inc((SV *) (addr)))); i++; j++; if (host || uuid || (i > nentries)) break; } SETCODE(vcode); XSRETURN(j); done: ; } #line 8455 "AFS.c" PUTBACK; return; } } XS(XS_AFS__VLDB__delentry) { dXSARGS; if (items < 1 || items > 6) Perl_croak(aTHX_ "Usage: AFS::VLDB::_delentry(cstruct, volume=NULL, prfx=NULL, server=NULL, partition=NULL, noexecute=0)"); SP -= items; { AFS__VLDB cstruct; SV* volume; char * prfx; char * server; char * partition; int noexecute; #line 6968 "AFS.xs" afs_int32 apart; afs_int32 avolid; afs_int32 vcode = 0; struct VldbListByAttributes attributes; nbulkentries arrayEntries; register struct nvldbentry *vllist; SV *vol; char *itp; afs_int32 nentries; int j; char prefix[VOLSER_MAXVOLNAME+1]; int seenprefix=0; STRLEN volumelength=0; afs_int32 totalBack=0, totalFail=0, err; AV *av; #line 8490 "AFS.c" if (sv_derived_from(ST(0), "AFS::VLDB")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VLDB,tmp); } else croak("cstruct is not of type AFS::VLDB"); if (items < 2) volume = NULL; else { volume = ST(1); } if (items < 3) prfx = NULL; else { prfx = (char *)SvPV(ST(2),PL_na); } if (items < 4) server = NULL; else { server = (char *)SvPV(ST(3),PL_na); } if (items < 5) partition = NULL; else { partition = (char *)SvPV(ST(4),PL_na); } if (items < 6) noexecute = 0; else { noexecute = (int)SvIV(ST(5)); } #line 6984 "AFS.xs" { if (prfx && strlen(prfx) == 0) prfx = NULL; if (partition && strlen(partition) == 0) partition = NULL; if (server && strlen(server) == 0) server = NULL; if (volume && (volumelength = sv_len(volume)) == 0) volume = NULL; if (volume && (! (SvTYPE(SvRV(volume)) == SVt_PVAV))) { VSETCODE(-1, "AFS::VLDB: VOLUME not array reference"); XSRETURN_UNDEF; goto done; } if (volume) { /* -id */ int len; if (prfx || server || partition) { VSETCODE(-1, "You cannot use SERVER, PARTITION, or PREFIX with the VOLUME argument"); XSRETURN_UNDEF; goto done; } av = (AV *) SvRV(volume); len = av_len(av); if (len != -1) { for (j = 0; j <= len; j++) { vol = *av_fetch(av, j, 0); itp = SvPV_nolen(vol); if (itp) { avolid = vsu_GetVolumeID(itp, cstruct, &err); if (avolid == 0) { char buffer[80]; if (err) set_errbuff(buffer, err); else sprintf(buffer, "AFS::VLDB: can't find volume '%s'\n", itp); VSETCODE(err ? err : -1, buffer); continue; } if (noexecute) { /* -noexecute */ fprintf(STDOUT, "Would have deleted VLDB entry for %s \n", itp); fflush(STDOUT); continue; } vcode = ubik_Call(VL_DeleteEntry, cstruct, 0, avolid, RWVOL); if (vcode) { char buffer[128]; sprintf(buffer, "Could not delete entry for volume %s\n" "You must specify a RW volume name or ID " "(the entire VLDB entry will be deleted)\n", itp); VSETCODE(vcode, buffer); totalFail++; continue; } totalBack++; } } /* for */ } /* len */ EXTEND(sp, 2); PUSHs(sv_2mortal(newSViv(totalBack))); PUSHs(sv_2mortal(newSViv(totalFail))); vcode = 0; goto done; } /* id */ if (!prfx && !server && !partition) { VSETCODE(-1, "You must specify an argument"); XSRETURN_UNDEF; goto done; } /* Zero out search attributes */ Zero(&attributes, 1, VldbListByAttributes); if (prfx) { /* -prefix */ strncpy(prefix, prfx, VOLSER_MAXVOLNAME); seenprefix = 1; if (!server && !partition) { /* a single entry only */ VSETCODE(-1, "You must provide SERVER with the PREFIX argument"); XSRETURN_UNDEF; goto done; } } if (server) { /* -server */ afs_int32 aserver; aserver = GetServer(server); if (aserver == 0) { char buffer[80]; sprintf(buffer, "AFS::VLDB: server '%s' not found in host table\n", server); VSETCODE(-1, buffer); XSRETURN_UNDEF; goto done; } attributes.server = ntohl(aserver); attributes.Mask |= VLLIST_SERVER; } if (partition) { /* -partition */ if (!server) { VSETCODE(-1, "You must provide SERVER with the PARTITION argument"); XSRETURN_UNDEF; goto done; } apart = volutil_GetPartitionID(partition); if (apart < 0) { char buffer[80]; sprintf(buffer, "AFS::VLDB: could not interpret partition name '%s'\n", partition); VSETCODE(-1, buffer); XSRETURN_UNDEF; goto done; } attributes.partition = apart; attributes.Mask |= VLLIST_PARTITION; } /* Print status line of what we are doing */ /* Get all the VLDB entries on a server and/or partition */ Zero(&arrayEntries, 1, nbulkentries); vcode = VLDB_ListAttributes(&attributes, &nentries, &arrayEntries); if (vcode) { VSETCODE(vcode, "Could not access the VLDB for attributes"); XSRETURN_UNDEF; goto done; } /* Process each entry */ for (j = 0; j < nentries; j++) { vllist = &arrayEntries.nbulkentries_val[j]; if (seenprefix) { /* It only deletes the RW volumes */ if (strncmp(vllist->name, prefix, strlen(prefix))) { fflush(STDOUT); continue; } } if (noexecute) { /* -noexecute */ fprintf(STDOUT, "Would have deleted VLDB entry for %s \n", vllist->name); fflush(STDOUT); continue; } /* Only matches the RW volume name */ avolid = vllist->volumeId[RWVOL]; vcode = ubik_Call(VL_DeleteEntry, cstruct, 0, avolid, RWVOL); if (vcode) { fprintf(STDOUT, "Could not delete VDLB entry for %s\n", vllist->name); totalFail++; PrintError("", vcode); continue; } else { totalBack++; } fflush(STDOUT); } /*for */ EXTEND(sp, 2); PUSHs(sv_2mortal(newSViv(totalBack))); PUSHs(sv_2mortal(newSViv(totalFail))); if (arrayEntries.nbulkentries_val) Safefree(arrayEntries.nbulkentries_val); vcode = 0; done: ; } #line 8703 "AFS.c" PUTBACK; return; } } XS(XS_AFS__VLDB_lock) { dXSARGS; if (items != 2) Perl_croak(aTHX_ "Usage: AFS::VLDB::lock(cstruct, id)"); { AFS__VLDB cstruct; char * id = (char *)SvPV(ST(1),PL_na); #line 7178 "AFS.xs" afs_int32 avolid, vcode, err; #line 8719 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::VLDB")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VLDB,tmp); } else croak("cstruct is not of type AFS::VLDB"); #line 7180 "AFS.xs" { RETVAL = 0; avolid = vsu_GetVolumeID(id, cstruct, &err); if (avolid == 0) { char buffer[80]; if (err) set_errbuff(buffer, err); else sprintf(buffer, "AFS::VLDB: can't find volume '%s'\n", id); VSETCODE(err ? err : -1, buffer); goto done; } vcode = ubik_Call(VL_SetLock, cstruct, 0, avolid, -1, VLOP_DELETE); if (vcode) { char buffer[80]; sprintf(buffer, "Could not lock VLDB entry for volume %s\n", id); VSETCODE(vcode, buffer); goto done; } /* fprintf(STDOUT, "Locked VLDB entry for volume %s\n", id); */ SETCODE(0); RETVAL = 1; done: ; } #line 8756 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__VLDB_unlock) { dXSARGS; if (items != 2) Perl_croak(aTHX_ "Usage: AFS::VLDB::unlock(cstruct, id)"); { AFS__VLDB cstruct; char * id = (char *)SvPV(ST(1),PL_na); #line 7214 "AFS.xs" afs_int32 avolid, code, err; #line 8772 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::VLDB")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VLDB,tmp); } else croak("cstruct is not of type AFS::VLDB"); #line 7216 "AFS.xs" { RETVAL = 0; avolid = vsu_GetVolumeID(id, cstruct, &err); if (avolid == 0) { char buffer[80]; if (err) set_errbuff(buffer, err); else sprintf(buffer, "AFS::VLDB: can't find volume '%s'\n", id); VSETCODE(err ? err : -1, buffer); goto done; } code = UV_LockRelease(avolid); if (code) { VSETCODE(code, "unlock"); goto done; } /* fprintf(STDOUT,"Released lock on vldb entry for volume %s\n",id); */ SETCODE(0); RETVAL = 1; done: ; } #line 8808 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__VLDB_unlockvldb) { dXSARGS; if (items < 1 || items > 3) Perl_croak(aTHX_ "Usage: AFS::VLDB::unlockvldb(cstruct, server=NULL, partition=NULL)"); { AFS__VLDB cstruct; char * server; char * partition; #line 7250 "AFS.xs" afs_int32 apart = -1; afs_int32 aserver,code; afs_int32 vcode; struct VldbListByAttributes attributes; nbulkentries arrayEntries; register struct nvldbentry *vllist; afs_int32 nentries; int j; afs_int32 volid; afs_int32 totalE = 0; char pname[10]; #line 8835 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::VLDB")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VLDB,tmp); } else croak("cstruct is not of type AFS::VLDB"); if (items < 2) server = NULL; else { server = (char *)SvPV(ST(1),PL_na); } if (items < 3) partition = NULL; else { partition = (char *)SvPV(ST(2),PL_na); } #line 7262 "AFS.xs" { RETVAL = 0; attributes.Mask = 0; if (server && (strlen(server) != 0)) { /* server specified */ aserver = GetServer(server); if (aserver == 0) { char buffer[80]; sprintf(buffer, "AFS::VLDB: server '%s' not found in host table\n", server); VSETCODE(-1, buffer); goto done; } attributes.server = ntohl(aserver); attributes.Mask |= VLLIST_SERVER; } if (partition && (strlen(partition) != 0)) { /* partition specified */ apart = volutil_GetPartitionID(partition); if (apart < 0) { char buffer[80]; sprintf(buffer, "AFS::VLDB: could not interpret partition name '%s'\n", partition); VSETCODE(-1, buffer); goto done; } if (!IsPartValid(apart, aserver, &code)) { /*check for validity of the partition */ char buffer[80]; if (code) set_errbuff(buffer, code); else sprintf(buffer, "AFS::VLDB: partition %s does not exist on the server\n", partition); VSETCODE(code ? code : -1, buffer); goto done; } attributes.partition = apart; attributes.Mask |= VLLIST_PARTITION; } attributes.flag = VLOP_ALLOPERS; attributes.Mask |= VLLIST_FLAG; Zero(&arrayEntries, 1, nbulkentries); /*initialize to hint the stub to alloc space */ vcode = VLDB_ListAttributes(&attributes, &nentries, &arrayEntries); if (vcode) { char buffer[80]; sprintf(buffer, "Could not access the VLDB for attributes\n"); VSETCODE(vcode, buffer); goto done; } for (j = 0; j < nentries; j++) { /* process each entry */ vllist = &arrayEntries.nbulkentries_val[j]; volid = vllist->volumeId[RWVOL]; vcode = ubik_Call(VL_ReleaseLock, cstruct, 0, volid, -1, LOCKREL_OPCODE | LOCKREL_AFSID | LOCKREL_TIMESTAMP); if (vcode) { char buffer[80]; sprintf(buffer, "Could not unlock entry for volume %s\n", vllist->name); VSETCODE(vcode, buffer); totalE++; } } /* MapPartIdIntoName(apart,pname); */ if (totalE) fprintf(STDOUT, "Could not unlock %u VLDB entries of %u locked entries\n", totalE, nentries); /* else { */ /* if(server) { */ /* fprintf(STDOUT,"Unlocked all the VLDB entries for volumes on server %s ", server); */ /* if(partition && (strlen(partition) != 0)){ */ /* MapPartIdIntoName(apart,pname); */ /* fprintf(STDOUT,"partition %s\n",pname); */ /* } */ /* else fprintf(STDOUT,"\n"); */ /* } */ /* else if(partition && (strlen(partition) != 0)){ */ /* MapPartIdIntoName(apart,pname); */ /* fprintf(STDOUT,"Unlocked all the VLDB entries for volumes on partition %s on all servers\n",pname); */ /* } */ /* } */ if (arrayEntries.nbulkentries_val) Safefree(arrayEntries.nbulkentries_val); SETCODE(0); RETVAL = 1; done: ; } #line 8950 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__VLDB__syncvldb) { dXSARGS; if (items < 1 || items > 4) Perl_croak(aTHX_ "Usage: AFS::VLDB::_syncvldb(cstruct, server=NULL, partition=NULL, volname=NULL)"); { AFS__VLDB cstruct; char * server; char * partition; char * volname; #line 7364 "AFS.xs" afs_int32 pname, code; /* part name */ int flags = 0; afs_int32 tserver = 0; #line 8970 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::VLDB")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VLDB,tmp); } else croak("cstruct is not of type AFS::VLDB"); if (items < 2) server = NULL; else { server = (char *)SvPV(ST(1),PL_na); } if (items < 3) partition = NULL; else { partition = (char *)SvPV(ST(2),PL_na); } if (items < 4) volname = NULL; else { volname = (char *)SvPV(ST(3),PL_na); } #line 7368 "AFS.xs" { RETVAL = 0; /* printf("server %s, part %s volume %s \n", server, partition, volname); */ if (server && (strlen(server) != 0)) { tserver = GetServer(server); if (!tserver) { char buffer[80]; sprintf(buffer, "AFS::VLDB: host '%s' not found in host table\n", server); VSETCODE(-1, buffer); goto done; } } if (partition && (strlen(partition) != 0)) { pname = volutil_GetPartitionID(partition); if (pname < 0) { char buffer[80]; sprintf(buffer, "AFS::VLDB: could not interpret partition name '%s'\n", partition); VSETCODE(-1, buffer); goto done; } if (!tserver) { char buffer[80]; sprintf(buffer, "The PARTITION argument requires a SERVER argument\n"); VSETCODE(-1, buffer); goto done; } if (!IsPartValid(pname, tserver, &code)) { /*check for validity of the partition */ char buffer[80]; if (code) set_errbuff(buffer, code); else sprintf(buffer, "AFS::VLDB: partition %s does not exist on the server\n", partition); VSETCODE(code ? code : -1, buffer); goto done; } flags = 1; } if (volname && (strlen(volname) != 0)) { /* Synchronize an individual volume */ code = UV_SyncVolume(tserver, pname, volname, flags); } else { if (!tserver) { char buffer[80]; sprintf(buffer, "Without a VOLUME argument, the server argument is required\n"); VSETCODE(-1, buffer); goto done; } code = UV_SyncVldb(tserver, pname, flags, 0 /*unused */ ); } if (code) { char buffer[80]; set_errbuff(buffer, code); VSETCODE(code, buffer); goto done; } else SETCODE(0); RETVAL = 1; done: ; } #line 9069 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__VLDB__changeaddr) { dXSARGS; if (items < 3 || items > 4) Perl_croak(aTHX_ "Usage: AFS::VLDB::_changeaddr(cstruct, oldip, newip, remove=0)"); { AFS__VLDB cstruct; char * oldip = (char *)SvPV(ST(1),PL_na); char * newip = (char *)SvPV(ST(2),PL_na); int32 remove; #line 7450 "AFS.xs" int32 ip1, ip2, vcode; #line 9087 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::VLDB")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VLDB,tmp); } else croak("cstruct is not of type AFS::VLDB"); if (items < 4) remove = 0; else { remove = (int32)SvIV(ST(3)); } #line 7452 "AFS.xs" { RETVAL = 0; ip1 = GetServer(oldip); if (!ip1) { char buffer[80]; sprintf(buffer, "AFS::VLDB: invalid host address\n"); VSETCODE(EINVAL, buffer); goto done; } if ((newip && remove) || (!newip && !remove)) { char buffer[80]; sprintf(buffer, "AFS::VLDB: Must specify either 'NEWADDR ' or 'REMOVE' flag\n"); VSETCODE(EINVAL, buffer); goto done; } if (newip) { ip2 = GetServer(newip); if (!ip2) { char buffer[80]; sprintf(buffer, "AFS::VLDB: invalid host address\n"); VSETCODE(EINVAL, buffer); goto done; } } else { /* Play a trick here. If we are removing an address, ip1 will be -1 * and ip2 will be the original address. This switch prevents an * older revision vlserver from removing the IP address. */ remove = 1; ip2 = ip1; ip1 = 0xffffffff; } vcode = ubik_Call_New(VL_ChangeAddr, cstruct, 0, ntohl(ip1), ntohl(ip2)); if (vcode) { char buffer[80]; if (remove) { sprintf(buffer, "Could not remove server %s from the VLDB\n", oldip); if (vcode == VL_NOENT) { sprintf(buffer, "%s vlserver does not support the REMOVE flag or ", buffer); } } else { sprintf(buffer, "Could not change server %s to server %s\n", oldip, newip); } VSETCODE(vcode, buffer); goto done; } if (remove) { fprintf(STDOUT, "Removed server %s from the VLDB\n", oldip); } else { fprintf(STDOUT, "Changed server %s to server %s\n", oldip, newip); } SETCODE(0); RETVAL = 1; done: ; } #line 9170 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__VLDB_remsite) { dXSARGS; if (items != 4) Perl_croak(aTHX_ "Usage: AFS::VLDB::remsite(cstruct, server, partition, name)"); { AFS__VLDB cstruct; char * server = (char *)SvPV(ST(1),PL_na); char * partition = (char *)SvPV(ST(2),PL_na); char * name = (char *)SvPV(ST(3),PL_na); #line 7662 "AFS.xs" afs_int32 avolid, aserver, apart, code = 1, err; char apartName[10]; #line 9189 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::VLDB")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VLDB,tmp); } else croak("cstruct is not of type AFS::VLDB"); #line 7665 "AFS.xs" { RETVAL = 0; avolid = vsu_GetVolumeID(name, cstruct, &err); if (avolid == 0) { char buffer[80]; if (err) set_errbuff(buffer, err); else sprintf(buffer, "AFS::VLDB: can't find volume '%s'\n", name); VSETCODE(err ? err : -1, buffer); goto done; } aserver = GetServer(server); if (aserver == 0) { char buffer[80]; sprintf(buffer, "AFS::VLDB: server '%s' not found in host table\n", server); VSETCODE(-1, buffer); goto done; } apart = volutil_GetPartitionID(partition); if (apart < 0) { char buffer[80]; sprintf(buffer, "AFS::VLDB: could not interpret partition name '%s'\n", partition); VSETCODE(-1, buffer); goto done; } code = UV_RemoveSite(aserver, apart, avolid); if (code) { PrintDiagnostics("remsite", code); SETCODE(code); goto done; } RETVAL = 1; done: ; } #line 9236 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__VLDB_syncserv) { dXSARGS; if (items < 2 || items > 3) Perl_croak(aTHX_ "Usage: AFS::VLDB::syncserv(cstruct, servername, parti=NULL)"); { AFS__VLDB cstruct; char * servername = (char *)SvPV(ST(1),PL_na); char * parti; #line 7713 "AFS.xs" int32 pname, code; /* part name */ char part[10]; afs_int32 tserver; int flags = 0; #line 9256 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::VLDB")) { IV tmp = SvIV((SV*)SvRV(ST(0))); cstruct = INT2PTR(AFS__VLDB,tmp); } else croak("cstruct is not of type AFS::VLDB"); if (items < 3) parti = NULL; else { parti = (char *)SvPV(ST(2),PL_na); } #line 7718 "AFS.xs" { RETVAL = 0; tserver = GetServer(servername); if (!tserver) { char buffer[80]; sprintf(buffer, "AFS::VLDB: host '%s' not found in host table\n", servername); VSETCODE(-1, buffer); goto done; } if (parti && (strlen(parti) != 0)) { pname = volutil_GetPartitionID(parti); if (pname < 0) { char buffer[80]; sprintf(buffer, "AFS::VLDB: could not interpret partition name '%s'\n", parti); VSETCODE(-1, buffer); goto done; } if (!IsPartValid(pname, tserver, &code)) { /*check for validity of the partition */ char buffer[80]; if (code) set_errbuff(buffer, code); else sprintf(buffer, "AFS::VLDB: partition %s does not exist on the server\n", parti); VSETCODE(code ? code : -1, buffer); goto done; } flags = 1; } code = UV_SyncServer(tserver, pname, flags, 0 /*unused */ ); if (code) { PrintDiagnostics("syncserv", code); SETCODE(code); goto done; } SETCODE(0); RETVAL = 1; done: ; } #line 9316 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__BOS_new) { dXSARGS; if (items < 1 || items > 6) Perl_croak(aTHX_ "Usage: AFS::BOS::new(class=0, servname, noauth=0, localauth=0, cell=0, aencrypt=1)"); SP -= items; { char * class; char * servname = (char *)SvPV(ST(1),PL_na); int noauth; int localauth; char * cell; int aencrypt; #line 7782 "AFS.xs" int32 code = -1; AFS__BOS server; #line 9338 "AFS.c" AFS__BOS RETVAL; if (items < 1) class = 0; else { class = (char *)SvPV(ST(0),PL_na); } if (items < 3) noauth = 0; else { noauth = (int)SvIV(ST(2)); } if (items < 4) localauth = 0; else { localauth = (int)SvIV(ST(3)); } if (items < 5) cell = 0; else { cell = (char *)SvPV(ST(4),PL_na); } if (items < 6) aencrypt = 1; else { aencrypt = (int)SvIV(ST(5)); } #line 7785 "AFS.xs" { server = internal_bos_new(&code, servname, localauth, noauth, aencrypt, cell); /* SETCODE(code); */ ST(0) = sv_newmortal(); if (code == 0) { sv_setref_pv(ST(0), "AFS::BOS", (void *) server); XSRETURN(1); } else XSRETURN_UNDEF; } #line 9383 "AFS.c" PUTBACK; return; } } XS(XS_AFS__BOS__DESTROY) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::BOS::_DESTROY(self)"); { AFS__BOS self; int32 RETVAL; dXSTARG; if (SvROK(ST(0))) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not a reference"); #line 7802 "AFS.xs" { rx_DestroyConnection(self); rx_Finalize(); /* Safefree(self); */ RETVAL = 1; } #line 9412 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__BOS__status) { dXSARGS; if (items < 1 || items > 3) Perl_croak(aTHX_ "Usage: AFS::BOS::_status(self, lng=0, object=NULL)"); SP -= items; { AFS__BOS self; int lng; SV* object; #line 7817 "AFS.xs" int i; afs_int32 code = 0; char ibuffer[BOZO_BSSIZE]; char *tp; int int32p; HV *status, *stats; #line 9435 "AFS.c" if (sv_derived_from(ST(0), "AFS::BOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not of type AFS::BOS"); if (items < 2) lng = 0; else { lng = (int)SvIV(ST(1)); } if (items < 3) object = NULL; else { object = ST(2); } #line 7824 "AFS.xs" { int32p = (lng != 0 ? 2 : 0); status = (HV *) sv_2mortal((SV *) newHV()); if (object && (! (SvTYPE(SvRV(object)) == SVt_PVAV))) { BSETCODE(-1, "AFS::BOS: SERVER not an array reference\n"); XSRETURN_UNDEF; goto done; } if (object && (SvTYPE(SvRV(object)) == SVt_PVAV)) { AV *av; SV *sv; char *instance; STRLEN namelen; int i, len; int firstTime = 1; av = (AV *) SvRV(object); len = av_len(av); if (len != -1) { for (i = 0; i <= len; i++) { sv = *av_fetch(av, i, 0); if (sv) { stats = (HV *) sv_2mortal((SV *) newHV()); instance = (char *) safemalloc(BOZO_BSSIZE); instance = SvPV(sv, namelen); code = DoStat(stats, instance, self, int32p, firstTime); if (code) { XSRETURN_UNDEF; goto done; } hv_store(status, instance, strlen(instance), newRV_inc((SV *) (stats)), 0); firstTime = 0; } } } } else { for (i = 0;; i++) { /* for each instance */ tp = ibuffer; code = BOZO_EnumerateInstance(self, i, &tp); if (code == BZDOM) { code = 0; break; } if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to contact host's bosserver (%s).\n", em(code)); BSETCODE(code, buffer); break; } stats = (HV *) sv_2mortal((SV *) newHV()); code = DoStat(stats, ibuffer, self, int32p, (i == 0)); if (code) { XSRETURN_UNDEF; goto done; } hv_store(status, ibuffer, strlen(ibuffer), newRV_inc((SV *) (stats)), 0); } } ST(0) = sv_2mortal(newRV_inc((SV *) status)); SETCODE(0); XSRETURN(1); done: ; } #line 9528 "AFS.c" PUTBACK; return; } } XS(XS_AFS__BOS_setauth) { dXSARGS; if (items != 2) Perl_croak(aTHX_ "Usage: AFS::BOS::setauth(self, tp)"); { AFS__BOS self; char * tp = (char *)SvPV(ST(1),PL_na); #line 7902 "AFS.xs" int32 code = 0; int32 flag; #line 9545 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::BOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not of type AFS::BOS"); #line 7905 "AFS.xs" { not_here("AFS::BOS::setauth"); RETVAL = 42; if (strcmp(tp, "on") == 0) flag = 0; /* auth req.: noauthflag is false */ else if (strcmp(tp, "off") == 0) flag = 1; else { char buffer[80]; sprintf(buffer, "AFS::BOS: illegal authentication specifier '%s', must be 'off' or 'on'.\n", tp); BSETCODE(-1, buffer); RETVAL = 0; } if (RETVAL == 42) { code = BOZO_SetNoAuthFlag(self, flag); if (code) { char buffer[80]; sprintf(buffer, "AFS::BOS %d (failed to set authentication flag)", code); BSETCODE(code, buffer); } SETCODE(code); RETVAL = (code == 0); } } #line 9584 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__BOS_exec) { dXSARGS; if (items != 2) Perl_croak(aTHX_ "Usage: AFS::BOS::exec(self, cmd)"); { AFS__BOS self; char * cmd = (char *)SvPV(ST(1),PL_na); #line 7941 "AFS.xs" int32 code = 0; #line 9600 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::BOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not of type AFS::BOS"); #line 7943 "AFS.xs" { code = BOZO_Exec(self, cmd); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to execute command (%s)\n", em(code)); BSETCODE(code, buffer); } SETCODE(code); RETVAL = (code == 0); } #line 9621 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__BOS_addhost) { dXSARGS; if (items < 2 || items > 3) Perl_croak(aTHX_ "Usage: AFS::BOS::addhost(self, object, clone=0)"); { AFS__BOS self; SV* object = ST(1); int clone; #line 7962 "AFS.xs" int32 code = 0; #line 9638 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::BOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not of type AFS::BOS"); if (items < 3) clone = 0; else { clone = (int)SvIV(ST(2)); } #line 7964 "AFS.xs" { not_here("AFS::BOS::addhost"); RETVAL = 0; if (SvTYPE(SvRV(object)) == SVt_PVAV) { int len, i; AV *av; SV *sv; char *host; STRLEN namelen; av = (AV *) SvRV(object); len = av_len(av); if (len != -1) { for (i = 0; i <= len; i++) { sv = *av_fetch(av, i, 0); if (sv) { host = (char *) safemalloc(MAXHOSTCHARS); host = SvPV(sv, namelen); if (clone) { char name[MAXHOSTCHARS]; if (namelen > MAXHOSTCHARS - 3) { char buffer[80]; sprintf(buffer, "AFS::BOS: host name too long\n"); BSETCODE(E2BIG, buffer); goto done; } name[0] = '['; strcpy(&name[1], host); strcat((char *) &name, "]"); code = BOZO_AddCellHost(self, name); } else { code = BOZO_AddCellHost(self, host); } if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to add host '%s' (%s)\n", host, em(code)); BSETCODE(code, buffer); } } } /* for loop */ } } /* object is array ref */ SETCODE(code); RETVAL = (code == 0); done: ; } #line 9706 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__BOS_removehost) { dXSARGS; if (items != 2) Perl_croak(aTHX_ "Usage: AFS::BOS::removehost(self, object)"); { AFS__BOS self; SV* object = ST(1); #line 8023 "AFS.xs" int32 code = 0; char *host; #line 9723 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::BOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not of type AFS::BOS"); #line 8026 "AFS.xs" { not_here("AFS::BOS::removehost"); if (!SvROK(object)) { host = (char *) SvPV_nolen(object); code = BOZO_DeleteCellHost(self, host); } else if (SvTYPE(SvRV(object)) == SVt_PVAV) { int len, i; AV *av; SV *sv; STRLEN namelen; av = (AV *) SvRV(object); len = av_len(av); if (len != -1) { for (i = 0; i <= len; i++) { sv = *av_fetch(av, i, 0); if (sv) { host = (char *) safemalloc(MAXHOSTCHARS); host = SvPV(sv, namelen); code = BOZO_DeleteCellHost(self, host); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to delete host '%s' (%s)\n", host, em(code)); BSETCODE(code, buffer); } } } /* for loop */ } } /* object is array ref */ SETCODE(code); RETVAL = (code == 0); if (host) Safefree(host); } #line 9771 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__BOS_prune) { dXSARGS; if (items < 1 || items > 5) Perl_croak(aTHX_ "Usage: AFS::BOS::prune(self, all=0, bak=0, old=0, core=0)"); { AFS__BOS self; int all; int bak; int old; int core; #line 8074 "AFS.xs" int32 code = 0, flags = 0; #line 9790 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::BOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not of type AFS::BOS"); if (items < 2) all = 0; else { all = (int)SvIV(ST(1)); } if (items < 3) bak = 0; else { bak = (int)SvIV(ST(2)); } if (items < 4) old = 0; else { old = (int)SvIV(ST(3)); } if (items < 5) core = 0; else { core = (int)SvIV(ST(4)); } #line 8076 "AFS.xs" { if (bak) flags |= BOZO_PRUNEBAK; if (old) flags |= BOZO_PRUNEOLD; if (core) flags |= BOZO_PRUNECORE; if (all) flags |= 0xff; if (!flags) { char buffer[80]; sprintf(buffer, "AFS::BOS nothing to prune"); BSETCODE(999, buffer); RETVAL = 0; } else { code = BOZO_Prune(self, flags); if (code) { char buffer[80]; sprintf(buffer, "AFS::BOS has failed to prune server files"); BSETCODE(code, buffer); } SETCODE(code); RETVAL = (code == 0); } } #line 9852 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__BOS_adduser) { dXSARGS; if (items != 2) Perl_croak(aTHX_ "Usage: AFS::BOS::adduser(self, object)"); { AFS__BOS self; SV * object = ST(1); #line 8111 "AFS.xs" int32 code = 0; char *name; #line 9869 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::BOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not of type AFS::BOS"); #line 8114 "AFS.xs" { not_here("AFS::BOS::adduser"); if (!SvROK(object)) { name = (char *) SvPV_nolen(object); code = BOZO_AddSUser(self, name); } else if (SvTYPE(SvRV(object)) == SVt_PVAV) { int len, i; AV *av; SV *sv; STRLEN namelen; av = (AV *) SvRV(object); len = av_len(av); if (len != -1) { for (i = 0; i <= len; i++) { sv = *av_fetch(av, i, 0); if (sv) { name = (char *) safemalloc(BOZO_BSSIZE); name = SvPV(sv, namelen); code = BOZO_AddSUser(self, name); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to add user '%s' (%s)\n", name, em(code)); BSETCODE(code, buffer); } } } /* for loop */ } } SETCODE(code); RETVAL = (code == 0); if (name) Safefree(name); } #line 9917 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__BOS_removeuser) { dXSARGS; if (items != 2) Perl_croak(aTHX_ "Usage: AFS::BOS::removeuser(self, object)"); { AFS__BOS self; SV* object = ST(1); #line 8159 "AFS.xs" int32 code = 0; char *name; #line 9934 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::BOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not of type AFS::BOS"); #line 8162 "AFS.xs" { not_here("AFS::BOS::removeuser"); if (!SvROK(object)) { name = (char *) SvPV_nolen(object); code = BOZO_DeleteSUser(self, name); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to delete user"); if (code == ENOENT) sprintf(buffer, "%s (no such user)\n", buffer); else sprintf(buffer, "%s (%s)\n", em(code), buffer); BSETCODE(code, buffer); } } else if (SvTYPE(SvRV(object)) == SVt_PVAV) { int len, i; AV *av; SV *sv; STRLEN namelen; av = (AV *) SvRV(object); len = av_len(av); if (len != -1) { for (i = 0; i <= len; i++) { sv = *av_fetch(av, i, 0); if (sv) { name = (char *) safemalloc(BOZO_BSSIZE); name = SvPV(sv, namelen); code = BOZO_DeleteSUser(self, name); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to delete user"); if (code == ENOENT) sprintf(buffer, "%s (no such user)\n", buffer); else sprintf(buffer, "%s (%s)\n", em(code), buffer); BSETCODE(code, buffer); } } } /* for loop */ } } RETVAL = (code == 0); if (name) Safefree(name); } #line 9993 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__BOS_addkey) { dXSARGS; if (items < 2 || items > 3) Perl_croak(aTHX_ "Usage: AFS::BOS::addkey(self, kvno, string=NULL)"); { AFS__BOS self; int32 kvno = (int32)SvIV(ST(1)); char * string; #line 8219 "AFS.xs" int32 code = 0; struct ktc_encryptionKey tkey; char *tcell = (char *) 0; /* use current cell */ char buf[BUFSIZ], ver[BUFSIZ]; #line 10013 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::BOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not of type AFS::BOS"); if (items < 3) string = NULL; else { string = (char *)SvPV(ST(2),PL_na); } #line 8224 "AFS.xs" { not_here("AFS::BOS::addkey"); Zero(&tkey, 1, struct ktc_encryptionKey); RETVAL = 42; if (string) strcpy(buf, string); else { /* prompt for key */ code = des_read_pw_string(buf, sizeof(buf), "input key: ", 0); if (code || strlen(buf) == 0) { char buffer[80]; sprintf(buffer, "Bad key: \n"); BSETCODE(code ? code : -1, buffer); RETVAL = 0; } code = des_read_pw_string(ver, sizeof(ver), "Retype input key: ", 0); if (code || strlen(ver) == 0) { char buffer[80]; sprintf(buffer, "Bad key: \n"); BSETCODE(code ? code : -1, buffer); RETVAL = 0; } if (strcmp(ver, buf) != 0) { char buffer[80]; sprintf(buffer, "\nInput key mismatch\n"); BSETCODE(-1, buffer); RETVAL = 0; } } if (RETVAL == 42) { if (kvno == 999) { /* bcrypt key */ strcpy((char *) &tkey, buf); } else { /* kerberos key */ ka_StringToKey(buf, tcell, &tkey); } code = BOZO_AddKey(self, kvno, &tkey); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to set key %d (%s)\n", kvno, em(code)); BSETCODE(code, buffer); } SETCODE(code); RETVAL = (code == 0); } if (tcell) Safefree(tcell); } #line 10084 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__BOS_removekey) { dXSARGS; if (items != 2) Perl_croak(aTHX_ "Usage: AFS::BOS::removekey(self, object)"); { AFS__BOS self; SV* object = ST(1); #line 8286 "AFS.xs" int32 code = 0; int32 temp; #line 10101 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::BOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not of type AFS::BOS"); #line 8289 "AFS.xs" { not_here("AFS::BOS::removekey"); if (SvIOK(object)) { temp = (int32) SvIV(object); code = BOZO_DeleteKey(self, temp); } else if (SvTYPE(SvRV(object)) == SVt_PVAV) { /* object is array ref */ int len, i; AV *av; SV *sv; av = (AV *) SvIV(object); len = av_len(av); if (len != -1) { for (i = 0; i <= len; i++) { sv = *av_fetch(av, i, 0); if (sv) { temp = SvIV(sv); code = BOZO_DeleteKey(self, temp); if (code) { char buffer[80]; sprintf(buffer, "AFS::BOS: failed to deletekey"); BSETCODE(code, buffer); } } } /* for loop */ } } SETCODE(code); RETVAL = (code == 0); } #line 10145 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__BOS__create) { dXSARGS; if (items < 4 || items > 5) Perl_croak(aTHX_ "Usage: AFS::BOS::_create(self, name, type, object, notifier=NULL)"); { AFS__BOS self; char * name = (char *)SvPV(ST(1),PL_na); char * type = (char *)SvPV(ST(2),PL_na); SV * object = ST(3); char * notifier; #line 8333 "AFS.xs" int32 i, len, code = 0; char *parms[6]; AV *av; SV *sv; STRLEN namelen; #line 10167 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::BOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not of type AFS::BOS"); if (items < 5) notifier = NULL; else { notifier = (char *)SvPV(ST(4),PL_na); } #line 8338 "AFS.xs" { if (SvTYPE(SvRV(object)) != SVt_PVAV) { code = -1; BSETCODE(code, "AFS::BOS COMMAND not an array reference\n"); goto done; } for (i = 0; i < 6; i++) parms[i] = ""; av = (AV *) SvRV(object); len = av_len(av); if (len != -1) { for (i = 0; i <= len && i < 6; i++) { sv = *av_fetch(av, i, 0); if (sv) parms[i] = SvPV(sv, namelen); } } if (notifier == NULL) notifier = NONOTIFIER; code = BOZO_CreateBnode(self, type, name, parms[0], parms[1], parms[2], parms[3], parms[4], notifier); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to create new server instance %s of type '%s' (%s)\n", name, type, em(code)); BSETCODE(code, buffer); goto done; } SETCODE(code); done: RETVAL = (code == 0); } #line 10222 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__BOS__restart) { dXSARGS; if (items < 1 || items > 4) Perl_croak(aTHX_ "Usage: AFS::BOS::_restart(self, bosserver=0, all=0, object=NULL)"); { AFS__BOS self; int bosserver; int all; SV * object; #line 8386 "AFS.xs" int32 code = 0; #line 10240 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::BOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not of type AFS::BOS"); if (items < 2) bosserver = 0; else { bosserver = (int)SvIV(ST(1)); } if (items < 3) all = 0; else { all = (int)SvIV(ST(2)); } if (items < 4) object = NULL; else { object = ST(3); } #line 8388 "AFS.xs" { if (bosserver) { if (object != NULL) { char buffer[80]; sprintf(buffer, "AFS::BOS: can't specify both 'bosserver' and specific servers to restart.\n"); BSETCODE(-1, buffer); RETVAL = 0; goto done; } code = BOZO_ReBozo(self); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to restart bosserver (%s)\n", em(code)); BSETCODE(code, buffer); } RETVAL = (code == 0); goto done; } if (object == NULL) { if (all) { code = BOZO_RestartAll(self); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to restart servers (%s)\n", em(code)); BSETCODE(code, buffer); } } else { char buffer[80]; sprintf(buffer, "AFS::BOS: To restart all processes please specify 'all'\n"); BSETCODE(-1, buffer); } RETVAL = (code == 0); goto done; } else { if (all) { char buffer[80]; sprintf(buffer, "AFS::BOS: Can't use 'all' along with individual instances\n"); BSETCODE(-1, buffer); RETVAL = 0; goto done; } else { AV *av; SV *sv; STRLEN namelen; char *instance; int i, len; if (SvTYPE(SvRV(object)) != SVt_PVAV) { BSETCODE(-1, "AFS::BOS: SERVER not an array reference\n"); RETVAL = 0; goto done; } av = (AV *) SvRV(object); len = av_len(av); if (len != -1) { for (i = 0; i <= len && i < 6; i++) { sv = *av_fetch(av, i, 0); if (sv) { instance = (char *) safemalloc(BOZO_BSSIZE); instance = SvPV(sv, namelen); code = BOZO_Restart(self, instance); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to restart instance %s (%s)\n", instance, em(code)); BSETCODE(code, buffer); } } } /* for loop */ SETCODE(code); RETVAL = (code == 0); } } } done: ; } #line 10353 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__BOS_setrestart) { dXSARGS; if (items < 2 || items > 4) Perl_croak(aTHX_ "Usage: AFS::BOS::setrestart(self, time, general=0, newbinary=0)"); { AFS__BOS self; char * time = (char *)SvPV(ST(1),PL_na); int general; int newbinary; #line 8482 "AFS.xs" int32 code = 0, count = 0; struct ktime restartTime; afs_int32 type; #line 10373 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::BOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not of type AFS::BOS"); if (items < 3) general = 0; else { general = (int)SvIV(ST(2)); } if (items < 4) newbinary = 0; else { newbinary = (int)SvIV(ST(3)); } #line 8486 "AFS.xs" { not_here("AFS::BOS::setrestart"); if (general) { count++; type = 1; } if (newbinary) { count++; type = 2; } if (count > 1) { char buffer[80]; sprintf(buffer, "AFS::BOS: can't specify more than one restart time at a time\n"); BSETCODE(-1, buffer); goto done; } if (count == 0) type = 1; /* by default set general restart time */ if (code = ktime_ParsePeriodic(time, &restartTime)) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to parse '%s' as periodic restart time(%s)\n", time, em(code)); BSETCODE(code, buffer); goto done; } code = BOZO_SetRestartTime(self, type, &restartTime); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to set restart time at server (%s)\n", em(code)); BSETCODE(code, buffer); goto done; } code = 0; SETCODE(code); done: RETVAL = (code == 0); } #line 10437 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__BOS_getrestart) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::BOS::getrestart(self)"); SP -= items; { AFS__BOS self; #line 8534 "AFS.xs" int32 code = 0; struct ktime generalTime, newBinaryTime; char messageBuffer[256]; int error = 0; #line 10456 "AFS.c" if (sv_derived_from(ST(0), "AFS::BOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not of type AFS::BOS"); #line 8539 "AFS.xs" { code = BOZO_GetRestartTime(self, 1, &generalTime); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to retrieve restart information (%s)\n", em(code)); BSETCODE(code, buffer); XSRETURN_UNDEF; error = 1; } code = BOZO_GetRestartTime(self, 2, &newBinaryTime); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to retrieve restart information (%s)\n", em(code)); BSETCODE(code, buffer); XSRETURN_UNDEF; error = 1; } if (!error) { code = ktime_DisplayString(&generalTime, messageBuffer); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to decode restart time (%s)\n", em(code)); BSETCODE(code, buffer); error = 1; strcpy(messageBuffer, ""); } XPUSHs(sv_2mortal(newSVpv(messageBuffer, strlen(messageBuffer)))); code = ktime_DisplayString(&newBinaryTime, messageBuffer); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to decode restart time (%s)\n", em(code)); BSETCODE(code, buffer); error = 1; strcpy(messageBuffer, ""); } XPUSHs(sv_2mortal(newSVpv(messageBuffer, strlen(messageBuffer)))); XSRETURN(2); } } #line 10507 "AFS.c" PUTBACK; return; } } XS(XS_AFS__BOS_listusers) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::BOS::listusers(self)"); SP -= items; { AFS__BOS self; #line 8586 "AFS.xs" int i; int32 code = 0; char tbuffer[256]; char *tp; #line 10526 "AFS.c" if (sv_derived_from(ST(0), "AFS::BOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not of type AFS::BOS"); #line 8591 "AFS.xs" { for (i = 0;; i++) { tp = tbuffer; code = BOZO_ListSUsers(self, i, &tp); if (code) break; XPUSHs(sv_2mortal(newSVpv(tbuffer, strlen(tbuffer)))); } if (code != 1) { /* a real error code, instead of scanned past end */ char buffer[240]; sprintf(buffer, "AFS::BOS: failed to retrieve super-user list (%s)\n", em(code)); BSETCODE(code, buffer); XSRETURN_UNDEF; } else { XSRETURN(i); SETCODE(0); } } #line 10556 "AFS.c" PUTBACK; return; } } XS(XS_AFS__BOS_listhosts) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::BOS::listhosts(self)"); SP -= items; { AFS__BOS self; #line 8617 "AFS.xs" int32 i, code = 0; char tbuffer[256]; char *tp; AV *av = (AV*)sv_2mortal((SV*)newAV()); #line 10575 "AFS.c" if (sv_derived_from(ST(0), "AFS::BOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not of type AFS::BOS"); #line 8622 "AFS.xs" { tp = tbuffer; code = BOZO_GetCellName(self, &tp); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to get cell name (%s)\n", em(code)); BSETCODE(code, buffer); XSRETURN_UNDEF; goto done; } /* printf("Cell name is %s\n", tbuffer); */ XPUSHs(sv_2mortal(newSVpv(tbuffer, strlen(tbuffer)))); for (i = 0;; i++) { code = BOZO_GetCellHost(self, i, &tp); if (code == BZDOM) break; if (code != 0) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to get cell host %d (%s)\n", i, em(code)); BSETCODE(code, buffer); XSRETURN_UNDEF; goto done; } /* printf(" Host %d is %s\n", i+1, tbuffer); */ av_push(av, newSVpv(tbuffer, strlen(tbuffer))); } XPUSHs(sv_2mortal(newRV_inc((SV *) (av)))); XSRETURN(2); SETCODE(code); done: ; } #line 10620 "AFS.c" PUTBACK; return; } } XS(XS_AFS__BOS_delete) { dXSARGS; if (items != 2) Perl_croak(aTHX_ "Usage: AFS::BOS::delete(self, object)"); { AFS__BOS self; SV* object = ST(1); #line 8664 "AFS.xs" int32 code = 0, len, i; AV *av; SV *sv; char *name; STRLEN namelen; #line 10639 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::BOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not of type AFS::BOS"); #line 8669 "AFS.xs" { /* printf("DEBUG-bos-delete-1 \n"); */ if (!SvROK(object)) { /* printf("DEBUG-bos-delete-2 \n"); */ name = (char *) SvPV_nolen(object); code = BOZO_DeleteBnode(self, name); if (code) { char buffer[240]; /* printf("DEBUG-bos-delete-3 %d \n", code); */ if (code == BZBUSY) sprintf(buffer, "AFS::BOS: can't delete running instance '%s'\n", name); else sprintf(buffer, "AFS::BOS: failed to delete instance '%s' (%s)\n", name, em(code)); BSETCODE(code, buffer); /* printf("DEBUG-bos-delete-4 %s \n", buffer); */ goto done; } } else if (SvTYPE(SvRV(object)) == SVt_PVAV) { /* printf("DEBUG-bos-delete-5 \n"); */ av = (AV *) SvRV(object); len = av_len(av); if (len != -1) { /* printf("DEBUG-bos-delete-6 \n"); */ for (i = 0; i <= len; i++) { sv = *av_fetch(av, i, 0); if (sv) { name = (char *) safemalloc(BOZO_BSSIZE); name = SvPV(sv, namelen); /* printf("DEBUG-bos-delete-7 %s\n", name); */ code = BOZO_DeleteBnode(self, name); /* printf("DEBUG-bos-delete-8 %d \n", code); */ if (code) { char buffer[240]; if (code == BZBUSY) sprintf(buffer, "AFS::BOS: can't delete running instance '%s'\n", name); else sprintf(buffer, "AFS::BOS: failed to delete instance '%s' (%s)\n", name, em(code)); BSETCODE(code, buffer); goto done; } } } /* for loop */ } } SETCODE(0); /* printf("DEBUG-bos-delete-9 \n"); */ done: RETVAL = (code == 0); /* printf("DEBUG-bos-delete-10 \n"); */ /* if (name) */ /* Safefree(name); */ /* printf("DEBUG-bos-delete-11 \n"); */ } #line 10708 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__BOS_getlog) { dXSARGS; if (items != 2) Perl_croak(aTHX_ "Usage: AFS::BOS::getlog(self, file)"); SP -= items; { AFS__BOS self; char* file = (char *)SvPV(ST(1),PL_na); #line 8735 "AFS.xs" register struct rx_call *tcall; int32 code = 0; char buf, c[255]; int error, num = 0, i = 0; #line 10728 "AFS.c" if (sv_derived_from(ST(0), "AFS::BOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not of type AFS::BOS"); #line 8740 "AFS.xs" { tcall = rx_NewCall(self); code = StartBOZO_GetLog(tcall, file); if (code) { rx_EndCall(tcall, code); goto done; } /* copy data */ error = 0; while (1) { code = rx_Read(tcall, &buf, 1); if (code != 1) { error = EIO; break; } if (buf == 0) break; /* the end delimeter */ /* putchar(buf); */ c[i++] = buf; if (buf == '\n') { XPUSHs(sv_2mortal(newSVpv(c, i))); i = 0; num++; } } code = rx_EndCall(tcall, error); /* fall through into cleanup code */ XSRETURN(num); done: if (code) { char buffer[80]; sprintf(buffer, "AFS::BOS error %d (while reading log)\n", code); BSETCODE(code, buffer); XSRETURN_UNDEF; } } #line 10776 "AFS.c" PUTBACK; return; } } XS(XS_AFS__BOS__start) { dXSARGS; if (items < 1 || items > 2) Perl_croak(aTHX_ "Usage: AFS::BOS::_start(self, object=NULL)"); { AFS__BOS self; SV * object; #line 8787 "AFS.xs" int32 code = 0; #line 10792 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::BOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not of type AFS::BOS"); if (items < 2) object = NULL; else { object = ST(1); } #line 8789 "AFS.xs" { if (object && (! (SvTYPE(SvRV(object)) == SVt_PVAV))) { code = -1; BSETCODE(code, "AFS::BOS: SERVER not an array reference\n"); goto done; } if (object && (SvTYPE(SvRV(object)) == SVt_PVAV)) { AV *av; SV *sv; char *instance; STRLEN namelen; int i, len; av = (AV *) SvRV(object); len = av_len(av); if (len != -1) { for (i = 0; i <= len; i++) { sv = *av_fetch(av, i, 0); if (sv) { /* instance = (char *) safemalloc(BOZO_BSSIZE); */ New(0, instance, BOZO_BSSIZE, char); instance = SvPV(sv, namelen); code = BOZO_SetStatus(self, instance, BSTAT_NORMAL); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to start instance %s (%s)\n", instance, em(code)); BSETCODE(code, buffer); goto done; } /*if (instance) */ /* Safefree(instance); */ } } /* for loop */ } } SETCODE(code); done: RETVAL = (code == 0); } #line 10851 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__BOS__startup) { dXSARGS; if (items < 1 || items > 2) Perl_croak(aTHX_ "Usage: AFS::BOS::_startup(self, object=NULL)"); { AFS__BOS self; SV * object; #line 8839 "AFS.xs" int32 code = 0; #line 10867 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::BOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not of type AFS::BOS"); if (items < 2) object = NULL; else { object = ST(1); } #line 8841 "AFS.xs" { if (object && (! (SvTYPE(SvRV(object)) == SVt_PVAV))) { code = -1; BSETCODE(code, "AFS::BOS: SERVER not an array reference\n"); goto done; } if (object && (SvTYPE(SvRV(object)) == SVt_PVAV)) { AV *av; SV *sv; char *instance; STRLEN namelen; int i, len; av = (AV *) SvRV(object); len = av_len(av); if (len != -1) { for (i = 0; i <= len; i++) { sv = *av_fetch(av, i, 0); if (sv) { /* instance = (char *) safemalloc(BOZO_BSSIZE); */ New(0, instance, BOZO_BSSIZE, char); instance = SvPV(sv, namelen); code = BOZO_SetTStatus(self, instance, BSTAT_NORMAL); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to start instance %s (%s)\n", instance, em(code)); BSETCODE(code, buffer); goto done; } /*if (instance) */ /* Safefree(instance); */ } } /* for loop */ } } else { code = BOZO_StartupAll(self); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to startup servers (%s)\n", em(code)); BSETCODE(code, buffer); goto done; } } SETCODE(code); done: RETVAL = (code == 0); } #line 10935 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__BOS__stop) { dXSARGS; if (items < 1 || items > 3) Perl_croak(aTHX_ "Usage: AFS::BOS::_stop(self, object=NULL, wait=0)"); { AFS__BOS self; SV * object; int wait; #line 8901 "AFS.xs" int32 code = 0; #line 10952 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::BOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not of type AFS::BOS"); if (items < 2) object = NULL; else { object = ST(1); } if (items < 3) wait = 0; else { wait = (int)SvIV(ST(2)); } #line 8903 "AFS.xs" { /* printf("DEBUG-XS-bos-stop-1 \n"); */ if (object && (! (SvTYPE(SvRV(object)) == SVt_PVAV))) { code = -1; BSETCODE(code, "AFS::BOS: SERVER not an array reference\n"); goto done; } /* printf("DEBUG-XS-bos-stop-2 \n"); */ if (object && (SvTYPE(SvRV(object)) == SVt_PVAV)) { AV *av; SV *sv; char *instance; STRLEN namelen; int i, len; /* printf("DEBUG-XS-bos-stop-3 \n"); */ av = (AV *) SvRV(object); len = av_len(av); if (len != -1) { for (i = 0; i <= len; i++) { sv = *av_fetch(av, i, 0); if (sv) { /* instance = (char *) safemalloc(BOZO_BSSIZE); */ New(0, instance, BOZO_BSSIZE, char); instance = SvPV(sv, namelen); /* printf("DEBUG-XS-bos-stop-3-1 %d %s\n", len, instance); */ code = BOZO_SetStatus(self, instance, BSTAT_SHUTDOWN); /* printf("DEBUG-XS-bos-stop-3-2 %d \n", code); */ if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to change stop instance %s (%s)\n", instance, em(code)); BSETCODE(code, buffer); goto done; } /*if (instance) */ /* Safefree(instance); */ } } /* for loop */ } /* printf("DEBUG-XS-bos-stop-4 \n"); */ } /* printf("DEBUG-XS-bos-stop-5 \n"); */ if (wait) { /* printf("DEBUG-XS-bos-stop-5-1 \n"); */ code = BOZO_WaitAll(self); /* printf("DEBUG-XS-bos-stop-5-2 %d \n", code); */ if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: can't wait for processes to shutdown (%s)\n", em(code)); BSETCODE(code, buffer); goto done; } } /* printf("DEBUG-XS-bos-stop-6 \n"); */ SETCODE(code); done: /* printf("DEBUG-XS-bos-stop-7 \n"); */ RETVAL = (code == 0); } #line 11038 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__BOS__shutdown) { dXSARGS; if (items < 1 || items > 3) Perl_croak(aTHX_ "Usage: AFS::BOS::_shutdown(self, object=NULL, wait=0)"); { AFS__BOS self; SV * object; int wait; #line 8975 "AFS.xs" int32 code = 0; #line 11055 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::BOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not of type AFS::BOS"); if (items < 2) object = NULL; else { object = ST(1); } if (items < 3) wait = 0; else { wait = (int)SvIV(ST(2)); } #line 8977 "AFS.xs" { if (object && (! (SvTYPE(SvRV(object)) == SVt_PVAV))) { code = -1; BSETCODE(code, "AFS::BOS: SERVER not an array reference\n"); goto done; } if (object && (SvTYPE(SvRV(object)) == SVt_PVAV)) { AV *av; SV *sv; char *instance; STRLEN namelen; int i, len; av = (AV *) SvRV(object); len = av_len(av); if (len != -1) { for (i = 0; i <= len; i++) { sv = *av_fetch(av, i, 0); if (sv) { /* instance = (char *) safemalloc(BOZO_BSSIZE); */ New(0, instance, BOZO_BSSIZE, char); instance = SvPV(sv, namelen); code = BOZO_SetTStatus(self, instance, BSTAT_SHUTDOWN); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to shutdown instance %s (%s)\n", instance, em(code)); BSETCODE(code, buffer); goto done; } /*if (instance) */ /* Safefree(instance); */ } } /* for loop */ } } else { code = BOZO_ShutdownAll(self); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to shutdown servers (%s)\n", em(code)); BSETCODE(code, buffer); goto done; } } if (wait) { code = BOZO_WaitAll(self); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: can't wait for processes to shutdown (%s)\n", em(code)); BSETCODE(code, buffer); goto done; } } SETCODE(code); done: RETVAL = (code == 0); } #line 11139 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__BOS_setcellname) { dXSARGS; if (items != 2) Perl_croak(aTHX_ "Usage: AFS::BOS::setcellname(self, name)"); { AFS__BOS self; char * name = (char *)SvPV(ST(1),PL_na); #line 9046 "AFS.xs" int32 code = 0; #line 11155 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::BOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not of type AFS::BOS"); #line 9048 "AFS.xs" { not_here("AFS::BOS::setcellname"); code = BOZO_SetCellName(self, name); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to set cell (%s)\n", em(code)); BSETCODE(code, buffer); } } #line 11176 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__BOS_listkeys) { dXSARGS; if (items < 1 || items > 2) Perl_croak(aTHX_ "Usage: AFS::BOS::listkeys(self, showkey=0)"); SP -= items; { AFS__BOS self; int showkey; #line 9066 "AFS.xs" afs_int32 i, kvno, code = 0; struct ktc_encryptionKey tkey; struct bozo_keyInfo keyInfo; int everWorked = 0; char index[5]; HV *list = (HV*)sv_2mortal((SV*)newHV()); #line 11198 "AFS.c" if (sv_derived_from(ST(0), "AFS::BOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not of type AFS::BOS"); if (items < 2) showkey = 0; else { showkey = (int)SvIV(ST(1)); } #line 9073 "AFS.xs" { for (i = 0;; i++) { HV *key = (HV *) sv_2mortal((SV *) newHV()); code = BOZO_ListKeys(self, i, &kvno, &tkey, &keyInfo); if (code) break; everWorked = 1; /* first check if key is returned */ if ((!ka_KeyIsZero((char *) &tkey, sizeof(tkey))) && showkey) { /* ka_PrintBytes ((char *)&tkey, sizeof(tkey)); */ hv_store(key, "key", 3, newSVpv((char *) &tkey, sizeof(tkey)), 0); } else { if (keyInfo.keyCheckSum == 0) { /* shouldn't happen */ /* printf ("key version is %d\n", kvno); */ } else { hv_store(key, "keyCheckSum", 11, newSVuv(keyInfo.keyCheckSum), 0); } } sprintf(index, "%d", kvno); hv_store(list, index, strlen(index), newRV_inc((SV *) (key)), 0); } /* for loop */ if (everWorked) { /* fprintf(stderr, "Keys last changed on %d.\n", keyInfo.mod_sec); */ EXTEND(sp, 2); PUSHs(sv_2mortal(newSViv(keyInfo.mod_sec))); PUSHs(newRV_inc((SV *) (list))); } if (code != BZDOM) { char buffer[240]; sprintf(buffer, "AFS::BOS: %s error encountered while listing keys\n", em(code)); BSETCODE(code, buffer); } else { code = 0; } if (everWorked) { XSRETURN(2); } else { XSRETURN_EMPTY; hv_undef(list); } } #line 11260 "AFS.c" PUTBACK; return; } } XS(XS_AFS__BOS_getrestricted) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::BOS::getrestricted(self)"); { AFS__BOS self; #line 9125 "AFS.xs" #ifdef BOS_RESTRICTED_MODE int32 val, code = 0; #endif #line 11277 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::BOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not of type AFS::BOS"); #line 9129 "AFS.xs" { #ifdef BOS_RESTRICTED_MODE RETVAL = 0; code = BOZO_GetRestrictedMode(self, &val); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to get restricted mode (%s)\n", em(code)); BSETCODE(code, buffer); } RETVAL = val; #else not_here("AFS::BOS::getrestricted"); #endif } #line 11302 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__BOS_setrestricted) { dXSARGS; if (items != 2) Perl_croak(aTHX_ "Usage: AFS::BOS::setrestricted(self, mode)"); { AFS__BOS self; char * mode = (char *)SvPV(ST(1),PL_na); #line 9151 "AFS.xs" #ifdef BOS_RESTRICTED_MODE int32 val, code = 0; #endif #line 11320 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::BOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not of type AFS::BOS"); #line 9155 "AFS.xs" { #ifdef BOS_RESTRICTED_MODE util_GetInt32(mode, &val); code = BOZO_SetRestrictedMode(self, val); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to set restricted mode (%s)\n", em(code)); BSETCODE(code, buffer); } RETVAL = (code == 0); #else not_here("AFS::BOS::setrestricted"); #endif } #line 11345 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__BOS_salvage) { dXSARGS; if (items < 1 || items > 29) Perl_croak(aTHX_ "Usage: AFS::BOS::salvage(self, partition=NULL, volume=NULL, all=0, outName=NULL, showlog=0, parallel=NULL, tmpDir=NULL, orphans=NULL, localauth=0, tmpname=NULL, debug=0, nowrite=0, force=0, oktozap=0, rootfiles=0, salvagedirs=0, blockreads=0, ListResidencies=0, SalvageRemote=0, SalvageArchival=0, IgnoreCheck=0, ForceOnLine=0, UseRootDirACL=0, TraceBadLinkCounts=0, DontAskFS=0, LogLevel=0, rxdebug=0, Residencies=0)"); { AFS__BOS self; char * partition; char * volume; int32 all; char * outName; int32 showlog; char * parallel; char * tmpDir; char * orphans; int32 localauth; char * tmpname; int32 debug; int32 nowrite; int32 force; int32 oktozap; int32 rootfiles; int32 salvagedirs; int32 blockreads; int32 ListResidencies; int32 SalvageRemote; int32 SalvageArchival; int32 IgnoreCheck; int32 ForceOnLine; int32 UseRootDirACL; int32 TraceBadLinkCounts; int32 DontAskFS; int32 LogLevel; int32 rxdebug; int32 Residencies; #line 9204 "AFS.xs" afs_int32 code = 0, rc; char tname[BOZO_BSSIZE]; afs_int32 newID; extern struct ubik_client *cstruct; afs_int32 curGoal, mrafs = 0; char *tp; #line 11393 "AFS.c" int32 RETVAL; dXSTARG; if (sv_derived_from(ST(0), "AFS::BOS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); self = INT2PTR(AFS__BOS,tmp); } else croak("self is not of type AFS::BOS"); if (items < 2) partition = NULL; else { partition = (char *)SvPV(ST(1),PL_na); } if (items < 3) volume = NULL; else { volume = (char *)SvPV(ST(2),PL_na); } if (items < 4) all = 0; else { all = (int32)SvIV(ST(3)); } if (items < 5) outName = NULL; else { outName = (char *)SvPV(ST(4),PL_na); } if (items < 6) showlog = 0; else { showlog = (int32)SvIV(ST(5)); } if (items < 7) parallel = NULL; else { parallel = (char *)SvPV(ST(6),PL_na); } if (items < 8) tmpDir = NULL; else { tmpDir = (char *)SvPV(ST(7),PL_na); } if (items < 9) orphans = NULL; else { orphans = (char *)SvPV(ST(8),PL_na); } if (items < 10) localauth = 0; else { localauth = (int32)SvIV(ST(9)); } if (items < 11) tmpname = NULL; else { tmpname = (char *)SvPV(ST(10),PL_na); } if (items < 12) debug = 0; else { debug = (int32)SvIV(ST(11)); } if (items < 13) nowrite = 0; else { nowrite = (int32)SvIV(ST(12)); } if (items < 14) force = 0; else { force = (int32)SvIV(ST(13)); } if (items < 15) oktozap = 0; else { oktozap = (int32)SvIV(ST(14)); } if (items < 16) rootfiles = 0; else { rootfiles = (int32)SvIV(ST(15)); } if (items < 17) salvagedirs = 0; else { salvagedirs = (int32)SvIV(ST(16)); } if (items < 18) blockreads = 0; else { blockreads = (int32)SvIV(ST(17)); } if (items < 19) ListResidencies = 0; else { ListResidencies = (int32)SvIV(ST(18)); } if (items < 20) SalvageRemote = 0; else { SalvageRemote = (int32)SvIV(ST(19)); } if (items < 21) SalvageArchival = 0; else { SalvageArchival = (int32)SvIV(ST(20)); } if (items < 22) IgnoreCheck = 0; else { IgnoreCheck = (int32)SvIV(ST(21)); } if (items < 23) ForceOnLine = 0; else { ForceOnLine = (int32)SvIV(ST(22)); } if (items < 24) UseRootDirACL = 0; else { UseRootDirACL = (int32)SvIV(ST(23)); } if (items < 25) TraceBadLinkCounts = 0; else { TraceBadLinkCounts = (int32)SvIV(ST(24)); } if (items < 26) DontAskFS = 0; else { DontAskFS = (int32)SvIV(ST(25)); } if (items < 27) LogLevel = 0; else { LogLevel = (int32)SvIV(ST(26)); } if (items < 28) rxdebug = 0; else { rxdebug = (int32)SvIV(ST(27)); } if (items < 29) Residencies = 0; else { Residencies = (int32)SvIV(ST(28)); } #line 9211 "AFS.xs" { not_here("AFS::BOS::salvage"); if (partition && strlen(partition) == 0) partition = NULL; if (volume && strlen(volume) == 0) volume = NULL; if (outName && strlen(outName) == 0) outName = NULL; if (parallel && strlen(parallel) == 0) parallel = NULL; if (tmpDir && strlen(tmpDir) == 0) tmpDir = NULL; if (orphans && strlen(orphans) == 0) orphans = NULL; Zero(&mrafsParm, 1, mrafsParm); /* Find out whether fileserver is running MR-AFS (has a scanner instance) */ /* XXX this should really be done some other way, potentially by RPC */ tp = (char *) &tname; if (code = BOZO_GetInstanceParm(self, "fs", 3, &tp) == 0) mrafs = 1; /* we can do a volume, a partition or the whole thing, but not mixtures * thereof */ if (!partition && volume) { char buffer[80]; sprintf(buffer, "AFS::BOS: must specify partition to salvage individual volume.\n"); BSETCODE(-1, buffer); goto done; } if (showlog && outName) { char buffer[80]; sprintf(buffer, "AFS::BOS: can not specify both -file and -showlog.\n"); BSETCODE(-1, buffer); goto done; } if (all && (partition || volume)) { char buffer[80]; sprintf(buffer, "AFS::BOS: can not specify ALL with other flags.\n"); BSETCODE(-1, buffer); goto done; } if (orphans && mrafs) { char buffer[80]; sprintf(buffer, "Can't specify -orphans for MR-AFS fileserver\n"); BSETCODE(EINVAL, buffer); goto done; } if (mrafs) { if (debug) mrafsParm.Optdebug = 1; if (nowrite) mrafsParm.Optnowrite = 1; if (force) mrafsParm.Optforce = 1; if (oktozap) mrafsParm.Optoktozap = 1; if (rootfiles) mrafsParm.Optrootfiles = 1; if (salvagedirs) mrafsParm.Optsalvagedirs = 1; if (blockreads) mrafsParm.Optblockreads = 1; if (ListResidencies) mrafsParm.OptListResidencies = 1; if (SalvageRemote) mrafsParm.OptSalvageRemote = 1; if (SalvageArchival) mrafsParm.OptSalvageArchival = 1; if (IgnoreCheck) mrafsParm.OptIgnoreCheck = 1; if (ForceOnLine) mrafsParm.OptForceOnLine = 1; if (UseRootDirACL) mrafsParm.OptUseRootDirACL = 1; if (TraceBadLinkCounts) mrafsParm.OptTraceBadLinkCounts = 1; if (DontAskFS) mrafsParm.OptDontAskFS = 1; if (LogLevel) mrafsParm.OptLogLevel = LogLevel; if (rxdebug) mrafsParm.OptRxDebug = 1; if (Residencies) { if (SalvageRemote || SalvageArchival) { char buffer[80]; sprintf(buffer, "Can't specify -Residencies with -SalvageRemote or -SalvageArchival\n"); BSETCODE(EINVAL, buffer); goto done; } code = GetUInt32(Residencies, &mrafsParm.OptResidencies); if (code) { char buffer[80]; sprintf(buffer, "AFS::BOS: '%d' is not a valid residency mask.\n", TraceBadLinkCounts); /* this doesn't really make sense to me AW */ BSETCODE(code, buffer); goto done; } } } else { if (debug || nowrite || force || oktozap || rootfiles || salvagedirs || blockreads || ListResidencies || SalvageRemote || SalvageArchival || IgnoreCheck || ForceOnLine || UseRootDirACL || TraceBadLinkCounts || DontAskFS || LogLevel || rxdebug || Residencies) { char buffer[80]; sprintf(buffer, "Parameter only possible for MR-AFS fileserver.\n"); BSETCODE(-1, buffer); goto done; } } if (all) { /* salvage whole enchilada */ curGoal = GetServerGoal(self, "fs"); if (curGoal == BSTAT_NORMAL) { fprintf(stderr, "AFS::BOS: shutting down fs.\n"); code = BOZO_SetTStatus(self, "fs", BSTAT_SHUTDOWN); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to stop 'fs' (%s)\n", em(code)); BSETCODE(code, buffer); goto done; } code = BOZO_WaitAll(self); /* wait for shutdown to complete */ if (code) { char buffer[80]; sprintf(buffer, "AFS::BOS: failed to wait for file server shutdown, continuing.\n"); BSETCODE(code, buffer); } } /* now do the salvage operation */ /* fprintf(stderr, "Starting salvage of everything.\n"); */ rc = DoSalvage(self, (char *) 0, (char *) 0, outName, showlog, parallel, tmpDir, orphans); if (curGoal == BSTAT_NORMAL) { /* fprintf(stderr, "AFS::BOS: restarting fs.\n"); */ code = BOZO_SetTStatus(self, "fs", BSTAT_NORMAL); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to restart 'fs' (%s)\n", em(code)); BSETCODE(code, buffer); goto done; } } if (rc) { code = rc; goto done; } } else if (!volume) { if (!partition) { char buffer[80]; sprintf(buffer, "AFS::BOS: must specify ALL switch to salvage all partitions.\n"); BSETCODE(-1, buffer); goto done; } if (volutil_GetPartitionID(partition) < 0) { /* can't parse volume ID, so complain before shutting down * file server. */ char buffer[80]; sprintf(buffer, "AFS::BOS: can't interpret %s as partition ID.\n", partition); BSETCODE(-1, buffer); goto done; } curGoal = GetServerGoal(self, "fs"); /* salvage a whole partition (specified by parms[1]) */ if (curGoal == BSTAT_NORMAL) { /* fprintf(stderr, "AFS::BOS: shutting down fs.\n"); */ code = BOZO_SetTStatus(self, "fs", BSTAT_SHUTDOWN); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: can't stop 'fs' (%s)\n", em(code)); BSETCODE(code, buffer); goto done; } code = BOZO_WaitAll(self); /* wait for shutdown to complete */ if (code) { char buffer[80]; sprintf(buffer, "AFS::BOS: failed to wait for file server shutdown, continuing.\n"); BSETCODE(code, buffer); } } /* now do the salvage operation */ /* fprintf(stderr, "Starting salvage of partition %s.\n", partition); */ rc = DoSalvage(self, partition, (char *) 0, outName, showlog, parallel, tmpDir, orphans); if (curGoal == BSTAT_NORMAL) { /* fprintf(stderr, "AFS::BOS: restarting fs.\n"); */ code = BOZO_SetTStatus(self, "fs", BSTAT_NORMAL); if (code) { char buffer[240]; sprintf(buffer, "AFS::BOS: failed to restart 'fs' (%s)\n", em(code)); BSETCODE(code, buffer); goto done; } } if (rc) { code = rc; goto done; } } else { /* salvage individual volume (don't shutdown fs first), just use * single-shot cron bnode. Must leave server running when using this * option, since salvager will ask file server for the volume */ afs_int32 err; const char *confdir; confdir = (localauth ? AFSDIR_SERVER_ETC_DIRPATH : AFSDIR_CLIENT_ETC_DIRPATH); code = vsu_ClientInit( /* noauth */ 1, confdir, tmpname, /* server auth */ 0, &cstruct, (int (*)()) 0); if (code == 0) { newID = vsu_GetVolumeID(volume, cstruct, &err); if (newID == 0) { char buffer[80]; sprintf(buffer, "AFS::BOS: can't interpret %s as volume name or ID\n", volume); BSETCODE(-1, buffer); goto done; } sprintf(tname, "%u", newID); } else { char buffer[80]; sprintf(buffer, "AFS::BOS: can't initialize volume system client (code %d), trying anyway.\n", code); BSETCODE(code, buffer); strncpy(tname, volume, sizeof(tname)); } if (volutil_GetPartitionID(partition) < 0) { /* can't parse volume ID, so complain before shutting down * file server. */ char buffer[80]; sprintf(buffer, "AFS::BOS: can't interpret %s as partition ID.\n", partition); BSETCODE(-1, buffer); goto done; } /* fprintf(stderr, "Starting salvage of volume %d on partition %s.\n", newID, partition); */ rc = DoSalvage(self, partition, tname, outName, showlog, parallel, tmpDir, orphans); if (rc) { code = rc; goto done; } } code = 0; SETCODE(code); done: RETVAL = (code == 0); } #line 11834 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__PTS__new) { dXSARGS; if (items < 0 || items > 3) Perl_croak(aTHX_ "Usage: AFS::PTS::_new(class=0, sec=1, cell=0)"); SP -= items; { char * class; int32 sec; char * cell; AFS__PTS RETVAL; if (items < 1) class = 0; else { class = (char *)SvPV(ST(0),PL_na); } if (items < 2) sec = 1; else { sec = (int32)SvIV(ST(1)); } if (items < 3) cell = 0; else { cell = (char *)SvPV(ST(2),PL_na); } #line 9485 "AFS.xs" { int32 code = -1; AFS__PTS server; server = internal_pts_new(&code, sec, cell); SETCODE(code); ST(0) = sv_newmortal(); if (code == 0) { sv_setref_pv(ST(0), "AFS::PTS", (void *) server); } XSRETURN(1); } #line 11883 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS__DESTROY) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::PTS::_DESTROY(server)"); { AFS__PTS server; int32 RETVAL; dXSTARG; if (SvROK(ST(0))) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not a reference"); #line 9503 "AFS.xs" { int32 code; code = ubik_ClientDestroy(server); SETCODE(code); RETVAL = (code == 0); } #line 11912 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__PTS_id) { dXSARGS; if (items < 2 || items > 3) Perl_croak(aTHX_ "Usage: AFS::PTS::id(server, object, anon=1)"); SP -= items; { AFS__PTS server; SV * object = ST(1); int32 anon; if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); if (items < 3) anon = 1; else { anon = (int32)SvIV(ST(2)); } #line 9518 "AFS.xs" { if (!SvROK(object)) { int32 code, id; char *name; name = (char *) SvPV(object, PL_na); code = internal_pr_id(server, name, &id, anon); ST(0) = sv_newmortal(); SETCODE(code); if (code == 0) sv_setiv(ST(0), id); XSRETURN(1); } else if (SvTYPE(SvRV(object)) == SVt_PVAV) { int32 code, id; int i, len; AV *av; SV *sv; char *name; STRLEN namelen; namelist lnames; idlist lids; av = (AV *) SvRV(object); len = av_len(av); if (len != -1) { lnames.namelist_len = len + 1; lnames.namelist_val = (prname *) safemalloc(PR_MAXNAMELEN * (len + 1)); for (i = 0; i <= len; i++) { sv = *av_fetch(av, i, 0); if (sv) { name = SvPV(sv, namelen); strncpy(lnames.namelist_val[i], name, PR_MAXNAMELEN); } } lids.idlist_len = 0; lids.idlist_val = 0; code = ubik_Call(PR_NameToID, server, 0, &lnames, &lids); SETCODE(code); if (code == 0 && lids.idlist_val) { EXTEND(sp, lids.idlist_len); for (i = 0; i < lids.idlist_len; i++) { id = lids.idlist_val[i]; if (id == ANONYMOUSID && !anon) { PUSHs(sv_newmortal()); } else { PUSHs(sv_2mortal(newSViv(id))); } } safefree(lids.idlist_val); } if (lnames.namelist_val) safefree(lnames.namelist_val); PUTBACK; return; } } else if (SvTYPE(SvRV(object)) == SVt_PVHV) { int32 code, id; int i, len; HV *hv; HE *he; namelist lnames; idlist lids; char *key; I32 keylen; hv = (HV *) SvRV(object); len = 0; hv_iterinit(hv); while (hv_iternext(hv)) len++; if (len != 0) { lnames.namelist_len = len; lnames.namelist_val = (prname *) safemalloc(PR_MAXNAMELEN * len); hv_iterinit(hv); i = 0; while (he = hv_iternext(hv)) { key = hv_iterkey(he, &keylen); strncpy(lnames.namelist_val[i], key, PR_MAXNAMELEN); i++; } lids.idlist_len = 0; lids.idlist_val = 0; code = ubik_Call(PR_NameToID, server, 0, &lnames, &lids); SETCODE(code); if (code == 0 && lids.idlist_val) { hv_iterinit(hv); i = 0; while (he = hv_iternext(hv)) { key = hv_iterkey(he, &keylen); id = lids.idlist_val[i]; if (id == ANONYMOUSID && !anon) { hv_store(hv, key, keylen, newSVsv(&PL_sv_undef), 0); } else { hv_store(hv, key, keylen, newSViv(id), 0); } i++; } safefree(lids.idlist_val); } if (lnames.namelist_val) safefree(lnames.namelist_val); } if (code == 0) { ST(0) = sv_2mortal(newRV_inc((SV *) hv)); } else { ST(0) = sv_newmortal(); } XSRETURN(1); } else { croak("object is not a scaler, ARRAY reference, or HASH reference"); } } #line 12063 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_PR_NameToID) { dXSARGS; if (items != 2) Perl_croak(aTHX_ "Usage: AFS::PTS::PR_NameToID(server, object)"); SP -= items; { AFS__PTS server; SV * object = ST(1); if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 9645 "AFS.xs" { int32 code, id; int i, len; AV *av; SV *sv; char *name; STRLEN namelen; namelist lnames; idlist lids; if (!SvROK(object) || SvTYPE(SvRV(object)) != SVt_PVAV) { croak("object is not an ARRAY reference"); } av = (AV *) SvRV(object); len = av_len(av); if (len != -1) { lnames.namelist_len = len + 1; lnames.namelist_val = (prname *) safemalloc(PR_MAXNAMELEN * (len + 1)); for (i = 0; i <= len; i++) { sv = *av_fetch(av, i, 0); if (sv) { name = SvPV(sv, namelen); strncpy(lnames.namelist_val[i], name, PR_MAXNAMELEN); } } lids.idlist_len = 0; lids.idlist_val = 0; code = ubik_Call(PR_NameToID, server, 0, &lnames, &lids); SETCODE(code); if (code == 0 && lids.idlist_val) { EXTEND(sp, lids.idlist_len); for (i = 0; i < lids.idlist_len; i++) { id = lids.idlist_val[i]; PUSHs(sv_2mortal(newSViv(id))); } safefree(lids.idlist_val); } if (lnames.namelist_val) safefree(lnames.namelist_val); PUTBACK; return; } } #line 12131 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_name) { dXSARGS; if (items < 2 || items > 3) Perl_croak(aTHX_ "Usage: AFS::PTS::name(server, object, anon=1)"); SP -= items; { AFS__PTS server; SV * object = ST(1); int32 anon; if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); if (items < 3) anon = 1; else { anon = (int32)SvIV(ST(2)); } #line 9697 "AFS.xs" { if (!SvROK(object)) { int32 code, id; char name[PR_MAXNAMELEN]; id = SvIV(object); code = internal_pr_name(server, id, name); SETCODE(code); ST(0) = sv_newmortal(); if (code == 0) { if (!anon && check_name_for_id(name, id)) { /* return undef */ } else { sv_setpv(ST(0), name); } } XSRETURN(1); } else if (SvTYPE(SvRV(object)) == SVt_PVAV) { int32 code; int i, len; AV *av; SV *sv; char *name; namelist lnames; idlist lids; av = (AV *) SvRV(object); len = av_len(av); if (len != -1) { lids.idlist_len = len + 1; lids.idlist_val = (int32 *) safemalloc(sizeof(int32) * (len + 1)); lnames.namelist_len = 0; lnames.namelist_val = 0; for (i = 0; i <= len; i++) { sv = *av_fetch(av, i, 0); if (sv) { lids.idlist_val[i] = SvIV(sv); } } code = ubik_Call(PR_IDToName, server, 0, &lids, &lnames); SETCODE(code); if (code == 0 && lnames.namelist_val) { EXTEND(sp, lnames.namelist_len); for (i = 0; i < lnames.namelist_len; i++) { name = lnames.namelist_val[i]; if (!anon && check_name_for_id(name, lids.idlist_val[i])) { PUSHs(sv_newmortal()); } else { PUSHs(sv_2mortal(newSVpv(name, strlen(name)))); } } safefree(lnames.namelist_val); } if (lids.idlist_val) safefree(lids.idlist_val); PUTBACK; return; } } else if (SvTYPE(SvRV(object)) == SVt_PVHV) { int32 code; int i, len; HV *hv; SV *sv; HE *he; char *name; namelist lnames; idlist lids; char *key; I32 keylen; hv = (HV *) SvRV(object); len = 0; hv_iterinit(hv); while (hv_iternext(hv)) len++; if (len != 0) { lids.idlist_len = len; lids.idlist_val = (int32 *) safemalloc(sizeof(int32) * len); lnames.namelist_len = 0; lnames.namelist_val = 0; hv_iterinit(hv); i = 0; sv = sv_newmortal(); while (he = hv_iternext(hv)) { key = hv_iterkey(he, &keylen); sv_setpvn(sv, key, keylen); lids.idlist_val[i] = SvIV(sv); i++; } code = ubik_Call(PR_IDToName, server, 0, &lids, &lnames); SETCODE(code); if (code == 0 && lnames.namelist_val) { hv_iterinit(hv); i = 0; while (he = hv_iternext(hv)) { key = hv_iterkey(he, &keylen); name = lnames.namelist_val[i]; if (!anon && check_name_for_id(name, lids.idlist_val[i])) { hv_store(hv, key, keylen, newSVsv(&PL_sv_undef), 0); } else { hv_store(hv, key, keylen, newSVpv(name, strlen(name)), 0); } i++; } safefree(lnames.namelist_val); } if (lids.idlist_val) safefree(lids.idlist_val); } if (code == 0) { ST(0) = sv_2mortal(newRV_inc((SV *) hv)); } else { ST(0) = sv_newmortal(); } XSRETURN(1); } else { croak("object is not a scaler, ARRAY reference, or HASH reference"); } } #line 12289 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_PR_IDToName) { dXSARGS; if (items != 2) Perl_croak(aTHX_ "Usage: AFS::PTS::PR_IDToName(server, object)"); SP -= items; { AFS__PTS server; SV * object = ST(1); if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 9831 "AFS.xs" { int32 code; int i, len; AV *av; SV *sv; char *name; namelist lnames; idlist lids; if (!SvROK(object) || SvTYPE(SvRV(object)) != SVt_PVAV) { croak("object is not an ARRAY reference"); } av = (AV *) SvRV(object); len = av_len(av); if (len != -1) { lids.idlist_len = len + 1; lids.idlist_val = (int32 *) safemalloc(sizeof(int32) * (len + 1)); lnames.namelist_len = 0; lnames.namelist_val = 0; for (i = 0; i <= len; i++) { sv = *av_fetch(av, i, 0); if (sv) { lids.idlist_val[i] = SvIV(sv); } } code = ubik_Call(PR_IDToName, server, 0, &lids, &lnames); SETCODE(code); if (code == 0 && lnames.namelist_val) { EXTEND(sp, lnames.namelist_len); for (i = 0; i < lnames.namelist_len; i++) { name = lnames.namelist_val[i]; PUSHs(sv_2mortal(newSVpv(name, strlen(name)))); } safefree(lnames.namelist_val); } if (lids.idlist_val) safefree(lids.idlist_val); PUTBACK; return; } } #line 12354 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_members) { dXSARGS; if (items < 2 || items > 4) Perl_croak(aTHX_ "Usage: AFS::PTS::members(server, name, convertids=1, over=0)"); SP -= items; { AFS__PTS server; char * name = (char *)SvPV(ST(1),PL_na); int32 convertids; int32 over; if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); if (items < 3) convertids = 1; else { convertids = (int32)SvIV(ST(2)); } if (items < 4) over = 0; else { over = (int32)SvIV(ST(3)); } #line 9881 "AFS.xs" { int32 code, wentover, id; int i; prlist list; code = internal_pr_id(server, name, &id, 0); if (code == 0) { list.prlist_val = 0; list.prlist_len = 0; code = ubik_Call(PR_ListElements, server, 0, id, &list, &wentover); if (items == 4) sv_setiv(ST(3), (IV) wentover); if (code == 0) { if (convertids) { namelist lnames; lnames.namelist_len = 0; lnames.namelist_val = 0; code = ubik_Call(PR_IDToName, server, 0, &list, &lnames); if (code == 0 && lnames.namelist_val) { EXTEND(sp, lnames.namelist_len); for (i = 0; i < lnames.namelist_len; i++) { name = lnames.namelist_val[i]; PUSHs(sv_2mortal(newSVpv(name, strlen(name)))); } safefree(lnames.namelist_val); } } else { EXTEND(sp, list.prlist_len); for (i = 0; i < list.prlist_len; i++) { PUSHs(sv_2mortal(newSViv(list.prlist_val[i]))); } } } if (list.prlist_val) safefree(list.prlist_val); } else { if (items == 4) sv_setiv(ST(3), (IV) 0); } SETCODE(code); } #line 12435 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_PR_ListElements) { dXSARGS; if (items != 3) Perl_croak(aTHX_ "Usage: AFS::PTS::PR_ListElements(server, id, over)"); SP -= items; { AFS__PTS server; int32 id = (int32)SvIV(ST(1)); int32 over = (int32)SvIV(ST(2)); if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 9932 "AFS.xs" { int32 code, wentover; int i; prlist list; list.prlist_val = 0; list.prlist_len = 0; code = ubik_Call(PR_ListElements, server, 0, id, &list, &wentover); sv_setiv(ST(2), (IV) wentover); if (code == 0) { EXTEND(sp, list.prlist_len); for (i = 0; i < list.prlist_len; i++) { PUSHs(sv_2mortal(newSViv(list.prlist_val[i]))); } } if (list.prlist_val) safefree(list.prlist_val); SETCODE(code); } #line 12478 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_getcps) { dXSARGS; if (items < 2 || items > 4) Perl_croak(aTHX_ "Usage: AFS::PTS::getcps(server, name, convertids=1, over=0)"); SP -= items; { AFS__PTS server; char * name = (char *)SvPV(ST(1),PL_na); int32 convertids; int32 over; if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); if (items < 3) convertids = 1; else { convertids = (int32)SvIV(ST(2)); } if (items < 4) over = 0; else { over = (int32)SvIV(ST(3)); } #line 9959 "AFS.xs" { int32 code, wentover, id; int i; prlist list; code = internal_pr_id(server, name, &id, 0); if (code == 0) { list.prlist_val = 0; list.prlist_len = 0; code = ubik_Call(PR_GetCPS, server, 0, id, &list, &wentover); if (items == 4) sv_setiv(ST(3), (IV) wentover); if (code == 0) { if (convertids) { namelist lnames; lnames.namelist_len = 0; lnames.namelist_val = 0; code = ubik_Call(PR_IDToName, server, 0, &list, &lnames); if (code == 0 && lnames.namelist_val) { EXTEND(sp, lnames.namelist_len); for (i = 0; i < lnames.namelist_len; i++) { name = lnames.namelist_val[i]; PUSHs(sv_2mortal(newSVpv(name, strlen(name)))); } safefree(lnames.namelist_val); } } else { EXTEND(sp, list.prlist_len); for (i = 0; i < list.prlist_len; i++) { PUSHs(sv_2mortal(newSViv(list.prlist_val[i]))); } } } if (list.prlist_val) safefree(list.prlist_val); } else { if (items == 4) sv_setiv(ST(3), (IV) 0); } SETCODE(code); } #line 12559 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_PR_GetCPS) { dXSARGS; if (items != 3) Perl_croak(aTHX_ "Usage: AFS::PTS::PR_GetCPS(server, id, over)"); SP -= items; { AFS__PTS server; int32 id = (int32)SvIV(ST(1)); int32 over = (int32)SvIV(ST(2)); if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 10010 "AFS.xs" { int32 code, wentover; int i; prlist list; list.prlist_val = 0; list.prlist_len = 0; code = ubik_Call(PR_GetCPS, server, 0, id, &list, &wentover); sv_setiv(ST(2), (IV) wentover); if (code == 0) { EXTEND(sp, list.prlist_len); for (i = 0; i < list.prlist_len; i++) { PUSHs(sv_2mortal(newSViv(list.prlist_val[i]))); } } if (list.prlist_val) safefree(list.prlist_val); SETCODE(code); } #line 12602 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_owned) { dXSARGS; if (items < 2 || items > 4) Perl_croak(aTHX_ "Usage: AFS::PTS::owned(server, name, convertids=1, over=0)"); SP -= items; { AFS__PTS server; char * name = (char *)SvPV(ST(1),PL_na); int32 convertids; int32 over; if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); if (items < 3) convertids = 1; else { convertids = (int32)SvIV(ST(2)); } if (items < 4) over = 0; else { over = (int32)SvIV(ST(3)); } #line 10037 "AFS.xs" { int32 code, wentover, id; int i; prlist list; code = internal_pr_id(server, name, &id, 0); if (code == 0) { list.prlist_val = 0; list.prlist_len = 0; code = ubik_Call(PR_ListOwned, server, 0, id, &list, &wentover); if (items == 4) sv_setiv(ST(3), (IV) wentover); if (code == 0) { if (convertids) { namelist lnames; lnames.namelist_len = 0; lnames.namelist_val = 0; code = ubik_Call(PR_IDToName, server, 0, &list, &lnames); if (code == 0 && lnames.namelist_val) { EXTEND(sp, lnames.namelist_len); for (i = 0; i < lnames.namelist_len; i++) { name = lnames.namelist_val[i]; PUSHs(sv_2mortal(newSVpv(name, strlen(name)))); } safefree(lnames.namelist_val); } } else { EXTEND(sp, list.prlist_len); for (i = 0; i < list.prlist_len; i++) { PUSHs(sv_2mortal(newSViv(list.prlist_val[i]))); } } } if (list.prlist_val) safefree(list.prlist_val); } else { if (items == 4) sv_setiv(ST(3), (IV) 0); } SETCODE(code); } #line 12683 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_PR_ListOwned) { dXSARGS; if (items != 3) Perl_croak(aTHX_ "Usage: AFS::PTS::PR_ListOwned(server, id, over)"); SP -= items; { AFS__PTS server; int32 id = (int32)SvIV(ST(1)); int32 over = (int32)SvIV(ST(2)); if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 10088 "AFS.xs" { int32 code, wentover; int i; prlist list; list.prlist_val = 0; list.prlist_len = 0; code = ubik_Call(PR_ListOwned, server, 0, id, &list, &wentover); sv_setiv(ST(2), (IV) wentover); if (code == 0) { EXTEND(sp, list.prlist_len); for (i = 0; i < list.prlist_len; i++) { PUSHs(sv_2mortal(newSViv(list.prlist_val[i]))); } } if (list.prlist_val) safefree(list.prlist_val); SETCODE(code); } #line 12726 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_createuser) { dXSARGS; if (items < 2 || items > 3) Perl_croak(aTHX_ "Usage: AFS::PTS::createuser(server, name, id=0)"); { AFS__PTS server; char * name = (char *)SvPV(ST(1),PL_na); int32 id; if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); if (items < 3) id = 0; else { id = (int32)SvIV(ST(2)); } #line 10114 "AFS.xs" { int32 code; if (id) { code = ubik_Call(PR_INewEntry, server, 0, name, id, 0); } else { code = ubik_Call(PR_NewEntry, server, 0, name, PRUSER, 0, &id); } SETCODE(code); ST(0) = sv_newmortal(); if (code == 0) { sv_setiv(ST(0), id); } } #line 12771 "AFS.c" } XSRETURN(1); } XS(XS_AFS__PTS_PR_NewEntry) { dXSARGS; if (items != 4) Perl_croak(aTHX_ "Usage: AFS::PTS::PR_NewEntry(server, name, flag, oid)"); { AFS__PTS server; char * name = (char *)SvPV(ST(1),PL_na); int32 flag = (int32)SvIV(ST(2)); int32 oid = (int32)SvIV(ST(3)); if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 10138 "AFS.xs" { int32 code, id; code = ubik_Call(PR_NewEntry, server, 0, name, flag, oid, &id); SETCODE(code); ST(0) = sv_newmortal(); if (code == 0) { sv_setiv(ST(0), id); } } #line 12804 "AFS.c" } XSRETURN(1); } XS(XS_AFS__PTS_PR_INewEntry) { dXSARGS; if (items != 4) Perl_croak(aTHX_ "Usage: AFS::PTS::PR_INewEntry(server, name, id, oid)"); { AFS__PTS server; char * name = (char *)SvPV(ST(1),PL_na); int32 id = (int32)SvIV(ST(2)); int32 oid = (int32)SvIV(ST(3)); if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 10156 "AFS.xs" { int32 code; code = ubik_Call(PR_INewEntry, server, 0, name, id, oid); SETCODE(code); ST(0) = sv_newmortal(); if (code == 0) { sv_setiv(ST(0), id); } } #line 12837 "AFS.c" } XSRETURN(1); } XS(XS_AFS__PTS_creategroup) { dXSARGS; if (items < 2 || items > 4) Perl_croak(aTHX_ "Usage: AFS::PTS::creategroup(server, name, owner=0, id=0)"); { AFS__PTS server; char * name = (char *)SvPV(ST(1),PL_na); char * owner; int32 id; if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); if (items < 3) owner = 0; else { owner = (char *)SvPV(ST(2),PL_na); } if (items < 4) id = 0; else { id = (int32)SvIV(ST(3)); } #line 10174 "AFS.xs" { int32 code = 0; int32 oid = 0; if (owner && strcmp(owner, "0") && strcmp(owner, "")) { code = internal_pr_id(server, owner, &oid, 0); } if (code == 0) { if (id) code = ubik_Call(PR_INewEntry, server, 0, name, id, oid); else code = ubik_Call(PR_NewEntry, server, 0, name, PRGRP, oid, &id); } SETCODE(code); ST(0) = sv_newmortal(); if (code == 0) { sv_setiv(ST(0), id); } } #line 12892 "AFS.c" } XSRETURN(1); } XS(XS_AFS__PTS_listentry) { dXSARGS; if (items < 2 || items > 4) Perl_croak(aTHX_ "Usage: AFS::PTS::listentry(server, name, lookupids=1, convertflags=1)"); SP -= items; { AFS__PTS server; char * name = (char *)SvPV(ST(1),PL_na); int32 lookupids; int32 convertflags; if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); if (items < 3) lookupids = 1; else { lookupids = (int32)SvIV(ST(2)); } if (items < 4) convertflags = 1; else { convertflags = (int32)SvIV(ST(3)); } #line 10202 "AFS.xs" { int32 code; int32 id; struct prcheckentry entry; code = internal_pr_id(server, name, &id, 0); if (code == 0) code = ubik_Call(PR_ListEntry, server, 0, id, &entry); SETCODE(code); if (code == 0) { HV *stats; stats = newHV(); parse_prcheckentry(server, stats, &entry, lookupids, convertflags); EXTEND(sp, 1); PUSHs(sv_2mortal(newRV_noinc((SV *) stats))); } } #line 12947 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_PR_ListEntry) { dXSARGS; if (items != 2) Perl_croak(aTHX_ "Usage: AFS::PTS::PR_ListEntry(server, id)"); SP -= items; { AFS__PTS server; int32 id = (int32)SvIV(ST(1)); if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 10227 "AFS.xs" { int32 code; struct prcheckentry entry; code = ubik_Call(PR_ListEntry, server, 0, id, &entry); SETCODE(code); if (code == 0) { HV *stats; stats = newHV(); parse_prcheckentry(server, stats, &entry, 0, 0); EXTEND(sp, 1); PUSHs(sv_2mortal(newRV_noinc((SV *) stats))); } } #line 12986 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_dumpentry) { dXSARGS; if (items < 2 || items > 4) Perl_croak(aTHX_ "Usage: AFS::PTS::dumpentry(server, pos, lookupids=1, convertflags=1)"); SP -= items; { AFS__PTS server; int32 pos = (int32)SvIV(ST(1)); int32 lookupids; int32 convertflags; if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); if (items < 3) lookupids = 1; else { lookupids = (int32)SvIV(ST(2)); } if (items < 4) convertflags = 1; else { convertflags = (int32)SvIV(ST(3)); } #line 10251 "AFS.xs" { int32 code; struct prdebugentry entry; code = ubik_Call(PR_DumpEntry, server, 0, pos, &entry); SETCODE(code); if (code == 0) { HV *stats; stats = newHV(); parse_prdebugentry(server, stats, &entry, lookupids, convertflags); EXTEND(sp, 1); PUSHs(sv_2mortal(newRV_noinc((SV *) stats))); } } #line 13039 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_PR_DumpEntry) { dXSARGS; if (items != 2) Perl_croak(aTHX_ "Usage: AFS::PTS::PR_DumpEntry(server, pos)"); SP -= items; { AFS__PTS server; int32 pos = (int32)SvIV(ST(1)); if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 10273 "AFS.xs" { int32 code; struct prdebugentry entry; code = ubik_Call(PR_DumpEntry, server, 0, pos, &entry); SETCODE(code); if (code == 0) { HV *stats; stats = newHV(); parse_prdebugentry(server, stats, &entry, 0, 0); EXTEND(sp, 1); PUSHs(sv_2mortal(newRV_noinc((SV *) stats))); } } #line 13078 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_rename) { dXSARGS; if (items != 3) Perl_croak(aTHX_ "Usage: AFS::PTS::rename(server, name, newname)"); SP -= items; { AFS__PTS server; char * name = (char *)SvPV(ST(1),PL_na); char * newname = (char *)SvPV(ST(2),PL_na); if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 10296 "AFS.xs" { int32 code; int32 id; code = internal_pr_id(server, name, &id, 0); if (code == 0) code = ubik_Call(PR_ChangeEntry, server, 0, id, newname, 0, 0); SETCODE(code); ST(0) = sv_2mortal(newSViv(code == 0)); XSRETURN(1); } #line 13115 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_chown) { dXSARGS; if (items != 3) Perl_croak(aTHX_ "Usage: AFS::PTS::chown(server, name, owner)"); SP -= items; { AFS__PTS server; char * name = (char *)SvPV(ST(1),PL_na); char * owner = (char *)SvPV(ST(2),PL_na); if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 10316 "AFS.xs" { int32 code; int32 id, oid; code = internal_pr_id(server, name, &id, 0); if (code == 0) code = internal_pr_id(server, owner, &oid, 0); if (code == 0) code = ubik_Call(PR_ChangeEntry, server, 0, id, "", oid, 0); SETCODE(code); ST(0) = sv_2mortal(newSViv(code == 0)); XSRETURN(1); } #line 13152 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_chid) { dXSARGS; if (items != 3) Perl_croak(aTHX_ "Usage: AFS::PTS::chid(server, name, newid)"); SP -= items; { AFS__PTS server; char * name = (char *)SvPV(ST(1),PL_na); int32 newid = (int32)SvIV(ST(2)); if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 10336 "AFS.xs" { int32 code; int32 id; code = internal_pr_id(server, name, &id, 0); if (code == 0) code = ubik_Call(PR_ChangeEntry, server, 0, id, "", 0, newid); SETCODE(code); ST(0) = sv_2mortal(newSViv(code == 0)); XSRETURN(1); } #line 13187 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_PR_ChangeEntry) { dXSARGS; if (items != 5) Perl_croak(aTHX_ "Usage: AFS::PTS::PR_ChangeEntry(server, id, name, oid, newid)"); SP -= items; { AFS__PTS server; int32 id = (int32)SvIV(ST(1)); char * name = (char *)SvPV(ST(2),PL_na); int32 oid = (int32)SvIV(ST(3)); int32 newid = (int32)SvIV(ST(4)); if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 10356 "AFS.xs" { int32 code; if (name && !*name) name = NULL; code = ubik_Call(PR_ChangeEntry, server, 0, id, name, oid, newid); SETCODE(code); ST(0) = sv_2mortal(newSViv(code == 0)); XSRETURN(1); } #line 13225 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_adduser) { dXSARGS; if (items != 3) Perl_croak(aTHX_ "Usage: AFS::PTS::adduser(server, name, group)"); SP -= items; { AFS__PTS server; char * name = (char *)SvPV(ST(1),PL_na); char * group = (char *)SvPV(ST(2),PL_na); if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 10375 "AFS.xs" { int32 code, id, gid; code = internal_pr_id(server, name, &id, 0); if (code == 0) code = internal_pr_id(server, group, &gid, 0); if (code == 0) code = ubik_Call(PR_AddToGroup, server, 0, id, gid); SETCODE(code); ST(0) = sv_newmortal(); sv_setiv(ST(0), (code == 0)); XSRETURN(1); } #line 13263 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_PR_AddToGroup) { dXSARGS; if (items != 3) Perl_croak(aTHX_ "Usage: AFS::PTS::PR_AddToGroup(server, uid, gid)"); SP -= items; { AFS__PTS server; int32 uid = (int32)SvIV(ST(1)); int32 gid = (int32)SvIV(ST(2)); if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 10396 "AFS.xs" { int32 code; code = ubik_Call(PR_AddToGroup, server, 0, uid, gid); SETCODE(code); ST(0) = sv_newmortal(); sv_setiv(ST(0), (code == 0)); XSRETURN(1); } #line 13295 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_removeuser) { dXSARGS; if (items != 3) Perl_croak(aTHX_ "Usage: AFS::PTS::removeuser(server, name, group)"); SP -= items; { AFS__PTS server; char * name = (char *)SvPV(ST(1),PL_na); char * group = (char *)SvPV(ST(2),PL_na); if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 10411 "AFS.xs" { int32 code, id, gid; code = internal_pr_id(server, name, &id, 0); if (code == 0) code = internal_pr_id(server, group, &gid, 0); if (code == 0) code = ubik_Call(PR_RemoveFromGroup, server, 0, id, gid); SETCODE(code); ST(0) = sv_newmortal(); sv_setiv(ST(0), (code == 0)); XSRETURN(1); } #line 13333 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_PR_RemoveFromGroup) { dXSARGS; if (items != 3) Perl_croak(aTHX_ "Usage: AFS::PTS::PR_RemoveFromGroup(server, uid, gid)"); SP -= items; { AFS__PTS server; int uid = (int)SvIV(ST(1)); int gid = (int)SvIV(ST(2)); if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 10432 "AFS.xs" { int32 code; code = ubik_Call(PR_RemoveFromGroup, server, 0, uid, gid); SETCODE(code); ST(0) = sv_newmortal(); sv_setiv(ST(0), (code == 0)); XSRETURN(1); } #line 13366 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_delete) { dXSARGS; if (items != 2) Perl_croak(aTHX_ "Usage: AFS::PTS::delete(server, name)"); SP -= items; { AFS__PTS server; char * name = (char *)SvPV(ST(1),PL_na); if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 10447 "AFS.xs" { int32 code, id; code = internal_pr_id(server, name, &id, 0); if (code == 0) code = ubik_Call(PR_Delete, server, 0, id); SETCODE(code); ST(0) = sv_newmortal(); sv_setiv(ST(0), (code == 0)); XSRETURN(1); } #line 13400 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_PR_Delete) { dXSARGS; if (items != 2) Perl_croak(aTHX_ "Usage: AFS::PTS::PR_Delete(server, id)"); SP -= items; { AFS__PTS server; int32 id = (int32)SvIV(ST(1)); if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 10464 "AFS.xs" { int32 code; code = ubik_Call(PR_Delete, server, 0, id); SETCODE(code); ST(0) = sv_newmortal(); sv_setiv(ST(0), (code == 0)); XSRETURN(1); } #line 13432 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_whereisit) { dXSARGS; if (items != 2) Perl_croak(aTHX_ "Usage: AFS::PTS::whereisit(server, name)"); SP -= items; { AFS__PTS server; char * name = (char *)SvPV(ST(1),PL_na); if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 10479 "AFS.xs" { int32 code, id, pos; code = internal_pr_id(server, name, &id, 0); if (code == 0) code = ubik_Call(PR_WhereIsIt, server, 0, id, &pos); SETCODE(code); ST(0) = sv_newmortal(); if (code == 0) sv_setiv(ST(0), pos); XSRETURN(1); } #line 13467 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_PR_WhereIsIt) { dXSARGS; if (items != 2) Perl_croak(aTHX_ "Usage: AFS::PTS::PR_WhereIsIt(server, id)"); SP -= items; { AFS__PTS server; int32 id = (int32)SvIV(ST(1)); if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 10497 "AFS.xs" { int32 code,pos; code = ubik_Call(PR_WhereIsIt, server, 0, id, &pos); SETCODE(code); ST(0) = sv_newmortal(); if (code == 0) sv_setiv(ST(0), pos); XSRETURN(1); } #line 13500 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_listmax) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::PTS::listmax(server)"); SP -= items; { AFS__PTS server; if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 10512 "AFS.xs" { int32 code, uid, gid; code = ubik_Call(PR_ListMax, server, 0, &uid, &gid); SETCODE(code); if (code == 0) { EXTEND(sp, 2); PUSHs(sv_2mortal(newSViv(uid))); PUSHs(sv_2mortal(newSViv(gid))); } } #line 13533 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_PR_ListMax) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::PTS::PR_ListMax(server)"); SP -= items; { AFS__PTS server; if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 10528 "AFS.xs" { int32 code, uid, gid; code = ubik_Call(PR_ListMax, server, 0, &uid, &gid); SETCODE(code); if (code == 0) { EXTEND(sp, 2); PUSHs(sv_2mortal(newSViv(uid))); PUSHs(sv_2mortal(newSViv(gid))); } } #line 13566 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_setmax) { dXSARGS; if (items < 2 || items > 3) Perl_croak(aTHX_ "Usage: AFS::PTS::setmax(server, id, isgroup=0)"); SP -= items; { AFS__PTS server; int32 id = (int32)SvIV(ST(1)); int32 isgroup; if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); if (items < 3) isgroup = 0; else { isgroup = (int32)SvIV(ST(2)); } #line 10546 "AFS.xs" { int32 code, flag; flag = 0; if (isgroup) flag |= PRGRP; code = ubik_Call(PR_SetMax, server, 0, id, flag); SETCODE(code); ST(0) = sv_newmortal(); sv_setiv(ST(0), (code == 0)); XSRETURN(1); } #line 13608 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_PR_SetMax) { dXSARGS; if (items != 3) Perl_croak(aTHX_ "Usage: AFS::PTS::PR_SetMax(server, id, gflag)"); SP -= items; { AFS__PTS server; int32 id = (int32)SvIV(ST(1)); int32 gflag = (int32)SvIV(ST(2)); if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 10565 "AFS.xs" { int32 code; code = ubik_Call(PR_SetMax, server, 0, id, gflag); SETCODE(code); ST(0) = sv_newmortal(); sv_setiv(ST(0), (code == 0)); XSRETURN(1); } #line 13641 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_setgroupquota) { dXSARGS; if (items != 3) Perl_croak(aTHX_ "Usage: AFS::PTS::setgroupquota(server, name, ngroups)"); SP -= items; { AFS__PTS server; char * name = (char *)SvPV(ST(1),PL_na); int32 ngroups = (int32)SvIV(ST(2)); if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 10581 "AFS.xs" { int32 code, id, mask; code = internal_pr_id(server, name, &id, 0); if (code == 0) { mask = PR_SF_NGROUPS; code = ubik_Call(PR_SetFieldsEntry, server, 0, id, mask, 0, ngroups, 0, 0, 0); } SETCODE(code); ST(0) = sv_newmortal(); sv_setiv(ST(0), (code == 0)); XSRETURN(1); } #line 13679 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_PR_SetFieldsEntry) { dXSARGS; if (items != 8) Perl_croak(aTHX_ "Usage: AFS::PTS::PR_SetFieldsEntry(server, id, mask, flags, ngroups, nusers, spare1, spare2)"); SP -= items; { AFS__PTS server; int32 id = (int32)SvIV(ST(1)); int32 mask = (int32)SvIV(ST(2)); int32 flags = (int32)SvIV(ST(3)); int32 ngroups = (int32)SvIV(ST(4)); int32 nusers = (int32)SvIV(ST(5)); int32 spare1 = (int32)SvIV(ST(6)); int32 spare2 = (int32)SvIV(ST(7)); if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 10607 "AFS.xs" { int32 code; code = ubik_Call(PR_SetFieldsEntry, server, 0, id, mask, flags, ngroups, nusers, spare1, spare2); SETCODE(code); ST(0) = sv_newmortal(); sv_setiv(ST(0), (code == 0)); XSRETURN(1); } #line 13718 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_setaccess) { dXSARGS; if (items != 3) Perl_croak(aTHX_ "Usage: AFS::PTS::setaccess(server, name, access)"); SP -= items; { AFS__PTS server; char * name = (char *)SvPV(ST(1),PL_na); char * access = (char *)SvPV(ST(2),PL_na); if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 10624 "AFS.xs" { int32 code, id, flags, mask; code = internal_pr_id(server, name, &id, 0); if (code == 0) code = parse_pts_setfields(access, &flags); if (code == 0) { mask = PR_SF_ALLBITS; code = ubik_Call(PR_SetFieldsEntry, server, 0, id, mask, flags, 0, 0, 0, 0); } SETCODE(code); ST(0) = sv_newmortal(); sv_setiv(ST(0), (code == 0)); XSRETURN(1); } #line 13757 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_ismember) { dXSARGS; if (items != 3) Perl_croak(aTHX_ "Usage: AFS::PTS::ismember(server, name, group)"); SP -= items; { AFS__PTS server; char * name = (char *)SvPV(ST(1),PL_na); char * group = (char *)SvPV(ST(2),PL_na); if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 10646 "AFS.xs" { int32 code, id, gid, flag; code = internal_pr_id(server, name, &id, 0); if (code == 0) code = internal_pr_id(server, group, &gid, 0); if (code == 0) code = ubik_Call(PR_IsAMemberOf, server, 0, id, gid, &flag); SETCODE(code); ST(0) = sv_newmortal(); if (code == 0) sv_setiv(ST(0), (flag != 0)); XSRETURN(1); } #line 13796 "AFS.c" PUTBACK; return; } } XS(XS_AFS__PTS_PR_IsAMemberOf) { dXSARGS; if (items != 3) Perl_croak(aTHX_ "Usage: AFS::PTS::PR_IsAMemberOf(server, uid, gid)"); SP -= items; { AFS__PTS server; int32 uid = (int32)SvIV(ST(1)); int32 gid = (int32)SvIV(ST(2)); if (sv_derived_from(ST(0), "AFS::PTS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__PTS,tmp); } else croak("server is not of type AFS::PTS"); #line 10668 "AFS.xs" { int32 code, flag; code = ubik_Call(PR_IsAMemberOf, server, 0, uid, gid, &flag); SETCODE(code); ST(0) = sv_newmortal(); if (code == 0) sv_setiv(ST(0), (flag != 0)); XSRETURN(1); } #line 13830 "AFS.c" PUTBACK; return; } } XS(XS_AFS__KAS__DESTROY) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::KAS::_DESTROY(server)"); { AFS__KAS server; int32 RETVAL; dXSTARG; if (SvROK(ST(0))) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__KAS,tmp); } else croak("server is not a reference"); #line 10686 "AFS.xs" { int32 code; code = ubik_ClientDestroy(server); SETCODE(code); RETVAL = (code == 0); } #line 13859 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS__KAS_KAM_GetEntry) { dXSARGS; if (items != 3) Perl_croak(aTHX_ "Usage: AFS::KAS::KAM_GetEntry(server, user, inst)"); SP -= items; { AFS__KAS server; char * user = (char *)SvPV(ST(1),PL_na); char * inst = (char *)SvPV(ST(2),PL_na); if (sv_derived_from(ST(0), "AFS::KAS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__KAS,tmp); } else croak("server is not of type AFS::KAS"); #line 10701 "AFS.xs" { int32 code; struct kaentryinfo entry; code = ubik_Call(KAM_GetEntry, server, 0, user, inst, KAMAJORVERSION, &entry); SETCODE(code); if (code == 0) { HV *stats = newHV(); if (parse_kaentryinfo(stats, &entry)) { EXTEND(sp, 1); PUSHs(sv_2mortal(newRV_noinc((SV *) stats))); } else { hv_undef(stats); } } } #line 13900 "AFS.c" PUTBACK; return; } } XS(XS_AFS__KAS_KAM_Debug) { dXSARGS; if (items != 2) Perl_croak(aTHX_ "Usage: AFS::KAS::KAM_Debug(server, version)"); SP -= items; { AFS__KAS server; int32 version = (int32)SvIV(ST(1)); if (sv_derived_from(ST(0), "AFS::KAS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__KAS,tmp); } else croak("server is not of type AFS::KAS"); #line 10724 "AFS.xs" { int32 code; struct ka_debugInfo entry; code = ubik_Call(KAM_Debug, server, 0, version, 0, &entry); SETCODE(code); if (code == 0) { HV *stats = newHV(); if (parse_ka_debugInfo(stats, &entry)) { EXTEND(sp, 1); PUSHs(sv_2mortal(newRV_noinc((SV *) stats))); } else { hv_undef(stats); } } } #line 13940 "AFS.c" PUTBACK; return; } } XS(XS_AFS__KAS_KAM_GetStats) { dXSARGS; if (items != 2) Perl_croak(aTHX_ "Usage: AFS::KAS::KAM_GetStats(server, version)"); SP -= items; { AFS__KAS server; int32 version = (int32)SvIV(ST(1)); if (sv_derived_from(ST(0), "AFS::KAS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__KAS,tmp); } else croak("server is not of type AFS::KAS"); #line 10747 "AFS.xs" { int32 code; int32 admin_accounts; struct kasstats kas; struct kadstats kad; code = ubik_Call(KAM_GetStats, server, 0, version, &admin_accounts, &kas, &kad); SETCODE(code); if (code == 0) { HV *stats = newHV(); HV *dstats = newHV(); if (parse_ka_getstats(stats, dstats, &kas, &kad)) { EXTEND(sp, 3); PUSHs(sv_2mortal(newSViv(admin_accounts))); PUSHs(sv_2mortal(newRV_noinc((SV *) stats))); PUSHs(sv_2mortal(newRV_noinc((SV *) dstats))); } else { hv_undef(stats); hv_undef(dstats); } } } #line 13986 "AFS.c" PUTBACK; return; } } XS(XS_AFS__KAS_KAM_GetRandomKey) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::KAS::KAM_GetRandomKey(server)"); SP -= items; { AFS__KAS server; if (sv_derived_from(ST(0), "AFS::KAS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__KAS,tmp); } else croak("server is not of type AFS::KAS"); #line 10775 "AFS.xs" { int32 code; struct ktc_encryptionKey *key; key = (struct ktc_encryptionKey *) safemalloc(sizeof(*key)); code = ubik_Call(KAM_GetRandomKey, server, 0, key); SETCODE(code); if (code == 0) { SV *st = sv_newmortal(); sv_setref_pv(st, "AFS::KTC_EKEY", (void *) key); PUSHs(st); } else { safefree(key); } } #line 14026 "AFS.c" PUTBACK; return; } } XS(XS_AFS__KAS_KAM_CreateUser) { dXSARGS; if (items != 4) Perl_croak(aTHX_ "Usage: AFS::KAS::KAM_CreateUser(server, user, inst, key)"); SP -= items; { AFS__KAS server; char * user = (char *)SvPV(ST(1),PL_na); char * inst = (char *)SvPV(ST(2),PL_na); AFS__KTC_EKEY key; if (sv_derived_from(ST(0), "AFS::KAS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__KAS,tmp); } else croak("server is not of type AFS::KAS"); if (sv_derived_from(ST(3), "AFS::KTC_EKEY")) { IV tmp = SvIV((SV*)SvRV(ST(3))); key = INT2PTR(AFS__KTC_EKEY,tmp); } else croak("key is not of type AFS::KTC_EKEY"); #line 10801 "AFS.xs" { int32 code; code = ubik_Call(KAM_CreateUser, server, 0, user, inst, *key); SETCODE(code); EXTEND(sp, 1); PUSHs(sv_2mortal(newSViv(code == 0))); } #line 14067 "AFS.c" PUTBACK; return; } } XS(XS_AFS__KAS_KAM_SetPassword) { dXSARGS; if (items != 5) Perl_croak(aTHX_ "Usage: AFS::KAS::KAM_SetPassword(server, user, inst, kvno, key)"); SP -= items; { AFS__KAS server; char * user = (char *)SvPV(ST(1),PL_na); char * inst = (char *)SvPV(ST(2),PL_na); int32 kvno = (int32)SvIV(ST(3)); AFS__KTC_EKEY key; if (sv_derived_from(ST(0), "AFS::KAS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__KAS,tmp); } else croak("server is not of type AFS::KAS"); if (sv_derived_from(ST(4), "AFS::KTC_EKEY")) { IV tmp = SvIV((SV*)SvRV(ST(4))); key = INT2PTR(AFS__KTC_EKEY,tmp); } else croak("key is not of type AFS::KTC_EKEY"); #line 10819 "AFS.xs" { int32 code; code = ubik_Call(KAM_SetPassword, server, 0, user, inst, kvno, *key); SETCODE(code); EXTEND(sp, 1); PUSHs(sv_2mortal(newSViv(code == 0))); } #line 14109 "AFS.c" PUTBACK; return; } } XS(XS_AFS__KAS_KAM_DeleteUser) { dXSARGS; if (items != 3) Perl_croak(aTHX_ "Usage: AFS::KAS::KAM_DeleteUser(server, user, inst)"); SP -= items; { AFS__KAS server; char * user = (char *)SvPV(ST(1),PL_na); char * inst = (char *)SvPV(ST(2),PL_na); if (sv_derived_from(ST(0), "AFS::KAS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__KAS,tmp); } else croak("server is not of type AFS::KAS"); #line 10835 "AFS.xs" { int32 code; code = ubik_Call(KAM_DeleteUser, server, 0, user, inst); SETCODE(code); EXTEND(sp, 1); PUSHs(sv_2mortal(newSViv(code == 0))); } #line 14141 "AFS.c" PUTBACK; return; } } XS(XS_AFS__KAS_KAM_ListEntry) { dXSARGS; if (items != 4) Perl_croak(aTHX_ "Usage: AFS::KAS::KAM_ListEntry(server, previous, index, count)"); SP -= items; { AFS__KAS server; int32 previous = (int32)SvIV(ST(1)); int32 index = (int32)SvIV(ST(2)); int32 count = (int32)SvIV(ST(3)); if (sv_derived_from(ST(0), "AFS::KAS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__KAS,tmp); } else croak("server is not of type AFS::KAS"); #line 10851 "AFS.xs" { int32 code; struct kaident ki; code = ubik_Call(KAM_ListEntry, server, 0, previous, &index, &count, &ki); sv_setiv(ST(2), (IV) index); sv_setiv(ST(3), (IV) count); SETCODE(code); if (code == 0 && count >= 0) { EXTEND(sp, 2); PUSHs(sv_2mortal(newSVpv(ki.name, strlen(ki.name)))); PUSHs(sv_2mortal(newSVpv(ki.instance, strlen(ki.instance)))); } } #line 14180 "AFS.c" PUTBACK; return; } } XS(XS_AFS__KAS_KAM_SetFields) { dXSARGS; if (items < 8 || items > 9) Perl_croak(aTHX_ "Usage: AFS::KAS::KAM_SetFields(server, name, instance, flags, user_expire, max_ticket_life, maxAssoc, misc_auth_bytes, spare2=0)"); SP -= items; { AFS__KAS server; char * name = (char *)SvPV(ST(1),PL_na); char * instance = (char *)SvPV(ST(2),PL_na); int32 flags = (int32)SvIV(ST(3)); int32 user_expire = (int32)SvIV(ST(4)); int32 max_ticket_life = (int32)SvIV(ST(5)); int32 maxAssoc = (int32)SvIV(ST(6)); uint32 misc_auth_bytes = (uint32)SvUV(ST(7)); int32 spare2; if (sv_derived_from(ST(0), "AFS::KAS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__KAS,tmp); } else croak("server is not of type AFS::KAS"); if (items < 9) spare2 = 0; else { spare2 = (int32)SvIV(ST(8)); } #line 10878 "AFS.xs" { int32 code; code = ubik_Call(KAM_SetFields, server, 0, name, instance, flags, user_expire, max_ticket_life, maxAssoc, misc_auth_bytes, spare2); SETCODE(code); EXTEND(sp, 1); PUSHs(sv_2mortal(newSViv(code == 0))); } #line 14225 "AFS.c" PUTBACK; return; } } XS(XS_AFS__KAS_ka_ChangePassword) { dXSARGS; if (items != 5) Perl_croak(aTHX_ "Usage: AFS::KAS::ka_ChangePassword(server, name, instance, oldkey, newkey)"); SP -= items; { AFS__KAS server; char * name = (char *)SvPV(ST(1),PL_na); char * instance = (char *)SvPV(ST(2),PL_na); AFS__KTC_EKEY oldkey; AFS__KTC_EKEY newkey; if (sv_derived_from(ST(0), "AFS::KAS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__KAS,tmp); } else croak("server is not of type AFS::KAS"); if (sv_derived_from(ST(3), "AFS::KTC_EKEY")) { IV tmp = SvIV((SV*)SvRV(ST(3))); oldkey = INT2PTR(AFS__KTC_EKEY,tmp); } else croak("oldkey is not of type AFS::KTC_EKEY"); if (sv_derived_from(ST(4), "AFS::KTC_EKEY")) { IV tmp = SvIV((SV*)SvRV(ST(4))); newkey = INT2PTR(AFS__KTC_EKEY,tmp); } else croak("newkey is not of type AFS::KTC_EKEY"); #line 10900 "AFS.xs" { int32 code; code = ka_ChangePassword(name, instance, server, oldkey, newkey); SETCODE(code); EXTEND(sp, 1); PUSHs(sv_2mortal(newSViv(code == 0))); } #line 14273 "AFS.c" PUTBACK; return; } } XS(XS_AFS__KAS_ka_GetToken) { dXSARGS; if (items < 6 || items > 7) Perl_croak(aTHX_ "Usage: AFS::KAS::ka_GetToken(server, name, instance, start, end, auth_token, auth_domain=\"\")"); SP -= items; { AFS__KAS server; char * name = (char *)SvPV(ST(1),PL_na); char * instance = (char *)SvPV(ST(2),PL_na); int32 start = (int32)SvIV(ST(3)); int32 end = (int32)SvIV(ST(4)); AFS__KTC_TOKEN auth_token; char * auth_domain; if (sv_derived_from(ST(0), "AFS::KAS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__KAS,tmp); } else croak("server is not of type AFS::KAS"); if (sv_derived_from(ST(5), "AFS::KTC_TOKEN")) { IV tmp = SvIV((SV*)SvRV(ST(5))); auth_token = INT2PTR(AFS__KTC_TOKEN,tmp); } else croak("auth_token is not of type AFS::KTC_TOKEN"); if (items < 7) auth_domain = ""; else { auth_domain = (char *)SvPV(ST(6),PL_na); } #line 10919 "AFS.xs" { int32 code; struct ktc_token *t; #if defined(AFS_3_4) #else char *cname = NULL; char *cinst = NULL; char *cell = NULL; #endif t = (struct ktc_token *) safemalloc(sizeof(struct ktc_token)); #if defined(AFS_3_4) code = ka_GetToken(name, instance, server, start, end, auth_token, auth_domain, t); #else if (cell == 0) cell = internal_GetLocalCell(&code); if (code == 0) code = ka_GetToken(name, instance, cell, cname, cinst, server, start, end, auth_token, auth_domain, t); #endif SETCODE(code); if (code == 0) { SV *st; EXTEND(sp, 1); st = sv_newmortal(); sv_setref_pv(st, "AFS::KTC_TOKEN", (void *) t); PUSHs(st); } else { safefree(t); } } #line 14346 "AFS.c" PUTBACK; return; } } XS(XS_AFS__KAS_ka_Authenticate) { dXSARGS; if (items < 7 || items > 8) Perl_croak(aTHX_ "Usage: AFS::KAS::ka_Authenticate(server, name, instance, service, key, start, end, pwexpires=-1)"); SP -= items; { AFS__KAS server; char * name = (char *)SvPV(ST(1),PL_na); char * instance = (char *)SvPV(ST(2),PL_na); int32 service = (int32)SvIV(ST(3)); AFS__KTC_EKEY key; int32 start = (int32)SvIV(ST(5)); int32 end = (int32)SvIV(ST(6)); int32 pwexpires; if (sv_derived_from(ST(0), "AFS::KAS")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__KAS,tmp); } else croak("server is not of type AFS::KAS"); if (sv_derived_from(ST(4), "AFS::KTC_EKEY")) { IV tmp = SvIV((SV*)SvRV(ST(4))); key = INT2PTR(AFS__KTC_EKEY,tmp); } else croak("key is not of type AFS::KTC_EKEY"); if (items < 8) pwexpires = -1; else { pwexpires = (int32)SvIV(ST(7)); } #line 10963 "AFS.xs" { int32 code; int32 pw; struct ktc_token *t; #if defined(AFS_3_4) #else char *cell = NULL; #endif t = (struct ktc_token *) safemalloc(sizeof(struct ktc_token)); #if defined(AFS_3_4) code = ka_Authenticate(name, instance, server, service, key, start, end, t, &pw); #else if (cell == 0) cell = internal_GetLocalCell(&code); if (code == 0) code = ka_Authenticate(name, instance, cell, server, service, key, start, end, t, &pw); #endif SETCODE(code); if (code == 0) { SV *st; EXTEND(sp, 1); st = sv_newmortal(); sv_setref_pv(st, "AFS::KTC_TOKEN", (void *) t); PUSHs(st); if (pwexpires != -1) sv_setiv(ST(7), (IV) pw); } else { safefree(t); } } #line 14422 "AFS.c" PUTBACK; return; } } XS(XS_AFS_ascii2ptsaccess) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::ascii2ptsaccess(access)"); { char * access = (char *)SvPV(ST(0),PL_na); int32 RETVAL; dXSTARG; #line 11020 "AFS.xs" { int32 code, flags; code = parse_pts_setfields(access, &flags); SETCODE(code); if (code != 0) flags = 0; RETVAL = flags; } #line 14448 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS_ptsaccess2ascii) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::ptsaccess2ascii(flags)"); { int32 flags = (int32)SvIV(ST(0)); #line 11037 "AFS.xs" { SETCODE(0); ST(0) = sv_newmortal(); sv_setpv(ST(0), parse_flags_ptsaccess(flags)); } #line 14467 "AFS.c" } XSRETURN(1); } XS(XS_AFS_ka_ParseLoginName) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::ka_ParseLoginName(login)"); SP -= items; { char * login = (char *)SvPV(ST(0),PL_na); #line 11047 "AFS.xs" { int32 code; char name[MAXKTCNAMELEN]; char inst[MAXKTCNAMELEN]; char cell[MAXKTCREALMLEN]; code = ka_ParseLoginName(login, name, inst, cell); SETCODE(code); if (code == 0) { EXTEND(sp, 3); PUSHs(sv_2mortal(newSVpv(name, strlen(name)))); PUSHs(sv_2mortal(newSVpv(inst, strlen(inst)))); PUSHs(sv_2mortal(newSVpv(cell, strlen(cell)))); } } #line 14496 "AFS.c" PUTBACK; return; } } XS(XS_AFS_ka_StringToKey) { dXSARGS; if (items != 2) Perl_croak(aTHX_ "Usage: AFS::ka_StringToKey(str, cell)"); SP -= items; { char * str = (char *)SvPV(ST(0),PL_na); char * cell = (char *)SvPV(ST(1),PL_na); #line 11068 "AFS.xs" { struct ktc_encryptionKey *key; SV *st; key = (struct ktc_encryptionKey *) safemalloc(sizeof(*key)); ka_StringToKey(str, cell, key); SETCODE(0); EXTEND(sp, 1); st = sv_newmortal(); sv_setref_pv(st, "AFS::KTC_EKEY", (void *) key); PUSHs(st); } #line 14526 "AFS.c" PUTBACK; return; } } XS(XS_AFS_ka_UserAthenticateGeneral) { dXSARGS; if (items < 4 || items > 6) Perl_croak(aTHX_ "Usage: AFS::ka_UserAthenticateGeneral(p, pass, life, flags, pwexpires=-1, reason=0)"); SP -= items; { AFS__KTC_PRINCIPAL p; char * pass = (char *)SvPV(ST(1),PL_na); int32 life = (int32)SvIV(ST(2)); int32 flags = (int32)SvIV(ST(3)); int32 pwexpires; char * reason; if (sv_derived_from(ST(0), "AFS::KTC_PRINCIPAL")) { IV tmp = SvIV((SV*)SvRV(ST(0))); p = INT2PTR(AFS__KTC_PRINCIPAL,tmp); } else croak("p is not of type AFS::KTC_PRINCIPAL"); if (items < 5) pwexpires = -1; else { pwexpires = (int32)SvIV(ST(4)); } if (items < 6) reason = 0; else { reason = (char *)SvPV(ST(5),PL_na); } #line 11092 "AFS.xs" { int32 code, pw = 255; char *r; code = ka_UserAuthenticateGeneral(flags, p->name, p->instance, p->cell, pass, life, &pw, 0, &r); if (pwexpires != -1) sv_setiv(ST(4), (IV) pw); if (reason) sv_setpv(ST(5), r); SETCODE(code); EXTEND(sp, 1); PUSHs(sv_2mortal(newSViv(code == 0))); } #line 14578 "AFS.c" PUTBACK; return; } } XS(XS_AFS_ka_ReadPassword) { dXSARGS; if (items < 1 || items > 3) Perl_croak(aTHX_ "Usage: AFS::ka_ReadPassword(prompt, verify=0, cell=0)"); SP -= items; { char * prompt = (char *)SvPV(ST(0),PL_na); int32 verify; char * cell; if (items < 2) verify = 0; else { verify = (int32)SvIV(ST(1)); } if (items < 3) cell = 0; else { cell = (char *)SvPV(ST(2),PL_na); } #line 11112 "AFS.xs" { int32 code = 0; struct ktc_encryptionKey *key; SV *st; key = (struct ktc_encryptionKey *) safemalloc(sizeof(*key)); if (cell == 0) cell = internal_GetLocalCell(&code); if (code == 0) code = ka_ReadPassword(prompt, verify, cell, key); SETCODE(code); if (code == 0) { EXTEND(sp, 1); st = sv_newmortal(); sv_setref_pv(st, "AFS::KTC_EKEY", (void *) key); PUSHs(st); } else { safefree(key); } } #line 14629 "AFS.c" PUTBACK; return; } } XS(XS_AFS_ka_UserReadPassword) { dXSARGS; if (items < 1 || items > 2) Perl_croak(aTHX_ "Usage: AFS::ka_UserReadPassword(prompt, reason=0)"); SP -= items; { char * prompt = (char *)SvPV(ST(0),PL_na); char * reason; if (items < 2) reason = 0; else { reason = (char *)SvPV(ST(1),PL_na); } #line 11140 "AFS.xs" { int32 code; char buffer[1024]; char *r; code = ka_UserReadPassword(prompt, buffer, sizeof(buffer) - 1, &r); SETCODE(code); if (reason) sv_setpv(ST(1), r); if (code == 0) { EXTEND(sp, 1); PUSHs(sv_2mortal(newSVpv(buffer, strlen(buffer)))); } } #line 14664 "AFS.c" PUTBACK; return; } } XS(XS_AFS_ka_GetAdminToken) { dXSARGS; if (items < 3 || items > 5) Perl_croak(aTHX_ "Usage: AFS::ka_GetAdminToken(p, key, lifetime, newt=1, reason=0)"); SP -= items; { AFS__KTC_PRINCIPAL p; AFS__KTC_EKEY key; int32 lifetime = (int32)SvIV(ST(2)); int32 newt; char * reason; if (sv_derived_from(ST(0), "AFS::KTC_PRINCIPAL")) { IV tmp = SvIV((SV*)SvRV(ST(0))); p = INT2PTR(AFS__KTC_PRINCIPAL,tmp); } else croak("p is not of type AFS::KTC_PRINCIPAL"); if (sv_derived_from(ST(1), "AFS::KTC_EKEY")) { IV tmp = SvIV((SV*)SvRV(ST(1))); key = INT2PTR(AFS__KTC_EKEY,tmp); } else croak("key is not of type AFS::KTC_EKEY"); if (items < 4) newt = 1; else { newt = (int32)SvIV(ST(3)); } if (items < 5) reason = 0; else { reason = (char *)SvPV(ST(4),PL_na); } #line 11162 "AFS.xs" { int32 code; struct ktc_token *t; char *message; t = (struct ktc_token *) safemalloc(sizeof(struct ktc_token)); code = ka_GetAdminToken(p->name, p->instance, p->cell, key, lifetime, t, newt); SETCODE(code); if (code == 0) { SV *st; EXTEND(sp, 1); st = sv_newmortal(); sv_setref_pv(st, "AFS::KTC_TOKEN", (void *) t); PUSHs(st); } else { safefree(t); switch (code) { case KABADREQUEST: message = "password was incorrect"; break; case KAUBIKCALL: message = "Authentication Server was unavailable"; break; default: message = (char *) error_message(code); } sv_setpv(ST(4), message); } } #line 14742 "AFS.c" PUTBACK; return; } } XS(XS_AFS_ka_GetAuthToken) { dXSARGS; if (items < 3 || items > 4) Perl_croak(aTHX_ "Usage: AFS::ka_GetAuthToken(p, key, lifetime, pwexpires=-1)"); SP -= items; { AFS__KTC_PRINCIPAL p; AFS__KTC_EKEY key; int32 lifetime = (int32)SvIV(ST(2)); int32 pwexpires; if (sv_derived_from(ST(0), "AFS::KTC_PRINCIPAL")) { IV tmp = SvIV((SV*)SvRV(ST(0))); p = INT2PTR(AFS__KTC_PRINCIPAL,tmp); } else croak("p is not of type AFS::KTC_PRINCIPAL"); if (sv_derived_from(ST(1), "AFS::KTC_EKEY")) { IV tmp = SvIV((SV*)SvRV(ST(1))); key = INT2PTR(AFS__KTC_EKEY,tmp); } else croak("key is not of type AFS::KTC_EKEY"); if (items < 4) pwexpires = -1; else { pwexpires = (int32)SvIV(ST(3)); } #line 11204 "AFS.xs" { int32 code; int32 pw; code = ka_GetAuthToken(p->name, p->instance, p->cell, key, lifetime, &pw); SETCODE(code); if (code == 0) { if (pwexpires != -1) sv_setiv(ST(3), (IV) pw); } EXTEND(sp, 1); PUSHs(sv_2mortal(newSViv(code == 0))); } #line 14794 "AFS.c" PUTBACK; return; } } XS(XS_AFS_ka_GetServerToken) { dXSARGS; if (items < 2 || items > 3) Perl_croak(aTHX_ "Usage: AFS::ka_GetServerToken(p, lifetime, newt=1)"); SP -= items; { AFS__KTC_PRINCIPAL p; int32 lifetime = (int32)SvIV(ST(1)); int32 newt; if (sv_derived_from(ST(0), "AFS::KTC_PRINCIPAL")) { IV tmp = SvIV((SV*)SvRV(ST(0))); p = INT2PTR(AFS__KTC_PRINCIPAL,tmp); } else croak("p is not of type AFS::KTC_PRINCIPAL"); if (items < 3) newt = 1; else { newt = (int32)SvIV(ST(2)); } #line 11226 "AFS.xs" { int32 code; struct ktc_token *t; #if defined(AFS_3_4) #else int32 dosetpag; #endif t = (struct ktc_token *) safemalloc(sizeof(struct ktc_token)); #if defined(AFS_3_4) code = ka_GetServerToken(p->name, p->instance, p->cell, lifetime, t, newt); #else dosetpag = 0; code = ka_GetServerToken(p->name, p->instance, p->cell, lifetime, t, newt, dosetpag); #endif SETCODE(code); if (code == 0) { SV *st; EXTEND(sp, 1); st = sv_newmortal(); sv_setref_pv(st, "AFS::KTC_TOKEN", (void *) t); PUSHs(st); } else { safefree(t); } } #line 14852 "AFS.c" PUTBACK; return; } } XS(XS_AFS_ka_nulltoken) { dXSARGS; if (items != 0) Perl_croak(aTHX_ "Usage: AFS::ka_nulltoken()"); SP -= items; { #line 11258 "AFS.xs" { ST(0) = sv_newmortal(); sv_setref_pv(ST(0), "AFS::KTC_TOKEN", (void *) &the_null_token); XSRETURN(1); } #line 14871 "AFS.c" PUTBACK; return; } } XS(XS_AFS_ka_AuthServerConn) { dXSARGS; if (items < 2 || items > 3) Perl_croak(aTHX_ "Usage: AFS::ka_AuthServerConn(token, service, cell=0)"); SP -= items; { AFS__KTC_TOKEN token; int32 service = (int32)SvIV(ST(1)); char * cell; if (sv_derived_from(ST(0), "AFS::KTC_TOKEN")) { IV tmp = SvIV((SV*)SvRV(ST(0))); token = INT2PTR(AFS__KTC_TOKEN,tmp); } else croak("token is not of type AFS::KTC_TOKEN"); if (items < 3) cell = 0; else { cell = (char *)SvPV(ST(2),PL_na); } #line 11270 "AFS.xs" { int32 code; AFS__KAS server; if (token == &the_null_token) token = NULL; if (cell && cell[0] == '\0') cell = NULL; code = ka_AuthServerConn(cell, service, token, &server); SETCODE(code); if (code == 0) { ST(0) = sv_newmortal(); sv_setref_pv(ST(0), "AFS::KAS", (void *) server); XSRETURN(1); } } #line 14920 "AFS.c" PUTBACK; return; } } XS(XS_AFS_ka_SingleServerConn) { dXSARGS; if (items < 3 || items > 4) Perl_croak(aTHX_ "Usage: AFS::ka_SingleServerConn(host, token, service, cell=0)"); SP -= items; { char * host = (char *)SvPV(ST(0),PL_na); AFS__KTC_TOKEN token; int32 service = (int32)SvIV(ST(2)); char * cell; if (sv_derived_from(ST(1), "AFS::KTC_TOKEN")) { IV tmp = SvIV((SV*)SvRV(ST(1))); token = INT2PTR(AFS__KTC_TOKEN,tmp); } else croak("token is not of type AFS::KTC_TOKEN"); if (items < 4) cell = 0; else { cell = (char *)SvPV(ST(3),PL_na); } #line 11297 "AFS.xs" { int32 code; AFS__KAS server; if (token == &the_null_token) token = NULL; code = ka_SingleServerConn(cell, host, service, token, &server); SETCODE(code); if (code == 0) { ST(0) = sv_newmortal(); sv_setref_pv(ST(0), "AFS::KAS", (void *) server); XSRETURN(1); } } #line 14967 "AFS.c" PUTBACK; return; } } XS(XS_AFS_ka_des_string_to_key) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::ka_des_string_to_key(str)"); SP -= items; { char * str = (char *)SvPV(ST(0),PL_na); #line 11318 "AFS.xs" { struct ktc_encryptionKey *key; SV *st; key = (struct ktc_encryptionKey *) safemalloc(sizeof(*key)); des_string_to_key(str, key); SETCODE(0); EXTEND(sp, 1); st = sv_newmortal(); sv_setref_pv(st, "AFS::KTC_EKEY", (void *) key); PUSHs(st); } #line 14995 "AFS.c" PUTBACK; return; } } XS(XS_AFS_setpag) { dXSARGS; if (items != 0) Perl_croak(aTHX_ "Usage: AFS::setpag()"); { int32 RETVAL; dXSTARG; #line 11335 "AFS.xs" { int32 code; code = setpag(); SETCODE(code); RETVAL = (code == 0); } #line 15017 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS_expandcell) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::expandcell(cell)"); { char * cell = (char *)SvPV(ST(0),PL_na); #line 11349 "AFS.xs" { int32 code; struct afsconf_cell info; if (cell && !*cell) cell = NULL; code = internal_GetCellInfo(cell, 0, &info); SETCODE(code); ST(0) = sv_newmortal(); if (code == 0) { sv_setpv(ST(0), info.name); } } #line 15044 "AFS.c" } XSRETURN(1); } XS(XS_AFS_localcell) { dXSARGS; if (items != 0) Perl_croak(aTHX_ "Usage: AFS::localcell()"); SP -= items; { #line 11366 "AFS.xs" { int32 code; char *c; c = internal_GetLocalCell(&code); SETCODE(code); ST(0) = sv_newmortal(); if (code == 0) { sv_setpv(ST(0), c); } XSRETURN(1); } #line 15070 "AFS.c" PUTBACK; return; } } XS(XS_AFS_getcellinfo) { dXSARGS; if (items < 0 || items > 2) Perl_croak(aTHX_ "Usage: AFS::getcellinfo(cell=0, ip=0)"); SP -= items; { char * cell; int32 ip; if (items < 1) cell = 0; else { cell = (char *)SvPV(ST(0),PL_na); } if (items < 2) ip = 0; else { ip = (int32)SvIV(ST(1)); } #line 11385 "AFS.xs" { int32 code; struct afsconf_cell info; code = internal_GetCellInfo(cell, 0, &info); SETCODE(code); if (cell && cell[0] == 0) cell = 0; if (code == 0) { int i; char *h; XPUSHs(sv_2mortal(newSVpv(info.name, strlen(info.name)))); for (i = 0; i < info.numServers; i++) { if (ip == 1) { h = (char *) inet_ntoa(info.hostAddr[i].sin_addr); } else { h = info.hostName[i]; } XPUSHs(sv_2mortal(newSVpv(h, strlen(h)))); } } } #line 15123 "AFS.c" PUTBACK; return; } } XS(XS_AFS_convert_numeric_names) { dXSARGS; { int32 RETVAL; dXSTARG; #line 11414 "AFS.xs" { int32 flag; if (items > 1) croak("Usage: AFS::convert_numeric_names(flag)"); if (items == 1) { flag = (int) SvIV(ST(0)); convert_numeric_names = (flag != 0); } RETVAL = convert_numeric_names; } #line 15147 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS_raise_exception) { dXSARGS; { int32 RETVAL; dXSTARG; #line 11431 "AFS.xs" { int32 flag; if (items > 1) croak("Usage: AFS::raise_exception(flag)"); if (items == 1) { flag = (int) SvIV(ST(0)); raise_exception = (flag != 0); } RETVAL = raise_exception; } #line 15171 "AFS.c" XSprePUSH; PUSHi((IV)RETVAL); } XSRETURN(1); } XS(XS_AFS_configdir) { dXSARGS; SP -= items; { #line 11448 "AFS.xs" { char *value; int32 code; if (items > 1) croak("Usage: AFS::configdir(dir)"); if (items == 1) { STRLEN len; value = (char *) SvPV(ST(0), len); if (config_dir != NULL) safefree(config_dir); if (cdir != NULL) { afsconf_Close(cdir); cdir = NULL; } config_dir = (char *) safemalloc(len + 1); strcpy(config_dir, value); code = internal_GetConfigDir(); SETCODE(code); ST(0) = sv_newmortal(); sv_setiv(ST(0), (code == 0)); XSRETURN(1); } else { code = internal_GetConfigDir(); SETCODE(code); ST(0) = sv_newmortal(); if (code == 0) { sv_setpv(ST(0), config_dir); } XSRETURN(1); } } /* KTC routines */ #line 15219 "AFS.c" PUTBACK; return; } } XS(XS_AFS_ktc_ListTokens) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::ktc_ListTokens(context)"); SP -= items; { int32 context = (int32)SvIV(ST(0)); AFS__KTC_PRINCIPAL RETVAL; #line 11489 "AFS.xs" { int32 code; struct ktc_principal *p; p = (struct ktc_principal *) safemalloc(sizeof(struct ktc_principal)); code = ktc_ListTokens(context, &context, p); SETCODE(code); sv_setiv(ST(0), (IV) context); ST(0) = sv_newmortal(); if (code == 0) { sv_setref_pv(ST(0), "AFS::KTC_PRINCIPAL", (void *) p); } else { safefree(p); } XSRETURN(1); } #line 15253 "AFS.c" PUTBACK; return; } } XS(XS_AFS_ktc_GetToken) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::ktc_GetToken(server)"); SP -= items; { AFS__KTC_PRINCIPAL server; if (sv_derived_from(ST(0), "AFS::KTC_PRINCIPAL")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__KTC_PRINCIPAL,tmp); } else croak("server is not of type AFS::KTC_PRINCIPAL"); #line 11512 "AFS.xs" { int32 code; struct ktc_principal *c; struct ktc_token *t; c = (struct ktc_principal *) safemalloc(sizeof(struct ktc_principal)); t = (struct ktc_token *) safemalloc(sizeof(struct ktc_token)); code = ktc_GetToken(server, t, sizeof(*t), c); SETCODE(code); if (code == 0) { SV *st, *sc; EXTEND(sp, 2); st = sv_newmortal(); sv_setref_pv(st, "AFS::KTC_TOKEN", (void *) t); PUSHs(st); sc = sv_newmortal(); sv_setref_pv(sc, "AFS::KTC_PRINCIPAL", (void *) c); PUSHs(sc); } else { safefree(c); safefree(t); } } #line 15301 "AFS.c" PUTBACK; return; } } XS(XS_AFS_ktc_FromString) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::ktc_FromString(s)"); SP -= items; { SV * s = ST(0); #line 11543 "AFS.xs" { SV *sv; STRLEN len; char *str; struct ktc_token *t; str = SvPV(s, len); EXTEND(sp, 1); if (len == sizeof(struct ktc_token)) { t = (struct ktc_token *) safemalloc(sizeof(struct ktc_token)); memcpy((void *) t, (void *) str, sizeof(struct ktc_token)); sv = sv_newmortal(); sv_setref_pv(sv, "AFS::KTC_TOKEN", (void *) t); PUSHs(sv); } else { PUSHs(&PL_sv_undef); } } #line 15336 "AFS.c" PUTBACK; return; } } XS(XS_AFS_ktc_SetToken) { dXSARGS; if (items < 3 || items > 4) Perl_croak(aTHX_ "Usage: AFS::ktc_SetToken(server, token, client, flags=0)"); SP -= items; { AFS__KTC_PRINCIPAL server; AFS__KTC_TOKEN token; AFS__KTC_PRINCIPAL client; int32 flags; if (sv_derived_from(ST(0), "AFS::KTC_PRINCIPAL")) { IV tmp = SvIV((SV*)SvRV(ST(0))); server = INT2PTR(AFS__KTC_PRINCIPAL,tmp); } else croak("server is not of type AFS::KTC_PRINCIPAL"); if (sv_derived_from(ST(1), "AFS::KTC_TOKEN")) { IV tmp = SvIV((SV*)SvRV(ST(1))); token = INT2PTR(AFS__KTC_TOKEN,tmp); } else croak("token is not of type AFS::KTC_TOKEN"); if (sv_derived_from(ST(2), "AFS::KTC_PRINCIPAL")) { IV tmp = SvIV((SV*)SvRV(ST(2))); client = INT2PTR(AFS__KTC_PRINCIPAL,tmp); } else croak("client is not of type AFS::KTC_PRINCIPAL"); if (items < 4) flags = 0; else { flags = (int32)SvIV(ST(3)); } #line 11571 "AFS.xs" { int32 code; code = ktc_SetToken(server, token, client, flags); SETCODE(code); ST(0) = sv_2mortal(newSViv(code == 0)); XSRETURN(1); } #line 15388 "AFS.c" PUTBACK; return; } } XS(XS_AFS_ktc_ForgetAllTokens) { dXSARGS; if (items != 0) Perl_croak(aTHX_ "Usage: AFS::ktc_ForgetAllTokens()"); SP -= items; { #line 11582 "AFS.xs" { int32 code; code = ktc_ForgetAllTokens(); SETCODE(code); ST(0) = sv_2mortal(newSViv(code == 0)); XSRETURN(1); } #line 15409 "AFS.c" PUTBACK; return; } } XS(XS_AFS_error_message) { dXSARGS; if (items != 1) Perl_croak(aTHX_ "Usage: AFS::error_message(code)"); SP -= items; { int32 code = (int32)SvIV(ST(0)); #line 11594 "AFS.xs" { ST(0) = sv_newmortal(); sv_setpv(ST(0), (char *) error_message(code)); XSRETURN(1); } /* this function is generated automatically by constant_gen */ /* You didn't think I would type in this crap did you? */ /* thats what perl is for :-) */ #line 15434 "AFS.c" PUTBACK; return; } } #if defined(AFS_3_4) #define XSubPPtmpAAAA 1 XS(XS_AFS_constant) { dXSARGS; if (items < 1 || items > 2) Perl_croak(aTHX_ "Usage: AFS::constant(name, arg=0)"); SP -= items; { char * name = (char *)SvPV(ST(0),PL_na); int arg; if (items < 2) arg = 0; else { arg = (int)SvIV(ST(1)); } #line 11612 "AFS.xs" { ST(0) = sv_newmortal(); errno = EINVAL; switch (name[0]) { case 'A': switch (name[1]) { case 'F': switch (name[2]) { case 'S': if (strEQ(name,"AFSCONF_FAILURE")) sv_setiv(ST(0),AFSCONF_FAILURE); else if (strEQ(name,"AFSCONF_FULL")) sv_setiv(ST(0),AFSCONF_FULL); else if (strEQ(name,"AFSCONF_NOCELL")) sv_setiv(ST(0),AFSCONF_NOCELL); else if (strEQ(name,"AFSCONF_NODB")) sv_setiv(ST(0),AFSCONF_NODB); else if (strEQ(name,"AFSCONF_NOTFOUND")) sv_setiv(ST(0),AFSCONF_NOTFOUND); else if (strEQ(name,"AFSCONF_SYNTAX")) sv_setiv(ST(0),AFSCONF_SYNTAX); else if (strEQ(name,"AFSCONF_UNKNOWN")) sv_setiv(ST(0),AFSCONF_UNKNOWN); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'N': switch (name[2]) { case 'O': if (strEQ(name,"ANONYMOUSID")) sv_setiv(ST(0),ANONYMOUSID); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'Y': if (strEQ(name,"ANYUSERID")) sv_setiv(ST(0),ANYUSERID); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'U': switch (name[2]) { case 'T': if (strEQ(name,"AUTHUSERID")) sv_setiv(ST(0),AUTHUSERID); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'C': switch (name[1]) { case 'O': switch (name[2]) { case 'S': if (strEQ(name,"COSIZE")) sv_setiv(ST(0),COSIZE); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'R': switch (name[2]) { case 'O': if (strEQ(name,"CROSS_CELL")) sv_setiv(ST(0),CROSS_CELL); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'K': switch (name[1]) { case 'A': switch (name[2]) { case 'A': if (strEQ(name,"KAANSWERTOOLONG")) sv_setiv(ST(0),KAANSWERTOOLONG); else if (strEQ(name,"KAASSOCUSER")) sv_setiv(ST(0),KAASSOCUSER); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'B': if (strEQ(name,"KABADARGUMENT")) sv_setiv(ST(0),KABADARGUMENT); else if (strEQ(name,"KABADCMD")) sv_setiv(ST(0),KABADCMD); else if (strEQ(name,"KABADCPW")) sv_setiv(ST(0),KABADCPW); else if (strEQ(name,"KABADCREATE")) sv_setiv(ST(0),KABADCREATE); else if (strEQ(name,"KABADINDEX")) sv_setiv(ST(0),KABADINDEX); else if (strEQ(name,"KABADKEY")) sv_setiv(ST(0),KABADKEY); else if (strEQ(name,"KABADNAME")) sv_setiv(ST(0),KABADNAME); else if (strEQ(name,"KABADPROTOCOL")) sv_setiv(ST(0),KABADPROTOCOL); else if (strEQ(name,"KABADREQUEST")) sv_setiv(ST(0),KABADREQUEST); else if (strEQ(name,"KABADSERVER")) sv_setiv(ST(0),KABADSERVER); else if (strEQ(name,"KABADTICKET")) sv_setiv(ST(0),KABADTICKET); else if (strEQ(name,"KABADUSER")) sv_setiv(ST(0),KABADUSER); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'C': if (strEQ(name,"KACLOCKSKEW")) sv_setiv(ST(0),KACLOCKSKEW); else if (strEQ(name,"KACREATEFAIL")) sv_setiv(ST(0),KACREATEFAIL); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'D': if (strEQ(name,"KADATABASEINCONSISTENT")) sv_setiv(ST(0),KADATABASEINCONSISTENT); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'E': if (strEQ(name,"KAEMPTY")) sv_setiv(ST(0),KAEMPTY); else if (strEQ(name,"KAEXIST")) sv_setiv(ST(0),KAEXIST); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'F': if (strEQ(name,"KAFADMIN")) sv_setiv(ST(0),KAFADMIN); else if (strEQ(name,"KAFASSOC")) sv_setiv(ST(0),KAFASSOC); else if (strEQ(name,"KAFASSOCROOT")) sv_setiv(ST(0),KAFASSOCROOT); else if (strEQ(name,"KAFFREE")) sv_setiv(ST(0),KAFFREE); else if (strEQ(name,"KAFNEWASSOC")) sv_setiv(ST(0),KAFNEWASSOC); else if (strEQ(name,"KAFNOCPW")) sv_setiv(ST(0),KAFNOCPW); else if (strEQ(name,"KAFNORMAL")) sv_setiv(ST(0),KAFNORMAL); else if (strEQ(name,"KAFNOSEAL")) sv_setiv(ST(0),KAFNOSEAL); else if (strEQ(name,"KAFNOTGS")) sv_setiv(ST(0),KAFNOTGS); else if (strEQ(name,"KAFOLDKEYS")) sv_setiv(ST(0),KAFOLDKEYS); else if (strEQ(name,"KAFSPECIAL")) sv_setiv(ST(0),KAFSPECIAL); else if (strEQ(name,"KAF_SETTABLE_FLAGS")) sv_setiv(ST(0),KAF_SETTABLE_FLAGS); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'I': if (strEQ(name,"KAINTERNALERROR")) sv_setiv(ST(0),KAINTERNALERROR); else if (strEQ(name,"KAIO")) sv_setiv(ST(0),KAIO); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'K': if (strEQ(name,"KAKEYCACHEINVALID")) sv_setiv(ST(0),KAKEYCACHEINVALID); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'L': if (strEQ(name,"KALOCKED")) sv_setiv(ST(0),KALOCKED); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'M': if (strEQ(name,"KAMAJORVERSION")) sv_setiv(ST(0),KAMAJORVERSION); else if (strEQ(name,"KAMINORVERSION")) sv_setiv(ST(0),KAMINORVERSION); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'N': if (strEQ(name,"KANOAUTH")) sv_setiv(ST(0),KANOAUTH); else if (strEQ(name,"KANOCELL")) sv_setiv(ST(0),KANOCELL); else if (strEQ(name,"KANOCELLS")) sv_setiv(ST(0),KANOCELLS); else if (strEQ(name,"KANOENT")) sv_setiv(ST(0),KANOENT); else if (strEQ(name,"KANOKEYS")) sv_setiv(ST(0),KANOKEYS); else if (strEQ(name,"KANORECURSE")) sv_setiv(ST(0),KANORECURSE); else if (strEQ(name,"KANOTICKET")) sv_setiv(ST(0),KANOTICKET); else if (strEQ(name,"KANOTSPECIAL")) sv_setiv(ST(0),KANOTSPECIAL); else if (strEQ(name,"KANULLPASSWORD")) sv_setiv(ST(0),KANULLPASSWORD); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'O': if (strEQ(name,"KAOLDINTERFACE")) sv_setiv(ST(0),KAOLDINTERFACE); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'P': if (strEQ(name,"KAPWEXPIRED")) sv_setiv(ST(0),KAPWEXPIRED); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'R': if (strEQ(name,"KAREADPW")) sv_setiv(ST(0),KAREADPW); else if (strEQ(name,"KAREUSED")) sv_setiv(ST(0),KAREUSED); else if (strEQ(name,"KARXFAIL")) sv_setiv(ST(0),KARXFAIL); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'T': if (strEQ(name,"KATOOMANYKEYS")) sv_setiv(ST(0),KATOOMANYKEYS); else if (strEQ(name,"KATOOMANYUBIKS")) sv_setiv(ST(0),KATOOMANYUBIKS); else if (strEQ(name,"KATOOSOON")) sv_setiv(ST(0),KATOOSOON); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'U': if (strEQ(name,"KAUBIKCALL")) sv_setiv(ST(0),KAUBIKCALL); else if (strEQ(name,"KAUBIKINIT")) sv_setiv(ST(0),KAUBIKINIT); else if (strEQ(name,"KAUNKNOWNKEY")) sv_setiv(ST(0),KAUNKNOWNKEY); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case '_': if (strEQ(name,"KA_ADMIN_INST")) sv_setpv(ST(0),KA_ADMIN_INST); else if (strEQ(name,"KA_ADMIN_NAME")) sv_setpv(ST(0),KA_ADMIN_NAME); else if (strEQ(name,"KA_AUTHENTICATION_SERVICE")) sv_setiv(ST(0),KA_AUTHENTICATION_SERVICE); else if (strEQ(name,"KA_ISLOCKED")) sv_setiv(ST(0),KA_ISLOCKED); else if (strEQ(name,"KA_MAINTENANCE_SERVICE")) sv_setiv(ST(0),KA_MAINTENANCE_SERVICE); else if (strEQ(name,"KA_NOREUSEPW")) sv_setiv(ST(0),KA_NOREUSEPW); else if (strEQ(name,"KA_REUSEPW")) sv_setiv(ST(0),KA_REUSEPW); else if (strEQ(name,"KA_TGS_NAME")) sv_setpv(ST(0),KA_TGS_NAME); else if (strEQ(name,"KA_TICKET_GRANTING_SERVICE")) sv_setiv(ST(0),KA_TICKET_GRANTING_SERVICE); else if (strEQ(name,"KA_USERAUTH_DOSETPAG")) sv_setiv(ST(0),KA_USERAUTH_DOSETPAG); else if (strEQ(name,"KA_USERAUTH_DOSETPAG2")) sv_setiv(ST(0),KA_USERAUTH_DOSETPAG2); else if (strEQ(name,"KA_USERAUTH_VERSION")) sv_setiv(ST(0),KA_USERAUTH_VERSION); else if (strEQ(name,"KA_USERAUTH_VERSION_MASK")) sv_setiv(ST(0),KA_USERAUTH_VERSION_MASK); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'T': switch (name[2]) { case 'C': if (strEQ(name,"KTC_TIME_UNCERTAINTY")) sv_setiv(ST(0),KTC_TIME_UNCERTAINTY); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'M': switch (name[1]) { case 'A': switch (name[2]) { case 'X': if (strEQ(name,"MAXKAKVNO")) sv_setiv(ST(0),MAXKAKVNO); else if (strEQ(name,"MAXKTCNAMELEN")) sv_setiv(ST(0),MAXKTCNAMELEN); else if (strEQ(name,"MAXKTCREALMLEN")) sv_setiv(ST(0),MAXKTCREALMLEN); else if (strEQ(name,"MAXKTCTICKETLEN")) sv_setiv(ST(0),MAXKTCTICKETLEN); else if (strEQ(name,"MAXKTCTICKETLIFETIME")) sv_setiv(ST(0),MAXKTCTICKETLIFETIME); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'I': switch (name[2]) { case 'N': if (strEQ(name,"MINKTCTICKETLEN")) sv_setiv(ST(0),MINKTCTICKETLEN); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'N': switch (name[1]) { case 'E': switch (name[2]) { case 'V': if (strEQ(name,"NEVERDATE")) sv_setiv(ST(0),NEVERDATE); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'P': switch (name[1]) { case 'R': switch (name[2]) { case 'A': if (strEQ(name,"PRACCESS")) sv_setiv(ST(0),PRACCESS); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'B': if (strEQ(name,"PRBADARG")) sv_setiv(ST(0),PRBADARG); else if (strEQ(name,"PRBADID")) sv_setiv(ST(0),PRBADID); else if (strEQ(name,"PRBADNAM")) sv_setiv(ST(0),PRBADNAM); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'C': if (strEQ(name,"PRCELL")) sv_setiv(ST(0),PRCELL); else if (strEQ(name,"PRCONT")) sv_setiv(ST(0),PRCONT); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'D': if (strEQ(name,"PRDBADDR")) sv_setiv(ST(0),PRDBADDR); else if (strEQ(name,"PRDBBAD")) sv_setiv(ST(0),PRDBBAD); else if (strEQ(name,"PRDBFAIL")) sv_setiv(ST(0),PRDBFAIL); else if (strEQ(name,"PRDBVERSION")) sv_setiv(ST(0),PRDBVERSION); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'E': if (strEQ(name,"PREXIST")) sv_setiv(ST(0),PREXIST); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'F': if (strEQ(name,"PRFOREIGN")) sv_setiv(ST(0),PRFOREIGN); else if (strEQ(name,"PRFREE")) sv_setiv(ST(0),PRFREE); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'G': if (strEQ(name,"PRGROUPEMPTY")) sv_setiv(ST(0),PRGROUPEMPTY); else if (strEQ(name,"PRGRP")) sv_setiv(ST(0),PRGRP); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'I': if (strEQ(name,"PRIDEXIST")) sv_setiv(ST(0),PRIDEXIST); else if (strEQ(name,"PRINCONSISTENT")) sv_setiv(ST(0),PRINCONSISTENT); else if (strEQ(name,"PRINST")) sv_setiv(ST(0),PRINST); else if (strEQ(name,"PRIVATE_SHIFT")) sv_setiv(ST(0),PRIVATE_SHIFT); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'N': if (strEQ(name,"PRNOENT")) sv_setiv(ST(0),PRNOENT); else if (strEQ(name,"PRNOIDS")) sv_setiv(ST(0),PRNOIDS); else if (strEQ(name,"PRNOMORE")) sv_setiv(ST(0),PRNOMORE); else if (strEQ(name,"PRNOTGROUP")) sv_setiv(ST(0),PRNOTGROUP); else if (strEQ(name,"PRNOTUSER")) sv_setiv(ST(0),PRNOTUSER); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'P': if (strEQ(name,"PRPERM")) sv_setiv(ST(0),PRPERM); else if (strEQ(name,"PRP_ADD_ANY")) sv_setiv(ST(0),PRP_ADD_ANY); else if (strEQ(name,"PRP_ADD_MEM")) sv_setiv(ST(0),PRP_ADD_MEM); else if (strEQ(name,"PRP_GROUP_DEFAULT")) sv_setiv(ST(0),PRP_GROUP_DEFAULT); else if (strEQ(name,"PRP_MEMBER_ANY")) sv_setiv(ST(0),PRP_MEMBER_ANY); else if (strEQ(name,"PRP_MEMBER_MEM")) sv_setiv(ST(0),PRP_MEMBER_MEM); else if (strEQ(name,"PRP_OWNED_ANY")) sv_setiv(ST(0),PRP_OWNED_ANY); else if (strEQ(name,"PRP_REMOVE_MEM")) sv_setiv(ST(0),PRP_REMOVE_MEM); else if (strEQ(name,"PRP_STATUS_ANY")) sv_setiv(ST(0),PRP_STATUS_ANY); else if (strEQ(name,"PRP_STATUS_MEM")) sv_setiv(ST(0),PRP_STATUS_MEM); else if (strEQ(name,"PRP_USER_DEFAULT")) sv_setiv(ST(0),PRP_USER_DEFAULT); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'Q': if (strEQ(name,"PRQUOTA")) sv_setiv(ST(0),PRQUOTA); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'S': if (strEQ(name,"PRSFS_ADMINISTER")) sv_setiv(ST(0),PRSFS_ADMINISTER); else if (strEQ(name,"PRSFS_DELETE")) sv_setiv(ST(0),PRSFS_DELETE); else if (strEQ(name,"PRSFS_INSERT")) sv_setiv(ST(0),PRSFS_INSERT); else if (strEQ(name,"PRSFS_LOCK")) sv_setiv(ST(0),PRSFS_LOCK); else if (strEQ(name,"PRSFS_LOOKUP")) sv_setiv(ST(0),PRSFS_LOOKUP); else if (strEQ(name,"PRSFS_READ")) sv_setiv(ST(0),PRSFS_READ); else if (strEQ(name,"PRSFS_USR0")) sv_setiv(ST(0),PRSFS_USR0); else if (strEQ(name,"PRSFS_USR1")) sv_setiv(ST(0),PRSFS_USR1); else if (strEQ(name,"PRSFS_USR2")) sv_setiv(ST(0),PRSFS_USR2); else if (strEQ(name,"PRSFS_USR3")) sv_setiv(ST(0),PRSFS_USR3); else if (strEQ(name,"PRSFS_USR4")) sv_setiv(ST(0),PRSFS_USR4); else if (strEQ(name,"PRSFS_USR5")) sv_setiv(ST(0),PRSFS_USR5); else if (strEQ(name,"PRSFS_USR6")) sv_setiv(ST(0),PRSFS_USR6); else if (strEQ(name,"PRSFS_USR7")) sv_setiv(ST(0),PRSFS_USR7); else if (strEQ(name,"PRSFS_WRITE")) sv_setiv(ST(0),PRSFS_WRITE); else if (strEQ(name,"PRSIZE")) sv_setiv(ST(0),PRSIZE); else if (strEQ(name,"PRSUCCESS")) sv_setiv(ST(0),PRSUCCESS); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'T': if (strEQ(name,"PRTOOMANY")) sv_setiv(ST(0),PRTOOMANY); else if (strEQ(name,"PRTYPE")) sv_setiv(ST(0),PRTYPE); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'U': if (strEQ(name,"PRUSER")) sv_setiv(ST(0),PRUSER); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case '_': if (strEQ(name,"PR_HIGHEST_OPCODE")) sv_setiv(ST(0),PR_HIGHEST_OPCODE); else if (strEQ(name,"PR_LOWEST_OPCODE")) sv_setiv(ST(0),PR_LOWEST_OPCODE); else if (strEQ(name,"PR_MAXGROUPS")) sv_setiv(ST(0),PR_MAXGROUPS); else if (strEQ(name,"PR_MAXLIST")) sv_setiv(ST(0),PR_MAXLIST); else if (strEQ(name,"PR_MAXNAMELEN")) sv_setiv(ST(0),PR_MAXNAMELEN); else if (strEQ(name,"PR_NUMBER_OPCODES")) sv_setiv(ST(0),PR_NUMBER_OPCODES); else if (strEQ(name,"PR_REMEMBER_TIMES")) sv_setiv(ST(0),PR_REMEMBER_TIMES); else if (strEQ(name,"PR_SF_ALLBITS")) sv_setiv(ST(0),PR_SF_ALLBITS); else if (strEQ(name,"PR_SF_NGROUPS")) sv_setiv(ST(0),PR_SF_NGROUPS); else if (strEQ(name,"PR_SF_NUSERS")) sv_setiv(ST(0),PR_SF_NUSERS); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'R': switch (name[1]) { case 'X': switch (name[2]) { case 'K': if (strEQ(name,"RXKADBADKEY")) sv_setiv(ST(0),RXKADBADKEY); else if (strEQ(name,"RXKADBADTICKET")) sv_setiv(ST(0),RXKADBADTICKET); else if (strEQ(name,"RXKADDATALEN")) sv_setiv(ST(0),RXKADDATALEN); else if (strEQ(name,"RXKADEXPIRED")) sv_setiv(ST(0),RXKADEXPIRED); else if (strEQ(name,"RXKADILLEGALLEVEL")) sv_setiv(ST(0),RXKADILLEGALLEVEL); else if (strEQ(name,"RXKADINCONSISTENCY")) sv_setiv(ST(0),RXKADINCONSISTENCY); else if (strEQ(name,"RXKADLEVELFAIL")) sv_setiv(ST(0),RXKADLEVELFAIL); else if (strEQ(name,"RXKADNOAUTH")) sv_setiv(ST(0),RXKADNOAUTH); else if (strEQ(name,"RXKADOUTOFSEQUENCE")) sv_setiv(ST(0),RXKADOUTOFSEQUENCE); else if (strEQ(name,"RXKADPACKETSHORT")) sv_setiv(ST(0),RXKADPACKETSHORT); else if (strEQ(name,"RXKADSEALEDINCON")) sv_setiv(ST(0),RXKADSEALEDINCON); else if (strEQ(name,"RXKADTICKETLEN")) sv_setiv(ST(0),RXKADTICKETLEN); else if (strEQ(name,"RXKADUNKNOWNKEY")) sv_setiv(ST(0),RXKADUNKNOWNKEY); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case '_': if (strEQ(name,"RX_SCINDEX_KAD")) sv_setiv(ST(0),RX_SCINDEX_KAD); else if (strEQ(name,"RX_SCINDEX_NULL")) sv_setiv(ST(0),RX_SCINDEX_NULL); else if (strEQ(name,"RX_SCINDEX_VAB")) sv_setiv(ST(0),RX_SCINDEX_VAB); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'S': switch (name[1]) { case 'Y': switch (name[2]) { case 'S': if (strEQ(name,"SYSADMINID")) sv_setiv(ST(0),SYSADMINID); else if (strEQ(name,"SYSBACKUPID")) sv_setiv(ST(0),SYSBACKUPID); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'U': switch (name[1]) { case 'B': switch (name[2]) { case 'A': if (strEQ(name,"UBADHOST")) sv_setiv(ST(0),UBADHOST); else if (strEQ(name,"UBADLOCK")) sv_setiv(ST(0),UBADLOCK); else if (strEQ(name,"UBADLOG")) sv_setiv(ST(0),UBADLOG); else if (strEQ(name,"UBADTYPE")) sv_setiv(ST(0),UBADTYPE); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'D': switch (name[2]) { case 'O': if (strEQ(name,"UDONE")) sv_setiv(ST(0),UDONE); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'E': switch (name[2]) { case 'O': if (strEQ(name,"UEOF")) sv_setiv(ST(0),UEOF); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'I': switch (name[2]) { case 'N': if (strEQ(name,"UINTERNAL")) sv_setiv(ST(0),UINTERNAL); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'O': if (strEQ(name,"UIOERROR")) sv_setiv(ST(0),UIOERROR); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'L': switch (name[2]) { case 'O': if (strEQ(name,"ULOGIO")) sv_setiv(ST(0),ULOGIO); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'N': switch (name[2]) { case 'H': if (strEQ(name,"UNHOSTS")) sv_setiv(ST(0),UNHOSTS); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'O': if (strEQ(name,"UNOENT")) sv_setiv(ST(0),UNOENT); else if (strEQ(name,"UNOQUORUM")) sv_setiv(ST(0),UNOQUORUM); else if (strEQ(name,"UNOSERVERS")) sv_setiv(ST(0),UNOSERVERS); else if (strEQ(name,"UNOTSYNC")) sv_setiv(ST(0),UNOTSYNC); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'S': switch (name[2]) { case 'Y': if (strEQ(name,"USYNC")) sv_setiv(ST(0),USYNC); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'T': switch (name[2]) { case 'W': if (strEQ(name,"UTWOENDS")) sv_setiv(ST(0),UTWOENDS); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'V': switch (name[1]) { case 'I': switch (name[2]) { case 'O': if (strEQ(name,"VIOCACCESS")) sv_setiv(ST(0),VIOCACCESS); else if (strEQ(name,"VIOCCKBACK")) sv_setiv(ST(0),VIOCCKBACK); else if (strEQ(name,"VIOCCKCONN")) sv_setiv(ST(0),VIOCCKCONN); else if (strEQ(name,"VIOCCKSERV")) sv_setiv(ST(0),VIOCCKSERV); else if (strEQ(name,"VIOCDISGROUP")) sv_setiv(ST(0),VIOCDISGROUP); else if (strEQ(name,"VIOCENGROUP")) sv_setiv(ST(0),VIOCENGROUP); else if (strEQ(name,"VIOCFLUSH")) sv_setiv(ST(0),VIOCFLUSH); else if (strEQ(name,"VIOCFLUSHCB")) sv_setiv(ST(0),VIOCFLUSHCB); else if (strEQ(name,"VIOCGETAL")) sv_setiv(ST(0),VIOCGETAL); else if (strEQ(name,"VIOCGETCACHEPARMS")) sv_setiv(ST(0),VIOCGETCACHEPARMS); else if (strEQ(name,"VIOCGETCELL")) sv_setiv(ST(0),VIOCGETCELL); else if (strEQ(name,"VIOCGETFID")) sv_setiv(ST(0),VIOCGETFID); else if (strEQ(name,"VIOCGETTIME")) sv_setiv(ST(0),VIOCGETTIME); else if (strEQ(name,"VIOCGETTOK")) sv_setiv(ST(0),VIOCGETTOK); else if (strEQ(name,"VIOCGETVCXSTATUS")) sv_setiv(ST(0),VIOCGETVCXSTATUS); else if (strEQ(name,"VIOCGETVOLSTAT")) sv_setiv(ST(0),VIOCGETVOLSTAT); else if (strEQ(name,"VIOCLISTGROUPS")) sv_setiv(ST(0),VIOCLISTGROUPS); else if (strEQ(name,"VIOCNEWCELL")) sv_setiv(ST(0),VIOCNEWCELL); else if (strEQ(name,"VIOCNOP")) sv_setiv(ST(0),VIOCNOP); else if (strEQ(name,"VIOCPREFETCH")) sv_setiv(ST(0),VIOCPREFETCH); else if (strEQ(name,"VIOCSETAL")) sv_setiv(ST(0),VIOCSETAL); else if (strEQ(name,"VIOCSETCACHESIZE")) sv_setiv(ST(0),VIOCSETCACHESIZE); else if (strEQ(name,"VIOCSETTOK")) sv_setiv(ST(0),VIOCSETTOK); else if (strEQ(name,"VIOCSETVOLSTAT")) sv_setiv(ST(0),VIOCSETVOLSTAT); else if (strEQ(name,"VIOCSTAT")) sv_setiv(ST(0),VIOCSTAT); else if (strEQ(name,"VIOCUNLOG")) sv_setiv(ST(0),VIOCUNLOG); else if (strEQ(name,"VIOCUNPAG")) sv_setiv(ST(0),VIOCUNPAG); else if (strEQ(name,"VIOCWAITFOREVER")) sv_setiv(ST(0),VIOCWAITFOREVER); else if (strEQ(name,"VIOCWHEREIS")) sv_setiv(ST(0),VIOCWHEREIS); else if (strEQ(name,"VIOC_AFS_DELETE_MT_PT")) sv_setiv(ST(0),VIOC_AFS_DELETE_MT_PT); else if (strEQ(name,"VIOC_AFS_MARINER_HOST")) sv_setiv(ST(0),VIOC_AFS_MARINER_HOST); else if (strEQ(name,"VIOC_AFS_STAT_MT_PT")) sv_setiv(ST(0),VIOC_AFS_STAT_MT_PT); else if (strEQ(name,"VIOC_AFS_SYSNAME")) sv_setiv(ST(0),VIOC_AFS_SYSNAME); else if (strEQ(name,"VIOC_EXPORTAFS")) sv_setiv(ST(0),VIOC_EXPORTAFS); else if (strEQ(name,"VIOC_FILE_CELL_NAME")) sv_setiv(ST(0),VIOC_FILE_CELL_NAME); else if (strEQ(name,"VIOC_FLUSHVOLUME")) sv_setiv(ST(0),VIOC_FLUSHVOLUME); else if (strEQ(name,"VIOC_GAG")) sv_setiv(ST(0),VIOC_GAG); else if (strEQ(name,"VIOC_GETCELLSTATUS")) sv_setiv(ST(0),VIOC_GETCELLSTATUS); else if (strEQ(name,"VIOC_GETSPREFS")) sv_setiv(ST(0),VIOC_GETSPREFS); else if (strEQ(name,"VIOC_GET_PRIMARY_CELL")) sv_setiv(ST(0),VIOC_GET_PRIMARY_CELL); else if (strEQ(name,"VIOC_GET_WS_CELL")) sv_setiv(ST(0),VIOC_GET_WS_CELL); else if (strEQ(name,"VIOC_SETCELLSTATUS")) sv_setiv(ST(0),VIOC_SETCELLSTATUS); else if (strEQ(name,"VIOC_SETSPREFS")) sv_setiv(ST(0),VIOC_SETSPREFS); else if (strEQ(name,"VIOC_TWIDDLE")) sv_setiv(ST(0),VIOC_TWIDDLE); else if (strEQ(name,"VIOC_VENUSLOG")) sv_setiv(ST(0),VIOC_VENUSLOG); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } errno = 0; XSRETURN(1); return; } #line 16269 "AFS.c" PUTBACK; return; } } #else #define XSubPPtmpAAAB 1 XS(XS_AFS_constant) { dXSARGS; if (items < 1 || items > 2) Perl_croak(aTHX_ "Usage: AFS::constant(name, arg=0)"); SP -= items; { char * name = (char *)SvPV(ST(0),PL_na); int arg; if (items < 2) arg = 0; else { arg = (int)SvIV(ST(1)); } #line 12430 "AFS.xs" { ST(0) = sv_newmortal(); errno = EINVAL; switch (name[0]) { case 'A': switch (name[1]) { case 'F': switch (name[2]) { case 'S': if (strEQ(name,"AFSCONF_FAILURE")) sv_setiv(ST(0),AFSCONF_FAILURE); else if (strEQ(name,"AFSCONF_FULL")) sv_setiv(ST(0),AFSCONF_FULL); else if (strEQ(name,"AFSCONF_NOCELL")) sv_setiv(ST(0),AFSCONF_NOCELL); else if (strEQ(name,"AFSCONF_NODB")) sv_setiv(ST(0),AFSCONF_NODB); else if (strEQ(name,"AFSCONF_NOTFOUND")) sv_setiv(ST(0),AFSCONF_NOTFOUND); else if (strEQ(name,"AFSCONF_SYNTAX")) sv_setiv(ST(0),AFSCONF_SYNTAX); else if (strEQ(name,"AFSCONF_UNKNOWN")) sv_setiv(ST(0),AFSCONF_UNKNOWN); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'N': switch (name[2]) { case 'O': if (strEQ(name,"ANONYMOUSID")) sv_setiv(ST(0),ANONYMOUSID); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'Y': if (strEQ(name,"ANYUSERID")) sv_setiv(ST(0),ANYUSERID); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'U': switch (name[2]) { case 'T': if (strEQ(name,"AUTHUSERID")) sv_setiv(ST(0),AUTHUSERID); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'C': switch (name[1]) { case 'O': switch (name[2]) { case 'S': if (strEQ(name,"COSIZE")) sv_setiv(ST(0),COSIZE); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'K': switch (name[1]) { case 'A': switch (name[2]) { case 'A': if (strEQ(name,"KAANSWERTOOLONG")) sv_setiv(ST(0),KAANSWERTOOLONG); else if (strEQ(name,"KAASSOCUSER")) sv_setiv(ST(0),KAASSOCUSER); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'B': if (strEQ(name,"KABADARGUMENT")) sv_setiv(ST(0),KABADARGUMENT); else if (strEQ(name,"KABADCMD")) sv_setiv(ST(0),KABADCMD); else if (strEQ(name,"KABADCPW")) sv_setiv(ST(0),KABADCPW); else if (strEQ(name,"KABADCREATE")) sv_setiv(ST(0),KABADCREATE); else if (strEQ(name,"KABADINDEX")) sv_setiv(ST(0),KABADINDEX); else if (strEQ(name,"KABADKEY")) sv_setiv(ST(0),KABADKEY); else if (strEQ(name,"KABADNAME")) sv_setiv(ST(0),KABADNAME); else if (strEQ(name,"KABADPROTOCOL")) sv_setiv(ST(0),KABADPROTOCOL); else if (strEQ(name,"KABADREQUEST")) sv_setiv(ST(0),KABADREQUEST); else if (strEQ(name,"KABADSERVER")) sv_setiv(ST(0),KABADSERVER); else if (strEQ(name,"KABADTICKET")) sv_setiv(ST(0),KABADTICKET); else if (strEQ(name,"KABADUSER")) sv_setiv(ST(0),KABADUSER); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'C': if (strEQ(name,"KACLOCKSKEW")) sv_setiv(ST(0),KACLOCKSKEW); else if (strEQ(name,"KACREATEFAIL")) sv_setiv(ST(0),KACREATEFAIL); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'D': if (strEQ(name,"KADATABASEINCONSISTENT")) sv_setiv(ST(0),KADATABASEINCONSISTENT); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'E': if (strEQ(name,"KAEMPTY")) sv_setiv(ST(0),KAEMPTY); else if (strEQ(name,"KAEXIST")) sv_setiv(ST(0),KAEXIST); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'F': if (strEQ(name,"KAFADMIN")) sv_setiv(ST(0),KAFADMIN); else if (strEQ(name,"KAFASSOC")) sv_setiv(ST(0),KAFASSOC); else if (strEQ(name,"KAFASSOCROOT")) sv_setiv(ST(0),KAFASSOCROOT); else if (strEQ(name,"KAFFREE")) sv_setiv(ST(0),KAFFREE); else if (strEQ(name,"KAFNEWASSOC")) sv_setiv(ST(0),KAFNEWASSOC); else if (strEQ(name,"KAFNOCPW")) sv_setiv(ST(0),KAFNOCPW); else if (strEQ(name,"KAFNORMAL")) sv_setiv(ST(0),KAFNORMAL); else if (strEQ(name,"KAFNOSEAL")) sv_setiv(ST(0),KAFNOSEAL); else if (strEQ(name,"KAFNOTGS")) sv_setiv(ST(0),KAFNOTGS); else if (strEQ(name,"KAFOLDKEYS")) sv_setiv(ST(0),KAFOLDKEYS); else if (strEQ(name,"KAFSPECIAL")) sv_setiv(ST(0),KAFSPECIAL); else if (strEQ(name,"KAF_SETTABLE_FLAGS")) sv_setiv(ST(0),KAF_SETTABLE_FLAGS); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'I': if (strEQ(name,"KAINTERNALERROR")) sv_setiv(ST(0),KAINTERNALERROR); else if (strEQ(name,"KAIO")) sv_setiv(ST(0),KAIO); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'K': if (strEQ(name,"KAKEYCACHEINVALID")) sv_setiv(ST(0),KAKEYCACHEINVALID); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'L': if (strEQ(name,"KALOCKED")) sv_setiv(ST(0),KALOCKED); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'M': if (strEQ(name,"KAMAJORVERSION")) sv_setiv(ST(0),KAMAJORVERSION); else if (strEQ(name,"KAMINORVERSION")) sv_setiv(ST(0),KAMINORVERSION); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'N': if (strEQ(name,"KANOAUTH")) sv_setiv(ST(0),KANOAUTH); else if (strEQ(name,"KANOCELL")) sv_setiv(ST(0),KANOCELL); else if (strEQ(name,"KANOCELLS")) sv_setiv(ST(0),KANOCELLS); else if (strEQ(name,"KANOENT")) sv_setiv(ST(0),KANOENT); else if (strEQ(name,"KANOKEYS")) sv_setiv(ST(0),KANOKEYS); else if (strEQ(name,"KANORECURSE")) sv_setiv(ST(0),KANORECURSE); else if (strEQ(name,"KANOTICKET")) sv_setiv(ST(0),KANOTICKET); else if (strEQ(name,"KANOTSPECIAL")) sv_setiv(ST(0),KANOTSPECIAL); else if (strEQ(name,"KANULLPASSWORD")) sv_setiv(ST(0),KANULLPASSWORD); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'O': if (strEQ(name,"KAOLDINTERFACE")) sv_setiv(ST(0),KAOLDINTERFACE); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'P': if (strEQ(name,"KAPWEXPIRED")) sv_setiv(ST(0),KAPWEXPIRED); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'R': if (strEQ(name,"KAREADPW")) sv_setiv(ST(0),KAREADPW); else if (strEQ(name,"KAREUSED")) sv_setiv(ST(0),KAREUSED); else if (strEQ(name,"KARXFAIL")) sv_setiv(ST(0),KARXFAIL); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'T': if (strEQ(name,"KATOOMANYKEYS")) sv_setiv(ST(0),KATOOMANYKEYS); else if (strEQ(name,"KATOOMANYUBIKS")) sv_setiv(ST(0),KATOOMANYUBIKS); else if (strEQ(name,"KATOOSOON")) sv_setiv(ST(0),KATOOSOON); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'U': if (strEQ(name,"KAUBIKCALL")) sv_setiv(ST(0),KAUBIKCALL); else if (strEQ(name,"KAUBIKINIT")) sv_setiv(ST(0),KAUBIKINIT); else if (strEQ(name,"KAUNKNOWNKEY")) sv_setiv(ST(0),KAUNKNOWNKEY); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case '_': if (strEQ(name,"KA_ADMIN_INST")) sv_setpv(ST(0),KA_ADMIN_INST); else if (strEQ(name,"KA_ADMIN_NAME")) sv_setpv(ST(0),KA_ADMIN_NAME); else if (strEQ(name,"KA_AUTHENTICATION_SERVICE")) sv_setiv(ST(0),KA_AUTHENTICATION_SERVICE); else if (strEQ(name,"KA_ISLOCKED")) sv_setiv(ST(0),KA_ISLOCKED); else if (strEQ(name,"KA_MAINTENANCE_SERVICE")) sv_setiv(ST(0),KA_MAINTENANCE_SERVICE); else if (strEQ(name,"KA_NOREUSEPW")) sv_setiv(ST(0),KA_NOREUSEPW); else if (strEQ(name,"KA_REUSEPW")) sv_setiv(ST(0),KA_REUSEPW); else if (strEQ(name,"KA_TGS_NAME")) sv_setpv(ST(0),KA_TGS_NAME); else if (strEQ(name,"KA_TICKET_GRANTING_SERVICE")) sv_setiv(ST(0),KA_TICKET_GRANTING_SERVICE); else if (strEQ(name,"KA_USERAUTH_DOSETPAG")) sv_setiv(ST(0),KA_USERAUTH_DOSETPAG); else if (strEQ(name,"KA_USERAUTH_DOSETPAG2")) sv_setiv(ST(0),KA_USERAUTH_DOSETPAG2); else if (strEQ(name,"KA_USERAUTH_VERSION")) sv_setiv(ST(0),KA_USERAUTH_VERSION); else if (strEQ(name,"KA_USERAUTH_VERSION_MASK")) sv_setiv(ST(0),KA_USERAUTH_VERSION_MASK); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'T': switch (name[2]) { case 'C': if (strEQ(name,"KTC_TIME_UNCERTAINTY")) sv_setiv(ST(0),KTC_TIME_UNCERTAINTY); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'M': switch (name[1]) { case 'A': switch (name[2]) { case 'X': if (strEQ(name,"MAXKAKVNO")) sv_setiv(ST(0),MAXKAKVNO); else if (strEQ(name,"MAXKTCNAMELEN")) sv_setiv(ST(0),MAXKTCNAMELEN); else if (strEQ(name,"MAXKTCREALMLEN")) sv_setiv(ST(0),MAXKTCREALMLEN); else if (strEQ(name,"MAXKTCTICKETLEN")) sv_setiv(ST(0),MAXKTCTICKETLEN); else if (strEQ(name,"MAXKTCTICKETLIFETIME")) sv_setiv(ST(0),MAXKTCTICKETLIFETIME); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'I': switch (name[2]) { case 'N': if (strEQ(name,"MINKTCTICKETLEN")) sv_setiv(ST(0),MINKTCTICKETLEN); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'N': switch (name[1]) { case 'E': switch (name[2]) { case 'V': if (strEQ(name,"NEVERDATE")) sv_setiv(ST(0),NEVERDATE); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'P': switch (name[1]) { case 'R': switch (name[2]) { case 'A': if (strEQ(name,"PRACCESS")) sv_setiv(ST(0),PRACCESS); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'B': if (strEQ(name,"PRBADARG")) sv_setiv(ST(0),PRBADARG); else if (strEQ(name,"PRBADID")) sv_setiv(ST(0),PRBADID); else if (strEQ(name,"PRBADNAM")) sv_setiv(ST(0),PRBADNAM); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'C': if (strEQ(name,"PRCELL")) sv_setiv(ST(0),PRCELL); else if (strEQ(name,"PRCONT")) sv_setiv(ST(0),PRCONT); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'D': if (strEQ(name,"PRDBADDR")) sv_setiv(ST(0),PRDBADDR); else if (strEQ(name,"PRDBBAD")) sv_setiv(ST(0),PRDBBAD); else if (strEQ(name,"PRDBFAIL")) sv_setiv(ST(0),PRDBFAIL); else if (strEQ(name,"PRDBVERSION")) sv_setiv(ST(0),PRDBVERSION); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'E': if (strEQ(name,"PREXIST")) sv_setiv(ST(0),PREXIST); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'F': if (strEQ(name,"PRFOREIGN")) sv_setiv(ST(0),PRFOREIGN); else if (strEQ(name,"PRFREE")) sv_setiv(ST(0),PRFREE); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'G': if (strEQ(name,"PRGROUPEMPTY")) sv_setiv(ST(0),PRGROUPEMPTY); else if (strEQ(name,"PRGRP")) sv_setiv(ST(0),PRGRP); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'I': if (strEQ(name,"PRIDEXIST")) sv_setiv(ST(0),PRIDEXIST); else if (strEQ(name,"PRINCONSISTENT")) sv_setiv(ST(0),PRINCONSISTENT); else if (strEQ(name,"PRINST")) sv_setiv(ST(0),PRINST); else if (strEQ(name,"PRIVATE_SHIFT")) sv_setiv(ST(0),PRIVATE_SHIFT); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'N': if (strEQ(name,"PRNOENT")) sv_setiv(ST(0),PRNOENT); else if (strEQ(name,"PRNOIDS")) sv_setiv(ST(0),PRNOIDS); else if (strEQ(name,"PRNOMORE")) sv_setiv(ST(0),PRNOMORE); else if (strEQ(name,"PRNOTGROUP")) sv_setiv(ST(0),PRNOTGROUP); else if (strEQ(name,"PRNOTUSER")) sv_setiv(ST(0),PRNOTUSER); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'P': if (strEQ(name,"PRPERM")) sv_setiv(ST(0),PRPERM); else if (strEQ(name,"PRP_ADD_ANY")) sv_setiv(ST(0),PRP_ADD_ANY); else if (strEQ(name,"PRP_ADD_MEM")) sv_setiv(ST(0),PRP_ADD_MEM); else if (strEQ(name,"PRP_GROUP_DEFAULT")) sv_setiv(ST(0),PRP_GROUP_DEFAULT); else if (strEQ(name,"PRP_MEMBER_ANY")) sv_setiv(ST(0),PRP_MEMBER_ANY); else if (strEQ(name,"PRP_MEMBER_MEM")) sv_setiv(ST(0),PRP_MEMBER_MEM); else if (strEQ(name,"PRP_OWNED_ANY")) sv_setiv(ST(0),PRP_OWNED_ANY); else if (strEQ(name,"PRP_REMOVE_MEM")) sv_setiv(ST(0),PRP_REMOVE_MEM); else if (strEQ(name,"PRP_STATUS_ANY")) sv_setiv(ST(0),PRP_STATUS_ANY); else if (strEQ(name,"PRP_STATUS_MEM")) sv_setiv(ST(0),PRP_STATUS_MEM); else if (strEQ(name,"PRP_USER_DEFAULT")) sv_setiv(ST(0),PRP_USER_DEFAULT); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'Q': if (strEQ(name,"PRQUOTA")) sv_setiv(ST(0),PRQUOTA); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'S': if (strEQ(name,"PRSFS_ADMINISTER")) sv_setiv(ST(0),PRSFS_ADMINISTER); else if (strEQ(name,"PRSFS_DELETE")) sv_setiv(ST(0),PRSFS_DELETE); else if (strEQ(name,"PRSFS_INSERT")) sv_setiv(ST(0),PRSFS_INSERT); else if (strEQ(name,"PRSFS_LOCK")) sv_setiv(ST(0),PRSFS_LOCK); else if (strEQ(name,"PRSFS_LOOKUP")) sv_setiv(ST(0),PRSFS_LOOKUP); else if (strEQ(name,"PRSFS_READ")) sv_setiv(ST(0),PRSFS_READ); else if (strEQ(name,"PRSFS_USR0")) sv_setiv(ST(0),PRSFS_USR0); else if (strEQ(name,"PRSFS_USR1")) sv_setiv(ST(0),PRSFS_USR1); else if (strEQ(name,"PRSFS_USR2")) sv_setiv(ST(0),PRSFS_USR2); else if (strEQ(name,"PRSFS_USR3")) sv_setiv(ST(0),PRSFS_USR3); else if (strEQ(name,"PRSFS_USR4")) sv_setiv(ST(0),PRSFS_USR4); else if (strEQ(name,"PRSFS_USR5")) sv_setiv(ST(0),PRSFS_USR5); else if (strEQ(name,"PRSFS_USR6")) sv_setiv(ST(0),PRSFS_USR6); else if (strEQ(name,"PRSFS_USR7")) sv_setiv(ST(0),PRSFS_USR7); else if (strEQ(name,"PRSFS_WRITE")) sv_setiv(ST(0),PRSFS_WRITE); else if (strEQ(name,"PRSIZE")) sv_setiv(ST(0),PRSIZE); else if (strEQ(name,"PRSUCCESS")) sv_setiv(ST(0),PRSUCCESS); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'T': if (strEQ(name,"PRTOOMANY")) sv_setiv(ST(0),PRTOOMANY); else if (strEQ(name,"PRTYPE")) sv_setiv(ST(0),PRTYPE); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'U': if (strEQ(name,"PRUSER")) sv_setiv(ST(0),PRUSER); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case '_': if (strEQ(name,"PR_HIGHEST_OPCODE")) sv_setiv(ST(0),PR_HIGHEST_OPCODE); else if (strEQ(name,"PR_LOWEST_OPCODE")) sv_setiv(ST(0),PR_LOWEST_OPCODE); else if (strEQ(name,"PR_MAXGROUPS")) sv_setiv(ST(0),PR_MAXGROUPS); else if (strEQ(name,"PR_MAXLIST")) sv_setiv(ST(0),PR_MAXLIST); else if (strEQ(name,"PR_MAXNAMELEN")) sv_setiv(ST(0),PR_MAXNAMELEN); else if (strEQ(name,"PR_NUMBER_OPCODES")) sv_setiv(ST(0),PR_NUMBER_OPCODES); else if (strEQ(name,"PR_REMEMBER_TIMES")) sv_setiv(ST(0),PR_REMEMBER_TIMES); else if (strEQ(name,"PR_SF_ALLBITS")) sv_setiv(ST(0),PR_SF_ALLBITS); else if (strEQ(name,"PR_SF_NGROUPS")) sv_setiv(ST(0),PR_SF_NGROUPS); else if (strEQ(name,"PR_SF_NUSERS")) sv_setiv(ST(0),PR_SF_NUSERS); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'R': switch (name[1]) { case 'X': switch (name[2]) { case 'K': if (strEQ(name,"RXKADBADKEY")) sv_setiv(ST(0),RXKADBADKEY); else if (strEQ(name,"RXKADBADTICKET")) sv_setiv(ST(0),RXKADBADTICKET); else if (strEQ(name,"RXKADDATALEN")) sv_setiv(ST(0),RXKADDATALEN); else if (strEQ(name,"RXKADEXPIRED")) sv_setiv(ST(0),RXKADEXPIRED); else if (strEQ(name,"RXKADILLEGALLEVEL")) sv_setiv(ST(0),RXKADILLEGALLEVEL); else if (strEQ(name,"RXKADINCONSISTENCY")) sv_setiv(ST(0),RXKADINCONSISTENCY); else if (strEQ(name,"RXKADLEVELFAIL")) sv_setiv(ST(0),RXKADLEVELFAIL); else if (strEQ(name,"RXKADNOAUTH")) sv_setiv(ST(0),RXKADNOAUTH); else if (strEQ(name,"RXKADOUTOFSEQUENCE")) sv_setiv(ST(0),RXKADOUTOFSEQUENCE); else if (strEQ(name,"RXKADPACKETSHORT")) sv_setiv(ST(0),RXKADPACKETSHORT); else if (strEQ(name,"RXKADSEALEDINCON")) sv_setiv(ST(0),RXKADSEALEDINCON); else if (strEQ(name,"RXKADTICKETLEN")) sv_setiv(ST(0),RXKADTICKETLEN); else if (strEQ(name,"RXKADUNKNOWNKEY")) sv_setiv(ST(0),RXKADUNKNOWNKEY); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case '_': if (strEQ(name,"RX_SCINDEX_KAD")) sv_setiv(ST(0),RX_SCINDEX_KAD); else if (strEQ(name,"RX_SCINDEX_NULL")) sv_setiv(ST(0),RX_SCINDEX_NULL); else if (strEQ(name,"RX_SCINDEX_VAB")) sv_setiv(ST(0),RX_SCINDEX_VAB); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'S': switch (name[1]) { case 'Y': switch (name[2]) { case 'S': if (strEQ(name,"SYSADMINID")) sv_setiv(ST(0),SYSADMINID); else if (strEQ(name,"SYSBACKUPID")) sv_setiv(ST(0),SYSBACKUPID); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'U': switch (name[1]) { case 'B': switch (name[2]) { case 'A': if (strEQ(name,"UBADHOST")) sv_setiv(ST(0),UBADHOST); else if (strEQ(name,"UBADLOCK")) sv_setiv(ST(0),UBADLOCK); else if (strEQ(name,"UBADLOG")) sv_setiv(ST(0),UBADLOG); else if (strEQ(name,"UBADTYPE")) sv_setiv(ST(0),UBADTYPE); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'D': switch (name[2]) { case 'O': if (strEQ(name,"UDONE")) sv_setiv(ST(0),UDONE); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'E': switch (name[2]) { case 'O': if (strEQ(name,"UEOF")) sv_setiv(ST(0),UEOF); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'I': switch (name[2]) { case 'N': if (strEQ(name,"UINTERNAL")) sv_setiv(ST(0),UINTERNAL); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'O': if (strEQ(name,"UIOERROR")) sv_setiv(ST(0),UIOERROR); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'L': switch (name[2]) { case 'O': if (strEQ(name,"ULOGIO")) sv_setiv(ST(0),ULOGIO); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'N': switch (name[2]) { case 'H': if (strEQ(name,"UNHOSTS")) sv_setiv(ST(0),UNHOSTS); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'O': if (strEQ(name,"UNOENT")) sv_setiv(ST(0),UNOENT); else if (strEQ(name,"UNOQUORUM")) sv_setiv(ST(0),UNOQUORUM); else if (strEQ(name,"UNOSERVERS")) sv_setiv(ST(0),UNOSERVERS); else if (strEQ(name,"UNOTSYNC")) sv_setiv(ST(0),UNOTSYNC); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'S': switch (name[2]) { case 'Y': if (strEQ(name,"USYNC")) sv_setiv(ST(0),USYNC); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'T': switch (name[2]) { case 'W': if (strEQ(name,"UTWOENDS")) sv_setiv(ST(0),UTWOENDS); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; case 'V': switch (name[1]) { case 'I': switch (name[2]) { case 'O': if (strEQ(name,"VIOCACCESS")) sv_setiv(ST(0),VIOCACCESS); else if (strEQ(name,"VIOCCKBACK")) sv_setiv(ST(0),VIOCCKBACK); else if (strEQ(name,"VIOCCKCONN")) sv_setiv(ST(0),VIOCCKCONN); else if (strEQ(name,"VIOCCKSERV")) sv_setiv(ST(0),VIOCCKSERV); else if (strEQ(name,"VIOCDISGROUP")) sv_setiv(ST(0),VIOCDISGROUP); else if (strEQ(name,"VIOCENGROUP")) sv_setiv(ST(0),VIOCENGROUP); else if (strEQ(name,"VIOCFLUSH")) sv_setiv(ST(0),VIOCFLUSH); else if (strEQ(name,"VIOCFLUSHCB")) sv_setiv(ST(0),VIOCFLUSHCB); else if (strEQ(name,"VIOCGETAL")) sv_setiv(ST(0),VIOCGETAL); else if (strEQ(name,"VIOCGETCACHEPARMS")) sv_setiv(ST(0),VIOCGETCACHEPARMS); else if (strEQ(name,"VIOCGETCELL")) sv_setiv(ST(0),VIOCGETCELL); else if (strEQ(name,"VIOCGETFID")) sv_setiv(ST(0),VIOCGETFID); else if (strEQ(name,"VIOCGETTIME")) sv_setiv(ST(0),VIOCGETTIME); else if (strEQ(name,"VIOCGETTOK")) sv_setiv(ST(0),VIOCGETTOK); else if (strEQ(name,"VIOCGETVCXSTATUS")) sv_setiv(ST(0),VIOCGETVCXSTATUS); else if (strEQ(name,"VIOCGETVOLSTAT")) sv_setiv(ST(0),VIOCGETVOLSTAT); else if (strEQ(name,"VIOCLISTGROUPS")) sv_setiv(ST(0),VIOCLISTGROUPS); else if (strEQ(name,"VIOCNEWCELL")) sv_setiv(ST(0),VIOCNEWCELL); else if (strEQ(name,"VIOCNOP")) sv_setiv(ST(0),VIOCNOP); else if (strEQ(name,"VIOCPREFETCH")) sv_setiv(ST(0),VIOCPREFETCH); else if (strEQ(name,"VIOCSETAL")) sv_setiv(ST(0),VIOCSETAL); else if (strEQ(name,"VIOCSETCACHESIZE")) sv_setiv(ST(0),VIOCSETCACHESIZE); else if (strEQ(name,"VIOCSETTOK")) sv_setiv(ST(0),VIOCSETTOK); else if (strEQ(name,"VIOCSETVOLSTAT")) sv_setiv(ST(0),VIOCSETVOLSTAT); else if (strEQ(name,"VIOCSTAT")) sv_setiv(ST(0),VIOCSTAT); else if (strEQ(name,"VIOCUNLOG")) sv_setiv(ST(0),VIOCUNLOG); else if (strEQ(name,"VIOCUNPAG")) sv_setiv(ST(0),VIOCUNPAG); else if (strEQ(name,"VIOCWAITFOREVER")) sv_setiv(ST(0),VIOCWAITFOREVER); else if (strEQ(name,"VIOCWHEREIS")) sv_setiv(ST(0),VIOCWHEREIS); else if (strEQ(name,"VIOC_AFS_DELETE_MT_PT")) sv_setiv(ST(0),VIOC_AFS_DELETE_MT_PT); else if (strEQ(name,"VIOC_AFS_MARINER_HOST")) sv_setiv(ST(0),VIOC_AFS_MARINER_HOST); else if (strEQ(name,"VIOC_AFS_STAT_MT_PT")) sv_setiv(ST(0),VIOC_AFS_STAT_MT_PT); else if (strEQ(name,"VIOC_AFS_SYSNAME")) sv_setiv(ST(0),VIOC_AFS_SYSNAME); else if (strEQ(name,"VIOC_EXPORTAFS")) sv_setiv(ST(0),VIOC_EXPORTAFS); else if (strEQ(name,"VIOC_FILE_CELL_NAME")) sv_setiv(ST(0),VIOC_FILE_CELL_NAME); else if (strEQ(name,"VIOC_FLUSHVOLUME")) sv_setiv(ST(0),VIOC_FLUSHVOLUME); else if (strEQ(name,"VIOC_GAG")) sv_setiv(ST(0),VIOC_GAG); else if (strEQ(name,"VIOC_GETCELLSTATUS")) sv_setiv(ST(0),VIOC_GETCELLSTATUS); else if (strEQ(name,"VIOC_GETSPREFS")) sv_setiv(ST(0),VIOC_GETSPREFS); else if (strEQ(name,"VIOC_GET_PRIMARY_CELL")) sv_setiv(ST(0),VIOC_GET_PRIMARY_CELL); else if (strEQ(name,"VIOC_GET_WS_CELL")) sv_setiv(ST(0),VIOC_GET_WS_CELL); else if (strEQ(name,"VIOC_SETCELLSTATUS")) sv_setiv(ST(0),VIOC_SETCELLSTATUS); else if (strEQ(name,"VIOC_SETSPREFS")) sv_setiv(ST(0),VIOC_SETSPREFS); else if (strEQ(name,"VIOC_TWIDDLE")) sv_setiv(ST(0),VIOC_TWIDDLE); else if (strEQ(name,"VIOC_VENUSLOG")) sv_setiv(ST(0),VIOC_VENUSLOG); else { ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } break; default: ST(0) = ST(1) = &PL_sv_undef; return; } errno = 0; XSRETURN(1); return; } #line 17090 "AFS.c" PUTBACK; return; } } #endif #ifdef __cplusplus extern "C" #endif XS(boot_AFS) { dXSARGS; char* file = __FILE__; XS_VERSION_BOOTCHECK ; newXS("AFS::pioctl", XS_AFS_pioctl, file); newXS("AFS::getvolstats", XS_AFS_getvolstats, file); newXS("AFS::whereis", XS_AFS_whereis, file); newXS("AFS::checkservers", XS_AFS_checkservers, file); newXS("AFS::getcell", XS_AFS_getcell, file); newXS("AFS::_get_server_version", XS_AFS__get_server_version, file); newXS("AFS::get_syslib_version", XS_AFS_get_syslib_version, file); newXS("AFS::XSVERSION", XS_AFS_XSVERSION, file); newXS("AFS::sysname", XS_AFS_sysname, file); newXS("AFS::getcrypt", XS_AFS_getcrypt, file); newXS("AFS::setcrypt", XS_AFS_setcrypt, file); newXS("AFS::whichcell", XS_AFS_whichcell, file); newXS("AFS::lsmount", XS_AFS_lsmount, file); newXS("AFS::rmmount", XS_AFS_rmmount, file); newXS("AFS::flushvolume", XS_AFS_flushvolume, file); newXS("AFS::flush", XS_AFS_flush, file); newXS("AFS::flushcb", XS_AFS_flushcb, file); newXS("AFS::setquota", XS_AFS_setquota, file); newXS("AFS::getquota", XS_AFS_getquota, file); newXS("AFS::mkmount", XS_AFS_mkmount, file); newXS("AFS::checkvolumes", XS_AFS_checkvolumes, file); newXS("AFS::checkconn", XS_AFS_checkconn, file); newXS("AFS::getcacheparms", XS_AFS_getcacheparms, file); newXS("AFS::setcachesize", XS_AFS_setcachesize, file); newXS("AFS::unlog", XS_AFS_unlog, file); newXS("AFS::getfid", XS_AFS_getfid, file); newXS("AFS::isafs", XS_AFS_isafs, file); newXS("AFS::cm_access", XS_AFS_cm_access, file); newXS("AFS::ascii2rights", XS_AFS_ascii2rights, file); newXS("AFS::rights2ascii", XS_AFS_rights2ascii, file); newXS("AFS::crights", XS_AFS_crights, file); newXS("AFS::getcellstatus", XS_AFS_getcellstatus, file); newXS("AFS::setcellstatus", XS_AFS_setcellstatus, file); newXS("AFS::wscell", XS_AFS_wscell, file); newXS("AFS::_getacl", XS_AFS__getacl, file); newXS("AFS::setacl", XS_AFS_setacl, file); newXS("AFS::KTC_PRINCIPAL::_new", XS_AFS__KTC_PRINCIPAL__new, file); newXS("AFS::KTC_PRINCIPAL::set", XS_AFS__KTC_PRINCIPAL_set, file); newXS("AFS::KTC_PRINCIPAL::DESTROY", XS_AFS__KTC_PRINCIPAL_DESTROY, file); newXS("AFS::KTC_PRINCIPAL::name", XS_AFS__KTC_PRINCIPAL_name, file); newXS("AFS::KTC_PRINCIPAL::instance", XS_AFS__KTC_PRINCIPAL_instance, file); newXS("AFS::KTC_PRINCIPAL::cell", XS_AFS__KTC_PRINCIPAL_cell, file); newXS("AFS::KTC_PRINCIPAL::principal", XS_AFS__KTC_PRINCIPAL_principal, file); newXS("AFS::KTC_TOKEN::DESTROY", XS_AFS__KTC_TOKEN_DESTROY, file); newXS("AFS::KTC_TOKEN::startTime", XS_AFS__KTC_TOKEN_startTime, file); newXS("AFS::KTC_TOKEN::endTime", XS_AFS__KTC_TOKEN_endTime, file); newXS("AFS::KTC_TOKEN::kvno", XS_AFS__KTC_TOKEN_kvno, file); newXS("AFS::KTC_TOKEN::ticketLen", XS_AFS__KTC_TOKEN_ticketLen, file); newXS("AFS::KTC_TOKEN::ticket", XS_AFS__KTC_TOKEN_ticket, file); newXS("AFS::KTC_TOKEN::sessionKey", XS_AFS__KTC_TOKEN_sessionKey, file); newXS("AFS::KTC_TOKEN::string", XS_AFS__KTC_TOKEN_string, file); newXS("AFS::KTC_EKEY::DESTROY", XS_AFS__KTC_EKEY_DESTROY, file); newXS("AFS::KTC_EKEY::string", XS_AFS__KTC_EKEY_string, file); newXS("AFS::VOS::new", XS_AFS__VOS_new, file); newXS("AFS::VOS::_DESTROY", XS_AFS__VOS__DESTROY, file); newXS("AFS::VOS::status", XS_AFS__VOS_status, file); newXS("AFS::VOS::release", XS_AFS__VOS_release, file); newXS("AFS::VOS::create", XS_AFS__VOS_create, file); newXS("AFS::VOS::backup", XS_AFS__VOS_backup, file); newXS("AFS::VOS::remove", XS_AFS__VOS_remove, file); newXS("AFS::VOS::rename", XS_AFS__VOS_rename, file); newXS("AFS::VOS::_setfields", XS_AFS__VOS__setfields, file); newXS("AFS::VOS::restore", XS_AFS__VOS_restore, file); newXS("AFS::VOS::dump", XS_AFS__VOS_dump, file); newXS("AFS::VOS::partinfo", XS_AFS__VOS_partinfo, file); newXS("AFS::VOS::listvol", XS_AFS__VOS_listvol, file); newXS("AFS::VOS::move", XS_AFS__VOS_move, file); newXS("AFS::VOS::zap", XS_AFS__VOS_zap, file); newXS("AFS::VOS::offline", XS_AFS__VOS_offline, file); newXS("AFS::VOS::online", XS_AFS__VOS_online, file); newXS("AFS::VOS::_backupsys", XS_AFS__VOS__backupsys, file); newXS("AFS::VOS::listpart", XS_AFS__VOS_listpart, file); newXS("AFS::VOS::listvolume", XS_AFS__VOS_listvolume, file); newXS("AFS::VLDB::new", XS_AFS__VLDB_new, file); newXS("AFS::VLDB::_DESTROY", XS_AFS__VLDB__DESTROY, file); newXS("AFS::VLDB::addsite", XS_AFS__VLDB_addsite, file); newXS("AFS::VLDB::changeloc", XS_AFS__VLDB_changeloc, file); newXS("AFS::VLDB::_listvldb", XS_AFS__VLDB__listvldb, file); newXS("AFS::VLDB::listaddrs", XS_AFS__VLDB_listaddrs, file); newXS("AFS::VLDB::_delentry", XS_AFS__VLDB__delentry, file); newXS("AFS::VLDB::lock", XS_AFS__VLDB_lock, file); newXS("AFS::VLDB::unlock", XS_AFS__VLDB_unlock, file); newXS("AFS::VLDB::unlockvldb", XS_AFS__VLDB_unlockvldb, file); newXS("AFS::VLDB::_syncvldb", XS_AFS__VLDB__syncvldb, file); newXS("AFS::VLDB::_changeaddr", XS_AFS__VLDB__changeaddr, file); newXS("AFS::VLDB::remsite", XS_AFS__VLDB_remsite, file); newXS("AFS::VLDB::syncserv", XS_AFS__VLDB_syncserv, file); newXS("AFS::BOS::new", XS_AFS__BOS_new, file); newXS("AFS::BOS::_DESTROY", XS_AFS__BOS__DESTROY, file); newXS("AFS::BOS::_status", XS_AFS__BOS__status, file); newXS("AFS::BOS::setauth", XS_AFS__BOS_setauth, file); newXS("AFS::BOS::exec", XS_AFS__BOS_exec, file); newXS("AFS::BOS::addhost", XS_AFS__BOS_addhost, file); newXS("AFS::BOS::removehost", XS_AFS__BOS_removehost, file); newXS("AFS::BOS::prune", XS_AFS__BOS_prune, file); newXS("AFS::BOS::adduser", XS_AFS__BOS_adduser, file); newXS("AFS::BOS::removeuser", XS_AFS__BOS_removeuser, file); newXS("AFS::BOS::addkey", XS_AFS__BOS_addkey, file); newXS("AFS::BOS::removekey", XS_AFS__BOS_removekey, file); newXS("AFS::BOS::_create", XS_AFS__BOS__create, file); newXS("AFS::BOS::_restart", XS_AFS__BOS__restart, file); newXS("AFS::BOS::setrestart", XS_AFS__BOS_setrestart, file); newXS("AFS::BOS::getrestart", XS_AFS__BOS_getrestart, file); newXS("AFS::BOS::listusers", XS_AFS__BOS_listusers, file); newXS("AFS::BOS::listhosts", XS_AFS__BOS_listhosts, file); newXS("AFS::BOS::delete", XS_AFS__BOS_delete, file); newXS("AFS::BOS::getlog", XS_AFS__BOS_getlog, file); newXS("AFS::BOS::_start", XS_AFS__BOS__start, file); newXS("AFS::BOS::_startup", XS_AFS__BOS__startup, file); newXS("AFS::BOS::_stop", XS_AFS__BOS__stop, file); newXS("AFS::BOS::_shutdown", XS_AFS__BOS__shutdown, file); newXS("AFS::BOS::setcellname", XS_AFS__BOS_setcellname, file); newXS("AFS::BOS::listkeys", XS_AFS__BOS_listkeys, file); newXS("AFS::BOS::getrestricted", XS_AFS__BOS_getrestricted, file); newXS("AFS::BOS::setrestricted", XS_AFS__BOS_setrestricted, file); newXS("AFS::BOS::salvage", XS_AFS__BOS_salvage, file); newXS("AFS::PTS::_new", XS_AFS__PTS__new, file); newXS("AFS::PTS::_DESTROY", XS_AFS__PTS__DESTROY, file); newXS("AFS::PTS::id", XS_AFS__PTS_id, file); newXS("AFS::PTS::PR_NameToID", XS_AFS__PTS_PR_NameToID, file); newXS("AFS::PTS::name", XS_AFS__PTS_name, file); newXS("AFS::PTS::PR_IDToName", XS_AFS__PTS_PR_IDToName, file); newXS("AFS::PTS::members", XS_AFS__PTS_members, file); newXS("AFS::PTS::PR_ListElements", XS_AFS__PTS_PR_ListElements, file); newXS("AFS::PTS::getcps", XS_AFS__PTS_getcps, file); newXS("AFS::PTS::PR_GetCPS", XS_AFS__PTS_PR_GetCPS, file); newXS("AFS::PTS::owned", XS_AFS__PTS_owned, file); newXS("AFS::PTS::PR_ListOwned", XS_AFS__PTS_PR_ListOwned, file); newXS("AFS::PTS::createuser", XS_AFS__PTS_createuser, file); newXS("AFS::PTS::PR_NewEntry", XS_AFS__PTS_PR_NewEntry, file); newXS("AFS::PTS::PR_INewEntry", XS_AFS__PTS_PR_INewEntry, file); newXS("AFS::PTS::creategroup", XS_AFS__PTS_creategroup, file); newXS("AFS::PTS::listentry", XS_AFS__PTS_listentry, file); newXS("AFS::PTS::PR_ListEntry", XS_AFS__PTS_PR_ListEntry, file); newXS("AFS::PTS::dumpentry", XS_AFS__PTS_dumpentry, file); newXS("AFS::PTS::PR_DumpEntry", XS_AFS__PTS_PR_DumpEntry, file); newXS("AFS::PTS::rename", XS_AFS__PTS_rename, file); newXS("AFS::PTS::chown", XS_AFS__PTS_chown, file); newXS("AFS::PTS::chid", XS_AFS__PTS_chid, file); newXS("AFS::PTS::PR_ChangeEntry", XS_AFS__PTS_PR_ChangeEntry, file); newXS("AFS::PTS::adduser", XS_AFS__PTS_adduser, file); newXS("AFS::PTS::PR_AddToGroup", XS_AFS__PTS_PR_AddToGroup, file); newXS("AFS::PTS::removeuser", XS_AFS__PTS_removeuser, file); newXS("AFS::PTS::PR_RemoveFromGroup", XS_AFS__PTS_PR_RemoveFromGroup, file); newXS("AFS::PTS::delete", XS_AFS__PTS_delete, file); newXS("AFS::PTS::PR_Delete", XS_AFS__PTS_PR_Delete, file); newXS("AFS::PTS::whereisit", XS_AFS__PTS_whereisit, file); newXS("AFS::PTS::PR_WhereIsIt", XS_AFS__PTS_PR_WhereIsIt, file); newXS("AFS::PTS::listmax", XS_AFS__PTS_listmax, file); newXS("AFS::PTS::PR_ListMax", XS_AFS__PTS_PR_ListMax, file); newXS("AFS::PTS::setmax", XS_AFS__PTS_setmax, file); newXS("AFS::PTS::PR_SetMax", XS_AFS__PTS_PR_SetMax, file); newXS("AFS::PTS::setgroupquota", XS_AFS__PTS_setgroupquota, file); newXS("AFS::PTS::PR_SetFieldsEntry", XS_AFS__PTS_PR_SetFieldsEntry, file); newXS("AFS::PTS::setaccess", XS_AFS__PTS_setaccess, file); newXS("AFS::PTS::ismember", XS_AFS__PTS_ismember, file); newXS("AFS::PTS::PR_IsAMemberOf", XS_AFS__PTS_PR_IsAMemberOf, file); newXS("AFS::KAS::_DESTROY", XS_AFS__KAS__DESTROY, file); newXS("AFS::KAS::KAM_GetEntry", XS_AFS__KAS_KAM_GetEntry, file); newXS("AFS::KAS::KAM_Debug", XS_AFS__KAS_KAM_Debug, file); newXS("AFS::KAS::KAM_GetStats", XS_AFS__KAS_KAM_GetStats, file); newXS("AFS::KAS::KAM_GetRandomKey", XS_AFS__KAS_KAM_GetRandomKey, file); newXS("AFS::KAS::KAM_CreateUser", XS_AFS__KAS_KAM_CreateUser, file); newXS("AFS::KAS::KAM_SetPassword", XS_AFS__KAS_KAM_SetPassword, file); newXS("AFS::KAS::KAM_DeleteUser", XS_AFS__KAS_KAM_DeleteUser, file); newXS("AFS::KAS::KAM_ListEntry", XS_AFS__KAS_KAM_ListEntry, file); newXS("AFS::KAS::KAM_SetFields", XS_AFS__KAS_KAM_SetFields, file); newXS("AFS::KAS::ka_ChangePassword", XS_AFS__KAS_ka_ChangePassword, file); newXS("AFS::KAS::ka_GetToken", XS_AFS__KAS_ka_GetToken, file); newXS("AFS::KAS::ka_Authenticate", XS_AFS__KAS_ka_Authenticate, file); newXS("AFS::ascii2ptsaccess", XS_AFS_ascii2ptsaccess, file); newXS("AFS::ptsaccess2ascii", XS_AFS_ptsaccess2ascii, file); newXS("AFS::ka_ParseLoginName", XS_AFS_ka_ParseLoginName, file); newXS("AFS::ka_StringToKey", XS_AFS_ka_StringToKey, file); newXS("AFS::ka_UserAthenticateGeneral", XS_AFS_ka_UserAthenticateGeneral, file); newXS("AFS::ka_ReadPassword", XS_AFS_ka_ReadPassword, file); newXS("AFS::ka_UserReadPassword", XS_AFS_ka_UserReadPassword, file); newXS("AFS::ka_GetAdminToken", XS_AFS_ka_GetAdminToken, file); newXS("AFS::ka_GetAuthToken", XS_AFS_ka_GetAuthToken, file); newXS("AFS::ka_GetServerToken", XS_AFS_ka_GetServerToken, file); newXS("AFS::ka_nulltoken", XS_AFS_ka_nulltoken, file); newXS("AFS::ka_AuthServerConn", XS_AFS_ka_AuthServerConn, file); newXS("AFS::ka_SingleServerConn", XS_AFS_ka_SingleServerConn, file); newXS("AFS::ka_des_string_to_key", XS_AFS_ka_des_string_to_key, file); newXS("AFS::setpag", XS_AFS_setpag, file); newXS("AFS::expandcell", XS_AFS_expandcell, file); newXS("AFS::localcell", XS_AFS_localcell, file); newXS("AFS::getcellinfo", XS_AFS_getcellinfo, file); newXS("AFS::convert_numeric_names", XS_AFS_convert_numeric_names, file); newXS("AFS::raise_exception", XS_AFS_raise_exception, file); newXS("AFS::configdir", XS_AFS_configdir, file); newXS("AFS::ktc_ListTokens", XS_AFS_ktc_ListTokens, file); newXS("AFS::ktc_GetToken", XS_AFS_ktc_GetToken, file); newXS("AFS::ktc_FromString", XS_AFS_ktc_FromString, file); newXS("AFS::ktc_SetToken", XS_AFS_ktc_SetToken, file); newXS("AFS::ktc_ForgetAllTokens", XS_AFS_ktc_ForgetAllTokens, file); newXS("AFS::error_message", XS_AFS_error_message, file); #if XSubPPtmpAAAA newXS("AFS::constant", XS_AFS_constant, file); #endif #if XSubPPtmpAAAB newXS("AFS::constant", XS_AFS_constant, file); #endif /* Initialisation Section */ #line 11002 "AFS.xs" initialize_bz_error_table(); initialize_vols_error_table(); initialize_vl_error_table(); initialize_u_error_table(); initialize_pt_error_table(); initialize_ka_error_table(); initialize_acfg_error_table(); initialize_ktc_error_table(); initialize_rxk_error_table(); /* initialize_cmd_error_table(); */ /* initialize_budb_error_table(); */ /* initialize_butm_error_table(); */ /* initialize_butc_error_table(); */ #if XSubPPtmpAAAA #endif #if XSubPPtmpAAAB #endif #line 17332 "AFS.c" /* End of Initialisation Section */ XSRETURN_YES; }