selectに追加・削除するJavaScript

初めてといっていいほど１からＪＳ書きました。
テキスト追加したらセレクトのリストの中に追加され、
セレクトの中のを指定してボタン押すと削除されるというものを作りたかった。


最終的にはセレクト内のものをデータベースに登録する予定らしく、 「追加」・「削除」の度にデータベースアクセスするのもちょっとね・・・
というわけで作成してみました。

---

<script type="text/JavaScript">
<!--
function addList() {
　　　　len = document.form.list.length;
　　　　val = document.form.add.value;
　　　　if (val == "") {
　　　　　　return;
　　　　}
　　　　document.form.list.length += 1;
　　　　document.form.list.options[len].text = val;
　　　　document.form.add.value = "";
}
function delList() {
　　len = document.form.list.length;
　　for (i = 0; i < len; i++) {
　　　　if (document.form.list.options[i].selected == true) {
　　　　　　document.form.list.options[i].selected = false;
　　　　　　document.form.list.options[i] = null;
　　　　　　i--;
　　　　　　len--;
　　　　}
　　}
}
// -->
</script>
<<form name="form" action="JS.html" method="POST">
　<table>
　　<tr>
　　　<td bgcolor="#FFFFFF">
<input type="text" size=20 name="add" value="">
<input type="button" value="追加" onClick="addList()">
<br>
<select size=4 name="list" multiple>
</select>
<input type="button" value="削除" onClick="delList()"><br>
　　　</td>
　　</tr>
　</table>
</form>

---

こんな感じでいかがでしょうか。。。
実際のうごきはこちらからドゾー。


つっこみお待ちしております。


マジで今回はわからんかった！
調べても調べても出てこないし。。。

すーぜ。。。久しぶり。

久しぶりに一からＯＳインストールしました。

今回はSUSE Linux Enterprise Server 10!!
りゃくして「すれすテン！！」

ＳＬＥＳ１０。

さっそくインストール。
ＣＤドライブ付いてなかったから
ＵＳＢでつないで
VMWareからチャレンジ。


。。。失敗。

「私32bitなんで64bitやめてください」
みたいなこと言われました。


結局NOVELLから落とすことに。


これがまたでかくて時間かかった～。


再チャレンジ。

↑クリックで拡大します。

なんかキレーながめん。。。


さて。
言語やらパーティションやら決めて、
ソフトチョイス。
今回は
・apache2
・openLDAP2
・telnet(serverも)
・vsftp
・xinetd
・開発系
こんなもん。
そのほかは後から増やしましょうね。


さてソフトインストール開始。





あー次は4枚目を入れればいいんですね。
親切やーん(笑)


インストールはサクサク進んだけど
ルーティング設定が難しかったっす。

SUSEって特殊ですね。
/etc/sysconfig/network/routes
だっけ？に書くみたいです。

iptableとかないし。。。

むずかしい。
まだまだ勉強不足です。

ＳＥ的会話。

ものを溜め込みすぎの同期に
「ちょっとこれないんじゃないの？」
とみんなで指摘。

そこで一言

「いやぁ僕は基本的にallow from allだからさぁ～」


ちょｗｗｗ
アパッチｗｗｗ

POP3って何？

Net::POP3モジュールを使用して
別サーバのメールを取得してみる。

まぁ定番のＣＰＡＮからいただきましょう。

---

#!/bin/perl

use Net::POP3;

$pop = Net::POP3->new('ホスト名');　# 接続
if (! $pop) {
　　die "接続失敗： $!";
}

$check = $pop->login('ユーザ名', 'パスワード');　# ログイン
if ($check == undef) {
　　die "認証失敗： ";
}


$ref = $pop->list();　# メール一覧のハッシュのリファレンスを得る
foreach $msg (keys %$ref) {　# msgはメッセージ番号(？)
　　$lines = $pop->get($msg)　# メール本文取得
　　foreach $mail (@$lines) {
　　　　print @$mail;
　　}
}

$pop->quit();　# ログアウト

---

こんな感じらしいです。
ループのまわし方によってヘッダチェックなどもできます。

ちなみに2回目のforeachは必要ないみたいです。。。
(じゃあ直せよ)


久々の調査。
しかもプログラミング付き。

たのしかったっす。


ちなみに読んだらそのメール消去。
みたいなのもあります。

が、今回は省略。



◆参考サイト◆
http://perldoc.jp/docs/modules/libnet-1.12/Net/POP3.pod
http://www.ksknet.net/cat28/netpop3.html
http://x68000.q-e-d.net/~68user/net/module-pop3.html
ありがとうございますっ。

久々にいじる。

ホントに久しぶりにサーバいじり。

おぉ～。
ＳＥっぽいな(笑)

某社のサーバにＶＨ追加。


手順書を自分で作っておいたので
それ見ながらやってみました。



・・・・


・・・・・



うわーやり方忘れてる。。。


リダイレクト設定の書き方とか忘れてました。
アクセス許可設定の方法も忘れてました。


RewriteEngine On
。。。？？？

そーいえばそんな書き方だったね＜リダイレクト



あーダメＳＥになりつつありますかねー。。
ｏｒｚ.....