JDS Australia

web_submit_data("sap-ext-sid_2", 
  "Action=http://www.example.com:8000/sap/bc/webdynpro/SAP/ERC_A_WORKCENTER/;sap-ext-sid={SapExtSid2_120}", 
  "Method=POST", 
  "TargetFrame=", 
  "RecContentType=text/html", 
  "Referer=http://www.example.com:8000/sap/bc/webdynpro/SAP/ERC_A_WORKCENTER/;sap-ext-sid={SapExtSid2_98}", 
  "Snapshot=t18.inf", 
  "Mode=HTML", 
  ITEMDATA, 
  "Name=SAPEVENTQUEUE", "Value=Custom_ClientInfos~E002Id~E004WD01~E005WindowOpenerExists~E004false~E005ClientURL~E004http~003A~002F~002Fwww.example.com~003A8000~002Fsap~002Fbc~002Fwebdynpro~002FSAP~002FERC_A_WORKCENTER~002F~003Bsap-ext-sid~003DzuUt57Mx_3JozG7pOff~002AEg--U_0j6OHCaCQurUN1Pimp1Q--~E003~E002ClientAction~E004enqueue~E005ResponseData~E004delta~E003~E002~E003~E001TimeTrigger_Trigger~E002Id~E004WDE4~E003~E002ResponseData~E004delta~E005ClientAction~E004submit~E003~E002~E003", ENDITEM, 
  "Name=sap-charset", "Value=utf-8", ENDITEM, 
  "Name=_client_url_", "Value=", ENDITEM, 
  LAST);

 http~003A~002F~002Fwww.example.com~003A8000~002Fsap~002Fbc~002Fwebdynpro~002FSAP~002FERC_A_WORKCENTER~002F~003Bsap-ext-sid~003DzuUt57Mx_3J

http://www.example.com:8000/sap/bc/webdynpro/SAP/ERC_A_WORKCENTER/;sap-ext-sid=zuUt57Mx_3J

// This function replaces unreserved characters in a string with their encoded values.
// Encoding is in the style of SAP Web Dynpro. E.g. "abd*def" becomes "abc~002Adef".
// Reserved/unreserved characters are according to RFC3986 (http://tools.ietf.org/html/rfc3986)
// This function returns a pointer to the start of the encoded string (buf).
// Note that buf must be big enough to hold original string plus all converted entities.
char* dynpro_encode(char* plain_string, char* buf) {
  int len = strlen(plain_string);
  int i,j;
  char hex_value[3];
 
  if (plain_string == NULL) {
    lr_error_message("Input string is empty.");
    return NULL;
  }
 
  for (i=0, j=0; i<len; i++) {
    // Check if character is in list of allowed characters.
    // 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
    // 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
    // 0 1 2 3 4 5 6 7 8 9 - _ . ~
    if ( (plain_string[i] >= 'A' && plain_string[i] <= 'Z') ||
         (plain_string[i] >= 'a' && plain_string[i] <= 'z') ||
         (plain_string[i] >= '0' && plain_string[i] <= '9') ||
         (plain_string[i] == '-') ||
         (plain_string[i] == '_') ||
         (plain_string[i] == '.') ||
         (plain_string[i] == '~') ) {
 
      buf[j++] = plain_string[i];
    } else if ( (plain_string[i] < 32 ) || (plain_string[i] > 126) ) {
      lr_error_message("Input string contains non-printable or non-ASCII character %c at position: %d", plain_string[i], i);
      return NULL;
    } else {
      // The unicode value for use in url encoding is the same as the hex value for the ASCII character
      itoa(plain_string[i], hex_value, 16);
      buf[j++] = '~';
      buf[j++] = '0';
      buf[j++] = '0';
      buf[j++] = toupper(hex_value[0]);
      buf[j++] = toupper(hex_value[1]);
    }
  }
 
  buf[j] = NULL; // terminate the string
  return buf;
}

char *strncpy ( char *dest, const char *source, size_t n ); // explicit declaration required
 
// This function replaces encoded characters from with their non-encoded value.
// Decoding is in the style of SAP Web Dynpro. E.g. "abc~002Adef" becomes "abd*def".
// Reserved characters are according to RFC3986 (http://tools.ietf.org/html/rfc3986)
// This function returns a pointer to the start of the decoded string (buf).
// Note that buf must be big enough to hold the decoded string (always equal to or shorter than the encoded string).
char* dynpro_decode(char* enc_string, char* buf) {
  int len = strlen(enc_string);
  int i, j;
  char code[3]; // holds url encoded value e.g. "2F" (/)
  int hex; // decimal value of hex code e.g. 47 (0x2F)
  int rc; // return code
 
  if (enc_string == NULL) {
    lr_error_message("Input string is empty.");
    return NULL;
  }
 
  for (i=0, j=0; i<len; i++, j++) {
    // Only convert entities that do not start with "~E". Do not run off the end of the string.
    if ( (enc_string[i] == '~') && 
         (enc_string[i+1] != 'E') && 
         ((i+4) < len) &&
         (enc_string[i+1] == '0') && 
         (enc_string[i+2] == '0') && 
         (isalpha(enc_string[i+3]) || isdigit(enc_string[i+3])) && 
         (isalpha(enc_string[i+4]) || isdigit(enc_string[i+4])) ) { 
      // Get the hex value from the input string
      code[0] = enc_string[i+3];
      code[1] = enc_string[i+4];
      code[3] = NULL;
      // Convert the hex value to the appropriate character, and add it to buf
      rc = sscanf(code, "%2x", &hex);
      if (rc != 1) {
        lr_error_message("Invalid hex value: %s", code);
      }
      buf[j] = hex;
      i+=4; // skip the rest of this encoded value in the input string
    } else {
      buf[j] = enc_string[i];
    }
  }
 
  return buf;
}