;
close(CONFRD);
##文字コード判定→UTF8変換
my $contCC=&checkCharCode($gmapconf);
if ($contCC eq 'shiftjis') {
foreach (@GMAPCONF) { Encode::from_to($_, 'shiftjis', 'utf8'); }
}
$GMAPCONF[1] = "$in{'conf8'}\n";
$Temp='./sys/gmap/temp.dat';
if (open(CONFWR,"> $Temp")) {
print CONFWR @GMAPCONF;
close(CONFWR);
rename($Temp,$gmapconf);
} else { &error($gmapconf.'が記述できません'); }
chmod(oct($WRMode),$gmapconf);
##★処理画面出力
my $jumpurl = "$cginame?mode=update2";
my $htJump = <<"htJump";
サーバー名・パーミッション設定処理
只今、サーバー名・パーミッションの設定処理中です。
htJump
print "Content-type: text/html\n\n";
print $htJump;
exit;
}
##=======================================================================================
sub regupdater {
##変数情報の取得
if ($in{'updatefile'} eq '') { &error('添付ファイルを指定してください'); }
##添付ファイルのアップロード
if (($agent =~ /Mac/i) | ($agent =~ /PPC/i)) {
foreach (@in) { if ($_ =~ /Content-type:/i) { &upregist; } }
} elsif (($agent =~ /Windows/i) | ($agent =~ /NT/i)) {
if ($in{'updatefile'} ne '') { &upregist; }
} else {
if ($in{'updatefile'} ne '') { &upregist; }
}
##処理画面出力
my $jumpurl = "$cginame?mode=admin";
my $html_jumpurl = <<"JUMPA";
アップデータ処理
只今、アップデータ $fname のアップロード中です。
JUMPA
print "Content-type: text/html\n\n";
print $html_jumpurl;
exit;
}
##=======================================================================================
sub upregist {
my $RegUpdateName='../adedit3up.tar';
my $macbin;
my $length;
# マックバイナリ対策
$macbin=0;
foreach (@in) {
if ($_ =~ /application\/x-macbinary/i) { $macbin=1; }
}
$fname=$in{'updatefile'};
$fname =~ s/\"//g;
if ($fname !~ /adedit\d\.\d\.\dup\.tar/) {
&error('アップロードするファイルが違うようです');
}
if ($macbin) {
$length = substr($upfile,83,4);
$length = unpack("%N",$length);
$upfile = substr($upfile,128,$length);
}
# 添付データを書き込み
my $TmpUpdate='../adedit3up.tmp';
my $buffer;
open(OUT,"> $TmpUpdate") || &error('アップロード失敗');
binmode(OUT);
binmode(STDOUT);
while (read($upfile, $buffer, 1024)) {
print OUT $buffer;
}
close(OUT);
chmod(oct($WRMode),$TmpUpdate);
rename($TmpUpdate,$RegUpdateName);
}
##=======================================================================================
sub update {
my $vUpFalse=0;
my $OrgDir;
my $TmpDir;
my $Dcopy;
my $Ddell;
my $tarextract;
my $updaterTar="../adedit3up.tar";
my $cpi;
my $predat;my $outdat;
my $preinc;my $outinc;
my $chLot;
##★処理画面出力
my $htJump = <<"htJump";
アップデート処理
只今、アップデート処理中です。
この処理は数分程度かかります、このままお待ち下さい
htJump
print "Content-type: text/html\n\n";
print $htJump;
##アップデータTarファイルの解凍#####################
print 'アップデータファイルの展開中 ';
if (-e $updaterTar) {
print 'アップデータファイルを展開中です ';
system('tar','-vxf',$updaterTar);
print ' ';
$tarextract=1;
sleep(5);
} else {
$tarextract=0;
}
print '
';
##コンテンツフォルダの再構築#####################
print 'コンテンツフォルダの再構築中 ';
##★/commons/再構築
$chD='../commons/';
@chF=();
$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
sleep(1);
$OrgDir='../commons';
$TmpDir='../commonstemp';
##データ複製
$Dcopy=0;$Ddell=0;
if (-e $OrgDir) {
system('cp','-r','-p',$OrgDir,$TmpDir);
sleep(1);
} else {
mkdir($OrgDir); chmod(oct($DirMode),$OrgDir); sleep(1);
}
for (0..5) {
if (-e $TmpDir) { sleep(1); $Dcopy=1; last; } else { sleep(1); }
if (($_==5)&&($Dcopy==0)) {
print ' /commons/ フォルダの再構\築ができません。処理を続行します。 ';
$vUpFalse=1;
rmtree($TmpDir);
sleep(1);
}
}
##データ削除
if ($Dcopy==1) {
rmtree($OrgDir);
sleep(1);
for (0..5) {
if (-e $OrgDir) { rmtree($OrgDir); sleep(1); } else { $Ddell=1; last; }
if (($_==5)&&($Ddell==0)) {
print ' /commons/ フォルダの再構築に失敗しました '
.'FTPにて/commons/ フォルダを削除してから/commonstemp/ を /commons/ に変更してください ';
$vUpFalse=1;
sleep(1);
}
}
}
##リネーム
if ($Ddell==1) { rename($TmpDir,$OrgDir); }
print ' /commons/ フォルダの最適化を完了しました ';
sleep(1);
##★/img/再構築
$chD='../img/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
sleep(1);
$OrgDir='../img';
$TmpDir='../imgtemp';
##データ複製
$Dcopy=0;$Ddell=0;
if (-e $OrgDir) {
system('cp','-r','-p',$OrgDir,$TmpDir);
sleep(1);
} else {
mkdir($OrgDir); chmod(oct($DirMode),$OrgDir); sleep(1);
}
for (0..5) {
if (-e $TmpDir) { sleep(1); $Dcopy=1; last; } else { sleep(1); }
if (($_==5)&&($Dcopy==0)) {
print ' /img/ フォルダの再構\築ができません。処理を続行します。 ';
$vUpFalse=1;
rmtree($TmpDir);
sleep(1);
}
}
##データ削除
if ($Dcopy==1) {
rmtree($OrgDir);
sleep(1);
for (0..5) {
if (-e $OrgDir) { rmtree($OrgDir); sleep(1); } else { $Ddell=1; last; }
if (($_==5)&&($Ddell==0)) {
print ' /img/ フォルダの再構築に失敗しました '
.'FTPにて/img/ フォルダを削除してから/imgtemp/ を /img/ に変更してください ';
$vUpFalse=1;
sleep(1);
}
}
}
##リネーム
if ($Ddell==1) { rename($TmpDir,$OrgDir); }
print ' /img/ フォルダの最適化を完了しました ';
sleep(1);
##★/mobi/再構築
$chD='../mobi/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
sleep(1);
$OrgDir='../mobi';
$TmpDir='../mobitemp';
##データ複製
$Dcopy=0;$Ddell=0;
if (-e $OrgDir) {
system('cp','-r','-p',$OrgDir,$TmpDir);
sleep(1);
} else {
mkdir($OrgDir); chmod(oct($DirMode),$OrgDir); sleep(1);
}
for (0..5) {
if (-e $TmpDir) { sleep(1); $Dcopy=1; last; } else { sleep(1); }
if (($_==5)&&($Dcopy==0)) {
print ' /mobi/ フォルダの再構築ができません。処理を続行します。 ';
$vUpFalse=1;
rmtree($TmpDir);
sleep(1);
}
}
##データ削除
if ($Dcopy==1) {
rmtree($OrgDir);
sleep(1);
for (0..5) {
if (-e $OrgDir) { rmtree($OrgDir); sleep(1); } else { $Ddell=1; last; }
if (($_==5)&&($Ddell==0)) {
print ' /mobi/ フォルダの再構築に失敗しました '
.'FTPにて/mobi/ フォルダを削除してから/mobitemp/ を /mobi/ に変更してください ';
$vUpFalse=1;
sleep(1);
}
}
}
##リネーム
if ($Ddell==1) { rename($TmpDir,$OrgDir); }
print ' /mobi/ フォルダの最適化を完了しました ';
sleep(1);
##★/uploads/再構築
$chD='../uploads/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$OrgDir='../uploads';
$TmpDir='../uploadstemp';
##データ複製
$Dcopy=0;$Ddell=0;
if (-e $OrgDir) {
system('cp','-r','-p',$OrgDir,$TmpDir);
sleep(1);
} else {
mkdir($OrgDir); chmod(oct($DirMode),$OrgDir); sleep(1);
}
for (0..5) {
if (-e $TmpDir) { sleep(2); $Dcopy=1; last; } else { sleep(1); }
if (($_==5)&&($Dcopy==0)) {
print ' /uploads/ フォルダの再構築ができません。処理を続行します。 ';
$vUpFalse=1;
rmtree($TmpDir);
sleep(1);
}
}
##データ削除
if ($Dcopy==1) {
rmtree($OrgDir);
sleep(1);
for (0..5) {
if (-e $OrgDir) { rmtree($OrgDir); sleep(1); } else { $Ddell=1; last; }
if (($_==9)&&($Ddell==0)) {
print ' /mobi/ フォルダの再構築に失敗しました '
.'FTPにて/uploads/ フォルダを削除してから/uploadstemp/ を /uploads/ に変更してください ';
$vUpFalse=1;
sleep(1);
}
}
}
##リネーム
if ($Ddell==1) { rename($TmpDir,$OrgDir); }
print ' /uploads/ フォルダの最適化を完了しました ';
sleep(1);
##★/skin/再構築
$chD='../skin/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$OrgDir='../skin';
$TmpDir='../skintemp';
##データ複製
$Dcopy=0;$Ddell=0;
if (-e $OrgDir) {
system('cp','-r','-p',$OrgDir,$TmpDir);
sleep(1);
} else {
mkdir($OrgDir); chmod(oct($DirMode),$OrgDir); sleep(1);
}
for (0..5) {
if (-e $TmpDir) { sleep(2); $Dcopy=1; last; } else { sleep(1); }
if (($_==5)&&($Dcopy==0)) {
print ' /skin/ フォルダの再構築ができません。処理を続行します。 ';
$vUpFalse=1;
rmtree($TmpDir);
sleep(1);
}
}
##データ削除
if ($Dcopy==1) {
rmtree($OrgDir);
sleep(1);
for (0..5) {
if (-e $OrgDir) { rmtree($OrgDir); sleep(1); } else { $Ddell=1; last; }
if (($_==5)&&($Ddell==0)) {
print ' /skin/ フォルダの再構築に失敗しました '
.'FTPにて/skin/ フォルダを削除してから/skintemp/ を /skin/ に変更してください ';
$vUpFalse=1;
sleep(1);
}
}
}
##リネーム
if ($Ddell==1) { rename($TmpDir,$OrgDir); }
print ' /skin/ フォルダの最適化を完了しました ';
print '
';
sleep(1);
##システムフォルダの再構築#####################
print 'システムフォルダの再構築中 ';
if ($tarextract==1) {
##システムフォルダの再構築
print 'システムフォルダを再構築しています ';
system('cp','-r','-p','./conf.dat','./admin/conf.dat');
system('cp','-r','-p','./dir.dat','./admin/dir.dat');
$cpi=1;
for (0..30) {
$predat='./menu'.$cpi.'.dat';
$outdat='./admin/menu'.$cpi.'.dat';
if (-e $predat) { system('cp','-r','-p',"$predat","$outdat"); }
$cpi++;
}
$cpi=1;
for (0..50) {
$preinc='./menu'.$cpi.'.inc';
$outinc='./admin/menu'.$cpi.'.inc';
if (-e $preinc) { system('cp','-r','-p',"$preinc","$outinc"); }
$cpi++;
}
system('cp','-r','-p','./mobi.dat','./admin/mobi.dat');
system('cp','-r','-p','./pass.cgi','./admin/pass.cgi');
system('cp','-r','-p','./conf.dat','./admin/conf.dat');
##サーバーパーミッション設定
$chLot=@TMPchmodDir-1;$chi=0;
for (0..$chLot) { chmod(oct($DirMode),$TMPchmodDir[$chi]); $chi++; }
$chLot=@TMPchmodExec-1;$chi=0;
for (0..$chLot) { chmod(oct($ExecMode),$TMPchmodExec[$chi]); $chi++; }
$chLot=@TMPchmodWR-1;$chi=0;
for (0..$chLot) { chmod(oct($WRMode),$TMPchmodWR[$chi]); $chi++; }
&chmodsys2;
sleep(2);
print ' ';
print 'Perlのパスを確認しています ';
chmod(oct($DirMode),'./admin');
chmod(oct($DirMode),'./admin/wysiwyg');
chmod(oct($DirMode),'./admin/wysiwyg/ckeditor');
my $FilesExecLot=@chmodExecUp-1;$i=0;
for (0..$FilesExecLot) {
#CGIファイル読み込み
my @RDDATA=();
my @WRDATA=();
my $setPerlPath=0;
chmod(oct($WRMode),$chmodExecUp[$i]);
if (open(DATARD,$chmodExecUp[$i])) {
@RDDATA = ;
close(DATARD);
##文字コード判定→UTF8変換
my $contCC=&checkCharCode($chmodExecUp[$i]);
if ($contCC eq 'shiftjis') {
foreach (@RDDATA) { Encode::from_to($_, 'shiftjis', 'utf8'); }
}
#Perlのパスの変更
if ($chmodExecUp[$i] =~ /\.cgi/) { $RDDATA[0]=$PerlPath."\n"; }
my $LotRDDATA=@RDDATA-1;my $ci=0;
for (0..$LotRDDATA) {
$RDDATA[$ci] =~ s/\r\n/\n/g;
$RDDATA[$ci] =~ s/\r/\n/g;
push(@WRDATA,$RDDATA[$ci]);
$ci++;
}
$setPerlPath=1;
print "".$chmodExecUp[$i]."をオープンしました ";
} else {
if ($chmodExecUp[$i]=~/\.cgi/) {
$vUpFalse=1;
if (-e $chmodExecUp[$i]) {
print "".$chmodExecUp[$i]."がオープンできません ";
} else {
print "".$chmodExecUp[$i]."が存在しません ";
}
}
if ($chmodExecUp[$i]=~/\.php/) {
$setPerlPath=2;
print "".$chmodExecUp[$i]."はPHPファイルなので処理をスキップします ";
}
}
#CGIファイルの再保存
my $tmpfile = "./admin/$i$$\.tmp";
if (($setPerlPath==1)&&(open(TMP,">$tmpfile"))) {
print TMP @WRDATA;
close(TMP);
chmod(oct($ExecMode),$tmpfile);
rename($tmpfile,$chmodExecUp[$i]);
unlink($tmpfile);
if ($chmodExecUp[$i] =~ /\.cgi/) {
print "".$chmodExecUp[$i]."のPerlのパスを変更しました ";
}
} elsif ($setPerlPath==2) {
print "".$chmodExecUp[$i]."のPerlのパスの変更をスキップしました ";
} else {
$vUpFalse=1;
print "".$chmodExecUp[$i]."のPerlのパスの変更に失敗しました ";
}
$i++;
}
rename('./admin','../adminnew');
print ' ';
print 'システムフォルダを最適化しています ';
sleep(5);
rename('../admin','../adminold');
rename('../adminnew','../admin');
$chLot=@chmodDir-1;$chi=0;
for (0..$chLot) { chmod(oct($DirMode),$chmodDir[$chi]); $chi++; }
$chLot=@chmodExec-1;$chi=0;
for (0..$chLot) { chmod(oct($ExecMode),$chmodExec[$chi]); $chi++; }
$chLot=@chmodWR-1;$chi=0;
for (0..$chLot) { chmod(oct($WRMode),$chmodWR[$chi]); $chi++; }
&chmodsys;
sleep(2);
##/commons/ファイル構築
if (-e '../commons') {
print ' ';
print '/commons/フォルダを確認しています ';
} else {
mkdir('../commons');
chmod(oct($DirMode),'../commons');
$cpi=1;
for (0..99) {
$preinc='./menu'.$cpi.'.inc';
$outinc='../commons/menu'.$cpi.'.inc';
if (-e $preinc) {
system('cp','-r','-p',"$preinc","$outinc");
chmod(oct($WRMode),$outinc);
}
$cpi++;
}
system('cp','-r','-p','./news.cgi','../commons/news.cgi');
system('cp','-r','-p','./search.cgi','../commons/search.cgi');
system('cp','-r','-p','./qrcode.cgi','../commons/qrcode.cgi');
system('cp','-r','-p','./mobich.cgi','../mobi/index.cgi');
chmod(oct($ExecMode),'../commons/news.cgi');
chmod(oct($ExecMode),'../commons/search.cgi');
chmod(oct($ExecMode),'../commons/qrcode.cgi');
chmod(oct($ExecMode),'../mobi/index.cgi');
print ' ';
print '/commons/フォルダを構築しています ';
sleep(2);
}
##/jslib/ファイル構築
if (-e '../jslib') {
if (-e '../jslib/jqmobile') {
print ' ';
print '/jslib/フォルダを確認しています ';
} else {
system('cp','-r','-p','../admin/jslib/jqmobile','../jslib/jqmobile');
print ' ';
print '/jslib/フォルダを確認しています ';
print '/jslib/jqmobileフォルダを構築しています ';
}
} else {
if (-e '../adminold/jslib') {
system('cp','-r','-p','../adminold/jslib','../jslib');
chmod(oct($DirMode),'../jslib');
print ' ';
print '/jslib/フォルダを構築しています ';
} else {
print ' ';
print '/admin/jslib/ が存在しませんので構築中止します ';
}
sleep(2);
}
##古いシステムフォルダ削除
if ((-e '../adminold')&&(-e '../admin/wysiwyg')) {
rmtree('../adminold');
print ' ';
print '古いシステムフォルダを削除しています ';
sleep(5);
} else {
$vUpFalse=1;
print 'システムフォルダの再構築に失敗しました '
.'システムフォルダの復旧中です ';
rename('../adminold','../admin');
rmtree('../admin/admin');
sleep(3);
}
} else {
##パーミッション調整
$chLot=@chmodDir-1;$chi=0;
for (0..$chLot) { chmod(oct($DirMode),$chmodDir[$chi]); $chi++; }
$chLot=@chmodExec-1;$chi=0;
for (0..$chLot) { chmod(oct($ExecMode),$chmodExec[$chi]); $chi++; }
$chLot=@chmodWR-1;$chi=0;
for (0..$chLot) { chmod(oct($WRMode),$chmodWR[$chi]); $chi++; }
&chmodsys;
##データ複製
my $OrgDir='../admin';
my $TmpDir='../admintemp';
my $Dcopy=0;my $Ddell=0;
system('cp','-r','-p',$OrgDir,$TmpDir);
for (0..9) {
if (-e $TmpDir.'/wysiwyg') { sleep(3); $Dcopy=1; last; } else { print '.'; sleep(2); }
if (($_==9)&&($Dcopy==0)) {
print 'システムフォルダの再構\築ができません。処理を続行します。 ';
$vUpFalse=1;
rmtree($TmpDir);
sleep(2);
}
}
##データ削除
if ($Dcopy==1) {
rmtree($OrgDir);
sleep(2);
for (0..9) {
if (-e $OrgDir) { print '.'; sleep(2); } else { $Ddell=1; last; }
if (($_==9)&&($Ddell==0)) {
print 'システムフォルダの再構築に失敗しました '
.'FTPにて/admin/ フォルダを削除してから/admintemp/ を /admin/ に変更してください ';
$vUpFalse=1;
sleep(2);
}
}
}
##リネーム
if ($Ddell==1) { rename($TmpDir,$OrgDir); }
}
sleep(1);
print ' ';
print 'システムフォルダの最適化を完了しました ';
print "
";
##★処理画面出力
my $jumpurl = "$cginame?mode=update2";
if ($vUpFalse==1) {
my $htJump = <<"htJump";
処理中にエラーがあった場合は、この画面をメモして次へ進んでください
▼ ▼
▼ ▼
[次の処理へ進む]
htJump
print "$htJump\n\n";
} else {
$htJump = <<"htJump";
htJump
print $htJump;
}
exit;
}
##=======================================================================================
sub update2 {
my $cmenuorg;
my $amenuorg;
my $cmenuold;
#★絵文字追加[v2.9.7]
if (-e "./emoji") {
chmod(oct($DirMode),'./emoji');
if (-e "../emoji") {
;
} else {
system('cp','-r','-p','./emoji','../emoji');
sleep(2);
rmtree('./emoji');
}
}
##★パーミッション調整
&chmodsys;
##★処理画面出力
my $jumpurl = "$cginame?mode=admin";
my $htJump = <<"htJump";
アップデート処理
システム設定の最終処理中です。
システム設定の最終処理を行っています、このままお待ち下さい [update2]
htJump
print "Content-type: text/html\n\n";
print $htJump;
if (-e '../commons/news.cgi') {
if (-e './news.cgi') {
unlink('../commons/news.cgi');
sleep(1);
system('cp','-R','./news.cgi','../commons/news.cgi');
chmod(oct($ExecMode),'./news.cgi');
chmod(oct($ExecMode),'../commons/news.cgi');
} else {
system('cp','-R','../commons/news.cgi','./news.cgi');
chmod(oct($ExecMode),'./news.cgi');
chmod(oct($ExecMode),'../commons/news.cgi');
}
} else {
if (-e './news.cgi') {
mkdir('../commons/');
chmod(oct($DirMode),'../commons/');
system('cp','-R','./news.cgi','../commons/news.cgi');
chmod(oct($ExecMode),'./news.cgi');
chmod(oct($ExecMode),'../commons/news.cgi');
}
}
if (-e '../commons/search.cgi') {
if (-e './search.cgi') {
unlink('../commons/search.cgi');
sleep(1);
system('cp','-R','./search.cgi','../commons/search.cgi');
chmod(oct($ExecMode),'./search.cgi');
chmod(oct($ExecMode),'../commons/search.cgi');
} else {
system('cp','-R','../commons/search.cgi','./search.cgi');
chmod(oct($ExecMode),'./search.cgi');
chmod(oct($ExecMode),'../commons/search.cgi');
}
} else {
if (-e './search.cgi') {
mkdir('../commons/');
chmod(oct($DirMode),'../commons/');
system('cp','-R','./search.cgi','../commons/search.cgi');
chmod(oct($ExecMode),'./search.cgi');
chmod(oct($ExecMode),'../commons/search.cgi');
}
}
if (-e '../commons/qrcode.cgi') {
if (-e './qrcode.cgi') {
unlink('../commons/qrcode.cgi');
sleep(1);
system('cp','-R','./qrcode.cgi','../commons/qrcode.cgi');
chmod(oct($ExecMode),'./qrcode.cgi');
chmod(oct($ExecMode),'../commons/qrcode.cgi');
} else {
system('cp','-R','../commons/qrcode.cgi','./qrcode.cgi');
chmod(oct($ExecMode),'./qrcode.cgi');
chmod(oct($ExecMode),'../commons/qrcode.cgi');
}
} else {
if (-e './qrcode.cgi') {
mkdir('../commons/');
chmod(oct($DirMode),'../commons/');
system('cp','-R','./qrcode.cgi','../commons/qrcode.cgi');
chmod(oct($ExecMode),'./qrcode.cgi');
chmod(oct($ExecMode),'../commons/qrcode.cgi');
}
}
if (-e '../mobi/index.cgi') {
if (-e './mobich.cgi') {
unlink('../mobi/index.cgi');
sleep(1);
system('cp','-R','./mobich.cgi','../mobi/index.cgi');
chmod(oct($ExecMode),'../mobi/index.cgi');
chmod(oct($ExecMode),'./mobich.cgi');
} else {
system('cp','-R','../mobi/index.cgi','./mobich.cgi');
chmod(oct($ExecMode),'../mobi/index.cgi');
chmod(oct($ExecMode),'./mobich.cgi');
}
} else {
if (-e './mobich.cgi') {
mkdir('../mobi/');
chmod(oct($DirMode),'../mobi/');
system('cp','-R','./mobich.cgi','../mobi/index.cgi');
chmod(oct($ExecMode),'../mobi/index.cgi');
chmod(oct($ExecMode),'./mobich.cgi');
}
}
$cpi=1;
for (0..99) {
$cmenuorg='../commons/menu'.$cpi.'.inc';
$cmenuold='../commons/menu'.$cpi.'old.inc';
$amenuorg='./menu'.$cpi.'.inc';
if (-e $cmenuorg) {
if (-e $amenuorg) {
rename($cmenuorg,$cmenuold);
system('cp','-r','-p',$amenuorg,$cmenuorg);
unlink($cmenuold);
chmod(oct($WRMode),$cmenuorg);
} else {
system('cp','-r','-p',$cmenuorg,$amenuorg);
chmod(oct($WRMode),$amenuorg);
}
} else {
if (-e $amenuorg) {
mkdir('../commons/');
chmod(oct($DirMode),'../commons/');
system('cp','-r','-p',$amenuorg,$cmenuorg);
chmod(oct($ExecMode),$cmenuorg);
}
}
$cpi++;
}
#アイコン追加[v2.7.5]
system('cp','-r','-p','./img/mp4.gif','../icon/mp4.gif');
system('cp','-r','-p','./img/3gp.gif','../icon/3gp.gif');
system('cp','-r','-p','./img/3g2.gif','../icon/3g2.gif');
system('cp','-r','-p','./img/user.gif','../icon/user.gif');
system('cp','-r','-p','./img/qrc.gif','../icon/qrc.gif');
system('cp','-r','-p','./img/aplus.gif','../icon/aplus.gif');
system('cp','-r','-p','./img/bplus.gif','../icon/bplus.gif');
#アイコン追加[v2.8.1]
system('cp','-r','-p','./img/close.gif','../icon/close.gif');
system('cp','-r','-p','./img/calendlist.gif','../icon/calendlist.gif');
system('cp','-r','-p','./img/calendmatrix.gif','../icon/calendmatrix.gif');
#アイコン追加[v2.9.2]
system('cp','-r','-p','./img/xlsx.gif','../icon/xlsx.gif');
system('cp','-r','-p','./img/docx.gif','../icon/docx.gif');
system('cp','-r','-p','./img/pptx.gif','../icon/pptx.gif');
system('cp','-r','-p','./img/mmf.gif','../icon/mmf.gif');
system('cp','-r','-p','./img/mld.gif','../icon/mld.gif');
system('cp','-r','-p','./img/earth.gif','../icon/earth.gif');
#アイコン追加[v3.1.3]
system('cp','-r','-p','./img/swf.gif','../icon/swf.gif');
#アイコン追加[v3.1.7]
system('cp','-r','-p','./img/png.gif','../icon/png.gif');
#アイコン追加[v3.3.0]
system('cp','-r','-p','./img/flv.gif','../icon/flv.gif');
#アイコン追加[v4.0.1]
system('cp','-r','-p','./img/ogg.gif','../icon/ogg.gif');
my $DirLot=@DIR-1;my $dd=0;
my @ContentDir;
my $SystemPath;
my $ContentPath;
my $cflag;
for (0..$DirLot) {
##コンテンツディレクトリの調査
@ContentDir=split(/\,/,$DIR[$dd]);
$ContentDir[0] =~ s/\r//g; $ContentDir[0] =~ s/\n//g;
$ContentDir[1] =~ s/\r//g; $ContentDir[1] =~ s/\n//g;
##システムパス
$SystemPath='./sys/'.$ContentDir[1];
##コンテンツパス
$ContentPath='../'.$ContentDir[0];
##カスタマイズ保護対象フォルダの調査
my @cDir;my $cDirLot;my $cNum;
if ($UpdateOut ne '') {
@cDir=split(/\,/,$UpdateOut);
$cDirLot=@cDir-1; $cNum=0; $cflag=0;
for (0..$cDirLot) {
if ($ContentDir[0] eq $cDir[$cNum]) { $cflag=1; }
$cNum++;
}
} else { $cflag=0; }
##カスタムディレクトリでなければアップデート処理
if (($ContentDir[1] ne 'other')&&($cflag ne '1')) {
##ファイルリストの確認
my $FileList=$SystemPath.'/filelist.txt';
my @FList;
if (open(FLIST,"$FileList")) {
@FList = ;
close(FLIST);
} else { &error('ファイルリストが確認できません '.$FileList); }
##★コンテンツの複製
my $FileLot=@FList-1;my $fi=0;
for (0..$FileLot) {
##cgi plファイルのみ処理を行う
if (($FList[$fi]=~ /\.cgi/i)||($FList[$fi]=~ /\.pl/i)) {
##ファイル読込
$FList[$fi] =~ s/\r//g;
$FList[$fi] =~ s/\n//g;
my $from=$SystemPath.'/'.$FList[$fi];
my @FileBody;
if (open(SRCFILE,"$from")) {
@FileBody = ;
close(SRCFILE);
##文字コード判定→UTF8変換
my $contCC=&checkCharCode($from);
if ($contCC eq 'shiftjis') {
foreach (@FileBody) { Encode::from_to($_, 'shiftjis', 'utf8'); }
}
} else { &error('ファイルが存在しません'.$FList[$fi]); }
##環境設定
if ($FileBody[0] =~ /usr\/local\/bin\/perl/i) { $FileBody[0]=$PerlPath."\n"; }
##ファイル差替
my $newfile=$ContentPath.'/'.$FList[$fi];
unlink($newfile);
if (open(NEWFILE,"> $newfile")) {
print NEWFILE @FileBody;
close(NEWFILE);
} else { &error('ファイル作成できません'.$FList[$fi]); }
##ファイルパーミッションの設定
chmod(oct($ExecMode),$newfile);
}
$fi++;
}
}
$dd++;
}
##システム設定ファイル更新
$WRDATA[0] = $CONF[0];
$WRDATA[1] = $CONF[1];
$WRDATA[2] = $CONF[2];
$WRDATA[3] = $CONF[3];
$WRDATA[4] = $CONF[4];
$WRDATA[5] = 'pgedit:pgedit2:imgnavi:listnavi:bbs:calender:gmap:mail:htedit:tmpedit:mag:other'."\n";
$WRDATA[6] = '1階層ページ:2階層ページ:イメージナビ:リストナビ:掲示板BBS:カレンダー:Googleマップエディタ:メールフォーム:HTMLエディタ:テンプレートエディタ:メルマガ:AD-EDIT追加モジュール'."\n";
$WRDATA[7] = $CONF[7];
$WRDATA[8] = $CONF[8];
$WRDATA[9] = $newVer."\n";
$WRDATA[10] = $CONF[10];
$WRDATA[11] = $CONF[11];
$WRDATA[12] = $CONF[12];
$WRDATA[13] = $CONF[13];
$WRDATA[14] = $CONF[14];
$WRDATA[15] = $CONF[15];
$WRDATA[16] = $CONF[16];
$WRDATA[17] = $CONF[17];
$WRDATA[18] = $CONF[18];
$WRDATA[19] = $CONF[19];
$WRDATA[20] = $CONF[20];
$WRDATA[21] = $CONF[21];
$WRDATA[22] = $CONF[22];
$WRDATA[23] = $CONF[23];
$WRDATA[24] = $CONF[24];
$WRDATA[25] = $CONF[25];
$WRDATA[26] = $CONF[26];
&ConfSave;
##アップデータ削除
unlink('../adedit3up.tar');
##サーバーパーミッション設定
my $chLot=@chmodDir-1;$chi=0;
for (0..$chLot) { chmod(oct($DirMode),$chmodDir[$chi]); $chi++; }
$chLot=@chmodExec-1;$chi=0;
for (0..$chLot) { chmod(oct($ExecMode),$chmodExec[$chi]); $chi++; }
$chLot=@chmodWR-1;$chi=0;
for (0..$chLot) { chmod(oct($WRMode),$chmodWR[$chi]); $chi++; }
$htJump = <<"htJump";
htJump
print $htJump;
exit;
}
##=======================================================================================
sub chmodsys {
##★パーミッション調整
$chD='../jslib/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='../jslib/greybox/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='../jslib/jqmobile/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='../jslib/jqmobile/images/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='../icon/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='../mobi/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='../skin/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='../uploads/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./img/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./sys/bbs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./sys/calender/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./sys/gmap/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./sys/htedit/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./sys/imgnavi/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./sys/listnavi/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./sys/mail/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./sys/pgedit/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./sys/pgedit2/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./sys/tmpedit/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./sys/mag/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/images/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/lang/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/a11yhelp/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/a11yhelp/lang/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/about/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/adobeair/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/autogrow/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/clipboard/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/colordialog/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/dialog/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/div/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/find/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/flash/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/flash/images/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/forms/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/forms/images/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/iframe/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/iframe/images/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/iframedialog/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/image/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/link/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/link/images/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/liststyle/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/pagebreak/images/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/pastefromword/filter/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/pastetext/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/placeholder/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/placeholder/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/placeholder/lang/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/skayt/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/showblocks/images/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/smiley/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/smiley/images/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/specialchar/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/specialchar/lang/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/styles/styles/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/table/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/tableresize/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/tabletools/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/templates/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/templates/templates/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/templates/templates/images/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/uicolor/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/uicolor/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/uicolor/lang/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/uicolor/yui/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/uicolor/yui/assets/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/wsc/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/skins/office2003/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/skins/office2003/images/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/skins/themes/default/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/images/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/scripts/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./editarea/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./editarea/images/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./editarea/langs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./editarea/reg_syntax/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='../emoji/';
if (-e $chD) {
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
}
$chD='./emoji/';
if (-e $chD) {
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
}
chmod(oct($DirMode),'./wysiwyg/images');
chmod(oct($DirMode),'./wysiwyg/addons/imagelibrary/images');
chmod(oct($DirMode),'./editarea/images');
chmod(oct($DirMode),'./jslib/jqmobile/images');
}
##=======================================================================================
sub chmodsys2 {
##★パーミッション調整
$chD='./admin/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./admin/img/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./admin/sys/bbs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./admin/sys/calender/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./admin/sys/gmap/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./admin/sys/htedit/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./admin/sys/imgnavi/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./admin/sys/listnavi/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./admin/sys/mail/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./admin/sys/pgedit/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./admin/sys/pgedit2/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./admin/sys/tmpedit/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./admin/sys/mag/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/images/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/lang/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/a11yhelp/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/a11yhelp/lang/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/about/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/adobeair/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/autogrow/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/clipboard/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/colordialog/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/dialog/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/div/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/find/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/flash/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/flash/images/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/forms/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/forms/images/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/iframe/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/iframe/images/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/iframedialog/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/image/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/link/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/link/images/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/liststyle/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/pagebreak/images/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/pastefromword/filter/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/pastetext/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/placeholder/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/placeholder/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/placeholder/lang/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/skayt/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/showblocks/images/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/smiley/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/smiley/images/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/specialchar/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/specialchar/lang/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/styles/styles/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/table/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/tableresize/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/tabletools/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/templates/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/templates/templates/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/templates/templates/images/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/uicolor/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/uicolor/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/uicolor/lang/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/uicolor/yui/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/uicolor/yui/assets/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/plugins/wsc/dialogs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/skins/office2003/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/skins/office2003/images/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/ckeditor/skins/themes/default/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/images/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./wysiwyg/scripts/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./admin/editarea/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./admin/editarea/images/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./admin/editarea/langs/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./admin/editarea/reg_syntax/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./admin/jslib/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; chmod(oct($DirMode),$chP); $chi++;}
$chD='./admin/jslib/greybox/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./admin/jslib/jqmobile/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./admin/jslib/jqmobile/images/';
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
$chD='./admin/emoji/';
if (-e $chD) {
@chF=();$chi=0;@chF=&GetFilelist($chD,0,0);
foreach (@chF) { $chP=$chD.$chF[$chi].''; if (-f $chP) { chmod(oct($WRMode),$chP); } $chi++;}
}
chmod(oct($DirMode),'./admin/wysiwyg/images');
chmod(oct($DirMode),'./admin/wysiwyg/addons/imagelibrary/images');
chmod(oct($DirMode),'./admin/editarea/images');
chmod(oct($DirMode),'./admin/jslib/jqmobile/images');
}
##=======================================================================================
sub ConfSave {
my $tmpfile = "$$\.tmp";
if (!open(TMP,">$tmpfile")) { &error('パーミッションエラー'); }
print TMP @WRDATA;
close(TMP);
chmod(oct($WRMode),$tmpfile);
rename($tmpfile,$conffile);
}
##=======================================================================================
admin/aelib.cgi 100666 000000 000000 40745 11432362412 12306 0 ustar 00NorenzPRO ##=======================================================================================
## $var = &inline_link($var); で変換
sub inline_link {
local($_) = $_[0];
if (($_ =~ / src=/i)||($_ =~ / href=/i)) {
$_;
} else {
$_ =~ s/([^=^\"]|^)((http|https|ftp)\:\/\/[a-zA-Z0-9\.\$\,\;\:\&\=\?\!\*\~\@\#\_\(\)\%\+\-\/]*)/$1$2<\/a>/g;
}
$_;
}
##=======================================================================================
## $var = &cgi_include($var); で変換
## 書式
sub cgi_include {
local($_) = $_[0];
if ($_ =~ /<\!--\#include file=\"/i) {
($inc0,$inc1)=split(/<\!--\#include file=\"/,$_);
$inc1=~ s/\" -->/\"-->/g;
($incpath,$inc2)=split(/\"-->/,$inc1);
if ($incpath !~ /\//i) { $incpath='./'.$incpath; }
if (($incpath !~ /\.\.\//i)||($incpath !~ /\.\//i)) {
if ($RootPath eq '') {
$incpath='..'.$incpath;
} else {
@ReqPath=split(/\//,$ENV{'REQUEST_URI'});
$ReqLot=@ReqPath-2;
if ($ReqLot > 0) {
for (1..$ReqLot) {
$incpath='../'.$incpath;
}
} else {
$incpath='../'.$incpath;
}
$incpath=~ s/\/\//\//g;
}
}
if (open(INCRD,"$incpath")) {
$IncData='';
@IncLines = ;
close(INCRD);
##文字コード判定→UTF8変換
my $contCC=&checkCharCode($incpath);
if ($contCC eq 'shiftjis') {
foreach (@IncLines) { Encode::from_to($_, 'shiftjis', 'utf8'); }
}
foreach (@IncLines) { $IncData=$IncData.$_.''; }
$_=$inc0.$IncData.$inc2.'';
}
}
$_=~ s/class=\"KijiArea\"/class=\"IncludeArea\"/g;
$_;
}
##=======================================================================================
## $var = &url_import($var); で変換
## 書式
sub url_import {
local($_) = $_[0];
if ($_ =~ /<\!--\#include url=\"/i) {
($inc0,$inc1)=split(/<\!--\#include url=\"/,$_);
$inc1=~ s/\" -->/\"-->/g;
($incurl,$inc2)=split(/\"-->/,$inc1);
use LWP::Simple;
$ImpData=get($incurl);
Encode::from_to($ImpData, 'shiftjis', 'utf8');
$_=$inc0.$ImpData.$inc2.'';
$_=~ s/class=\"KijiArea\"/class=\"IncludeArea\"/g;
}
if ($_ =~ /<\!--\#include url:utf8=\"/i) {
($inc0,$inc1)=split(/<\!--\#include url:utf8=\"/,$_);
$inc1=~ s/\" -->/\"-->/g;
($incurl,$inc2)=split(/\"-->/,$inc1);
use LWP::Simple;
$ImpData=get($incurl);
$_=$inc0.$ImpData.$inc2.'';
$_=~ s/class=\"KijiArea\"/class=\"IncludeArea\"/g;
}
if ($_ =~ /<\!--\#include url:eucjp=\"/i) {
($inc0,$inc1)=split(/<\!--\#include url:eucjp=\"/,$_);
$inc1=~ s/\" -->/\"-->/g;
($incurl,$inc2)=split(/\"-->/,$inc1);
use LWP::Simple;
$ImpData=get($incurl);
Encode::from_to($ImpData, 'shiftjis', 'utf8');
$_=$inc0.$ImpData.$inc2.'';
$_=~ s/class=\"KijiArea\"/class=\"IncludeArea\"/g;
}
$_;
}
##=======================================================================================
## $var = &checkCharCode('./FilePath'); で判定する
## $var には、shiftjis 7bit-jis utf8 false のいずれかが格納される
sub checkCharCode {
my $checkFile = $_[0];
##ファイル読込
if (open(CHARRD,"$checkFile")) {
my @CHARCODE = ;
close(CHARRD);
my $i=0; my $charData;
foreach (@CHARCODE) {
$charData=$charData.$CHARCODE[$i];
$i++;
}
if ($charData ne '') {
##文字コード判定
my $enc;
my $enctype;
use Encode::Guess qw/shiftjis 7bit-jis/;
$enc = guess_encoding($charData);
if (ref($enc)) {
$enctype = $enc->name;
return $enctype;
} else {
return 'false';
}
} else {
return 'shiftjis';
}
} else {
return 'false';
}
}
##=======================================================================================
# ファイルリストの取得
# &GetFilelist(ディレクトリ, 拡張子, スイッチ);
# 返り値:ファイル一覧(ディレクトリが開けない場合は「false」)
# ディレクトリは相対パスで指定(絶対パスは不可)
# 拡張子は「/(スラッシュ)」で区切ることで複数指定可
# 拡張子に「.[*]」を指定すると全てのファイルを返す
# 拡張子に0を指定する(&GetFilelist(ディレクトリ, 0, スイッチ);)とディレクトリ一覧を返す
# スイッチは0か1を指定。1を指定するとファイル名を全て小文字に変換して検索。
# 0の場合は大文字と小文字が区別される
sub GetFilelist {
# 引数の取得、変数の準備
my ($dir, $extension, $swich) = @_;
my ($temp, $file, $e, $n, @filelist);
my $i = 0;
# 複数指定の拡張子を分割
my @ext = split(/\//, $extension);
# ディレクトリを開く
opendir (DIR , $dir) || return 0;
# ディレクトリにあるファイル等を1つずつ抽出
while ($file = readdir DIR) {
# ゴミをはじく
if ($file =~ /^\.{1,2}$/) {
next;
} else {
# 大文字小文字の判定
if ($swich == 1) {
$temp = lc($file);
foreach (@ext) {
$_ = lc($_);
}
} else {
$temp = $file;
}
# ファイルが指定拡張子と合致するかを拡張子毎にチェック
foreach $e (@ext) {
# 拡張子が指定されていて且つ、ワイルドカードではない
if ($e && $e ne ".[*]") {
# 拡張子以外の文字列に引っかからないための措置
if (index($temp, $e, length($temp) - length($e)) != -1) {
$filelist[$i] = $file;
$i++;
# ヒットしたら次のファイルへ
last;
} else {
# ヒットしないため別の拡張子へ
next;
}
} else {
# ワイルドカードを指定された時
if ($e eq ".[*]") {
if ($file =~/\./) {
$filelist[$i] = $file;
$i++;
last;
}
} else {
# 拡張子の指定がない時
$filelist[$i] = $file;
$i++;
last;
}
}
}
}
}
closedir(DIR) ;
# 結果としてファイル一覧を返す
return @filelist;
}
##=======================================================================================
# Cookie認証書込
sub set_cookie {
$ENV{'TZ'} = "GMT";
(my $c_sec,my $c_min,my $c_hour,my $c_mday,my $c_mon,my $c_year,my $c_wday,my $c_yday,my $c_isdst) = localtime(time + $LogoutTime);
$c_year = sprintf("%04d",$c_year + 1900);
$c_sec = sprintf("%02d",$c_sec);
$c_min = sprintf("%02d",$c_min);
$c_hour = sprintf("%02d",$c_hour);
$c_mday = sprintf("%02d",$c_mday);
my $youbi = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday') [$c_wday];
my $month = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec') [$c_mon];
my $date_gmt = "$youbi, $c_mday\-$month\-$c_year $c_hour:$c_min:$c_sec GMT";
$c_id = $in{'admin_id'};
$c_id =~ s/=/\|eq\|/g;
$c_id =~ s/!/\|excr\|/g;
$c_id =~ s/,/\|coma\|/g;
$c_id =~ s/:/\|clgn\|/g;
$c_id =~ s/;/\|semc\|/g;
$c_pw = $in{'admin_pw'};
$c_pw =crypt($c_pw,'ae');
$c_pw =~ s/=/\|eq\|/g;
$c_pw =~ s/!/\|excr\|/g;
$c_pw =~ s/,/\|coma\|/g;
$c_pw =~ s/:/\|clgn\|/g;
$c_pw =~ s/;/\|semc\|/g;
my $cook = "id\!$c_id\,pw\!$c_pw";
if ((-e $conffile)&&($Domain ne 'www.yourdomain.com')) {
$Domain =~ s/www.//g;
my $dom1=$Domain; my $dom2='www.'.$Domain;
print "Set-Cookie: $CookieName=$cook; path=/; domain=$dom1; expires=$date_gmt;\n";
print "Set-Cookie: $CookieName=$cook; path=/; domain=$dom2; expires=$date_gmt;\n";
} else {
print "Set-Cookie: $CookieName=$cook; expires=$date_gmt;\n";
}
}
##=======================================================================================
# Cookie認証取得
sub get_cookie {
my $cookies = $ENV{'HTTP_COOKIE'};
my @pairs = split(/;/,$cookies);
my %DUMMY;
my %COOKIE;
foreach my $pair (@pairs) {
(my $name,my $value) = split(/=/, $pair);
$name =~ s/ //g;
$DUMMY{$name} = $value;
}
@pairs = split(/,/,$DUMMY{$CookieName});
my $pair;
my $value;
my $name;
foreach $pair (@pairs) {
($name, $value) = split(/\!/, $pair);
$value =~ s/\|eq\|/=/g;
$value =~ s/\|excr\|/!/g;
$value =~ s/\|coma\|/,/g;
$value =~ s/\|clgn\|/:/g;
$value =~ s/\|semc\|/;/g;
$COOKIE{$name} = $value;
}
$ck_id = $COOKIE{'id'};
$ck_pw = $COOKIE{'pw'};
}
##=======================================================================================
sub domain_name {
local($addr) = $ENV{'REMOTE_ADDR'};
local($_) = gethostbyaddr(pack("C4",split(/\./,$addr)),2);
if ($_ eq '') { $_ = $addr; }
$_;
}
##=======================================================================================
# エラー画面出力
sub error {
my $error = $_[0];
my $ReturnLink='[先程のページへ戻る] ';
##★エラーメッセージの変更はここを訂正
my $errHTML = <<"ERRORMESS";
ERROR
$error $ReturnLink
ERRORMESS
&html_head;
print "$errHTML\n";
&html_foot;
exit;
}
##=======================================================================================
# 画像のサイズ(幅と高さ)を取得するサブルーチン
# ($format,$width,$height)= &GetImageSize( $FileName, [$out] );
sub GetImageSize{
my ( $IMG, $in ) = @_;
my ( %SHT, %LNG );
my ( $buf, $mark, $type, $f_size, $width, $height );
my ( $TAG, $TYPE, $COUNT, $V_OFFSET, $PK, $ENTRY, $Exif_IFD );
my ( $endian, $dummy1, $dummy2, $dummy, $EOI, $APP1, $length, $exif );
my ( $format, $offset, $line, $CODE, $jfif, $i );
my @TGA;
my $ntag;
# 定数
$mark = pack("C", 0xff);
%SHT = ( 'II' => 'v', 'MM' => 'n' );
%LNG = ( 'II' => 'V', 'MM' => 'N' );
# 初期値
$endian = '';
$width = -1;
$height = -1;
$format = '';
$Exif_IFD = -1;
if( $in eq '' ){
$in = 'IMG';
}
open( $in, $IMG ) || return( '', -1, -1 );
binmode($in);
seek( $in, 0, 0 );
read( $in, $buf, 6 );
# GIF 形式
if($buf =~ /^GIF/i){
$format = 'GIF';
read( $in, $buf, 2 );
$width = unpack("v*", $buf);
read( $in, $buf, 2);
$height = unpack("v*", $buf);
# Windows Bit Map 形式
}elsif($buf =~ /BM/){
$format = 'BMP';
seek( $in, 12, 1 );
read( $in, $buf, 8 );
($width, $height) = unpack("VV", $buf);
# TIFF 形式
}elsif( $buf =~ /(II)/ || $buf =~ /(MM)/ ){
$format = 'TIFF';
$endian = $1;
seek( $in, 0, 0 );
read( $in, $buf, 8 );
( $endian, $dummy1, $offset ) =
unpack( "A2$SHT{$endian}$LNG{$endian}", $buf );
seek( $in, $offset, 0 );
read( $in, $buf, 2 );
$ENTRY = unpack( $SHT{$endian}, $buf );
for( $i = 0 ; $i < $ENTRY ; $i++ ){
read( $in, $buf, 8 );
$PK = "$SHT{$endian}$SHT{$endian}$LNG{$endian}";
( $TAG, $TYPE, $COUNT ) = unpack( $PK, $buf );
read( $in, $buf, 4 );
( $TAG != 256 && $TAG != 257 ) and next;
if( $TYPE == 3 ){
$PK = "$SHT{$endian}";
}elsif( $TYPE == 4 ){
$PK = "$LNG{$endian}";
}else{
next;
}
$V_OFFSET = unpack( $PK, $buf );
# Image width and height
( $TAG == 256 ) and ( $width = $V_OFFSET );
( $TAG == 257 ) and ( $height = $V_OFFSET );
( $TAG == 34665 ) and ( $format .= '-EXIF' );
}
# PPM 形式
}elsif( $buf =~ /^(P[123456])\n/ ){
if( $1 eq 'P1' || $1 eq 'P4' ){
$format = 'PBM';
}elsif( $1 eq 'P2' || $1 eq 'P5' ){
$format = 'PGM';
}else{
$format = 'PPM';
}
seek( $in, 0, 0 );
<$in>;
while( <$in> ){
next if ( /^\#/ );
chomp;
( $width, $height ) = split( /\s+/, $_ );
last;
}
# PNG 形式
}elsif( $buf =~ /PNG/){
$format = 'PNG';
seek( $in, 8, 0 );
while(1){
read( $in, $buf, 8 );
( $offset, $CODE ) = unpack( "NA4", $buf );
if( $CODE eq 'IHDR' ){
read( $in, $buf, 8 );
( $width, $height ) = unpack( "NN", $buf );
seek( $in, $offset-8+4, 1 );
last;
}elsif( $CODE eq 'IEND' ){
last;
}else{
seek( $in, $offset+4, 1 );
}
}
}else{
# JPEG 形式
seek( $in, 0, 0 );
read( $in, $buf, 2 );
( $buf, $type ) = unpack("C*", $buf );
if( $buf == 0xFF && $type == 0xD8 ){
$format = 'JPEG';
JPEG:while(read( $in, $buf, 1 )){
if(($buf eq $mark) && read( $in, $buf, 3 )){
$type = unpack("C*", substr($buf, 0, 1));
$f_size = unpack("n*", substr($buf, 1, 2));
( $type == 0xD9 ) and ( last JPEG );
( $type == 0xDA ) and ( last JPEG );
if($type == 0xC0 || $type == 0xC2){
read( $in, $buf, $f_size-2 );
$height = unpack("n*", substr($buf, 1, 2));
$width = unpack("n*", substr($buf, 3, 2));
( $format =~ /EXIF/ ) and ( last JPEG );
}elsif( $type == 0xE1 ){
read( $in, $buf, $f_size-2 );
$exif = unpack( "A4", substr( $buf, 0, 4 ) );
if( $exif =~ /exif/i ){
$format .= '-EXIF';
( $width > 0 && $height > 0 ) and ( last JPEG );
}
}elsif( $type == 0xE0 ){
read( $in, $buf, $f_size-2 );
$jfif = unpack( "A4", substr( $buf, 0, 4 ) );
if( $jfif =~ /jfif/i ){
$format .= '-JFIF';
}
}elsif( $type == 0x01 || $type == 0xFF ||
( $type >= 0xD0 && $type < 0xD9 ) ){
seek( $in, -2, 1 );
}else{
read( $in, $buf, $f_size-2 );
}
}
}
}
if( $width > 0 && $height > 0 ){
close( $in );
return( $format, $width, $height );
}
# TGA 形式
seek( $in, 0, 0 );
read( $in, $buf, 18 );
@TGA = unpack( "CCCvvCvvvvCC", $buf );
if( $TGA[1] == 0 || $TGA[1] == 1 ){
if( $TGA[2] == 0 || $TGA[2] == 1 || $TGA[2] == 2 ||
$TGA[2] == 3 || $TGA[2] == 9 || $TGA[2] == 10 ||
$TGA[1] == 11 ){
$format = 'TGA';
$width = $TGA[8];
$height = $TGA[9];
}
}
}
close( $in );
return( $format, $width, $height );
}
1;
##=======================================================================================
# WYSIWYG用変換ライブラリ
sub wgmsg {
$wgmsg = $_[0];
$wgmsg =~ s//<\/a>/g;
$wgmsg =~ s/target\|eq\|_blank/target\|eq\|\|quot\|_blank\|quot\|/g;
$wgmsg =~ s/ / /g;
$wgmsg =~ s//
/g;
$wgmsg =~ s/<\/P>/<\/p>/g;
$wgmsg =~ s/
/ /g;
$wgmsg =~ s/ / /g;
$wgmsg =~ s/ / /g;
$wgmsg =~ s/ /<\/table>/g;
$wgmsg =~ s//<\/font>/g;
$wgmsg =~ s//<\/div>/g;
$wgmsg =~ s/
/
/g;
$wgmsg =~ s/TBODY>/tbody>/g;
$wgmsg =~ s/
/\/ol>/g;
$wgmsg =~ s//\/ul>/g;
$wgmsg =~ s//\/li>/g;
$wgmsg =~ s//\/u>/g;
$wgmsg =~ s//\/em>/g;
$wgmsg =~ s//\/strike>/g;
$wgmsg =~ s//\/tr>/g;
$wgmsg =~ s//\/td>/g;
$wgmsg =~ s/ / /g;
$wgmsg =~ s/alt\|eq\|\|quot\|\|quot\|/alt\|eq\|\|quot\|Atacched File\|quot\|/g;
$wgmsg =~ s/ name\|eq\|([a-zA-Z0-9]*)>/ name\|eq\|\|quot\|$1\|quot\|>/g;
$wgmsg =~ s/ name\|eq\|([a-zA-Z0-9]*) / name\|eq\|\|quot\|$1\|quot\| /g;
$wgmsg =~ s/ class\|eq\|([a-zA-Z0-9]*)>/ class\|eq\|\|quot\|$1\|quot\|>/g;
$wgmsg =~ s/ class\|eq\|([a-zA-Z0-9]*) / class\|eq\|\|quot\|$1\|quot\| /g;
$wgmsg =~ s/ classname\|eq\|([a-zA-Z0-9]*)>/ classname\|eq\|\|quot\|$1\|quot\|>/g;
$wgmsg =~ s/ classname\|eq\|([a-zA-Z0-9]*) / classname\|eq\|\|quot\|$1\|quot\| /g;
$wgmsg =~ s/ target\|eq\|([a-zA-Z0-9]*)>/ target\|eq\|\|quot\|$1\|quot\|>/g;
$wgmsg =~ s/ target\|eq\|([a-zA-Z0-9]*) / target\|eq\|\|quot\|$1\|quot\| /g;
$wgmsg =~ s/ hspace\|eq\|([a-zA-Z0-9]*)>/ hspace\|eq\|\|quot\|$1\|quot\|>/g;
$wgmsg =~ s/ hspace\|eq\|([a-zA-Z0-9]*) / hspace\|eq\|\|quot\|$1\|quot\| /g;
$wgmsg =~ s/ size\|eq\|([a-zA-Z0-9]*)>/ size\|eq\|\|quot\|$1\|quot\|>/g;
$wgmsg =~ s/ size\|eq\|([a-zA-Z0-9]*) / size\|eq\|\|quot\|$1\|quot\| /g;
$wgmsg =~ s/ color\|eq\|([a-zA-Z0-9\#]*)>/ color\|eq\|\|quot\|$1\|quot\|>/g;
$wgmsg =~ s/ color\|eq\|([a-zA-Z0-9\#]*) / color\|eq\|\|quot\|$1\|quot\| /g;
$wgmsg =~ s/ border\|eq\|([a-zA-Z0-9]*)>/ border\|eq\|\|quot\|$1\|quot\|>/g;
$wgmsg =~ s/ border\|eq\|([a-zA-Z0-9]*) / border\|eq\|\|quot\|$1\|quot\| /g;
$wgmsg =~ s/ cellSpacing\|eq\|([a-zA-Z0-9]*) / cellspacing\|eq\|\|quot\|$1\|quot\| /g;
$wgmsg =~ s/ borderColor\|eq\|([a-zA-Z0-9\#]*) / bordercolor\|eq\|\|quot\|$1\|quot\| /g;
$wgmsg =~ s/ cellPadding\|eq\|([a-zA-Z0-9]*) / cellpadding\|eq\|\|quot\|$1\|quot\| /g;
$wgmsg =~ s/ bgColor\|eq\|([a-zA-Z0-9\#]*)/ bgcolor\|eq\|\|quot\|$1\|quot\|/g;
$wgmsg =~ s/ align\|eq\|([a-zA-Z0-9]*)>/ align\|eq\|\|quot\|$1\|quot\|>/g;
$wgmsg =~ s/ align\|eq\|([a-zA-Z0-9]*) / align\|eq\|\|quot\|$1\|quot\| /g;
$wgmsg =~ s/\|eq\|\|quot\|\|quot\|\|quot\|/\|eq\|\|quot\|/g;
}
##=======================================================================================
1; admin/chmod.txt 100666 000000 000000 3133 11302416134 12344 0 ustar 00NorenzPRO yp[~bV̎蓮ݒz
up[~bVݒvƂ́At@C̓ǂݏs̐ݒŁA
̏ꍇAg̃^T[o[́u[U[T|[gvuFAQvƂy[WɋLqĂ܂B
yp[~bV755܂705ɐݒ肷tH_z
@/admin/@ȉ̃tH_̑S
@/commons/@ȉ̃tH_̑S
@/icon/@ȉ̃tH_̑S
@/img/@ȉ̃tH_̑S
@/jslib/@ȉ̃tH_̑S
@/mobi/@ȉ̃tH_̑S
@/skin/@ȉ̃tH_̑S
@/uploads/@ȉ̃tH_̑S
yp[~bV755܂705ɐݒ肷t@Cz
@/setup.cgi
@/admin/index.cgi
@/admin/adedit.cgi
@/admin/admenu.cgi
@/admin/admobi.cgi
@/admin/adpass.cgi
@/admin/adskin.cgi
@/admin/adsystem.cgi
@/admin/logout.cgi
@/admin/menu.cgi
@/admin/news.cgi
@/admin/qrcode.cgi
@/admin/search.cgi
@/commons/news.cgi
@/commons/qrcode.cgi
@/commons/search.cgi
yp[~bV666܂606ɐݒ肷t@Cz
@/admin/conf.dat
@/admin/dir.dat
@/admin/menu1.dat
@/admin/menu2.dat
@/admin/menu3.dat
@/admin/menu1.inc
@/admin/menu2.inc
@/admin/menu3.inc
@/admin/mobi.dat
@/admin/pass.cgi
@/admin/img/ ȉ̃t@C̑S
@/admin/sys/ ȉ̃t@C̑S
@/admin/wysiwyg/ ȉ̃t@C̑S
@/commons/menu1.inc
@/commons/menu2.inc
@/commons/menu3.inc
@/img/ ȉ̃t@C̑S
@/jslib/ ȉ̃t@C̑S
@/icon/ ȉ̃t@C̑S
@/mobi/ ȉ̃t@C̑S
@/skin/@ȉ̃t@C̑S
@/uploads/ ȉ̃t@C̑S
/admin/conf.dat Ƃ\L
[admin]ƂtH_̒[conf.dat]ƂÕt@C\܂B
admin/color.html 100666 000000 000000 51210 11477322312 12543 0 ustar 00NorenzPRO
カラーコードサンプル
カラーコードサンプル
#RR GG BB の各色値に16進数(00~FF)を割り当てて色指定を行います。
■ #000000
■ #000033
■ #000066
■ #000099
■ #0000cc
■ #0000ff
■ #003300
■ #003333
■ #003366
■ #003399
■ #0033cc
■ #0033ff
■ #006600
■ #006633
■ #006666
■ #006699
■ #0066cc
■ #0066ff
■ #009900
■ #009933
■ #009966
■ #009999
■ #0099cc
■ #0099ff
■ #00cc00
■ #00cc33
■ #00cc66
■ #00cc99
■ #00cccc
■ #00ccff
■ #00ff00
■ #00ff33
■ #00ff66
■ #00ff99
■ #00ffcc
■ #00ffff
■ #330000
■ #330033
■ #330066
■ #330099
■ #3300cc
■ #3300ff
■ #333300
■ #333333
■ #333366
■ #333399
■ #3333cc
■ #3333ff
■ #336600
■ #336633
■ #336666
■ #336699
■ #3366cc
■ #3366ff
■ #339900
■ #339933
■ #339966
■ #339999
■ #3399cc
■ #3399ff
■ #33cc00
■ #33cc33
■ #33cc66
■ #33cc99
■ #33cccc
■ #33ccff
■ #33ff00
■ #33ff33
■ #33ff66
■ #33ff99
■ #33ffcc
■ #33ffff
■ #660000
■ #660033
■ #660066
■ #660099
■ #6600cc
■ #6600ff
■ #663300
■ #663333
■ #663366
■ #663399
■ #6633cc
■ #6633ff
■ #666600
■ #666633
■ #666666
■ #666699
■ #6666cc
■ #6666ff
■ #669900
■ #669933
■ #669966
■ #669999
■ #6699cc
■ #6699ff
■ #66cc00
■ #66cc33
■ #66cc66
■ #66cc99
■ #66cccc
■ #66ccff
■ #66ff00
■ #66ff33
■ #66ff66
■ #66ff99
■ #66ffcc
■ #66ffff
■ #990000
■ #990033
■ #990066
■ #990099
■ #9900cc
■ #9900ff
■ #993300
■ #993333
■ #993366
■ #993399
■ #9933cc
■ #9933ff
■ #996600
■ #996633
■ #996666
■ #996699
■ #9966cc
■ #9966ff
■ #999900
■ #999933
■ #999966
■ #999999
■ #9999cc
■ #9999ff
■ #99cc00
■ #99cc33
■ #99cc66
■ #99cc99
■ #99cccc
■ #99ccff
■ #99ff00
■ #99ff33
■ #99ff66
■ #99ff99
■ #99ffcc
■ #99ffff
■ #cc0000
■ #cc0033
■ #cc0066
■ #cc0099
■ #cc00cc
■ #cc00ff
■ #cc3300
■ #cc3333
■ #cc3366
■ #cc3399
■ #cc33cc
■ #cc33ff
■ #cc6600
■ #cc6633
■ #cc6666
■ #cc6699
■ #cc66cc
■ #cc66ff
■ #cc9900
■ #cc9933
■ #cc9966
■ #cc9999
■ #cc99cc
■ #cc99ff
■ #cccc00
■ #cccc33
■ #cccc66
■ #cccc99
■ #cccccc
■ #ccccff
■ #ccff00
■ #ccff33
■ #ccff66
■ #ccff99
■ #ccffcc
■ #ccffff
■ #ff0000
■ #ff0033
■ #ff0066
■ #ff0099
■ #ff00cc
■ #ff00ff
■ #ff3300
■ #ff3333
■ #ff3366
■ #ff3399
■ #ff33cc
■ #ff33ff
■ #ff6600
■ #ff6633
■ #ff6666
■ #ff6699
■ #ff66cc
■ #ff66ff
■ #ff9900
■ #ff9933
■ #ff9966
■ #ff9999
■ #ff99cc
■ #ff99ff
■ #ffcc00
■ #ffcc33
■ #ffcc66
■ #ffcc99
■ #ffcccc
■ #ffccff
■ #ffff00
■ #ffff33
■ #ffff66
■ #ffff99
■ #ffffcc
■ #ffffff
■ #F0F8FF aliceblue
■ #FAEBD7 antiquewhite
■ #00FFFF aqua
■ #7FFFD4 aquamarine
■ #F0FFFF azure
■ #F5F5DC beige
■ #FFE4C4 bisque
■ #000000 black
■ #FFEBCD blanchedalmond
■ #0000FF blue
■ #8A2BE2 blueviolet
■ #A52A2A brown
■ #DEB887 burlywood
■ #5F9EA0 cadetblue
■ #7FFF00 chartreuse
■ #D2691E chocolate
■ #FF7F50 coral
■ #6495ED cornflowerblue
■ #FFF8DC cornsilk
■ #DC143C crimson
■ #00FFFF cyan
■ #00008B darkblue
■ #008B8B darkcyan
■ #B8860B darkgoldenrod
■ #A9A9A9 darkgray
■ #006400 darkgreen
■ #BDB76B darkkhaki
■ #8B008B darkmagenta
■ #556B2F darkolivegreen
■ #FF8C00 darkorange
■ #9932CC darkorchid
■ #8B0000 darkred
■ #E9967A darksalmon
■ #8FBC8F darkseagreen
■ #483D8B darkslateblue
■ #2F4F4F darkslategray
■ #00CED1 darkturquoise
■ #9400D3 darkviolet
■ #FF1493 deeppink
■ #00BFFF deepskyblue
■ #696969 dimgray
■ #1E90FF dodgerblue
■ #B22222 firebrick
■ #FFFAF0 floralwhite
■ #228B22 forestgreen
■ #FF00FF fuchsia
■ #DCDCDC gainsboro
■ #F8F8FF ghostwhite
■ #FFD700 gold
■ #DAA520 goldenrod
■ #808080 gray
■ #008000 green
■ #ADFF2F greenyellow
■ #F0FFF0 honeydew
■ #FF69B4 hotpink
■ #CD5C5C indianred
■ #4B0082 indigo
■ #FFFFF0 ivory
■ #F0E68C khaki
■ #E6E6FA lavender
■ #FFF0F5 lavenderblush
■ #7CFC00 lawngreen
■ #FFFACD lemonchiffon
■ #ADD8E6 lightblue
■ #F08080 lightcoral
■ #E0FFFF lightcyan
■ #FAFAD2 lightgoldenrodyellow
■ #90EE90 lightgreen
■ #D3D3D3 lightgrey
■ #FFB6C1 lightpink
■ #FFA07A lightsalmon
■ #20B2AA lightseagreen
■ #87CEFA lightskyblue
■ #778899 lightslategray
■ #B0C4DE lightsteelblue
■ #FFFFE0 lightyellow
■ #00FF00 lime
■ #32CD32 limegreen
■ #FAF0E6 linen
■ #FF00FF magenta
■ #800000 maroon
■ #66CDAA mediumaquamarine
■ #0000CD mediumblue
■ #BA55D3 mediumorchid
■ #9370DB mediumpurple
■ #3CB371 mediumseagreen
■ #7B68EE mediumslateblue
■ #00FA9A mediumspringgreen
■ #48D1CC mediumturquoise
■ #C71585 mediumvioletred
■ #191970 midnightblue
■ #F5FFFA mintcream
■ #FFE4E1 mistyrose
■ #FFE4B5 moccasin
■ #FFDEAD navajowhite
■ #000080 navy
■ #FDF5E6 oldlace
■ #808000 olive
■ #6B8E23 olivedrab
■ #FFA500 orange
■ #FF4500 orangered
■ #DA70D6 orchid
■ #EEE8AA palegoldenrod
■ #98FB98 palegreen
■ #AFEEEE paleturquoise
■ #DB7093 palevioletred
■ #FFEFD5 papayawhip
■ #FFDAB9 peachpuff
■ #CD853F peru
■ #FFC0CB pink
■ #DDA0DD plum
■ #B0E0E6 powderblue
■ #800080 purple
■ #FF0000 red
■ #BC8F8F rosybrown
■ #4169E1 royalblue
■ #8B4513 saddlebrown
■ #FA8072 salmon
■ #F4A460 sandybrown
■ #2E8B57 seagreen
■ #FFF5EE seashell
■ #A0522D sienna
■ #C0C0C0 silver
■ #87CEEB skyblue
■ #6A5ACD slateblue
■ #708090 slategray
■ #FFFAFA snow
■ #00FF7F springgreen
■ #4682B4 steelblue
■ #D2B48C tan
■ #008080 teal
■ #D8BFD8 thistle
■ #FF6347 tomato
■ #40E0D0 turquoise
■ #EE82EE violet
■ #F5DEB3 wheat
■ #FFFFFF white
■ #F5F5F5 whitesmoke
■ #FFFF00 yellow
■ #9ACD32 yellowgreen
[HTMLサンプル集へ戻る]