Highlight a phrase and click this icon to search it on Swyx-Forum    Highlight a phrase and click this icon to search it within the Swyx Knowledgebase    Highlight a phrase and click this icon to search it using Goolge    Highlight a phrase and click this icon to search it using Wikipedia

Forum

Bookmark and Share

Forum

Bookmark and Share

 
  Forums  Development  Extended Call R...  Upgrading the BankHoliday with time
Previous Previous
 
Next Next
New Post 9/18/2007 1:57 PM
Resolved
User is offline Beni
57 posts
www.cropmark.ch
5th Level Poster


Upgrading the BankHoliday with time  (Switzerland)

Hi there

I have a question regarding the BankHoliday Script. Here in Switzerland we have some part-time holidays as well (for ecampel a holiday where the company is closed from 8:00 untill 13:00 o'clock). Is ist possible to enhance the script for those part-time holidays?

I thought about using the script more then once, but it would be nicer to have it all in one script.

 
New Post 9/18/2007 2:46 PM
User is offline Tom Wellige
2263 posts
www.swyx.com
1st Level Poster








Re: Upgrading the BankHoliday with time  (Germany)
Modified By Tom Wellige  on 9/18/2007 2:48:52 PM)

Hi Beni,

that would be possible with a minor modification of the existing script and txt file from the original kb article.

First you would have to extend the dates in the txt file. My following modification would except single date as also date/time ranges. E.g. something like this:

01.11.2007
24.12.2007 08:00;24.12.2007 14:00
25.12.2007;26.12.2007
31.12.2007 08:00;31.12.2007 14:00

Please note, that start end end date of a range are separated by a semicolon.
You can enter single dates per line, date ranges without any time or also date ranges including times.

Now you need to modify the existing script a little bit:

---------------

 

Dim bRange, aRange, vStart, vEnd

...

do while (not (file.AtEndOfStream)) and (not bReturn)

  sLine  = file.ReadLine
  bRange = False
 
aRange = Split(sLine, ";")

  if IsDate(aRange(0)) then

    vStart = CDate(aRange(0))
    if
UBound(aRange) > 0 then
     
if
IsDate(aRange(1)) then
       
bRange = True
       
vStart = CDate(aRange(1))
      end
if
   
end
if

    if not bRange then
     
if
(DateDiff("d", vDate, vStart) = 0) then bReturn = True
   
else
      if
(DateDiff("n", vStart, vDate) > 0) and _
         (DateDiff("n", vEnd, vDate) < 0) then bReturn = True
   
end
if

  end if

loop

---------------

 

Beni, I haven't tested this, but it should work. Once you have created a running ecr script from it I would like to ask you to upload it here so it will available for all other users as well.

 


Tom Wellige
(Lead Solution Consultant, Swyx)

I learned very early the difference between knowing the name of something and knowing something.
Richard P. Feynman

 
New Post 9/19/2007 11:08 AM
User is offline Beni
57 posts
www.cropmark.ch
5th Level Poster


Re: Upgrading the BankHoliday with time  (Switzerland)

I tested it and it seems to work. Thank you very much.

 
New Post 9/19/2007 1:34 PM
User is offline Tom Wellige
2263 posts
www.swyx.com
1st Level Poster








Re: Upgrading the BankHoliday with time  (Germany)

Thanks for uploading the updated script


Tom Wellige
(Lead Solution Consultant, Swyx)

I learned very early the difference between knowing the name of something and knowing something.
Richard P. Feynman

 
New Post 11/30/2007 8:56 AM
User is offline Beni
57 posts
www.cropmark.ch
5th Level Poster


Re: Upgrading the BankHoliday with time  (Switzerland)

Sorry to bring this old Topic up again. Sadly, I got some problems with the Script. If I activate a timerange in the text file, for exampel:

30.11.2007 08:00;30.11.2007 18:00

That's the according part from the trace of the server:

