| ############################################################################### |
| ############################################################################### |
| # ModList.pl # |
| # ModList.pm # |
| |
| # $Date: 01.05.16 $ # |
| ############################################################################### |
| ############################################################################### |
| # YaBB: Yet another Bulletin Board # |
| # YaBB: Yet another Bulletin Board # |
| # Open-Source Community Software for Webmasters # |
| # Open-Source Community Software for Webmasters # |
| # Version: YaBB 2.5.2 # |
| # Version: YaBB 2.6.12 # |
| # Packaged: October 21, 2012 # |
| # Packaged: January 5, 2016 # |
| # Distributed by: http://www.yabbforum.com # |
| # Distributed by: http://www.yabbforum.com # |
| # =========================================================================== # |
| # =========================================================================== # |
| # Copyright (c) 2000-2012 YaBB (www.yabbforum.com) - All Rights Reserved. # |
| # Copyright (c) 2000-2016 YaBB (www.yabbforum.com) - All Rights Reserved. # |
| # Software by: The YaBB Development Team # |
| # Software by: The YaBB Development Team # |
| # with assistance from the YaBB community. # |
| # with assistance from the YaBB community. # |
| ############################################################################### |
| ############################################################################### |
| |
| # use strict; |
| |
| use CGI::Carp qw(fatalsToBrowser); |
| |
| our $VERSION = '2.6.12'; |
| |
| |
| $modlistplver = 'YaBB 2.5.2 $Revision: 1.0 $'; |
| $modlistpmver = 'YaBB 2.6.12 $Revision: 1710 $'; |
| if ($action eq 'detailedversion') { return 1; } |
| if ( $action eq 'detailedversion' ) { return 1; } |
| |
| |
| sub ListMods { |
| sub ListMods { |
| my @installed_mods = (); |
| my @installed_mods = (); |
| |
| |
| # You need to list your mod in this file for full compliance. |
| # You need to list your mod in this file for full compliance. |
| # Add it in the following way: |
| # Add it in the following way: |
| # $my_mod = "Name of Mod|Author|Description|Version|Date Released"; |
| # $my_mod = "Name of Mod|Author|Description|Version|Date Released"; |
| # push (@installed_mods, "$my_mod"); |
| # push @installed_mods, $my_mod; |
| # It is reccomended that you do a "add before" on the end boardmod tag |
| # It is recommended that you do a "add before" on the end boardmod tag |
| # This preserves the installation order. |
| # This preserves the installation order. |
| |
| |
| # Also note, you should pick a unique name instead of "$my_mod". |
| # Also note, you should pick a unique name instead of "$my_mod". |
| # If you mod is called "SuperMod For Doing Cool Things" |
| # If your mod is called "SuperMod For Doing Cool Things" |
| # You could use "$SuperMod_CoolThings" |
| # You could use "$SuperMod_CoolThings" |
| |
| |
| ### BOARDMOD ANCHOR ### |
| ### BOARDMOD ANCHOR ### |
| ### END BOARDMOD ANCHOR ### |
| ### END BOARDMOD ANCHOR ### |
| |
| our ( $yymain, %mod_list, $imagesdir, $yytitle ); |
| if (!@installed_mods) { |
| my ( $action_area, $mod_text_list, $full_description ); |
| |
| $total_mods = @installed_mods; |
| $yymain .= qq~ |
| |
| <div class="bordercolor" style="padding: 0px; width: 99%; margin-left: 0px; margin-right: auto;"> |
| if ( !@installed_mods ) { |
| <table width="100%" cellspacing="1" cellpadding="4"> |
| $yymain .= qq~ |
| <tr valign="middle"> |
| <div class="bordercolor rightboxdiv"> |
| <td align="left" class="titlebg" colspan="3"> |
| <div class="pad-more"><table class="border-space pad-cell"> |
| <img src="$imagesdir/preferences.gif" alt="" border="0" /><b>$mod_list{'5'}</b> |
| <tr> |
| </td> |
| <td class="titlebg"> |
| </tr> |
| $admin_img{'prefimg'} <b>$mod_list{'5'}</b> |
| <tr valign="middle"> |
| </td> |
| <td align="left" class="windowbg2"> |
| </tr><tr> |
| <br /> |
| <td class="windowbg2"> |
| $mod_list{'8'} <a href="http://www.boardmod.org">$mod_list{'9'}</a> |
| <div class="pad-more"> |
| <br /><br /> |
| $mod_list{'8'} <a href="http://www.boardmod.org" target="_blank">$mod_list{'9'}</a> |
| </td> |
| </div> |
| </tr> |
| </td> |
| </table> |
| </tr> |
| </div> |
| </table> |
| |
| </div> |
| ~; |
| ~; |
| |
| $yytitle = $mod_list{'6'}; |
| $yytitle = $mod_list{'6'}; |
| $action_area = 'modlist'; |
| $action_area = "modlist"; |
| AdminTemplate(); |
| |
| } |
| &AdminTemplate; |
| |
| } |
| foreach my $modification (@installed_mods) { |
| |
| chomp $modification; |
| foreach $modification (@installed_mods) { |
| my ( $mod_anchor, $mod_author, $mod_desc, $mod_version, $mod_date ) = |
| chomp($modification); |
| split /\|/xsm, $modification; |
| ($mod_anchor, $mod_author, $mod_desc, $mod_version, $mod_date) = split(/\|/, $modification); |
| |
| |
| my $mod_displayname = $mod_anchor; |
| $mod_displayname = $mod_anchor; |
| $mod_displayname =~ s/\_/ /gxsm; |
| $mod_displayname =~ s/\_/ /g; |
| $mod_anchor =~ s/ /\_/gsm; |
| $mod_anchor =~ s/ /\_/g; |
| $mod_anchor =~ s/[^\w]//gxsm; |
| $mod_anchor =~ s/[^\w]//g; |
| |
| |
| $mod_text_list .= qq~<tr> |
| $mod_text_list .= qq~ |
| <td class="windowbg2"> |
| |
| <a href="#$mod_anchor">$mod_displayname</a> |
| <tr valign="middle"> |
| </td> |
| <td align="left" class="windowbg2"> |
| <td class="windowbg2"> |
| <a href="#$mod_anchor">$mod_displayname</a> |
| $mod_author |
| </td> |
| </td> |
| <td align="left" class="windowbg2"> |
| <td class="windowbg2"> |
| $mod_author |
| $mod_version |
| </td> |
| </td> |
| <td align="left" class="windowbg2"> |
| </tr>~; |
| $mod_version |
| |
| </td> |
| $full_description .= qq~ |
| </tr> |
| <div class="bordercolor rightboxdiv"> |
| |
| <table class="border-space pad-cell" style="margin-bottom: .5em;"> |
| ~; |
| <tr> |
| |
| <td class="titlebg"> |
| $full_description .= qq~ |
| <a id="$mod_anchor">$admin_img{'prefimg'}</a> <b>$mod_displayname</b> <span class="small">$mod_list{'4'}: $mod_version</span> |
| <div class="bordercolor" style="padding: 0px; width: 99%; margin-left: 0px; margin-right: auto;"> |
| </td> |
| <table width="100%" cellspacing="1" cellpadding="4"> |
| </tr><tr> |
| <tr valign="middle"> |
| <td class="catbg"> |
| <td align="left" class="titlebg"> |
| <span class="small">$mod_list{'2'}: $mod_author</span> |
| <a name="$mod_anchor"><img src="$imagesdir/preferences.gif" alt="" border="0" /></a><b>$mod_displayname</b> <span class="small">$mod_list{'4'}: $mod_version</span> |
| </td> |
| </td> |
| </tr><tr> |
| </tr> |
| <td class="windowbg2"> |
| <tr valign="middle"> |
| $mod_desc |
| <td align="left" class="catbg"> |
| </td> |
| <span class="small">$mod_list{'2'}: $mod_author</span> |
| </tr><tr> |
| </td> |
| <td class="catbg right"> |
| </tr> |
| <div class="pad-more small">$mod_list{'3'}: $mod_date</div> |
| <tr valign="middle"> |
| </td> |
| <td align="left" class="windowbg2"><br /> |
| </tr> |
| $mod_desc<br /><br /> |
| </table> |
| </td> |
| </div>~; |
| </tr> |
| } |
| <td align="right" class="catbg"> |
| |
| <span class="small">$mod_list{'3'}: $mod_date</span> |
| $yymain .= qq~ |
| </td> |
| <div class="bordercolor rightboxdiv"> |
| </tr> |
| <table class="border-space pad-cell" style="margin-bottom: .5em;"> |
| |
| <tr> |
| </table> |
| <td class="titlebg" colspan="3"> |
| </div> |
| $admin_img{'prefimg'} <b>$mod_list{'5'} ($total_mods)</b> |
| <br /> |
| </td> |
| ~; |
| </tr><tr> |
| |
| <td class="catbg"> |
| } |
| <span class="small">$mod_list{'1'}</span> |
| |
| </td> |
| $yymain .= qq~ |
| <td class="catbg"> |
| <div class="bordercolor" style="padding: 0px; width: 99%; margin-left: 0px; margin-right: auto;"> |
| <span class="small">$mod_list{'2'}</span> |
| <table width="100%" cellspacing="1" cellpadding="4"> |
| </td> |
| <tr valign="middle"> |
| <td class="catbg"> |
| <td align="left" class="titlebg" colspan="3"> |
| <span class="small">$mod_list{'4'}</span> |
| <img src="$imagesdir/preferences.gif" alt="" border="0" /><b>$mod_list{'5'}</b> |
| </td> |
| </td> |
| </tr> |
| </tr> |
| $mod_text_list |
| <tr valign="middle"> |
| </table> |
| <td align="left" class="catbg"> |
| </div> |
| <span class="small">$mod_list{'1'}</span> |
| |
| </td> |
| |
| <td align="left" class="catbg"> |
| |
| <span class="small">$mod_list{'2'}</span> |
| |
| </td> |
| |
| <td align="left" class="catbg"> |
| |
| <span class="small">$mod_list{'4'}</span> |
| |
| </td> |
| |
| </tr> |
| |
| |
| |
| $mod_text_list |
| |
| </tr> |
| |
| |
| |
| </table> |
| |
| </div> |
| |
| |
| |
| <br /><br /><br /> |
| |
| |
| |
| $full_description |
| $full_description |
| |
| |
| ~; |
| ~; |
| |
| |
| $yytitle = $mod_list{'6'}; |
| $yytitle = $mod_list{'6'}; |
| $action_area = "modlist"; |
| $action_area = 'modlist'; |
| |
| AdminTemplate(); |
| &AdminTemplate; |
| return $yymain; |
| } |
| } |
| |
| |
| 1; |
| 1; |
| |
| |