概要
| 各国リンク更新／追加依頼の方法 | |
| 各サーバーのメニューバーに掲載されている各国へのリンクは、メニューバーを直接編集する事で更新／追加できますが、当リンク表に更新／追加していただければ、SNN 管理側で一括更新する場合に反映されます。リンク表への追加がよくわからない人は、コメント欄へどうぞ。 |
コメント
リンク表
掲示板とホームページが別途に存在するような場合、同じサーバーの同国へのリンクが複数あっても構いません（アイコンで並んで表示されます）。
- サーバー
- 必ず半角英文字で Enaret Ardia Yougiku Felburg いずれかを入力してください。
- 種類
- 必ず半角英文字で HP BBS Blog Wiki の中から、該当するホームページの種類を入力してください。HPは普通のホームページ、BBSは掲示板、Blogはブログ、WikiはWikiです。
リストを直接編集する場合→ 編集:全国リンク/List
生成方法
リンク表からリンク集を作る方法です。
リンク表を Excel に貼り付けた後、サーバー・国順にソートして、タブ区切りのテキスト (link.txt) に落とし、Perlスクリプトによってリストを作ります。スクリプトを掲載しておきます。
リンク文生成スクリプト
このリストからリンク集を作るには、以下のスクリプトをご利用ください。
#link.txt は優先順位1:サーバー、優先順位2:国順にソートしておく use encoding 'Shift_JIS'; use open IO => ":encoding(Shift_JIS)"; use open ":std";
open(FIN, "link.txt");
$preServer = '';
$preName = '';
$IconLink = '';
for($line=0;$read = <FIN>;$line++) {
#一行読み込んで分解
my @data;
@data = split(/\t/,$read);
$Name = shift @data;
$Server = shift @data;
$Type = shift @data;
$URL = shift @data;
chomp($URL);
#サーバー毎の処理
if ($Server ne $preServer) {
&MargeLink();
&PrintLinks();
print "\n\n$Server\n";
}
#次の国になったら前の国をマージする
if ($preName ne '' && $Name ne $preName) {
&MargeLink();
$IconLink = "[[&ref(icon/${Type}13.gif);>$URL]]";
} else {
$IconLink .= "[[&ref(icon/${Type}13.gif);>$URL]]";
}
#次の行へ
$preURL = $URL;
$preName = $Name;
$preServer = $Server;
}
&MargeLink();
&PrintLinks();
print "\n";
exit;
sub MargeLink() {
$IconLink =~ s/;\>([^;]+$)/; ${preName}>${1}/;
$put{$preName} = "$IconLink";
}
sub PrintLinks() {
my $key, $val;
foreach $key (sort keys %put ) {
print "$put{$key}\n" if ($put{$key} ne '');
$put{$key} = '';
}
}