SPBXScript::OutputTrace          () IsBankHoliday(Now)
SPBXCtlFSM::StopFSMTimers        () stopped BusyInfo timer
SPBXCtlFSM::ProcessEvent         ()
~ResolvedMediaA              BusyInfo           Result: 0    NewSt: ResolvedMediaA         
SPBXCall::~SPBXCall              ()
STclCall::~STclCall              ()
SwSIPCall::ActionOn3xx4xx5xx6xx  () Could not send SwTCL Disconnect, result: 1
SFsm::OnProcessEvent             () Calling    evt3xx4xx5xx6xx    Result: 0    NewSt: Disconnected
SwSIPCall::EnterStateDisconnected(1) SEND SwTCL Disconnect(ResultCallDisconnected)
SScrServer::UserDataFolderReq    () returning C:\DOKUMENTE UND EINSTELLUNGEN\ALL USERS\ANWENDUNGSDATEN\SWYX\SHARE\user\benjamin
SwSIPCall::EnterStateDisconnected(1) Erase this call from list of calls.
SwSIPEndpoint::EraseCall         () Search for call with Call-ID '593cea566a72a576@Y3NlcjAwMjYuY3JvcG1hcmsuY2g.' ...
SwSIPEndpoint::EraseCall         () Erased Call with Call-ID '593cea566a72a576@Y3NlcjAwMjYuY3JvcG1hcmsuY2g.' from list of calls!
SwSIPCall::ClearInvitesList      () Clear list of SIP INVITE messages...
SwSIPCall::ClearInvitesList      () Delete SIP INVITE message with CSeq '1'
SBaseCall::~SBaseCall            ()
SPBXScript::OutputTrace          () --> gseEvaluateEx(Falsch)
SPBXScript::OutputTrace          () <-- gseEvaluateEx, rc = 35 [gseStateEvaluateNoMatch]
SScrServer::CallIsOrigDiscRq     () returning no
SPBXScript::OutputTrace          ()   case [Skip2]
SPBXScript::OutputTrace          () Rule result: Falsch
SPBXScript::OutputTrace          () End GSE Script (Rule: ruleBHextended)

Any Idea what goes wrong?

 

 
New Post 11/30/2007 9:25 AM
User is offline Tom Wellige
2263 posts
www.swyx.com
1st Level Poster








Re: Upgrading the BankHoliday with time  (Germany)

Hi Beni,

immediately after the function IsBankHoliday is called, the call will be disconnected. While the disconnect is propagated through the system the script still continues and reads the bank holiday file from the user folder. It doesn't matter what content this file have, the disconnect has been initiated already and sooner or later the call will be gone.

So, from my point of view it's not a problem of the script, at least not from the bank holiday function.

Tom.


Tom Wellige
(Lead Solution Consultant, Swyx)

I learned very early the difference between knowing the name of something and knowing something.
Richard P. Feynman

 
New Post 11/30/2007 9:42 AM
User is offline Beni
57 posts
www.cropmark.ch
5th Level Poster


Re: Upgrading the BankHoliday with time  (Switzerland)

