F:\WEBSITES\testbed\zipped\yabb_svn_new\branches\2.5.2\cgi-bin\yabb2\Admin\ModList.pl F:\WEBSITES\testbed\zipped\yabb_svn_new\trunk\cgi-bin\yabb2\Admin\ModList.pm
############################################################################### ###############################################################################
# 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> &nbsp; <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> &nbsp; <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;