Gecko [ georgetownmover.com ]

Name	Size	Permission	Date	Action
perl_module_install_theme.php	6.33 KB	-rwxr-xr-x	2024-05-02 07:08
perl_modules_theme.php	4.44 KB	-rwxr-xr-x	2024-05-02 07:08

Rename

<?php

//////////////////////////////////////////////////////////////
//===========================================================
// WEBUZO CONTROL PANEL
// Inspired by the DESIRE to be the BEST OF ALL
// ----------------------------------------------------------
// Started by: Mamta Malvi
// Date:       07 th April 2022
// Time:       21:00 hrs
// Site:       https://webuzo.com/ (WEBUZO)
// ----------------------------------------------------------
// Please Read the Terms of Use at https://webuzo.com/terms
// ----------------------------------------------------------
//===========================================================
// (c) Softaculous Ltd.
//===========================================================
//////////////////////////////////////////////////////////////

if(!defined('SOFTACULOUS')){
	die('Hacking Attempt');
}

function perl_module_install_theme(){

global $theme, $globals, $user, $sys_perl, $langs, $error, $done, $Installed_PerlMod;
  
	$meta_cpan_doc_url = 'https://metacpan.org/pod/';
	
    echo '
    <style>
        .cpanLink { color : #000 !important; }
    </style>
    <div class="soft-smbox p-3">
	
	<div class="sai_main_head">
		<i class="fas fa-th-list me-2"></i>
		'.__('Install a Perl Module').'
		<span class="search_btn float-end">
			<a href="javascript:void(0);" class="text-dark" data-bs-toggle="collapse" data-bs-target="#search_queue" aria-expanded="true" aria-controls="search_queue" title="'.__('Search').'"><i class="fas fa-search"></i></a>
		</span>
		</div>
		<div class="mb-2 mt-2" style="background-color:#e9ecef;">
			<div class="collapse '.(!empty(optREQ('query')) ? 'show' : '').'" id="search_queue">
				<div class="row p-3 d-flex">
                    <form accept-charset="'.$globals['charset'].'" action="'.$globals['ind'].'act=perl_modules" method="POST" name="ser_perl_module_form" id="ser_perl_module_form" class="form-horizontal">
					<div class="row">
						<div class="col-12 col-lg-4">
						&nbsp;<label class="sai_head">'.__('Available for installation').'</label>
							<input type="text" class="form-control" id="searchperl" name="query" size="15" placeholder="'.__('Find A Perl Module').'">
						</div>
						<div class="col-12 col-lg-1">
							<input class="btn btn-primary" type="submit" id="findPerMod" value="'.__('Find').'" style="margin-top: 30px;">
						</div>
						</div>
                    </form>
				</div>
			</div>
		</div>
	</div>
	<div class="soft-smbox p-4 mt-4">
        <div class="section">
            <p>
                '.__('A Perl module is a reusable collection of related variables and subroutines that perform a set of programming tasks. You will need to install a Perl module before you can use it inside your Perl program.').'<br /><br />
                '.__('$0 Note : $1 Modules are installed directly from the CPAN repository.', ['<b>', '</b>']).'
            </p>
        </div>
        
        <div class="section">
            
            <div class="row">
			<div class="col-12 col-lg-3">
				<a  style="width:100%;" class="btn btn-primary my-1" href="'.$globals['index'].'act=perl_modules" id="showAllMod">'.__('Show Available Modules').'</a>
			</div>
            <div class="col-12 col-lg-4">
                <form action="" method="POST" name="installperl_form" id="installperl_form" class="form-horizontal" onsubmit="return submitit(this)">
                    <div class="input-group mb-3">
                    <input type="hidden" name="action" value="install">
                    <input type="text" class="form-control" name="module_name" id="module_name" placeholder="'.__('Install a Perl Module').'">&nbsp;&nbsp;
                    <input class="btn btn-primary" type="submit" name="submit" id="install" value="Install Now">
                    </div>
                </form>
            </div>		
        </div>';
		page_links();
        echo '<div class="section my-3">
            <h5>'.__('Installed PERL Modules').'</h5>
			<div class="table-responsive">
            <table class="table align-middle table-nowrap mb-0 webuzo-table mt-4" id="sys_mods">			
                <thead class="sai_head2" style="background-color: #EFEFEF;">
                    <tr>
                        <th class="align-middle">'.__('Module Name').'</th>
                        <th class="align-middle">'.__('Version').'</th>
                        <th colspan="6" class="text-center">'.__('Actions').'</th>
                    </tr>			
                </thead>
                <tbody id="ipear_list">';
				
                if(empty($Installed_PerlMod)){
                    echo '<tr><td colspan="6" class="text-center">'.__('No module installed').'</td></tr>';
                }else{
                    foreach($Installed_PerlMod as $key => $value){
                        $ModName = $value['name'];
                        $ModVer = (!empty($value['version']) ? $value['version'] : ' - ');

echo '
                        <tr id="tr'.$ModName.'">
                            <td>'.$ModName.'</td>
                            <td>'.$ModVer.'</td>
                            <td onclick="submitit(\'module_name='.$ModName.'&action=update\')" style="cursor:pointer"><i class="fas fa-upload"></i> '.__('Update').'</td>
                            <td onclick="submitit(\'module_name='.$ModName.'&action=reinstall\')" style="cursor:pointer"><i class="fab fa-rev"></i> '.__('Reinstall').'</a></td>
                            <td onclick="submitit(\'module_name='.$ModName.'&action=uninstall\')" style="cursor:pointer"><i class="fas fa-trash-alt"></i> '.__('Uninstall').'</a></td>
                            <td><i class="fas fa-book"></i><a class="btn cpanLink" href='.$meta_cpan_doc_url.$ModName.' target="_blank">'.__('Show Docs').'</a></td>
                        </tr>';
                    } 
                }
                echo '
                </tbody>
            </table>
			</div>
        </div>
    </div>
   
    <script>
        $("#ser_perl_module_form").submit(function( event ) {
            let modName = $("#searchperl").val();
            if(modName == "" || modName == "undefined"){
				var a = show_message_r("'.__js('Error').'", "'.__js('Please enter some Perl Module').'");
				a.alert = "alert-danger"
				show_message(a);
				return false;
				event.preventDefault();
            }
            else{
                form.submit();
            }
        });
    </script>';

}