@Blog{zip358.com}

検索する

［解決］さくらサーバでファイルの一覧（Index of）が見えてしまって困っています。

2015.05.17

Logging

さくらサーバでファイルの一覧（Index of）が見えてしまって困っていますを解決する方法。これを解決するにはindex.htmlファイルをディレクトリの中に置くことで解決します。ちなみにindexファイルを使いたくない場合は、下記のように記入することで解決します（htaccessファイルを作成し、下記のコードを記入し保存、ディレクトリにアップロード）。

DirectoryIndex 任意のファイル名

上記のように記入するとそのファイル名がディレクトリの中になければ、ファイル一覧が表示されるようになります。ちなみに、さくらサーバでは初期の設定で下記のファイル名がファイル一覧を非表示にさせるファイル名となっています。

• index.html
• index.htm
• index.shtml
• index.cgi
• index.php
• index.hdml

※共有サーバーで、複数のドメインを管理している方は/home/アカウント名/www/の中にはindex.htmlなどを入れておいた方が良さそうですね。

タグ

DirectoryIndex, htaccessファイル, index.cgi, index.hdml, index.html, index.htmlファイル, index.php, index.shtml, indexファイル, アカウント名, アップロード, コード, さくらサーバ, ディレクトリ, ドメイン, ファイル一覧, ファイル名, 上記, 下記, 共有サーバー, 初期, 複数, 解決,

最後のWindowsが夏頃、リリースされます。

2015.05.14

Logging

最後のWindowsが夏頃、リリースされますが、ちょっと様子見でWindows7のままで使用しようと思っています。恐らく無償版のアップグレードするとダウングレードすることが出来ないと思うので自分は様子見です。話、脱線して昨日の続きです。PHPを使用しPOSTしてデータを渡し受け取る方法ですが、SSLでなければ下記のコマンドをLinux上で打てば処理されます。なのでコマンドとPHPとの合わせ技で処理します。

curl http://hoge.com -d "name=hoge" -d "pass=pass_hoge"

上記の様に記載したshファイルを任意の場所に置き、Linuxで処理するか、PHPで実行させるかなど方法があります。今回はPHPで実行する方法を記載します。上記のファイルをhello.shというファイルに保存したと過程して、PHPファイルで実行させた場合の処理を記載します。下記のコードをPHPファイルに記載すれば実行可能です。

$put =nl2br(shell_exec('sh hello.sh'));
echo $put;

あとは戻ってきた値を処理して必要な情報だけを抽出するコードを書けばいろいろな事が可能です。ちなみに今回はPOSTとする方法でしたが、それ以外にも階層のファイルの一覧を抽出した場合などもshに記載して結果を返す方法などが可能です。
※shファイルのパーミッション設定には注意が必要です。
 

タグ

'sh hello.sh', $put, Linux, nl2br, PHPファイル, POST, shell_exec, shファイル, Windows7, アップグレード, コード, コマンド, パーミッション設定, 上記, 下記, 合わせ技, 夏頃, 方法, 無償版, 階層,

centOS7になってMYSQLじゃなくmariadb(MYSQL)変わったけど。

2015.05.12

Logging

centOS7になってMYSQLじゃなくmariadb(MYSQL)変わったけど特に問題なく動いてます。ちなみにphpMyAdminが動かないと思ったらこれをひと通りyumで下記を入れとけば実行されます。centOS7からPHPバージョンが5.4になりました。いま、自宅のローカルWebサーバにnode.jsを入れようと思ってます・・・・。まだ導入はしていないのですが、そろそろ入れようかなと動作とかがうまく機能したら仮想サーバをレンタルしてゴニョゴニョしてみようと思います。まだ先の話なので当分は自宅のローカルで試行錯誤してnode.jsで何が出来るのかを試してみようと思っています。

yum install php php-ldap php-mysql php-pear php-mbstring

 

タグ

１, centOS7, mariadb, node.js, phpMyAdmin, PHPバージョン, yum install php php-ldap php-mysql php-pear, ゴニョゴニョ, ローカルWebサーバ, 下記, 仮想サーバ, 先, 動作, 導入, 当分, 自宅,

