#!/usr/bin/perl #use CGI::Carp qw(fatalsToBrowser); #/////////////////////////////////////////////////////////////////////////////// # html_maker for PCtoMoble VER2.00 # # ----- 2008(C) WEB INVENTOR(Solve) ----- # solve@wb-i.net # http://wb-i.net/ # #/////////////////////////////////////////////////////////////////////////////// #================================ [注意事項] =================================== # このスクリプトはシェアウエアです。このスクリプトを使用したいかなる損害に対して # も作者は一切の責任を負いません。 #====================================使用法===================================== # ショッピングカートと同じフォルダに入れて、次のようにして呼び出してください。 # http://・・/html_maker.cgi # #=============================================================================== # ▼設定▼ #=============================================================================== #==HTML生成フォルダ== $shop_html2 ="./"; #============================================================================== # ▲設定終了▲ #============================================================================== #======パスの設定==== #html_makerへのパス $script_maker ="./html_maker.cgi"; #cgi-lib.plへのパス require './cgi-lib.pl'; #=================== &ReadParse; while (($key,$val) = each %in) { $in{$key} = $val; } # 設定ファイル==================================================================== require './set.pl'; #====================戻り先======================================================== $save_data="$script?&keyword=$in{'keyword'}&FF=$in{'FF'}&class=$in{'class'}"; #===============管理用入り口====================== if ( $in{'mode'} eq '') { &adm1; exit;} if ( $in{'pass'} ne $adm_pass ) { &adm1; exit; } if ( $in{'mode'} eq 'make_ok' ) { &adm2; exit;} if ( $in{'mode'} ne 'html_make' ) { &adm1; exit;} #%%%%%%%%%%%ＴＯＰページのHTML生成 if($in{'html1'}){ $url_home ="$class_htm_dir/home.htm"; $h =$h_0; &top_make(); $html_file_name ="$shop_html2".'home.html'; &html_write(); push (@result_url1,$html_file_name); } #%%%%%%%%%%%ＴＯＰXページのHTML生成 if($in{'top1'} && $top1_name){ $url_home ="$class_htm_dir/top1.htm"; $topx_url =$top1_url; $topx_html =$top1_html; $h =$h_1; &topx_make(); $html_file_name ="$shop_html2".'top1.html'; &html_write(); push (@result_url1,$html_file_name); } if($in{'top2'} && $top2_name){ $url_home ="$class_htm_dir/top2.htm"; $topx_url =$top2_url; $topx_html =$top2_html; $h =$h_2; &topx_make(); $html_file_name ="$shop_html2".'top2.html'; &html_write(); push (@result_url1,$html_file_name); } if($in{'top3'} && $top3_name){ $url_home ="$class_htm_dir/top3.htm"; $topx_url =$top3_url; $topx_html =$top3_html; $h =$h_3; &topx_make(); $html_file_name ="$shop_html2".'top3.html'; &html_write(); push (@result_url1,$html_file_name); } if($in{'top4'} && $top4_name){ $url_home ="$class_htm_dir/top4.htm"; $topx_url =$top4_url; $topx_html =$top4_html; $h =$h_4; &topx_make(); $html_file_name ="$shop_html2".'top4.html'; &html_write(); push (@result_url1,$html_file_name); } if($in{'top5'} && $top5_name){ $url_home ="$class_htm_dir/top5.htm"; $topx_url =$top5_url; $topx_html =$top5_html; $h =$h_5; &topx_make(); $html_file_name ="$shop_html2".'top5.html'; &html_write(); push (@result_url1,$html_file_name); } if($in{'top6'} && $top6_name){ $url_home ="$class_htm_dir/top6.htm"; $topx_url =$top6_url; $topx_html =$top6_html; $h= $h_6; &topx_make(); $html_file_name ="$shop_html2".'top6.html'; &html_write(); push (@result_url1,$html_file_name); push (@result_name1,$top6_name); } if($in{'top7'} && $top7_name){ $url_home ="$class_htm_dir/top7.htm"; $topx_url =$top7_url; $topx_html =$top7_html; $h= $h_7; &topx_make(); $html_file_name ="$shop_html2".'top7.html'; &html_write(); push (@result_url1,$html_file_name); push (@result_name1,$top7_name); } if($in{'top8'} && $top8_name){ $url_home ="$class_htm_dir/top8.htm"; $topx_url =$top8_url; $topx_html =$top8_html; $h= $h_8; &topx_make(); $html_file_name ="$shop_html2".'top8.html'; &html_write(); push (@result_url1,$html_file_name); push (@result_name1,$top8_name); } if($in{'top9'} && $top9_name){ $url_home ="$class_htm_dir/top9.htm"; $topx_url =$top9_url; $topx_html =$top9_html; $h= $h_9; &topx_make(); $html_file_name ="$shop_html2".'top9.html'; &html_write(); push (@result_url1,$html_file_name); push (@result_name1,$top9_name); } if($in{'top10'} && $top10_name){ $url_home ="$class_htm_dir/top10.htm"; $topx_url =$top10_url; $topx_html =$top10_html; $h= $h_10; &topx_make(); $html_file_name ="$shop_html2".'top10.html'; &html_write(); push (@result_url1,$html_file_name); push (@result_name1,$top10_name); } &result(); exit; #%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% #========================HTMLの書き込み================= sub html_write{ open(OUT,"> $html_file_name") || &error("HTMLの書き込みに失敗しました","$html_file_name"); print OUT "$html_data\n"; close(OUT); } #===============ＴＯＰページの作成================ sub top_make{ $html_data =''; if($xhtml_use){ if($xhtml_use ne 2){$html_data = "\n";} $html_data .= "\n"; $html_data .= "\n"; }else{ $html_data .= "\n"; $html_data .= "\n"; } $html_data .= "\n"; $html_data .= "\n"; $html_data .= "$main_title\n"; $html_data .= "\n"; $html_data .= "\n"; $html_data .= "\n"; $html_data .= "\n"; $html_data .= "$style"; $html_data .= "$body$header\n"; if($inner_farme_yes){ $iframe_h =$h; $url_home ="$class_htm_dir/home.htm"; $iframe_w =$t_width; $html_data .=<<"EOF";
EOF } $html_data .="$foot" ; } #===============ＴＯＰ１〜５のページの作成================ sub topx_make{ $url_goods_no ="$script?id"; $script_save ="$script?order=$order_encode&class=$class_encode&keyword=$keyword_encode&FF=$in{'FF'}&pic_only=$in{'pic_only'}"; $into_cart_url =$script_save."&mode=look"; $url_class ="$script?superkey=1&FF=0&pic_only=$in{'pic_only'}&class"; $url_keyword ="$script?FF=0&pic_only=$in{'pic_only'}&keyword"; $url_mode ="$script?t"; $url_mode =~ s/shop.cgi/index.cgi/g; $kensaku_form = <<"EOF";
EOF $into_cart_form = <<"EOF";
EOF $html_data =''; if($xhtml_use){ if($xhtml_use ne 2){$html_data = "\n";} $html_data .= "\n"; $html_data .= "\n"; }else{ $html_data .= "\n"; $html_data .= "\n"; } $html_data .= "\n"; $html_data .= "\n"; $html_data .= "$main_title\n"; $html_data .= "\n"; $html_data .= "\n"; $html_data .= "\n"; $html_data .= "\n"; $html_data .= "$style"; $html_data .= "$body$header\n"; if($topx_url eq 'auto'){ $log_in_id =$hello_id; $topx_html =~ s/\$log_in_id/$log_in_id/g; $topx_html =~ s/\$log_in_name/$hello_id/g; $topx_html =~ s/\$log_in_mess/$log_in_mess/g; $topx_html =~ s/\$url_goods_no/$url_goods_no/g; $topx_html =~ s/\$url_class/$url_class/g; $topx_html =~ s/\$url_keyword/$url_keyword/g; $topx_html =~ s/\$kensaku_form/$kensaku_form/g; $topx_html =~ s/\$into_cart_url/$into_cart_url/g; $topx_html =~ s/\$into_cart_form/$into_cart_form/g; $topx_html =~ s/\$url_top/$url_mode/g; $topx_html =~ s/\$url_mode/$url_mode/g; $topx_html =~ s/\$script/$script/g; $topx_html =~ s/\$order_encode/$order_encode/g; $topx_html =~ s/\$class_encode/$class_encode/g; $topx_html =~ s/\$keyword_encode/$keyword_encode/g; $topx_html =~ s/\$in{'pic_only'}/$in{'pic_only'}/g; $topx_html =~ s/\$in{'FF'}/$in{'FF'}/g; $topx_html =~ s/\$in{'price_sort'}/$in{'price_sort'}/g; $topx_html =~ s/\$pic_only/$in{'pic_only'}/g; $topx_html =~ s/\$page_no/$in{'FF'}/g; $topx_html =~ s/\$price_sort/$in{'price_sort'}/g; $html_data .=<<"EOF"; $topx_html EOF }elsif($inner_farme_yes){ $iframe_h =$h; $url_home ="$class_htm_dir/home.htm"; $iframe_w =$t_width; $html_data .=<<"EOF";
EOF } $html_data .="$foot" ; } #============================================== sub adm1 { if($adm_pass eq "1234"){ $dis_closure = "
[パスワード = 1234]
"; } &html_header(); print <<"EOF";
HTML-MAKER VER2.00



