MOD ShoutBox: Change URL in message: The Chill Out Zone

Home
Search

Oh no! Where's the JavaScript?
Your Web browser does not have JavaScript enabled or does not support JavaScript. Please enable JavaScript on your Web browser to properly view this Web site, or upgrade to a Web browser that does support JavaScript.

To URL in ShoutBox automatically changed in reference and looked, for instance, so - [[url=pitomnik.com]URL[/url]]
1. Open file infusions/shoutbox_panel/shoutbox_panel.php

2. Search:

Code Download source

$shout_message = str_replace("\n", "<br>", $shout_message);

3. Add after:

Code Download source

   // Added by Yuras. Scan for links in the shout. If there is, replace it with [URL]
   $i = 0;
   $ShoutNew = '';
   $ShoutArray = explode(" ",$shout_message);
   foreach($ShoutArray as $ShoutPart) {
      $ShoutPart = str_replace("<br>", "", $ShoutPart);
      if (eregi("http:\/\/", $ShoutPart)) {
         // fix for users adding text to the beginning of links: HACKhttp://www.website.com
         $ShoutPartL = strtolower($ShoutPart);
         $spot = strpos($ShoutPartL,"http://");
         if ($spot > 0) { $ShoutPart = substr($ShoutPart, $spot); }
         $ShoutNew[$i] = "[<a target=\"_blank\" href=\"$ShoutPart\">URL</a>]";
      } elseif (eregi("ftp:\/\/", $ShoutPart)) {
         $ShoutPartL = strtolower($ShoutPart);
         $spot = strpos($ShoutPartL,"ftp://");
         if ($spot > 0) { $ShoutPart = substr($ShoutPart, $spot); }
         $ShoutNew[$i] = "[<a target=\"_blank\" href=\"$ShoutPart\">FTP</a>]";
      } elseif (eregi("irc:\/\/", $ShoutPart)) {
         $ShoutPartL = strtolower($ShoutPart);
         $spot = strpos($ShoutPartL,"irc://");
         if ($spot > 0) { $ShoutPart = substr($ShoutPart, $spot); }
         $ShoutNew[$i] = "[<a href=\"$ShoutPart\">IRC</a>]";
      } elseif (eregi("teamspeak:\/\/", $ShoutPart)) {
         $ShoutPartL = strtolower($ShoutPart);
         $spot = strpos($ShoutPartL,"teamspeak://");
         if ($spot > 0) { $ShoutPart = substr($ShoutPart, $spot); }
         $ShoutNew[$i] = "[<a href=\"$ShoutPart\">TeamSpeak</a>]";
      } elseif (eregi("aim:goim", $ShoutPart)) {
         $ShoutPartL = strtolower($ShoutPart);
         $spot = strpos($ShoutPartL,"aim:goim");
         if ($spot > 0) { $ShoutPart = substr($ShoutPart, $spot); }
         $ShoutNew[$i] = "[<a href=\"$ShoutPart\">AIM</a>]";
      } elseif (eregi("gopher:\/\/", $ShoutPart)) {
         $ShoutPartL = strtolower($ShoutPart);
         $spot = strpos($ShoutPartL,"gopher://");
         if ($spot > 0) { $ShoutPart = substr($ShoutPart, $spot); }
         $ShoutNew[$i] = "[<a href=\"$ShoutPart\">Gopher</a>]";
      } elseif (eregi("mailto:", $ShoutPart)) {
         $ShoutPartL = strtolower($ShoutPart);
         $spot = strpos($ShoutPartL,"mailto:");
         if ($spot > 0) { $ShoutPart = substr($ShoutPart, $spot); }
         $ShoutNew[$i] = "[<a href=\"$ShoutPart\">E-Mail</a>]";
      } elseif (eregi("www\.", $ShoutPart)) {
         $ShoutPartL = strtolower($ShoutPart);
         $spot = strpos($ShoutPartL,"www.");
         if ($spot > 0) { $ShoutPart = substr($ShoutPart, $spot); }
         $ShoutPart = "http://" . $ShoutPart;
         $ShoutNew[$i] = "[<a target=\"_blank\" href=\"$ShoutPart\">URL</a>]";
      } elseif ((eregi("\.com", $ShoutPart)) OR (eregi("\.net", $ShoutPart)) OR (eregi("\.org", $ShoutPart)) OR (eregi("\.mil", $ShoutPart)) OR (eregi("\.gov", $ShoutPart)) OR (eregi("\.info", $ShoutPart)) OR (eregi("\.us", $ShoutPart)) OR (eregi("\.biz", $ShoutPart)) OR (eregi("\.tv", $ShoutPart)) OR (eregi("\.cc", $ShoutPart)) OR (eregi("\.ws", $ShoutPart)) OR (eregi("\.name", $ShoutPart)) OR (eregi("\.pro", $ShoutPart)) OR (eregi("\.co\.uk", $ShoutPart)) OR (eregi("\.ca", $ShoutPart)) OR (eregi("\.de", $ShoutPart)) OR (eregi("\.jp", $ShoutPart)) OR (eregi("\.ro", $ShoutPart)) OR (eregi("\.be", $ShoutPart)) OR (eregi("\.fm", $ShoutPart)) OR (eregi("\.ms", $ShoutPart)) OR (eregi("\.tc", $ShoutPart)) OR (eregi("\.co\.za", $ShoutPart)) OR (eregi("\.co\.nz", $ShoutPart)) OR (eregi("\.ph", $ShoutPart)) OR (eregi("\.dk", $ShoutPart)) OR (eregi("\.st", $ShoutPart)) OR (eregi("\.ac", $ShoutPart)) OR (eregi("\.gs", $ShoutPart)) OR (eregi("\.vg", $ShoutPart)) OR (eregi("\.sh", $ShoutPart)) OR (eregi("\.kz", $ShoutPart)) OR (eregi("\.as", $ShoutPart)) OR (eregi("\.lt", $ShoutPart)) OR (eregi("\.to", $ShoutPart)) OR (eregi("\.co\.il", $ShoutPart))) {
         $ShoutPart = "http://" . $ShoutPart;
         $ShoutNew[$i] = "[<a target=\"_blank\" href=\"$ShoutPart\">URL</a>]";
      } elseif (strlen($ShoutPart) > 21) {
         $ShoutNew[$i] = wordwrap($ShoutPart, 21, " ", 1);
      } else { $ShoutNew[$i] = $ShoutPart; }
      $i++;
   }
   $shout_message = implode(" ",$ShoutNew);
