Subversion Repositories wimsdev

Rev

Rev 4993 | Rev 5678 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4993 Rev 5150
Line 1... Line 1...
1 
!set url=$wims_read_parm
 1 
!set url=$wims_read_parm
2 
 
 - 
 
- 
 
 2 
!set url=!nospace $url
- 
 
 3 
!set url=!sh echo "$url" | perl -e 'use URI::Escape; print uri_escape(<>)';
- 
 
 4 
!set url=!replace internal %0A by in $url
3 
!set url = !replace internal & by %26 in $url
 5 
!!set url = !replace internal & by %26 in $url
4 
!set url = !replace internal / by %2F in $url
 6 
!!set url = !replace internal / by %2F in $url
5 
!set url = !replace internal : by %3A in $url
 7 
!!set url = !replace internal : by %3A in $url
6 
 
 8 
 
7 
!set script_out=$url
 9 
!set script_out=$url