◆HTMLを生成します◆

生成フォルダ ： $shop_html2

管理者用パスワードを入力してください。

$dis_closure

$foot EOF } # ==================================================== sub adm2 { if($adm_pass eq "1234"){ $dis_closure = "
[パスワード = 1234]
"; } &html_header(); print <<"EOF";
HTML-MAKER VER2.00



◆フォルダ $shop_html2 に HTMLを生成します◆

home.htmlの生成\　\　 top1.htmlの生成\　\　 top2.htmlの生成\　\　 top3.htmlの生成\　\　 top4.htmlの生成\　\　 top5.htmlの生成

システム設定【１】でタイトル、キーワード、アピールを記述してください。

※HTMLはshop.cgiと同じフォルダ内に生成されます。他のフォルダに移動するときはスタイルシートや画像フォルダのパスを書き換える必要があります。

$foot EOF } # ==================================================== sub result { &html_header(); foreach(@result_url1){ $result_link1 .="
  • $_"; } print <<"EOF";
    HTML-MAKER VER2.00



    ◆HTMLの生成結果◆

    ■ＴＯＰページのHTML生成
      $result_link1



    $foot EOF } #====================================================================== # Cookieに値を書き込むためのSet-Cookie:ヘッダを生成する # sub setCookie{ } sub setCookie_0{ } # # Cookieの値を読み出す # sub getCookie{ } sub html_header{ print "Content-type: text/html\n\n"; print "$main_title\n"; print "\n"; print "\n"; print "$style"; print "$body$header\n"; } #=============================================================== sub error { &html_header(); print "
    $_[0]
    \n"; print "
    $_[1]
    \n"; print "
    $foot"; exit; }