Hm.. That's strange.. Because I don't get dissconnected :(

Ok, thanks for the hint's I'll see what I can find out.

 
New Post 11/30/2007 10:03 AM
User is offline Tom Wellige
2263 posts
www.swyx.com
1st Level Poster








Re: Upgrading the BankHoliday with time  (Germany)

So, what is the problem then ?


Tom Wellige
(Lead Solution Consultant, Swyx)

I learned very early the difference between knowing the name of something and knowing something.
Richard P. Feynman

 
New Post 12/3/2007 10:01 AM
User is offline p.eijkmans
26 posts
www.intratel.nl
8th Level Poster


Re: Upgrading the BankHoliday with time  (Netherlands)

Hello Tom,

I am trying to get this script to work. But i get the following error:

 

~Code:   0
~Src:    Runtimefout Microsoft VBScript
~Desc:   Het subscript valt buiten het bereik: '[number: 0]'
~RetVal: 800a0009
~Line:   15409
~Column: 10
~Source code:
~

Our server is in the dutch language and the date is shown like this 03-12-2007.

Is that the problem ?

I use the downloaded script.

 

 


Pieter Eijkmans Intratel B.V.
 
New Post 12/3/2007 11:59 AM
User is offline Tom Wellige
2263 posts
www.swyx.com
1st Level Poster








Re: Upgrading the BankHoliday with time  (Germany)

How does your txt file look like ?


Tom Wellige
(Lead Solution Consultant, Swyx)

I learned very early the difference between knowing the name of something and knowing something.
Richard P. Feynman

 
New Post 12/3/2007 12:06 PM
User is offline p.eijkmans
26 posts
www.intratel.nl
8th Level Poster


Re: Upgrading the BankHoliday with time  (Netherlands)

Tom,

 

 

This is the txt file:

 

27-02-2006
28-02-2006
17-04-2006
25-05-2006
26-05-2006
05-06-2006
25-12-2006
26-12-2006
01-01-2007
19-02-2007
20-02-2007
09-04-2007
30-04-2007
17-05-2007
18-05-2007
28-05-2007
25-12-2007
26-12-2007
01-01-2008


Pieter Eijkmans Intratel B.V.
 
New Post 12/4/2007 8:42 AM
User is offline Beni
57 posts
www.cropmark.ch
5th Level Poster


Re: Upgrading the BankHoliday with time  (Switzerland)

 Tom Wellige wrote
01.11.2007

24.12.2007 08:00;24.12.2007 14:00
25.12.2007;26.12.2007
31.12.2007 08:00;31.12.2007 14:00

Please note, that start end end date of a range are separated by a semicolon.
You can enter single dates per line, date ranges without any time or also date ranges including times.

I think you'd have to split your date by a dot.

 

 
New Post 12/4/2007 9:11 AM
User is offline p.eijkmans
26 posts
www.intratel.nl
8th Level Poster


Re: Upgrading the BankHoliday with time  (Netherlands)

In the Netherlands we use a - as seperation mark not a dot.


Pieter Eijkmans Intratel B.V.
 
New Post 12/4/2007 9:39 AM
User is offline Tom Wellige
2263 posts
www.swyx.com
1st Level Poster








Re: Upgrading the BankHoliday with time  (Germany)

So you have the regioal settings configured this way (03-12-2007) on the SwyxServe machine ?

Hm, do you have just the error trace or also a standard server trace from this situation ?

The runtime error message tells more or less nothing, except "index out of range"...


Tom Wellige
(Lead Solution Consultant, Swyx)

I learned very early the difference between knowing the name of something and knowing something.
Richard P. Feynman

 
New Post 12/4/2007 9:52 AM
User is offline p.eijkmans
26 posts
www.intratel.nl
8th Level Poster


Re: Upgrading the BankHoliday with time  (Netherlands)

Ton,

 

 

Here is a part of the trace

2007/12/04 10:49:01 0096b8 Info SrvScript  05753250 00000055 SPBXScript::OutputTrace          () Begin GSE Script (Rule: ruleBankHolidayextended)
2007/12/04 10:49:01 000c78 Inf3 SwTCL      08F31590 00000055 STclCallHub::OnRemoveCall        (08EE3EC0) numCalls (before erase)= 2
2007/12/04 10:49:01 0096b8 Info SrvScript  05753250 00000055 SPBXScript::OutputTrace          () GSEVersion: 6.0.2.121
2007/12/04 10:49:01 000c78 Inf3 SwTCL      08EE3EC0 00000055 STclCall::SetCallHub             (00000000)
2007/12/04 10:49:01 0096b8 Info SrvScript  05753250 00000055 SPBXScript::OutputTrace          ()   case [Start0]
2007/12/04 10:49:01 000c78 Inf3 SwTCL      08EE3EC0 00000055 STclCall::SetCallHub             (00000000) remove old callhub 08F31590
2007/12/04 10:49:01 0096b8 Info SrvScript  05753250 00000055 SPBXScript::OutputTrace          () --> gseStart()
2007/12/04 10:49:01 000c78 Inf3 SwTCL      08EE3EC0 00000055 STclCall::SetCallHub             () callhub gone, remove reference to SBaseCall 08ED3300
2007/12/04 10:49:01 0096b8 Info SrvScript  05753250 00000055 SPBXScript::OutputTrace          () <-- gseStart, rc = 1 [gseStateStarted]
2007/12/04 10:49:01 0096b8 Info SrvScript  05753250 00000055 SPBXScript::OutputTrace          ()   case [Evaluate4]
2007/12/04 10:49:01 0096b8 Info SrvScript  05753250 00000055 SPBXScript::OutputTrace          () IsBankHoliday(Now)
2007/12/04 10:49:01 000c78 Inf3 SrvPBXCtl  08EE2C70 00000055 SPBXCtlFSM::StopFSMTimers        () stopped BusyInfo timer
2007/12/04 10:49:01 000c78 Info SrvPBXCtl  08EE2C70 00000055 SPBXCtlFSM::ProcessEvent         ()
~ResolvedMediaA           BusyInfo        Result: 0 NewSt: ResolvedMediaA         
2007/12/04 10:49:01 000c78 Inf3 SrvPBXCtl  08EE3EC0 00000055 SPBXCall::~SPBXCall              ()
2007/12/04 10:49:01 000c78 Inf3 SwTCL      08EE3EC0 00000055 STclCall::~STclCall              ()
2007/12/04 10:49:01 009634 Info SwSIP      08ED3300 00000055 SwSIPCall::ActionOn3xx4xx5xx6xx  () Could not send SwTCL Disconnect, result: 1
2007/12/04 10:49:01 009634 Info SwSIP      08ED332C 00000055 SFsm::OnProcessEvent             () Calling evt3xx4xx5xx6xx Result: 0 NewSt: Disconnected
2007/12/04 10:49:01 009634 Info SwSIP      08ED3300 00000055 SwSIPCall::EnterStateDisconnected(1) SEND SwTCL Disconnect(ResultCallDisconnected)
2007/12/04 10:49:01 0096b8 Info SrvPBXCtl  08F315B8 00000055 SScrServer::UserDataFolderReq    () returning C:\DOCUMENTS AND SETTINGS\ALL USERS\APPLICATION DATA\SWYX\SHARE\user\pieter eijkmans
2007/12/04 10:49:01 009634 Info SwSIP      08ED3300 00000055 SwSIPCall::EnterStateDisconnected(1) Erase this call from list of calls.
2007/12/04 10:49:01 009634 Info SwSIP      011252E0 00000000 SwSIPEndpoint::EraseCall         () Search for call with Call-ID '932d305952694524@c2VydmVyMDEudHJpbWF4eC5sb2NhbA..' ...
2007/12/04 10:49:01 009634 Info SwSIP      011252E0 00000000 SwSIPEndpoint::EraseCall         () Erased Call with Call-ID '932d305952694524@c2VydmVyMDEudHJpbWF4eC5sb2NhbA..' from list of calls!
2007/12/04 10:49:01 009634 Info SwSIP      08ED3300 00000055 SwSIPCall::ClearInvitesList      () Clear list of SIP INVITE messages...
2007/12/04 10:49:01 009634 Info SwSIP      08ED3300 00000055 SwSIPCall::ClearInvitesList      () Delete SIP INVITE message with CSeq '1'
2007/12/04 10:49:01 009634 Inf3 SwTCL      08ED3300 00000055 SBaseCall::~SBaseCall            ()
2007/12/04 10:49:01 0096b8 *ERR SrvScrAPI  08F0BED0 00000055 SPBXScriptSite::OnScriptError    ()
~Code:   0
~Src:    Runtimefout Microsoft VBScript
~Desc:   Het subscript valt buiten het bereik: '[number: 0]'
~RetVal: 800a0009
~Line:   15409
~Column: 10
~Source code:
~

2007/12/04 10:49:01 0096b8 Info SrvPBXCtl  08F315B8 00000055 SScrServer::OnScriptFinished     ()
2007/12/04 10:49:01 0096b8 Info SrvPBXCtl  08F315B8 00000055 SScrServer::ActionOnScrFinish    () script finished -> inform main FSM to finish call
2007/12/04 10:49:01 0096b8 Info SrvScrAPI  011CF6E0 00000055 SScriptHost::Delete              () script running, delay deletion, confCnt= 12
2007/12/04 10:49:01 0096b8 Info SrvPBXCtl  08F315B8 00000055 SScrServer::ProcessFSM           ()
~Running         ScrFinish       Result: 0 NewSt: Idle          
2007/12/04 10:49:01 008270 Info SrvPBXCtl  08EE2C70 00000055 SPBXCtlFSM::ProcessEvent         ()
~ResolvedMediaA           ScrFinish       start processing...
2007/12/04 10:49:01 008270 Info SrvPBXCtl  08EE2C70 00000055 SPBXCtlFSM::ProcessEvent         ()
~ResolvedMediaA           ScrFinish       Result: 1 NewSt: DisconnectPending        Timeout: 60
2007/12/04 10:49:01 008270 Info SrvPBXCtl  08EE2C70 00000055 SPBXCtlFSM::ProcessEvent         ()
~DisconnectPending        Disconnect      start processing...
2007/12/04 10:49:01 008270 Info SrvPBXCtl  08EE2C70 00000055 SPBXCtlFSM::DisconnectHdl        (DiscHdlDiscPending, 00000000, ResultCallRoutingFailed, ScriptFinished, UseNormDisc)
2007/12/04 10:49:01 008270 Inf3 SrvPBXCtl  08EE2C70 00000055 SPBXCtlFSM::DisconnectHdl        () 1st: disconnect initiated from script/admin
2007/12/04 10:49:01 0096b8 Inf3 SrvCOMApi  058A15F0 00000000 SPBXConfig::~SPBXConfig          ()


Pieter Eijkmans Intratel B.V.
 
New Post 12/4/2007 10:29 AM
User is offline Morten Rokosz
1089 posts
www.linkedin.com/in/rokosz
1st Level Poster








Re: Upgrading the BankHoliday with time  (Norway)

 p.eijkmans wrote

~Code:   0
~Src:    Runtimefout Microsoft VBScript
~Desc:   Het subscript valt buiten het bereik: '[number: 0]'
~RetVal: 800a0009
~Line:   15409
~Column: 10
~Source code:

This error tells you a lot. The error message will usually been seen if you try to access variables from an array, and you try to point to an array element that is not populated. Like you have an array holding 3 elements, and you try to access var(3). This should then be your fourth element, and it is therefor out of range.

From the number I see that your array holds actually 0 elements.

This is probably when you try to evaluate the aRange variable. This should be an array when you are using split. All this indicates that the split does not fill the aRange var as an array.


Morten Rokosz
(Swyx T.A.G Member)

The best way to predict the future is to invent it.

 
New Post 12/4/2007 11:00 AM
User is offline Tom Wellige
2263 posts
www.swyx.com
1st Level Poster








Re: Upgrading the BankHoliday with time  (Germany)

 Morten Rokosz wrote

This error tells you a lot.

Of course this error tells already a lot when having a look into the sources also.

Pieter, is it possible, that you have blank lines in your bankholiday.txt file ?

I have just updated the script with some meaningfull tracie output.So, check your bankholiday.txt file. If this does not include any empty lines use the new script version from the download page to get more trace information.


Tom Wellige
(Lead Solution Consultant, Swyx)

I learned very early the difference between knowing the name of something and knowing something.
Richard P. Feynman

 
New Post 12/4/2007 11:13 AM
User is offline p.eijkmans
26 posts
www.intratel.nl
8th Level Poster


Re: Upgrading the BankHoliday with time  (Netherlands)

Tom,

 

There was a blank line at the end of the file. I have removed it and now the script works !!

Thanks fot the support.


Pieter Eijkmans Intratel B.V.
 
New Post 12/4/2007 11:19 AM
User is offline Morten Rokosz
1089 posts
www.linkedin.com/in/rokosz
1st Level Poster








Re: Upgrading the BankHoliday with time  (Norway)
Modified By Morten Rokosz  on 12/4/2007 12:19:28 PM)

 Tom Wellige wrote

 Morten Rokosz wrote

 

