Yudhi-Max: <?xml version="1.0&

Yudhi-Max
 <?xml version="1.0" encoding="UTF-8" ?>
 <!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN" "http://www.wapforum.org/DTD/xhtml-mobile10.dtd">
 <html xmlns="http://www.w3.org/1999/xhtml">
   <head>

   <title> Virtual Wap Blog </title>

   <meta name="HandheldFriendly" value="true" />

     <!-- Verification codes -->

     <meta name="google-site-verification" content="" />

     <meta name="msvalidate.01" content="" />

     <!-- NoIndex for certain non-essential pages. DO NOT REMOVE -->

   </head>

  <xt:include file="/blog/header.xhtml" />

<!--parser:xtscript-->#<!--
# Main blog function
# Safe to edit code block in building tool above here
var $blog= <xt:blog tzone="8" format="H:i, d-M-Y" show_time="1" display="5" entries_per_page="5" comments_per_page="20" comments_sort="1" display_limit="175" display_symbol="..." version="2" t_back_to_posts="" t_comments="" t_comments_empty="" t_post_a_comment="" t_name="" t_comment="" t_post="" t_tags="" t_search="" t_created="" t_showing_tagged_posts="" t_no_entries_found="" t_no_search_results_found="" t_show_all_comments="" t_see_parent_thread="" t_show_all_replies="" t_show_replies="" t_reply="" t_posting_as="" t_comments_login_required="" t_login="" t_signup="" t_confirm_email="" t_report_spam="" t_hidden_comment="" />
# # Safe to edit code block in building tool below here
# Check if it is a post
get __xtblog_entry
if not $__xtblog_entry
var $blogger =call str_replace $subject=$blog;$search=..xt..;$replace=<xt:;

print $blogger
goto @end
endif
# Fix missing__xtblog _entry value
var $blogger=call str_replace $subject=$blog; $search=name="__xtblog_entry" value="";$replace=name="__xtblog_entry" value="$__xtblog_entry" 
# Split the blogs HTML
var $split=call strpos $haystack=$blogger;$needle=div class="xt_blog_comments"
var $blog1=call substr $val=$blogger;$start=0;$length=($split-1)
var $blog2=call substr $val=$blogger;$start=($split-1)
# Output the first half 
var $widg1 =call str_replace $subject=$blog1; $search=..xt..; $replace=<xt:;

print $widg1

# Find the tags 
var $start_tags=call strpos $haystack=$blogger;$needle=!--|;offset=0
var $end_tags=call strpos $haystack=$blogger;$needle=|--;offset=0
# Exit if no tags
if not $start_tags or not $end_tags
goto @finish
endif  
# Get the tags list
var $tags=call substr $val=$blogger;$start=($start_tags+4);$length=($end_tags-$start_tags-4)
# Main loop
@loop
# End loop if no more tags
var $tag_end=call strpos $haystack=$tags|;$needle=|;$offset=$tag_start
if not $tag_end 
goto @show_related_list
endif
# Get the tag 
var $tag=call substr $val=$tags;$start=$tag_start;$length=($tag_end-$tag_start)
# Get the list of related posts for this tag using the xtblog_2.twig and a custom blog function
var $tagged_post_list =<xt:blog entries_per_page="0"  entries_sort="-1" version="2"  display="1" tag="$tag" t_no_entries_found="related" t_no_search_results_found="$__xtblog_entry"/>
# Process this tags list
var $current_entry_start = 0
@loop2  
# Move to next tag if no more entries
var $current_entry_end=call strpos $haystack=$tagged_post_list;$needle=];$offset=$current_entry_start   
if not $current_entry_end
goto @next_tag
endif
# Get the current entry
var $current_entry=call substr $val=$tagged_post_list;$start=$current_entry_start;$length=($current_entry_end-$current_entry_start+1)
# Check for duplicate result
var $duplicate=call strpos $haystack=[$related_post_list;$needle=$current_entry
if $duplicate
goto @skip_duplicate
endif
# if entry is unique then randomly add the entry to either the top or bottom of the related posts list
var $rand=call mt_rand $min=0; $max=1
if $rand
# Bottom
var $related_post_list=$related_post_list$current_entry
else
# Top
var $related_post_list=$current_entry$related_post_list
endif
@skip_duplicate
# Move to the next entry
var $current_entry_start=($current_entry_end+1)
goto @loop2 
@next_tag  
# Move to next tag  
var $tag_start=($tag_end+1)
goto @loop
# Show the list of related posts
@show_related_list
var $path=<xt:url type="path">
var $count=0
var $start_entry=0
# Open the container
assign $aa = <div style="margin:2px -4px;"><div id="recent-posts-list" style="padding:2px 3px;"><h4><strong>Related Posts:</strong></h4><ol>

print $aa
# Process the link data
@loop3
# Exit if end of list
var $end_entry=call strpos $haystack=$related_post_list**;$needle=];$offset=$start_entry 
if not $end_entry
goto @close
endif
# Process the entry
var $entry=call substr $val=$related_post_list;$start=$start_entry;$length=($end_entry-$start_entry+1)
var $end_value=call strpos $haystack=$entry;$needle=|;$offset=1
var $url=call substr $val=$entry;$start=1;$length=($end_value-1)
var $start_value=($end_value+1)
var $end_value=call strpos $haystack=$entry;$needle=];$offset=$start_value
var $name=call substr $val=$entry;$start=$start_value;$length=($end_value-$start_value)
# Create the related post link
assign $bb = <li><a href="$path/__xtblog_entry/$url?__xtblog_block_id=1#content"><span class="xt_button">$name</span></a> </li>
print $bb
# Move to the next entry
var $start_entry=($end_entry+1)
var $count=($count+1)
# This sets the number of links to show
if $count < 3
goto @loop3
endif
# Close the container
@close
assign $cc = </ol></div></div>
print $cc
@finish
# Show the second part of the blog
var $widg2 =call str_replace $subject=$blog2; $search=..xt..; $replace=<xt:;

print $widg2

# Exit script
@end
<!--/parser:xtscript-->

</div></div></div>
<xt:include file="/blog/footer.xhtml" />
<xt:auth/>
<body on_load="image-resizer.js"> 
</body>
</html>
# 2016-11-08 12:52 · Reply · (0)
Virtual Wap Blog

Welcome To My Virtual World !

Navigation Menu

Random Popular Posts:

Categories

Powered by XtBlog Template

Virtual Wap Blog

Welcome To My Virtual World !

Navigation Menu

Random Popular Posts:

Categories

Blogroll

Powered by XtBlog Template
