サイトトップ
>
フォーラム一覧
-
トピックス
> [00] GHOST LAB |
READONLY
カスタマイズ
|
ヘルプ
CGI サポートフォーラム
新規投稿
ツリー表示
一括表示
リスト表示
検索
質問をする前に、過去ログに同じ質問がないか検索してください。
記事 No.604 の編集
記事を編集するには管理パスワードが必要です。
管理パスワード
記事タイトル
お名前
yumeji
メール
ホームページ
文章欄
HTMLタグは使えません
http://〜とURLを記述すると自動的にリンクされます
改行は反映されます
お世話になります.α版を仕様させて頂いておりますv. やっぱりものすごく使い勝手が良く重宝させて頂いております. さて,此処で日記等にもご利用なさっている方が居ると知り, カテゴリを有用して,画像と説明文等のみやすい配置へと, HPでフレキシブルに使用してみたく,現在try中です. お忙しい中失礼致しますが,下記機能2点をどうにか追加したいと思い, 方法をご教授願えればと書き込みさせていただきます. 1■画像サイズが指定したサイズより大きかったら 別ウィンドウで表示したい (アップロードする画像サイズをどこかで取得しなければいけない 2■別ウィンドウで表示した画像を,クリックすると, ウィンドウが閉じる仕様にしたい. 現在test設置しているurl http://the.celestial-palace.com/x/exit_t/exit.cgi http://the.celestial-palace.com/x/exit_t/exit.cgi?mode=vew&id=1 mylib.pl--------------------------------------------以下参照 ########### リンクデータ表示ルーチン sub ShowLink { my ($master, $bn, $new, $time, $sougo, $jx, @jx, @tmp_sub); $time=time(); $sitename = " $linkdata->{'sitename'}"; if ($linkdata->{'master'}) { $master = "
$linkdata->{'master'} $keisho
"; } else { $master = ''; } if ($linkdata->{'banner'} eq "http://" || $linkdata->{'banner'} eq "" ) { $bn = "${imgdir}nobanner.$ext"; } else { $bn = "$linkdata->{'banner'}"; } $bn = "
"; $new=""; if ($time <= $linkdata->{'time'}+(60*60*24*$newd)) { $new = "
"; } if ( $linkdata->{'sougo'} eq "on" ) { $sougo ="
";} @jx=(); $jx=""; @tmp_sub = split (/\:/, $linkdata->{'subid'}); foreach (@tmp_sub) { if($_ eq $in->{'subid'}) { next; } $subdata = &GetSubCategory ($_); push(@jx,"
$subdata->{'subname'}
:"); } if (@jx) { $jx = "
OtherClass > @jx
"; } ---------------------------------------------以上参照以下省略 現在,とむやむくんの右クリック禁止と,別窓表示を外部ファイルで利用しておりますがが,上2点の希望項目には,cgiでの設定が必要らしく, ご教授願えれば幸いです. →Gallery用cgiなのですが,上記希望追加機能が含まれています. http://the.celestial-palace.com/x/galle/gallery.cgi?mode=view&no=26 --view書出部分-------------------------------------------以下一部参照 sub view { if ($html_flag != 1) { open(FILE, "$log_file") || &error("ログファイルを読み出せません"); @logs =
; close(FILE); foreach (@logs) { ($no, $date, $subj, $text, $detail, $field, $file, $img, $code) = split(/\t/); if ($in{'no'} == $no) { last; } } } $prev_no = -1; $next_no = -1; $flag = 0; foreach (@logs) { ($tmp_no, $temp_field) = (split(/\t/))[0, 5]; if ($field eq $temp_field) { if ($flag == 1) { $prev_no = $tmp_no; last; } if ($no == $tmp_no) { $flag = 1; } if ($flag == 0) { $next_no = $tmp_no; } } } if ($img_new == 1) { ($sec, $min, $hour, $day, $mon, $year, $week) = localtime(time()); $today = sprintf("%04d%02d%02d", $year + 1900, $mon + 1, $day); if ($new_date != 0 && $thumbnail_new == 1 && $today - $date < $new_date) { $new = $new_mark; } else { $new = ''; } } if ($date =~ /^(\d\d\d\d)(\d\d)(\d\d)$/) { $year = sprintf("%04d", $1); $month = sprintf("%02d", $2); $day = sprintf("%02d", $3); $date = "$year / $month / $day "; } if ($detail ne '') { $text = $detail; } if ($auto_link == 1) { $text = &auto_link($text); } if ($return_link == 1) { $back = qq|
back
|; } else { if ($html_flag == 1) { $link = "./"; } else { $link = "$script"; } $back = qq|
back
|; } if ($file ne '' && -e "$upfile_dir$file") { $file =~ /[^\/\\]*\.([^.\/\\]*)$/; $ext = ".$1"; $file_info = ''; $file_size = &comma(int((stat("$upfile_dir$file"))[7] / 1024)) . 'KB /'; if ($ext eq '.gif' || $ext eq '.jpeg' || $ext eq '.jpg' || $ext eq '.jpe' || $ext eq '.png') { open(IMG, "$upfile_dir$file"); binmode(IMG); if ($ext eq '.gif') { ($img_width, $img_height) = &gifsize(*IMG); } elsif ($ext eq '.jpeg' || $ext eq '.jpg' || $ext eq '.jpe') { ($img_width, $img_height) = &jpegsize(*IMG); } elsif ($ext eq '.png') { ($img_width, $img_height) = &pngsize(*IMG); } if ($img_width > $img_max_width) { $org_img_width = $img_width; $org_img_height = $img_height; $miniwindow_width = $org_img_width + ($miniwindow_margin * 2); $miniwindow_height = $org_img_height + ($miniwindow_margin * 2); $img_link_begin = qq|
|; $img_link_end = '
'; $img_height = int($img_height / ($img_width / $img_max_width)); $img_width = $img_max_width; } else { $img_link_begin = ''; $img_link_end = ''; } $work = qq|$img_link_begin
$img_link_end\n|; } else { $flag = 0; foreach $icon_img (@icon_img) { if ($flag == 1) { $mini = qq|
|; last; } if ($ext eq $icon_img) { $flag = 1; } } if ($flag == 0) { $mini = '■'; } $work = qq|
$mini $file
[${file_size}KB]\n|; } } else { $work = ''; $file_size = ''; } &header(); &title(); $prev = '<< back'; $next = 'next >>'; if ($prev_no != -1) { if ($html_flag == 1) { $link = "./$prev_no$html_ext"; } else { $link = "$script?mode=view&no=$prev_no"; } $prev = qq|
$prev
|; } if ($next_no != -1) { if ($html_flag == 1) { $link = "./$next_no$html_ext"; } else { $link = "$script?mode=view&no=$next_no"; } $next = qq|
$next
|; } if ($work ne '') { print qq|
$work
\n|; } else { print '
'; } print <<"_HTML_";
$prev / $back / $next
■
$subj
$new
$text
$file_size $field / $date
$prev / $back / $next
--他省略-------------------------------------------以上一部参照 ■勿論上記cgiのソース一部流用の際には,上記cgi配布先様の著作権表記を追記させていただきます. ■どうぞ御願いいたします お忙しいとは存じますが,どうぞ宜しく御願いいたします(ぺこり.
- TOP -
管理者:
webmaster
■ホーム
■フォーラム一覧
■トピックス
■管理画面
■[00] GHOST LAB
├ CGI サポートフォーラム
├ JUNK TEST
├ 雑談フォーラム
■[01] KAJIKAJI KINGDOM
├ K2K更新履歴
├ はむはむ掲示板
■[02] Love & Peace from BTM
├ BTM フォーラム
├ LoveP 更新履歴
■[03] masaya's memo
├ Memo Board
■[99] GHOST 管理者用
├ HISTORY
├ 連絡用掲示板
NICOLE's - WWWForum 3.7c
Modified by masaya