This error tells you a lot.

 

Of course this error tells already a lot when having a look into the sources also.

Yes, like you know you are in the wood if you are sorrounded by a lot of trees


Morten Rokosz
(Swyx T.A.G Member)

The best way to predict the future is to invent it.

 
New Post 12/6/2007 6:41 PM
User is offline p.eijkmans
26 posts
www.intratel.nl
8th Level Poster


Re: Upgrading the BankHoliday with time  (Netherlands)

Tom,

 

 

I have been testing the script and it is working fine.

I now have the following question, i made a shortcut to the receptions desktop to the file bankholiday.txt., so they can do changes to the dates. Soon we will upgrade to version 6.1.

Will this shortcut to change dates still work ? Because the share is moved into the database. Or do we have to change the script ?

Thanks in advance for the answer.


Pieter Eijkmans Intratel B.V.
 
Previous Previous
 
Next Next
  Forums  Development  Extended Call R...  Upgrading the BankHoliday with time

 

 

Forum Policy

The discussion forums at Swyx Forum are dedicated to the discussion of Swyx, SwyxWare and related topics.

For the benefit of the community and to protect the integrity of swyx-form, please observe the following posting guidelines:

  1. No Advertising. This includes promotion of commercial products and non-commercial products which are not directly related to SwyxWare, it's OEM versions.
  2. No Flaming or Trolling.
  3. No Profanity, Racism, or Prejudice.
  4. Furthermore, make sure your posts comply to our Terms of Use.
  5. Newest development in German law defines online forums as journalistic content, making the forum owner and all posters to journalists. With this statement the forum owner declares that neither he nor his users are journalists with all legal consequences.
  6. The German Jugendmedienschutz-Staatsvertrag (JMStV) (Protection of Minors) defines a disclosure of online medias which are not suitable for minors below the age of 18. The Swyx Forum webseite does not provide any such content and underlies therefore not this disclosure. Please see further details including the responsible person for the protection of minors and direct contact data in the Imprint.
  7. The forums are currently unmoderated, meaning all postings will appear immediately after submission. If this turns out not working due to massive abuse all forums will switch to moderated mode, meaning a posting must be approved after submission my a moderator before appearing.
  8. You can use any language you like (except for the project forums) but keep in mind that by using english you will reach the largest audience.
  9. Within the project forums english language is mandatory.

 

Forum Help

Stay up-to-date
Forum Icons
Image Usage
Report Abuse

 

The default language in the forums is english, but feel free to use your mother tongue. Just keep in mind that by using english you will reach the largest audience.

Sponsors