perl-begin / lib / share-this.wml

<define-tag share_this_button>
<script type="text/javascript" src=";type=website&amp;post_services=facebook%2Cmyspace%2Cdigg%2Cdelicious%2Cybuzz%2Ctwitter%2Cstumbleupon%2Creddit%2Ctechnorati%2Cmixx%2Cblogger%2Cwordpress%2Ctypepad%2Cgoogle_bmarks%2Cwindows_live%2Cfark%2Cbus_exchange%2Cpropeller%2Cnewsvine%2Clinkedin%2Clivejournal%2Cslashdot%2Cyahoo_bmarks%2Cxanga"></script>

<define-tag share_this_button>
# This is the button.
<a href="<: use CGI; use URI::Escape; print CGI::escapeHTML(uri_escape(MyNavData::get_hosts()->{$nav_bar->current_host()}->{'base_url'} . $nav_bar->path_info()));:>&amp;linkname="><img src="" width="171" height="16" class="bless" alt="Share/Bookmark" /></a>
# <script src="" type="text/javascript"></script>
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.