#! /usr/local/bin/perl use Pg; use Time::Local; use Encode; use utf8; require '../cgi-lib217.pl'; require '../inp_area/getsize.pl'; require "../../townguide/config/common.ini"; # townguide地区の設定 require '../inp_area/lib_logio.pl'; # セッション認証及び引継のためのライブラリ require '../inp_area/lib_sql.pl'; # SQL接続のためのライブラリ require '../inp_area/lib_io.pl'; # ファイルの入出力に関するライブラリ require '../inp_area/lib_sys.pl'; # プログラム内部での変換・判定に関するライブラリ require '../inp_area/pge_print.pl'; # ページの共通生成プログラム require '../phone/lib_cmn.cgi'; # スマートフォンサイト用共通関数 $prog = "/cgi-local/sp_gnav/sp_gnav.cgi"; $Server_Name = $ENV{'SERVER_NAME'}; $newsregistmax = 300; $Server_Name =~ s/^www\.//; @val = &domain_chk($Server_Name); $subdomain = $val[0]; $Server_Name = $val[1]; $area = &get_area($Server_Name); # townguide地区の設定 #------------------------------------------------------------ # デコード処理 &ReadParse; $convert="euc"; while(($name, $value) = each %in) { #画像ファイルpic*以外の文字コードを置換する next if($name =~ /_upload$/i); my $myDeName = Encode::is_utf8($name) ? $name : decode_utf8($name); my $myDeValue = Encode::is_utf8($value) ? $value : decode_utf8($value); $myDeValue =~ s//>/g; $myDeValue =~ s/"/"/g; $myDeValue =~ s/\r\n/\n/g; $myDeValue =~ s/\r|\n/
/g; $myDeValue =~ s/\,//g; $in{$myDeName} = $myDeValue; } $act = $in{'act'}; # 地区フォルダアドレス指定の正規化(念のため) $area =~ s/('|"|\.|`|\/)//g; $in{userid} = int($in{uid}); $userimage = "../../townguide/userimage/$area/"; ## データベース接続 eval { $conn=&pg_connect(%port_input); }; if($@) { &error("接続エラー" . $@); } # SQLの実行 my($sql_db001) = "select * from $table_area{db01} where id=$in{userid};"; eval { $result = &pg_exec($conn,$sql_db001); }; if($@) { &error("SQL文エラー($sql_db001)" . $@); } local (%db001) = &result_to_array($result,0); # SQLの実行 $sql_sp = "select * from $table_area{sp_db} where id=$in{userid};"; eval { $result_sp = &pg_exec($conn,$sql_sp); }; if($@) { &error("SQL文エラー($sql_sp)".$@); } %sp_db = &result_to_array($result_sp,0); $sp_db{"sp_global_nav_text"} = &normal_tag_data($sp_db{"sp_global_nav_text"}); if ($sp_db{"sp_global_nav_text"} eq "") { my $global_lite_html = &get_global_nav_lite(); if ($global_lite_html ne "") { $sp_db{"sp_global_nav_text"} = $global_lite_html; } } $sp_db{"sp_global_nav_css"} = &normal_tag_data($sp_db{"sp_global_nav_css"}); $html = <<_HTML_; スマートフォン用グローバルメニュー
$sp_db{"sp_global_nav_text"}
_HTML_ my $myEnStr = encode_utf8($html); print "Content-Type: text/html\n\n"; print $myEnStr; exit;