persze odaírtam azt is…
install -os file van benne,de …..
ez van a configure.cgi fileban:
#!/usr/local/bin/perl
# config.cgi
# Display a form for editing the configuration of a module.
require ‘./web-lib.pl’;
require ‘./config-lib.pl’;
require ‘./ui-lib.pl’;
&init_config();
$m = $ARGV[0];
&read_acl(%acl);
$acl{$base_remote_user,$m} || &error($text{‘config_eaccess’});
%access = &get_module_acl(undef, $m);
$access{‘noconfig’} &&
&error($text{‘config_ecannot’});
%module_info = &get_module_info($m);
&ui_print_header(&text(‘config_dir’, $module_info{‘desc’}),
$text{‘config_title’}, „”, undef, 0, 1);
print „n”;
print „n”;
print „n”;
print ” „,&text(‘config_header’, $module_info{‘desc’}),
” n”;
print ” n”;
&read_file(„$config_directory/$m/config”, %config);
if (-r „$m/config_info.pl”) {
# Module has a custom config editor
&foreign_require($m, „config_info.pl”);
local $fn = „${m}::config_form”;
if (defined(&$fn)) {
$func++;
&foreign_call($m, „config_form”, %config);
}
}
if (!$func) {
# Use config.info to create config inputs
&generate_config(%config, „$root_directory/$m/config.info”, $m);
}
print „n”;
print „n”;
&ui_print_footer(„/$m”, $text{‘index’});
az install-modul.pl -ben is hasonlók vannak….
a readme ír valamit olyat hogy ez valami PERL -ben lett írva….
ez segít valamit ?????
legutóbbi hsz