// End

Or simply change its file on attach to message file (is made with provision for Update before version 6.00.304).

Enjoy!

Edited by Yuras on 08-02-2006 17:54, 19 y

0 replies

Totally awesome!!!!! - I can't tell you how long I've been waiting for someone to add this to the shoutbox. This is by far one of the best MODS I've seen so far. Thank you very much for this. :)

Shedrock

Edited by shedrock on 08-02-2006 03:30, 19 y

0 replies

shall rejoice if this code will is added in new versions PHPFusion :)

Excuse me for bad knowledge of english :(

0 replies

Discovered mistake, which transformed reference in such type - <a href=<br>http://blabla<br>blabla.co<br>m>URL</a>

It Is Corrected. Attach update. (begin topic)

0 replies

Thanks for the update and I agree. It should be added to the core.

Cheers!
Shedrock

0 replies

— 3 months later —

Thanks Yuras! You are a champ!

Is it ok If I change the [URL] with something like Link in say a blue color?

0 replies

if only we wuldnt have to add http:// before the link, every member doesnt know that..

thanks for this great mod :)

0 replies

Works with v6.01.2 no probs :D

0 replies

— 4 months later —

FOUND A BUG
if we write the text and that has a starting like "com" "net" "org" etc. , it parses as url

for instance:
write i like my.computer
my.computer is parsed as url
my...computer, my.network, my.generation; all the same :(

Edited by Arda on 25-10-2006 10:54, 18 y

0 replies

I can't open a .rar file. Can you repost the corrected code?

0 replies

http://www.rarlab.com/download.htm

0 replies

cool. Thanks WEC. I was able to open up the file.

But...

There are some strange symbols in the code and I don't know why. They look like this:

Quote

if (iMEMBER || $settings['guestposts'] == "1" {
echo "<center><img src='".THEME."images/bullet.gif' alt=''> <a href='".INFUSIONS."shoutbox_panel/shoutboxchat.php' class='side'>Ëàéò-âåðñèÿ ÷àòà</a> <img src='".THEME."images/bulletb.gif' alt=''></center>\n";

What does "Ëàéò-âåðñèÿ ÷àòà" mean? Is the file corrupt?

Edited by eskindian on 06-11-2006 19:32, 18 y

0 replies

It's a hardcoded Russian hyperlink name, probably as you see it in the screenshot above between >"#¤%&/<

Change it to whatever you like and see if you can find a proper english word for it once you get confirmed where it appears.

0 replies

After examining the code some more, I found where the fix was. It works now. I just added this line to the top of the original code above and it worked.

Quote

$shout_message = str_replace("\n", "<br>", $shout_message);

My bad, peeps.

Edited by eskindian on 06-11-2006 20:11, 18 y

0 replies

— 1 year later —

the thread was very old but, my problem with this mod is that it converts some irrelevant words sentence to [URL].
i couldnt find out exactly in what phrases does it make this error but, the irrelevant, not being a URL, words beginning ".de", and ".be" are phrased as URL.
how can i fix this?
actually, i think the correct way should be that the phrases that begin with "http://" or "www" are converted to URL.
how this is possible?
thnx.

0 replies

Delete this, for not including words with domain endings. (.be, .com, etc.)

Code Download source

} elseif ((eregi("\.com", $ShoutPart)) OR (eregi("\.net", $ShoutPart)) OR (eregi("\.org", $ShoutPart)) OR (eregi("\.mil", $ShoutPart)) OR (eregi("\.gov", $ShoutPart)) OR (eregi("\.info", $ShoutPart)) OR (eregi("\.us", $ShoutPart)) OR (eregi("\.biz", $ShoutPart)) OR (eregi("\.tv", $ShoutPart)) OR (eregi("\.cc", $ShoutPart)) OR (eregi("\.ws", $ShoutPart)) OR (eregi("\.name", $ShoutPart)) OR (eregi("\.pro", $ShoutPart)) OR (eregi("\.co\.uk", $ShoutPart)) OR (eregi("\.ca", $ShoutPart)) OR (eregi("\.de", $ShoutPart)) OR (eregi("\.jp", $ShoutPart)) OR (eregi("\.ro", $ShoutPart)) OR (eregi("\.be", $ShoutPart)) OR (eregi("\.fm", $ShoutPart)) OR (eregi("\.ms", $ShoutPart)) OR (eregi("\.tc", $ShoutPart)) OR (eregi("\.co\.za", $ShoutPart)) OR (eregi("\.co\.nz", $ShoutPart)) OR (eregi("\.ph", $ShoutPart)) OR (eregi("\.dk", $ShoutPart)) OR (eregi("\.st", $ShoutPart)) OR (eregi("\.ac", $ShoutPart)) OR (eregi("\.gs", $ShoutPart)) OR (eregi("\.vg", $ShoutPart)) OR (eregi("\.sh", $ShoutPart)) OR (eregi("\.kz", $ShoutPart)) OR (eregi("\.as", $ShoutPart)) OR (eregi("\.lt", $ShoutPart)) OR (eregi("\.to", $ShoutPart)) OR (eregi("\.co\.il", $ShoutPart))) {
         $ShoutPart = "http://" . $ShoutPart;
         $ShoutNew[$i] = "[<a target=\"_blank\" href=\"$ShoutPart\">URL</a>]";

0 replies

ok. but that itself ddnt solve the problem. but i solved it. u should modify infusions/shoutbox_panel/post.php also in that way.
thanx anyway.

0 replies

Oki, nice... But it can be done much easier with regexp like in autolink bbcode ;) [autolink not supports irc, gopher etc but can be easy added]

0 replies

Category Forum

General Discussion

Labels

None yet

Statistics

Views 0 views
Posts 17 posts
Votes 0 votes
Topic users 9 members

9 participants

Notifications

Track thread

You are not receiving notifications from this thread.

MOD ShoutBox: Change URL in message

17 posts

PHPFusion

Resources

Community

Development