+HashList *GetGVEAHash(StrBuf *Target, int nArgs, WCTemplateToken *Tokens, void *Context, int ContextType)
+{
+ StrBuf *Rcp;
+ HashList *List = NULL;
+ int Done = 0;
+ int i, n = 1;
+ char N[64];
+
+ Rcp = NewStrBuf();
+ serv_puts("GVEA");
+ StrBuf_ServGetln(Rcp);
+ if (ChrPtr(Rcp)[0] == '1') {
+ FlushStrBuf(Rcp);
+ List = NewHash(1, NULL);
+ while (!Done && (StrBuf_ServGetln(Rcp)>=0)) {
+ if ( (StrLength(Rcp)==3) &&
+ !strcmp(ChrPtr(Rcp), "000"))
+ {
+ Done = 1;
+ }
+ else {
+ i = snprintf(N, sizeof(N), "%d", n);
+ Put(List, N, i, Rcp, HFreeStrBuf);
+ Rcp = NewStrBuf();
+ }
+ n++;
+ }
+ }
+ FreeStrBuf(&Rcp);
+ return List;
+}
+void DeleteGVEAHash(HashList **KillMe)
+{
+ DeleteHash(KillMe);
+}
+void tmplput_EMAIL_ADDR(StrBuf *Target, int nArgs, WCTemplateToken *Token, void *Context, int ContextType)
+{
+ StrBuf *EmailAddr = (StrBuf*) Context;
+ StrBufAppendBuf(Target, EmailAddr, 0);
+}
+
+HashList *GetGVSNHash(StrBuf *Target, int nArgs, WCTemplateToken *Tokens, void *Context, int ContextType)
+{
+ StrBuf *Rcp;
+ HashList *List = NULL;
+ int Done = 0;
+ int i, n = 1;
+ char N[64];
+
+ Rcp = NewStrBuf();
+ serv_puts("GVSN");
+ StrBuf_ServGetln(Rcp);
+ if (ChrPtr(Rcp)[0] == '1') {
+ FlushStrBuf(Rcp);
+ List = NewHash(1, NULL);
+ while (!Done && (StrBuf_ServGetln(Rcp)>=0)) {
+ if ( (StrLength(Rcp)==3) &&
+ !strcmp(ChrPtr(Rcp), "000"))
+ {
+ Done = 1;
+ }
+ else {
+ i = snprintf(N, sizeof(N), "%d", n);
+ Put(List, N, i, Rcp, HFreeStrBuf);
+ Rcp = NewStrBuf();
+ }
+ n++;
+ }
+ }
+ FreeStrBuf(&Rcp);
+ return List;
+}
+void DeleteGVSNHash(HashList **KillMe)
+{
+ DeleteHash(KillMe);
+}
+void tmplput_EMAIL_NAME(StrBuf *Target, int nArgs, WCTemplateToken *Token, void *Context, int ContextType)
+{
+ StrBuf *EmailAddr = (StrBuf*) Context;
+ StrBufAppendBuf(Target, EmailAddr, 0);
+}