MySQL-Admin
view release on metacpan or search on metacpan
}
my $prefix = defined $inctance->{phash}{runtime_params}{disk}{prefix} ? $inctance->{phash}{runtime_params}{disk}{prefix} : '';
$self->SUPER::ACTION_install;
if($^O ne 'MSWin32'){
$prefix .= '/' unless $prefix =~/^$/;
system("chmod $m_hrSettings->{files}{chmod} -R $prefix$m_hrSettings->{cgi}{DocumentRoot}");
system("chmod $m_hrSettings->{files}{chmod} -R $prefix$m_hrSettings->{cgi}{bin}");
system("chmod $m_hrSettings->{files}{chmod} $prefix$m_hrSettings->{cgi}{bin}/mysql.pl");
system("chmod $m_hrSettings->{files}{chmod} $prefix$m_hrSettings->{cgi}{bin}/translate.pl");
mkdir "$prefix$m_hrSettings->{cgi}{DocumentRoot}/download";
system("chown $m_hrSettings->{files}{owner}:$m_hrSettings->{files}{group} -R $prefix$m_hrSettings->{cgi}{DocumentRoot}");
system("chown $m_hrSettings->{files}{owner}:$m_hrSettings->{files}{group} -R $prefix$m_hrSettings->{cgi}{bin}");
system("chown $m_hrSettings->{files}{owner}:$m_hrSettings->{files}{group} $cwd/cgi-bin/config/settings.pl") if $^O ne 'MSWin32';
}
}
sub ACTION_uninstall
{
my %conf = (
name => $self->{'properties'}{dbname},
host => $self->{'properties'}{sqlhost},
user => $self->{'properties'}{dbuser},
cgi-bin/Content/files.pl view on Meta::CPAN
class => 'toolbarButton'
},
'Chmod',
) : ''
)
. ' '
. (
$^O ne 'MSWin32' ? a(
{
onclick =>
"var a;prompt('Enter User:',function(argv){a= argv;prompt('Enter Group:',function(b){if(a != null && b != null)requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=chownFile&file=$esubfolder&user='+encodeURIComponent(a)+'&gid='+encod...
class => 'toolbarButton'
},
'Chown',
) : ''
)
);
print
qq(<table class="ShowTables marginTop"><tr class="captionRadius"><td class="captionRadius" colspan="7"><a href="$hf" class="treeviewLink$m_hrSettings->{size}">$links $fname</a></td></tr><tr><td colspan="7" class="toolbar"><div id="toolbarcontent" cla...
. ( $#t >= 0 ? $fileview->Tree( \@t, $m_sStyle ) : '' )
. q(</td></tr></table>);
cgi-bin/Content/files.pl view on Meta::CPAN
columns => [
sprintf( "%s", $sb->size ),
( $^O ne 'MSWin32' ? sprintf( "%04o", $sb->mode & 07777 ) : '' ),
( $^O ne 'MSWin32' ? getpwuid( $sb->uid )->name : '' ),
( $^O ne 'MSWin32' ? $sb->gid : '' ),
"$year-$mon-$mday $hour:$min:$sec",
qq|<table cellpading="0" cellspacing="0">
<tr><td class="batch"><a class="treeviewLink16" href="javascript:prompt('Enter Filename:',function(a){if(a != null )requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=renameFile&file=$efl&newName=...
. (
$^O ne 'MSWin32'
? qq|<td class="batch"><a class="treeviewLink16" href="javascript:prompt('Enter User:',function(c){ a = c; prompt('Enter Group:',function(b){ if(a != null && b != null)requestURI('$m_hrSettings->{cgi}{serverNa...
: ''
)
. (
$^O ne 'MSWin32'
? qq|<td class="batch"><a class="treeviewLink16" href="javascript:prompt('Enter Chmod: 0755',function(a){if(a != null )requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=chmodFile&file=$efl&ch...
: ''
)
. qq|<td class="batch"><a class="treeviewLink16" href="javascript:confirm2('$trdelete ?',function(a){requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=deleteFile&file=$efl','deleteFile','delete...
</td></tr></table>|
cgi-bin/Content/files.pl view on Meta::CPAN
"$year-$mon-$mday $hour:$min:$sec",
qq|
<table cellpading="0" cellspacing="0"><tr>
<td class="batch" style="font-size:14px;"><a class="treeviewLink16" href="javascript:prompt('Enter Filename:',function(a){if(a != null )requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=renameFile&file=$efl&newName='+...
|
. (
$^O ne 'MSWin32'
? qq|<td class="batch" style="font-size:14px;"><a class="treeviewLink16" href="javascript:prompt('Enter User:',function(c){a=c;prompt('Enter Group:',function(b){if(a != null && b != null)requestURI('$m_hrSetti...
: ''
)
. (
$^O ne 'MSWin32'
? qq|<td class="batch" style="font-size:14px;"><a class="treeviewLink16" href="javascript:prompt('Enter Chmod: 0755',function(a){;if(a != null )requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?acti...
: ''
)
. qq|<td class="batch" style="font-size:14px;"><a class="treeviewLink16" href="javascript:confirm2('$trdelete ?',function(a){requestURI('$m_hrSettings->{cgi}{serverName}$ENV{SCRIPT_NAME}?action=deleteFile&file=$e...
</tr></table>|,
cgi-bin/Content/files.pl view on Meta::CPAN
} ## end sub makeDir
sub renameFile {
my $file = param('file');
my $newName = param('newName');
my $dir = $file =~ /(.*\/)[^\/]+$/ ? $1 : '/';
rename $file, "$dir$newName";
&showDir($dir);
} ## end sub renameFile
sub chownFile {
my $user = param('user');
my $uid = getpwnam($user);
my $gid = param('gid');
my $g = getgrnam($gid);
my $sFile = param('file');
$can_chown_giveaway = not sysconf(_PC_CHOWN_RESTRICTED);
print 'Not allowed' unless $can_chown_giveaway;
my $cnt = chown $uid, $g, $sFile;
print 'Ok' if $cnt > 0;
my $d = $sFile =~ m?^(.*)/[^/]+$? ? $1 : $m_hrSettings->{cgi}{bin};
&showDir($d);
} ## end sub chownFile
sub chmodFile {
my $chmod = param('chmod');
my $sFile = param('file');
chmod oct($chmod), $sFile if $chmod =~ /\d\d\d\d/ && -e $sFile;
my $d = $sFile =~ m?^(.*)/[^/]+$? ? $1 : $m_hrSettings->{cgi}{bin};
&showDir($d);
} ## end sub chmodFile
sub deleteFile {
extra/install.sql view on Meta::CPAN
INSERT INTO `actions` (`action`,`file`,`title`,`right`,`sub`,`type`,`xsl`,`id`) values('makeDir','files.pl','Files','5','makeDir','html',NULL,'94');
INSERT INTO `actions` (`action`,`file`,`title`,`right`,`sub`,`type`,`xsl`,`id`) values('newGbookEntry','gbook.pl','gbook','0','newGbookEntry','html',NULL,'95');
INSERT INTO `actions` (`action`,`file`,`title`,`right`,`sub`,`type`,`xsl`,`id`) values('addnewGbookEntry','gbook.pl','gbook','0','addnewGbookEntry','html',NULL,'96');
INSERT INTO `actions` (`action`,`file`,`title`,`right`,`sub`,`type`,`xsl`,`id`) values('gbook','gbook.pl','gbook','0','showGbook','html',NULL,'97');
INSERT INTO `actions` (`action`,`file`,`title`,`right`,`sub`,`type`,`xsl`,`id`) values('deleteExploit','admin.pl','Admin','5','deleteExploit','html',NULL,'98');
INSERT INTO `actions` (`action`,`file`,`title`,`right`,`sub`,`type`,`xsl`,`id`) values('ImportOperaBookmarks','links.pl','ImportOperaBookmarks','5','ImportOperaBookmarks','html',NULL,'99');
INSERT INTO `actions` (`action`,`file`,`title`,`right`,`sub`,`type`,`xsl`,`id`) values('linkseditTreeview','editTree.pl','linkseditTreeview','5','linkseditTreeview','html',NULL,'100');
INSERT INTO `actions` (`action`,`file`,`title`,`right`,`sub`,`type`,`xsl`,`id`) values('EditFile','files.pl','EditAction','5','EditFile','html',NULL,'101');
INSERT INTO `actions` (`action`,`file`,`title`,`right`,`sub`,`type`,`xsl`,`id`) values('ExportOperaBookmarks','links.pl','ExportOperaBookmarks','0','ExportOperaBookmarks','html',NULL,'102');
INSERT INTO `actions` (`action`,`file`,`title`,`right`,`sub`,`type`,`xsl`,`id`) values('MoveTreeViewEntry','editTree.pl','MoveTreeViewEntry','5','MoveTreeViewEntry','html',NULL,'103');
INSERT INTO `actions` (`action`,`file`,`title`,`right`,`sub`,`type`,`xsl`,`id`) values('chownFile','files.pl','chownFile','5','chownFile','html',NULL,'104');
INSERT INTO `actions` (`action`,`file`,`title`,`right`,`sub`,`type`,`xsl`,`id`) values('ImportFireFoxBookmarks','links.pl','ImportFireFoxBookmarks','5','ImportFireFoxBookmarks','html',NULL,'105');
INSERT INTO `actions` (`action`,`file`,`title`,`right`,`sub`,`type`,`xsl`,`id`) values('rebuildtrash','news.pl','weblog','0','rebuildtrash','html',NULL,'106');
INSERT INTO `actions` (`action`,`file`,`title`,`right`,`sub`,`type`,`xsl`,`id`) values('trash','news.pl','trash','5','trash','html',NULL,'107');
INSERT INTO `actions` (`action`,`file`,`title`,`right`,`sub`,`type`,`xsl`,`id`) values('showaddTranslation','addtranslate.pl','showaddTranslation','5','main','html',NULL,'108');
INSERT INTO `actions` (`action`,`file`,`title`,`right`,`sub`,`type`,`xsl`,`id`) values('translate','translate.pl','translate','5','main','html',NULL,'109');
INSERT INTO `actions` (`action`,`file`,`title`,`right`,`sub`,`type`,`xsl`,`id`) values('deleteTreeviewEntrys','editTree.pl','Edit','5','deleteTreeviewEntrys','html',NULL,'110');
INSERT INTO `actions` (`action`,`file`,`title`,`right`,`sub`,`type`,`xsl`,`id`) values('makeUser','reg.pl','register','0','make','html',NULL,'111');
INSERT INTO `actions` (`action`,`file`,`title`,`right`,`sub`,`type`,`xsl`,`id`) values('navigation','navigation.pl','navigation','0','main','html',NULL,'112');
INSERT INTO `actions` (`action`,`file`,`title`,`right`,`sub`,`type`,`xsl`,`id`) values('mainMenu','main.pl','Menu','0','main','html',NULL,'113');
INSERT INTO `actions` (`action`,`file`,`title`,`right`,`sub`,`type`,`xsl`,`id`) values('impressum','impressum.pl','Impressum','0','main','html',NULL,'114');
extra/install.sql view on Meta::CPAN
INSERT INTO `actions_set` (`action`,`foreign_action`,`output_id`,`id`) values('makeDir','makeDir','content','91');
INSERT INTO `actions_set` (`action`,`foreign_action`,`output_id`,`id`) values('newGbookEntry','newGbookEntry','content','92');
INSERT INTO `actions_set` (`action`,`foreign_action`,`output_id`,`id`) values('addnewGbookEntry','addnewGbookEntry','content','93');
INSERT INTO `actions_set` (`action`,`foreign_action`,`output_id`,`id`) values('gbook','gbook','content','94');
INSERT INTO `actions_set` (`action`,`foreign_action`,`output_id`,`id`) values('deleteExploit','deleteExploit','content','95');
INSERT INTO `actions_set` (`action`,`foreign_action`,`output_id`,`id`) values('ImportOperaBookmarks','ImportOperaBookmarks','\r\ncontent','96');
INSERT INTO `actions_set` (`action`,`foreign_action`,`output_id`,`id`) values('linkseditTreeview','linkseditTreeview','content','97');
INSERT INTO `actions_set` (`action`,`foreign_action`,`output_id`,`id`) values('EditFile','EditFile','content','98');
INSERT INTO `actions_set` (`action`,`foreign_action`,`output_id`,`id`) values('ExportOperaBookmarks','ExportOperaBookmarks','content','99');
INSERT INTO `actions_set` (`action`,`foreign_action`,`output_id`,`id`) values('MoveTreeViewEntry','MoveTreeViewEntry','content','100');
INSERT INTO `actions_set` (`action`,`foreign_action`,`output_id`,`id`) values('chownFile','chownFile','content','101');
INSERT INTO `actions_set` (`action`,`foreign_action`,`output_id`,`id`) values('ImportFireFoxBookmarks','ImportFireFoxBookmarks','content','102');
INSERT INTO `actions_set` (`action`,`foreign_action`,`output_id`,`id`) values('rebuildtrash','rebuildtrash','content','103');
INSERT INTO `actions_set` (`action`,`foreign_action`,`output_id`,`id`) values('trash','trash','content','104');
INSERT INTO `actions_set` (`action`,`foreign_action`,`output_id`,`id`) values('showaddTranslation','showaddTranslation','content','105');
INSERT INTO `actions_set` (`action`,`foreign_action`,`output_id`,`id`) values('translate','translate','content','106');
INSERT INTO `actions_set` (`action`,`foreign_action`,`output_id`,`id`) values('deleteTreeviewEntrys','deleteTreeviewEntrys','content','107');
INSERT INTO `actions_set` (`action`,`foreign_action`,`output_id`,`id`) values('makeUser','makeUser','content','108');
INSERT INTO `actions_set` (`action`,`foreign_action`,`output_id`,`id`) values('default','navigation','treeview','109');
INSERT INTO `actions_set` (`action`,`foreign_action`,`output_id`,`id`) values('default','login','loginContent','110');
INSERT INTO `actions_set` (`action`,`foreign_action`,`output_id`,`id`) values('showDatabases','quickbar','quickbar','111');
htdocs/src-min/mode-ocaml.js view on Meta::CPAN
define("ace/mode/ocaml_highlight_rules",["require","exports","module","ace/lib/oop","ace/mode/text_highlight_rules"],function(e,t,n){"use strict";var r=e("../lib/oop"),i=e("./text_highlight_rules").TextHighlightRules,s=function(){var e="and|as|assert...
htdocs/src-min/mode-perl.js view on Meta::CPAN
define("ace/mode/perl_highlight_rules",["require","exports","module","ace/lib/oop","ace/mode/text_highlight_rules"],function(e,t,n){"use strict";var r=e("../lib/oop"),i=e("./text_highlight_rules").TextHighlightRules,s=function(){var e="base|constant|...
htdocs/src-min/mode-pgsql.js view on Meta::CPAN
define("ace/mode/doc_comment_highlight_rules",["require","exports","module","ace/lib/oop","ace/mode/text_highlight_rules"],function(e,t,n){"use strict";var r=e("../lib/oop"),i=e("./text_highlight_rules").TextHighlightRules,s=function(){this.$rules={s...
htdocs/src-min/mode-php.js view on Meta::CPAN
define("ace/mode/doc_comment_highlight_rules",["require","exports","module","ace/lib/oop","ace/mode/text_highlight_rules"],function(e,t,n){"use strict";var r=e("../lib/oop"),i=e("./text_highlight_rules").TextHighlightRules,s=function(){this.$rules={s...
( run in 0.993 second using v1.01-cache-2.11-cpan-71847e10f99 )