Your problem might be the one I encountered - for the string "onenineight" the number is 18 and not 19

Hi Mark,

Is your AOC2022 repo public or private?

Trying to publish to https://test.pm.community.intersystems.com and getting  Publish FAILURE

ERROR! Publishing module, something went wrong.

I have done the following:

repo -n registry -r -url https://test.pm.community.intersystems.com -user test -pass PassWord42

load C:\where\my\code\is

list

publish my-zpm-package

and received the error

What am I doing wrong?

Thank you @Evgeny Shvarov 

Now with classes, you can find them on

https://github.com/uvg/AdventOfCodeUvg/tree/master/2021/CLS

Well...my solutions are in COS.

Working on a bignum solution (also in COS) for the last code of part2 in day 22.

Run this code and check what's the best for you:

CHK ;set string="a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z"set lfs=$listfromstring(string)set tags="x,d,blabla,m",tagl=$listfromstring(tags)set stringd=","_string_","kill arrstr for i=1:1:$length(string,",") set arrstr($piece(string,",",i))=ikill arrtag for i=1:1:$length(tags,",") set arrtag($piece(tags,",",i))=i;//$order the worstset hh=$zhorolog for i=1:1:1000000 for j=1:1:$listlength(tagl) set tag=$list(tagl,j) set hhh=$zhorologwrite !,"$ll&$li: ",$justify($fnumber(hhh-hh,"",6),10)set hh=$zhorolog for i=1:1:1000000 for j=1:1:$length(tags,",") set tag=$piece(tags,",",j) set hhh=$zhorologwrite !,"$l&$p: ",$justify($fnumber(hhh-hh,"",6),10)set hh=$zhorolog for i=1:1:1000000 set tag="" for  set tag=$order(arrtag(tag)) quit:tag=""  set hhh=$zhorologwrite !,"$o: ",$justify($fnumber(hhh-hh,"",6),10)//write !!!!set hh=$zhorolog for j=1:1:$length(tags,",") set tag=$piece(tags,",",j) for i=1:1:1000000 if $data(arrstr(tag)) set hhh=$zhorologwrite !,"$d: ",$justify($fnumber(hhh-hh,"",6),10)set hh=$zhorolog for j=1:1:$length(tags,",") set tag=$piece(tags,",",j),tagd=","_tag_"," for i=1:1:1000000 if stringd[(tagd) set hhh=$zhorologwrite !,"[: ",$justify($fnumber(hhh-hh,"",6),10)set hh=$zhorolog for j=1:1:$length(tags,",") set tag=$piece(tags,",",j),tagd=","_tag_"," for i=1:1:1000000 if $find(stringd,tagd) set hhh=$zhorologwrite !,"$f: ",$justify($fnumber(hhh-hh,"",6),10)set hh=$zhorolog for j=1:1:$length(tags,",") set tag=$piece(tags,",",j) for i=1:1:1000000 if $listfind(lfs,tag) set hhh=$zhorologwrite !,"$lf: ",$justify($fnumber(hhh-hh,"",6),10)set hh=$zhorolog for j=1:1:$length(tags,",") set tag=$piece(tags,",",j),tagd=","_tag_"," for i=1:1:1000000 if $match(stringd,".*"_tagd_"{1}.*") set hhh=$zhorologwrite !,"$match: ",$justify($fnumber(hhh-hh,"",6),10)quit

$GET(pDni)?8N in the GetLetter method where your input is 8 digits and the output is the corresponding letter.

In ValidateDni your input is 8 digits and one uppercase letter so there you should use $GET(pDni)?8N1U

So now the code will be something like this:

ClassMethod GetLetter(pDni As %String) As %String
{
    set correspondence = $LISTBUILD("T","R","W","A","G","M","Y","F","P","D","X","B","N","J","Z","S","Q","V","H","L","C","K","E")
    
    set letter = ""
    
    if ($get(pDni)?8N){
        set number = (pDni # 23)+1
        set letter = $LISTGET(correspondence,number)
    }
    
    quit letter
}

/// <br><b>0</b> Dni OK
/// <br><b>-1</b> Dni error

ClassMethod ValidateDni(pDni As %String) As %Integer
{

    set response = -1
    
    if ($get(pDni)?8N1U){
        //Get the numbers of Dni
        set auxNumber = $EXTRACT(pDni,1,8)
        
        //Get the letter of Dni
        set auxLetter = $EXTRACT(pDni,9,9)
        
        //Calculate the letter of the dni
        set calculatedLetter = ..GetLetter(auxNumber)
        
        if (auxLetter = calculatedLetter){
            set response = 0
        }        
    }
    
    quit response
}

According to your code you know the different subscripts and want to continue on the same clientId and you only care for the first 4 subscripts, so try this (running only on the given clientid so no need to check it, and running only on the first 4 subscripts so no need to check if we are beyond the (or on the same) 4th subscript), haven't tested it!!:

    ; Get log for given 'clientid'
    ; 'maxlog' records max, starting from given 'date','dek','idx'
GetXLog(clientid,date,dek,idx,maxlog) public
{
    set:maxlog="" maxlog=400
    set counter=0
    ; ^cxlog("EFRW1000",20161219,2,1,"date")=20161219
    ;
    ;setting the subscripts for their previous subscripts so the next iteration will get to the values you asked for
    ;if you want to continue after idx and not to repeat idx then comment the next line
    set idx=$order(^cxlog(clientid,date,dek,idx),-1)
    set dek=$order(^cxlog(clientid,date,dek),-1)
    set date=$order(^cxlog(clientid,date),-1)
    for {
        quit:counter=maxlog
        set date=$order(^cxlog(clientid,date)) quit:date=""
        for {
            quit:counter=maxlog
            set dek=$order(^cxlog(clientid,date,dek)) quit:dek=""
            for { 
                quit:counter=maxlog
                set idx=$order(^cxlog(clientid,date,dek,idx)) quit:idx=""
                write idx,!
                set counter=counter+1
            }
        }
    }
    w !
}

Hi @Nikita Savchenko

Thanks for a full install info.

I'm using Cache for Windows (x86-64) 2013.1.1 (Build 501_1_13062) Sun Aug 11 2013 23:20:33 EDT

Step 1 and 2 are going fine, i'm able to downlad ver 2 beta8, and i'm able to import and compile it on the %SYS namespace.

At step 3 i'm getting the login page and after i authenticate i get the Cache WEB Terminal in the title but with an empty body.

At step 3 i used IE 11, using the debugger it throw the next error from terminal.js:

"{if("undefined"==typeof JSON)throw new Error("Browser does not support html5 local storage. Please, update your browser")}"

So i tried step 3 on chrome  and now it's better but i get the following error (It's displayed in the body):

"WebSocket connection error (ws://servername/%25WebTerminal.Engine.cls). Trying to connect again in 10 seconds...
WebSocket connection closed. Code 1006, reson: ." which came from terminal.js

And now finally step 3 is working - using chrome and using the port 57772 (instead of 80)  i'm getting the prompt to %SYS namespace.

Thank you very much.

So, returning to this...

What should i do in order to install WebTerminal-2.0.0-beta.7/beta.8 on a Cache 2013.1 server?
At what namespace should i import the xml?
Should i manualy set a web application? if so - what should i define?

The documentation say that ver 3 and 4 will run on Cache 2014.1+

And i need to run it on Cache 2013.1.

So, Will v4 work on Cache 2013.1?