Guest User

Untitled

a guest
Jul 20th, 2018
392
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.65 KB | None | 0 0
  1. (require 'xml)
  2.  
  3. (setq xml "<listaccts>
  4. <acct>
  5. <disklimit>unlimited</disklimit>
  6. <diskused>0M</diskused>
  7. <domain>tron.test</domain>
  8. <email>tron@gmail.com</email>
  9. <ip>127.0.0.1</ip>
  10. <owner>tron</owner>
  11. <partition>home</partition>
  12. <plan>all</plan>
  13. <startdate>08%20Oct%2024%2015:27</startdate>
  14. <suspended>0</suspended>
  15. <suspendreason>not%20suspended</suspendreason>
  16. <theme>x3</theme>
  17. <unix_startdate>1224880021</unix_startdate>
  18. <user>tron</user>
  19. </acct>
  20. <acct>
  21. <disklimit>unlimited</disklimit>
  22. <diskused>1M</diskused>
  23. <domain>ror.com</domain>
  24. <email>bruce@gmail.com</email>
  25. <ip>127.0.0.1</ip>
  26. <owner>root</owner>
  27. <partition>home</partition>
  28. <plan>all</plan>
  29. <startdate>08%20Sep%2010%2009:32</startdate>
  30. <suspended>0</suspended>
  31. <suspendreason>not%20suspended</suspendreason>
  32. <theme>x3</theme>
  33. <unix_startdate>1221057161</unix_startdate>
  34. <user>rorcom</user>
  35. </acct>
  36. <acct>
  37. <disklimit>unlimited</disklimit>
  38. <diskused>0M</diskused>
  39. <domain>db.com</domain>
  40. <email>*unknown*</email>
  41. <ip>127.0.0.1</ip>
  42. <owner>root</owner>
  43. <partition>home</partition>
  44. <plan>undefined</plan>
  45. <startdate>69%20Dec%2031%2018:00</startdate>
  46. <suspended>0</suspended>
  47. <suspendreason>not%20suspended</suspendreason>
  48. <theme>x3</theme>
  49. <unix_startdate>*unknown*</unix_startdate>
  50. <user>dbuser</user>
  51. </acct>
  52. <acct>
  53. <disklimit>100M</disklimit>
  54. <diskused>0M</diskused>
  55. <domain>rlb3.com</domain>
  56. <email>bruce@gmail.com</email>
  57. <ip>127.0.0.1</ip>
  58. <owner>root</owner>
  59. <partition>home</partition>
  60. <plan>default</plan>
  61. <startdate>08%20Oct%2007%2014:32</startdate>
  62. <suspended>0</suspended>
  63. <suspendreason>not%20suspended</suspendreason>
  64. <theme>x3</theme>
  65. <unix_startdate>1223407954</unix_startdate>
  66. <user>rlb3com</user>
  67. </acct>
  68. <acct>
  69. <disklimit>200M</disklimit>
  70. <diskused>100M</diskused>
  71. <domain>fdsafda.com.ar</domain>
  72. <email>*unknown*</email>
  73. <ip>127.0.0.1</ip>
  74. <owner>root</owner>
  75. <partition>home</partition>
  76. <plan>undefined</plan>
  77. <startdate>69 Dec 31 18:00</startdate>
  78. <suspended>0</suspended>
  79. <suspendreason>not suspended</suspendreason>
  80. <theme>x3</theme>
  81. <unix_startdate>*unknown*</unix_startdate>
  82. <user>fdasf</user>
  83. </acct>
  84. <status>1</status>
  85. <statusmsg>Ok</statusmsg>
  86. </listaccts>")
  87.  
  88. (let* ((root (with-temp-buffer
  89. (insert xml)
  90. (xml-parse-region (point-min) (point-max))))
  91. (listaccts (car root))
  92. (accts (xml-get-children listaccts 'acct)))
  93. (dolist (acct accts)
  94. (print (nth 2 (car (xml-get-children acct 'user))))))
Add Comment
Please, Sign In to add comment