ユーザ管理室

print<<""; ユーザ管理室

ユーザ管理室

if($EST{debug}){print "
※サンプルのため項目の変更は実際には反映されません";} print<<"";

if($EST_u{css}=~/a:link{.*color:(.*); }/i){$a_link=$1;} if($EST_u{css}=~/a:visited{.*color:(.*); }/i){$a_visited=$1;} if($EST_u{css}=~/a:active{.*color:(.*); }/i){$a_active=$1;} if($EST_u{css}=~/a:hover{.*color:(.*); }/i){$a_hover=$1;} if($EST_u{css}=~/body{ font-size:11pt; color:(.*); background-color:(.*); background-image:url$(.*)$; margin-left:(.*); margin-right:(.*); }/i) { $body_color=$1; $body_bk_color=$2; $body_bk_img=$3; $body_m_left=$4; $body_m_right=$5; } if($EST_u{css}=~/tr,td{ font-size:(.*)pt; }/i){$tr_td_size=$1;} if($EST_u{css}=~/#menu-table{ width:(.*); border-style:(.*); border\-color:(.*); background-color:(.*); }/i){ $menu_table_width=$1; $menu_table_border_style=$2; $menu_table_border_color=$3; $menu_table_background_color=$4; } if($EST_u{css}=~/#title{ font-weight:bold; text-align:right; padding-right:20; vertical-align:text-top; width:(.*); }/i){ $title_width=$1; } if($EST_u{css}=~/#value{ width:(.*); vertical-align:text-top; }/i){ $value_width=$1; } if($EST_u{css}=~/#sub-ex{ font-size:(.*)pt; }/i){ $sub_ex_font_size=$1; } if($EST_u{css}=~/#hissu{ color:(.*); font-weight:normal; }/i){ $hissu_color=$1; } if($EST_u{css}=~/#main-title{ font-size:(.*)pt; color:(.*); background-color:(.*); padding:2 2 2 4; border: 1px none white; font-weight:bold; }/i){ $main_title_font_size=$1; $main_title_color=$2; $main_title_bk_color=$3; } print<<""; 　▲トップへ

▼ デザイン設定

リンクの色設定
背景の設定
文字色の設定
文字サイズの設定
両サイドの空白の設定
メールフォームの設定

　▲トップへ

▼ 項目編集

foreach(1 .. $#koumoku+1){ print qq|($_) |; } print<<"";

foreach $line(@koumoku){ my @arg=split(/<>/,$line); my($class)="ST_" . $arg[4]; my $st=$class->new($line); print<<"EOM";

EOM } print<<"";

&cr; print<<""; 1;