未来｛ミライ｝を語る、未来を想像する｛思い描く（´∀｀）｝

2014.09.08

Logging

未来を想像して、それに近づけようとしている研究者がいるから技術は進歩していく。最近、この想像するという力が徐々に退化してきているように思えます。いまの子供達（先進国）は生まれた時からネット環境が身近あるために、自分で想像したり考えたりすることが少なくなってきているように思えるわけです。良くも悪くもネット上から膨大な知識が得られるため、自分で調べるという事が昔に比べて少なくなってきているらしいです。
文明が進むにつれ今まで絵空事だった事が現実味を帯びてきています、再生医療やロボット工学、人工知能など、早ければ2025年には再生医療は可能だと唱える学者もいます。あと、11年と少しでそうなるかは分かりませんが、あと30年もすれば確実に再生医療は誰もが受けれる可能性があり、もしかすると不死の時代が到来するかも知れないのです。いま再生医療などで議論されているのが、人の在り方｛生と死の問題｝などです。これは、再生医療が進み、人が不死を手に入れても議論することなる問題だと思います。
未来がどうなるのかは誰も知り得ませんが、未来を想像して、それに近づけようとする研究者がいる限り人がそれに近い未来図が待っているのだと下記の動画を見て思いました。
https://www.youtube.com/watch?v=a6cNdhOKwi0
 
 
 

タグ

すがた, ネット環境, ミライ, ロボット工学, 下記, 不死, 人工知能, 先進国, 再生医療, 叡智, 可能性, 問題, 在り方, 学者, 文明, 日本未来図2030 20人, 未来, 現実味, 知識, 研究者, 絵空事, 身近あるため, 近い未来図,

まだ東京で消耗してるのを書いているイケダハヤトさん｛現在：高知在住｝

2014.08.26

Logging

イケダハヤトさんという人物を実は今まで知らなかった自分。高知県にブロガーさんが住むっていう話を新聞で見て即RSSに登録したのですけど、最初はどうかなと思って見てましたけど、先日の記事を読み、この人の印象が変わりました。それなりに有名な人は人間ができているのだなと感じました｛下記の内容を読んでなるほどなと感じました｝。

ぼくが名指しの他者批判をネットで書くのをおすすめしないのは、あなたは、記述したようになるからです。攻撃的な、侮蔑的な記述をすれば、あなたはリアルな社会でも、そういう人間になっていきます。
内田樹先生の言葉を借りれば、それは「呪い」としてあなたにまとわりつくでしょう。呪縛を解除するためには、他者を祝福するしかありません。
「呪い」は今や僕たちの社会では批評的な言葉使いをするときの公用語になりつつあります。「弱者」たちは救済を求めて呪いの言葉を吐き、「被害者」たちは償いを求めて呪いの言葉を吐き、「正義の人」たちは公正な社会の実現を求めて呪いの言葉を吐く。けれども、彼らはそれらの言葉が他者のみならず、おのれ自身へ向かう呪いとしても機能していることにあまりに無自覚のように思われます。

↑イケダハヤトさんと内田樹先生の言葉を抜粋。

ネット上では他者批判を結構みかけます。匿名の怖さかも知れないのですが、リアルもネットも同じように振る舞いを行わないと駄目だということ、匿名になり攻撃的になったりするとやっぱりそれは、自分にかえってきます。むしろ顔の見えないネットのほうがリアルよりも言葉を選ばないといけないと思います。この記事を読んでいて自分は、イケダハヤトさんもネット上で起こるひと通りの問題を経験したからこそ、この言葉が言えるのだなと自分は思います。人っていうのは自分で経験するとよく理解するもので、そしてそれが自分の糧になるのだなと記事を読んでいて実感しました。

タグ

