setcan

# Used in a couple of places to get a set of can for current selected organisation
setenv VERSION `cat ../ESP32/version.txt`
unsetenv ADMINORGANISATION
unsetenv CANEDITORGANISATION
unsetenv CANEDITACCESS
unsetenv CANEDITAREA
unsetenv CANEDITSITE
unsetenv CANEDITDEVICE
unsetenv CANVIEWDEVICE
unsetenv CANEDITFOB
unsetenv CANADOPTFOB
unsetenv CANEDITUSER
unsetenv CANARM
unsetenv CANSTRONG
unsetenv CANDISARM
unsetenv CANUNLOCK
unsetenv CANVIEWLOG
unsetenv CANAPI
if($?USER_ORGANISATION) then
can --organisation='$USER_ORGANISATION' admin
if(! $status)setenv ADMINORGANISATION
can --organisation='$USER_ORGANISATION' editoriganisation
if(! $status)setenv CANEDITORGANISATION
can --organisation='$USER_ORGANISATION' editfob
if(! $status)setenv CANEDITFOB
can --organisation='$USER_ORGANISATION' adoptfob
if(! $status)setenv CANADOPTFOB
can --organisation='$USER_ORGANISATION' edituser
if(! $status)setenv CANEDITUSER
can --organisation='$USER_ORGANISATION' viewlog
if(! $status)setenv CANVIEWLOG
can --organisation='$USER_ORGANISATION' arm
if(! $status)setenv CANARM
can --organisation='$USER_ORGANISATION' strong
if(! $status)setenv CANSTRONG
can --organisation='$USER_ORGANISATION' disarm
if(! $status)setenv CANDISARM
can --organisation='$USER_ORGANISATION' unlock
if(! $status)setenv CANUNLOCK
can --organisation='$USER_ORGANISATION' viewlog
if(! $status)setenv CANVIEWLOG
can --organisation='$USER_ORGANISATION' api
if(! $status)setenv CANAPI
endif
if($?USER_SITE) then
can --organisation='$USER_ORGANISATION' --site='$USER_SITE' editaccess
if(! $status)setenv CANEDITACCESS
can --organisation='$USER_ORGANISATION' --site='$USER_SITE' editsite
if(! $status)setenv CANEDITSITE
can --organisation='$USER_ORGANISATION' --site='$USER_SITE' editdevice
if(! $status)setenv CANEDITDEVICE
can --organisation='$USER_ORGANISATION' --site='$USER_SITE' viewdevice
if(! $status)setenv CANVIEWDEVICE
can --organisation='$USER_ORGANISATION' --site='$USER_SITE' editarea
if(! $status)setenv CANEDITAREA
endif