#!/usr/bin/perl5 -w # 漢字コード EUC # use SIC; use SICX::Commander; use SICX::Commander::Auth; use SICX::Util::File; use Cycom::Util::Func; my %MARGIN = ('mizuho'=>1, 'fvac'=>1, 'koshigaya'=>1 ); my $comm = SICX::Commander->new(); unless (&start($comm)) { $comm->error(); } $comm->finish(); exit(0); # sub start { my $comm = shift; $comm->init_sess() or return 0; my $auth = SICX::Commander::Auth->new($comm); $auth->init(); my $job = $comm->{cgi}->param("job") || ""; $job eq "submit" or $job = "default"; $job = sprintf("job_%s", $job); return &{$job}($comm, $auth); } sub render_page { my ($comm, $auth, $siteid, $passwd, $mem_sitepw, $ec, $def_siteid) = @_; my %new_design = ( 'main' => '1', 'arida' => '1', 'gobo' => '1', 'wakayama' => '1', 'kihoku' => '1', 'hashimoto' => '1', 'kinan' => '1' ); my $w_siteid = $def_siteid || $comm->{cgi}->param('siteid') || $siteid || ''; if (defined $new_design{$w_siteid}){ &render_new_page($comm, $auth, $siteid, $passwd, $mem_sitepw, $ec, $def_siteid); return 1; } print $comm->{http}->header(); # $comm->{html}->header(); my $header = &header($comm, $w_siteid);#'HEADER'; my $footer = &footer($comm, $w_siteid);#'FOOTER'; # my $header = &header($comm, $siteid);#'HEADER'; # my $footer = &footer($comm, $siteid);#'FOOTER'; $comm->auto_html_footer(); my $ec_html = $ec ? "

ec: $ec

" : ""; my $mem_sitepw_check = $mem_sitepw ? " checked" : ""; #$ec_html my $margin = ''; unless ( $MARGIN{$w_siteid} ){ $margin = qq{ style="margin: 0px"}; } print < ログイン

$header $footer

EOF } sub render_new_page { my ($comm, $auth, $siteid, $passwd, $mem_sitepw, $ec, $def_siteid) = @_; my $w_siteid = $def_siteid || $comm->{cgi}->param('siteid') || $siteid || ''; my $site_dir = ($w_siteid eq 'gobo') ? 'gobo-hidaka' : $w_siteid; print $comm->{http}->header(); # $comm->{html}->header(); $comm->auto_html_footer(); my $ec_html = $ec ? "

ec: $ec

" : ""; my $mem_sitepw_check = $mem_sitepw ? " checked" : ""; print < ログイン

${\( &header($comm, $w_siteid, 'default1000') )} ${\( &sidebar($comm, $w_siteid, 'default1000') )}

管理者ログイン

${\( &footer($comm, $w_siteid, 'default1000') )}

EOF } sub job_default { my ($comm, $auth) = @_; my ($siteid, $passwd) = ("", ""); my $mem_sitepw = $auth->get_data("mem_sitepw") || 0; if ($mem_sitepw) { $siteid = $auth->get_data("siteid") || $comm->{cgi}->param('siteid') || ''; if ($siteid) { $passwd = $auth->get_data("passwd") || ""; } } my $def_siteid = $siteid || ''; my $ec = $comm->{cgi}->param("ec") || ""; &render_page($comm, $auth, $siteid, $passwd, $mem_sitepw, $ec, $def_siteid); return 1; } sub job_submit { my ($comm, $auth) = @_; my $cgi = $comm->{cgi}; my $siteid = $cgi->param("siteid") || ""; my $passwd = $cgi->param("passwd") || ""; my $mem_sitepw = $cgi->param("mem_sitepw") ? 1 : 0; my $ec = ""; if (is_valid_id($siteid) and is_valid_id($passwd)) { my $bool; unless (($bool) = $auth->by_site($siteid, $passwd)) { $comm->auto_html_footer(); return 0; } if ($bool) { $auth->clear_login(); $auth->set_data( siteid => $siteid, passwd => $passwd, mem_sitepw => $mem_sitepw ); $auth->apply_data_to_sess(); $comm->auto_save_sess(); print $comm->{http}->redirect( sprintf("%s?siteid=%s", '/cgi-edit/sites/menu.cgi', $siteid ) ); return 1; } else { $ec = $auth->get_status("ec"); } } else { $ec = "invalid_site_param"; } my $def_siteid = $cgi->param("def_siteid") || ""; &render_page($comm, $auth, $siteid, $passwd, $mem_sitepw, $ec, $def_siteid); return 1; } # sub header { my $comm = shift; my ($siteid, $name) = @_; $name ||= 'default'; $name .= '.html'; my $html = include_html($comm,'header', siteid=>$siteid, name=>$name); return $html; } sub footer { my $comm = shift; my ($siteid, $name) = @_; $name ||= 'default'; $name .= '.html'; # my $html = include_html($comm,'footer', siteid=>$siteid, name=>$name); return $html; } sub sidebar { my $comm = shift; my ($siteid, $name) = @_; $name ||= 'default'; $name .= '.html'; # my $html = include_html($comm,'sidebar', siteid=>$siteid, name=>$name); return $html; } # exit(0);

サイトＩＤ:
パスワード:
ID とパスワードを記憶する