RSS, あなた, イケダハヤト, おすすめ, ソレ, ため, とき, ネット, ブロガー, ボク, リアル, 下記, 人, 人物, 人間, 他者, 僕, 先日, 先生, 公用語, 内容, 内田樹, 印象, 呪い, 呪縛, 在住, 弱者, 批判, 救済, 新聞, 最初, 有名, 東京, 正義, 消耗, 現在, 登録, 社会, 祝福, 自分, 被害者, 解除, 言葉, 記事, 記述, 話, 高知, 高知県,

Accessのさんぷるコードができましたので(´Д｀)貼っときます。

2014.08.21

Logging

突貫工事で作ったのでバグは多少あると思いますが{例えばsql インジェクション対策とか。}、Accessのsampleコードができましたので貼っときます。なお、これで何が出来るかって言えばDBの修正、追加、削除といった基本的な動きをします｛挙動不審ぎみ嘘！？｝。若干、ソースコードを弄くれば使い回しが出来るようにしております。飯くったり他のことをしながらもガリガリとコードを書きました。ちなみにAccessのViewerをマイクロソフトからダウンロードすると動作すると思います。ファイルは下記からダウンロードください。 追記：暇な時に改良していきますので( ﾟдﾟ)ﾉ ﾖﾛｼｸとコメントも暇があれば書いときます。そして無駄なコードがありますが、それも軽量していくつもりです(｀・ω・´)。ちなみにいまはDBを空にすると落ちますので・・・・（直しました。）。?samplezip358.zip?[https://zip358.com/tool/samplezip358.zip][08/21 11:26]

Option Compare Database
Public db_x As Long
Public max As Variant
Function sel_all(tablename As Variant, tal_valname As Variant) As Variant
    Dim x As Long
    Dim y As Long
    Dim sql As String
    Dim RS As DAO.Recordset
    Dim db As DAO.Database
    Dim hoge(999, 999) As Variant
    Dim val_n As Variant
    Dim val As Variant
    Set db = CurrentDb
    sql = "SELECT * FROM " & tablename & " ORDER BY ID ASC;"
    MsgBox sql
    Set RS = db.OpenRecordset(sql)
    Do Until RS.EOF
        For y = 0 To UBound(tal_valname)
            hoge(x, y) = RS.Fields(tal_valname(y))
        Next y
        RS.MoveNext
        x = x + 1
    Loop
    Set db = CurrentDb
    sql = "SELECT MAX(ID) as maxs  FROM " & tablename & ";"
    MsgBox sql
    Set RS = db.OpenRecordset(sql)
    max = RS.Fields("maxs")
    db_x = x - 1
    Set db = Nothing
    sel_all = hoge
End Function
Function up_in(chk As Boolean, tablename As Variant, tal_valname As Variant, tal_val As Variant, ID As Long) As Variant
    Dim sql As String
    Dim RS As DAO.Recordset
    Dim db As DAO.Database
    Dim hoge_valname As String
    Dim hoge_val As String
    Dim hoge As Variant
    If chk = True Then
        For i = 0 To UBound(tal_valname)
            hoge_valname = hoge_valname & tal_valname(i) & ", "
        Next i
        hoge_val = sql_str(tal_val, "", "", True)
        sql = "INSERT INTO " & tablename & " (" & Left(hoge_valname, Len(hoge_valname) - 2) & ")VALUES (" & hoge_val & ");"
    Else
        hoge_valn_val = sql_str("", tal_valname, tal_val, False)
        sql = "Update " & tablename & " Set " & hoge_valn_val & " WHERE ID = " & ID & ";"
    End If
    MsgBox sql
    Set db = CurrentDb
    db.Execute (sql)
    Set db = Nothing
    up_in = True
End Function
Function del(tablename As Variant, tal_valname As Variant, tal_val As Variant) As Variant
    Dim sql As String
    Dim RS As DAO.Recordset
    Dim db As DAO.Database
    Dim hoge As Variant
    sql = "DELETE FROM " & tablename & " WHERE " & tal_valname & " = " & tal_val & ";"
    MsgBox sql
    Set db = CurrentDb
    db.Execute (sql)
    Set db = Nothing
    del = True
End Function
Function sql_str(hoge As Variant, tal_valname As Variant, tal_val As Variant, chk As Boolean) As Variant
    Dim i As Long
    Dim hoge_str As Variant
    If chk = True Then
        For i = 0 To UBound(hoge)
            If IsNumeric(hoge(i)) Then
                hoge_str = hoge_str & hoge(i) & ", "
            Else
                hoge_str = hoge_str & "'" & hoge(i) & "', "
            End If
        Next i
    Else
        For i = 0 To UBound(tal_valname)
            If IsNumeric(tal_val(i)) Then
                hoge_str = hoge_str & tal_valname(i) & " = " & tal_val(i) & ", "
            Else
                hoge_str = hoge_str & tal_valname(i) & " = '" & tal_val(i) & "', "
            End If
        Next i
    End If
    sql_str = Left(hoge_str, Len(hoge_str) - 2)
End Function

↑クラスdbソースコード

Option Compare Database
Dim max As Long
Dim ID As Long
Dim val_val As Variant
Private Sub Form_Load()
lod
End Sub
Sub lod()
    Dim db As db_db
    Dim val_name As Variant
    Dim x As Long
    Set db = New db_db
    val_name = Array("ID", "表題", "数値", "文字")
    val_val = db.sel_all("tableone", val_name)
    max = db.max + 1
    If cmb.ListCount > 0 Then
        For x = 0 To cmb.ListCount - 1
            cmb.RemoveItem 0
        Next
    End If
    For x = 0 To db.db_x
        cmb.AddItem val_val(x, 1)
    Next
    Set db = Nothing
End Sub
Private Sub cmb_Click()
    If cmb.ListIndex >= 0 Then
        Viw cmb.ListIndex
    End If
End Sub
Private Sub del_btn_Click()
    Dim db As db_db
    Dim hoge As Variant
    Set db = New db_db
    val_name = Array("ID", "表題", "数値", "文字")
    If ID > 0 And max > 1 Then
        hoge = db.del("tableone", "ID", ID)
    End If
    Set db = Nothing
    lod
End Sub
Private Sub in_btn_Click()
    Dim db As db_db
    Dim val_name As Variant
    Dim val As Variant
    Dim hoge As Variant
    chkchk
    val_name = Array("ID", "表題", "数値", "文字")
    val = Array(max, cmb, suuzi, moji)
    Set db = New db_db
    hoge = db.up_in(True, "tableone", val_name, val, max)
    Set db = Nothing
    lod
End Sub
Private Sub upd_btn_Click()
    Dim db As db_db
    Dim val_name As Variant
    Dim val As Variant
    Dim hoge As Variant
    chkchk
    val_name = Array("表題", "数値", "文字")
    val = Array(cmb, suuzi, moji)
    Set db = New db_db
    If ID > 0 And max > 1 Then
        hoge = db.up_in(False, "tableone", val_name, val, ID)
    End If
    Set db = Nothing
    lod
End Sub
Sub Viw(i As Long)
    ID = val_val(i, 0)
    suuzi = val_val(i, 2)
    moji = val_val(i, 3)
End Sub
Sub chkchk()
    If IsNumeric(suuzi) Then
        If suuzi > 9999 Then
            suuzi = 9999
        End If
    Else
        suuzi = 0
    End If
    If IsNumeric(moji) Then
        moji = "文字が不正＞" & moji
    End If
    If IsNumeric(cmb) Then
        cmb = "文字が不正＞" & cmb
    End If
End Sub

↑formソースコード

タグ

35, 358, access, db, https, sample, samplezip, SQL, Viewer, www, zip, いま, インジェクション, コード, こと, コメント, これ, サンプル, ソース, それ, ダウンロード, つもり, バグ, ファイル, マイクロソフト, ﾖﾛｼｸ, 下記, 他, 何, 修正, 削除, 動作, 嘘, 対策, 工事, 改良, 時, 暇, 無駄, 空, 突貫, 若干, 軽量, 追加, 追記, 飯,