カテゴリー: プログラム

/**
 * ローカルのファイルをNextCloudにアップロードし、内部リンクを取得する。
 *
 * @param string $upFileFullPath アップしたいファイルのフルパス
 * @param string $dstFolder NextClodu上のアップしたいフォルダー（ファイル名は$upFileFullPathのファイル名を使用）
 * @param string $nextCloudURL NextCloudのURL
 * @param string $userName NextCloudのログインユーザー
 * @param string $password NextCloudのログインユーザーのパスワード（アプリパスワード）
 * @return string|bool ファイルアップ後の内部リンクを返す。falseの場合はエラー
 */
function upFileAndGetInternalLink($upFileFullPath, $dstFolder, $nextCloudURL, $userName, $password){

	if (!is_file($upFileFullPath)){ return false; }
	$fileName = basename($upFileFullPath);
	if (substr($nextCloudURL, -1) != '/'){ $nextCloudURL .= '/'; }
	if (substr($dstFolder, -1) != '/'){ $dstFolder .= '/'; }

	$apiOfTheUpFile = $nextCloudURL . 'remote.php/dav/files/' . $dstFolder . $fileName;

	//libxml_use_internal_errors(true);

	$cmd = "curl -T '" . $upFileFullPath . "' -u '" . $userName . ":" . $password . "' '" . $apiOfTheUpFile . "'";
	echo $cmd;
	$ret = exec($cmd, $aryOutput, $resultCode);
	if ($ret === false || $resultCode != 0){ return false; }

	$cmd = "curl -u '" . $userName . ":" . $password . "' '" . $apiOfTheUpFile . "' -X PROPFIND --data '<?xml version=\"1.0\" encoding=\"UTF-8\"?>
		<d:propfind xmlns:d=\"DAV:\">
		<d:prop xmlns:oc=\"http://owncloud.org/ns\">
				<oc:fileid />
		</d:prop>
		</d:propfind>'";

	$ret = exec($cmd, $aryOutput, $resultCode);
	if ($ret === false || $resultCode != 0){ return false; }

	$ret = str_replace(':','',$ret);
	$xml = simplexml_load_string($ret);
	$fileId = (string)$xml->dresponse->dpropstat->dprop->ocfileid;

	return $nextCloudURL . "index.php/f/" . $fileId;

}

/**

 * ローカルのファイルをNextCloudにアップロードし、内部リンクを取得する。

 *

 * @param string $upFileFullPath アップしたいファイルのフルパス

 * @param string $dstFolder NextClodu上のアップしたいフォルダー（ファイル名は$upFileFullPathのファイル名を使用）

 * @param string $nextCloudURL NextCloudのURL

 * @param string $userName NextCloudのログインユーザー

 * @param string $password NextCloudのログインユーザーのパスワード（アプリパスワード）

 * @return string|bool ファイルアップ後の内部リンクを返す。falseの場合はエラー

 */

function upFileAndGetInternalLink($upFileFullPath, $dstFolder, $nextCloudURL, $userName, $password){

​

    if (!is_file($upFileFullPath)){ return false; }

    $fileName = basename($upFileFullPath);

    if (substr($nextCloudURL, -1) != '/'){ $nextCloudURL .= '/'; }

    if (substr($dstFolder, -1) != '/'){ $dstFolder .= '/'; }

​

    $apiOfTheUpFile = $nextCloudURL . 'remote.php/dav/files/' . $dstFolder . $fileName;

​

    //libxml_use_internal_errors(true);

​

    $cmd = "curl -T '" . $upFileFullPath . "' -u '" . $userName . ":" . $password . "' '" . $apiOfTheUpFile . "'";

    echo $cmd;

    $ret = exec($cmd, $aryOutput, $resultCode);

    if ($ret === false || $resultCode != 0){ return false; }

​

    $cmd = "curl -u '" . $userName . ":" . $password . "' '" . $apiOfTheUpFile . "' -X PROPFIND --data '<?xml version=\"1.0\" encoding=\"UTF-8\"?>

        <d:propfind xmlns:d=\"DAV:\">

        <d:prop xmlns:oc=\"http://owncloud.org/ns\">

                <oc:fileid />

        </d:prop>

        </d:propfind>'";

​

    $ret = exec($cmd, $aryOutput, $resultCode);

    if ($ret === false || $resultCode != 0){ return false; }

​

    $ret = str_replace(':','',$ret);

    $xml = simplexml_load_string($ret);

    $fileId = (string)$xml->dresponse->dpropstat->dprop->ocfileid;

​

    return $nextCloudURL . "index.php/f/" . $fileId;

​

}

$upFileFullPath = '/td/dl/hogehoge.xlsx'; 
$nextCloudURL = 'https://yourNextCloud.com/'; 
$dstFolder = '/yourName/All/'; // NextCloudの"data"フォルダ以下を指定。ユーザ名が最初のフォルダ階層になるはず。
$userName = 'YourName';
$password = 'xH6Jk-Hkdje-OPalkd-J4PCn-mqxMW';

echo upFileAndGetInternalLink($upFileFullPath, $dstFolder, $nextCloudURL, $userName, $password);

xxxxxxxxxx

$upFileFullPath = '/td/dl/hogehoge.xlsx'; 

$nextCloudURL = 'https://yourNextCloud.com/'; 

$dstFolder = '/yourName/All/'; // NextCloudの"data"フォルダ以下を指定。ユーザ名が最初のフォルダ階層になるはず。

$userName = 'YourName';

$password = 'xH6Jk-Hkdje-OPalkd-J4PCn-mqxMW';

​

echo upFileAndGetInternalLink($upFileFullPath, $dstFolder, $nextCloudURL, $userName, $password);

// コメントが元のソース 'UTF-8'の前に、'SJIS-win', 'SJIS', を追加
// public const COMMON_ENCODINGS = [ 'UTF-8', 'GB2312', 'GBK', 'BIG-5', 'SJIS-win', 'EUC-JP', 'Windows-1252', 'ISO-8859-15', 'ISO-8859-1', 'ASCII'];
public const COMMON_ENCODINGS = [ 'SJIS-win', 'SJIS', 'UTF-8', 'GB2312', 'GBK', 'BIG-5', 'SJIS-win', 'EUC-JP', 'Windows-1252', 'ISO-8859-15', 'ISO-8859-1', 'ASCII'];

xxxxxxxxxx

// コメントが元のソース 'UTF-8'の前に、'SJIS-win', 'SJIS', を追加

// public const COMMON_ENCODINGS = [ 'UTF-8', 'GB2312', 'GBK', 'BIG-5', 'SJIS-win', 'EUC-JP', 'Windows-1252', 'ISO-8859-15', 'ISO-8859-1', 'ASCII'];

public const COMMON_ENCODINGS = [ 'SJIS-win', 'SJIS', 'UTF-8', 'GB2312', 'GBK', 'BIG-5', 'SJIS-win', 'EUC-JP', 'Windows-1252', 'ISO-8859-15', 'ISO-8859-1', 'ASCII'];

​

Dim objFSO As Scripting.FileSystemObject

Sub ExportOutlookFolders()
    Dim objFolder As Outlook.Folder
    Dim strFolderPath As String
    strFolderPath = SelectAnExportFolder()
    If strFolderPath = "" Then
        MsgBox "出力するフォルダを選択してください。", vbInformation + vbOKOnly, "フォルダ選択"
    Else
        Set objFSO = New Scripting.FileSystemObject
        Set objFolder = Outlook.Application.ActiveExplorer.CurrentFolder
        ExportAnOutlookFolder objFolder, strFolderPath
    End If
    Set objFolder = Nothing
    Set objFSO = Nothing
End Sub

Sub ExportAnOutlookFolder(ByVal OutlookFolder As Outlook.Folder, strFolderPath As String)
    Dim objSubFld As Outlook.Folder
    Dim objItem As Object
    Dim strPath As String
    Dim strFilePath As String
    Dim strSubject As String
    Dim strFilename As String
    Dim strRecievedTime As String
    Dim nCount As Long
    On Error Resume Next
    strPath = strFolderPath & "\" & ReplaceInvalidCharacters(OutlookFolder.Name)
    If Dir(strPath, 16) = Empty Then MkDir strPath

    nCount = 0

    For Each objItem In OutlookFolder.Items
        strSubject = ReplaceInvalidCharacters(objItem.Subject)
        If strSubject = "" Then
            strSubject = "notitle"
        End If
        strRecievedTime = Format(objItem.ReceivedTime, "yyyymmddhhnnss")
        strFilename = strRecievedTime & "_" & strSubject & ".msg"
        strFilePath = strPath & "\" & strFilename
        If objFSO.FileExists(strFilePath) Then
            nCount = nCount + 1
            strFilename = strRecievedTime & "_" & strSubject & " (" & nCount & ").msg"
            strFilePath = strPath & "\" & strFilename
        End If
        objItem.SaveAs strFilePath, olMSG
        
        DoEvents
    Next

    For Each objSubFld In OutlookFolder.Folders
        ExportAnOutlookFolder objSubFld, strPath
    Next
    Set OutlookFolder = Nothing
    Set objItem = Nothing
End Sub

Function SelectAnExportFolder() As String
    Dim objSelFolder As Object
    Dim objShell As Object
    Set objShell = CreateObject("Shell.Application")
    Set objSelFolder = objShell.BrowseForFolder(0, "Select a folder", 0, 0)
    If Not TypeName(objSelFolder) = "Nothing" Then
        SelectAnExportFolder = objSelFolder.self.Path
    End If
    Set objSelFolder = Nothing
    Set objShell = Nothing
End Function

Function ReplaceInvalidCharacters(Str As String) As String
    Dim objRegEx As Object
    Set objRegEx = CreateObject("vbscript.regexp")
    objRegEx.Global = True
    objRegEx.IgnoreCase = False
    objRegEx.Pattern = "\||\/|\<|\>|""|:|\*|\\|\?"
    ReplaceInvalidCharacters = objRegEx.Replace(Str, "_")
    Set objRegEx = Nothing
End Function

xxxxxxxxxx

Dim objFSO As Scripting.FileSystemObject

​

Sub ExportOutlookFolders()

    Dim objFolder As Outlook.Folder

    Dim strFolderPath As String

    strFolderPath = SelectAnExportFolder()

    If strFolderPath = "" Then

        MsgBox "出力するフォルダを選択してください。", vbInformation + vbOKOnly, "フォルダ選択"

    Else

        Set objFSO = New Scripting.FileSystemObject

        Set objFolder = Outlook.Application.ActiveExplorer.CurrentFolder

        ExportAnOutlookFolder objFolder, strFolderPath

    End If

    Set objFolder = Nothing

    Set objFSO = Nothing

End Sub

​

Sub ExportAnOutlookFolder(ByVal OutlookFolder As Outlook.Folder, strFolderPath As String)

    Dim objSubFld As Outlook.Folder

    Dim objItem As Object

    Dim strPath As String

    Dim strFilePath As String

    Dim strSubject As String

    Dim strFilename As String

    Dim strRecievedTime As String

    Dim nCount As Long

    On Error Resume Next

    strPath = strFolderPath & "\" & ReplaceInvalidCharacters(OutlookFolder.Name)

    If Dir(strPath, 16) = Empty Then MkDir strPath

​

    nCount = 0

​

    For Each objItem In OutlookFolder.Items

        strSubject = ReplaceInvalidCharacters(objItem.Subject)

        If strSubject = "" Then

            strSubject = "notitle"

        End If

        strRecievedTime = Format(objItem.ReceivedTime, "yyyymmddhhnnss")

        strFilename = strRecievedTime & "_" & strSubject & ".msg"

        strFilePath = strPath & "\" & strFilename

        If objFSO.FileExists(strFilePath) Then

            nCount = nCount + 1

            strFilename = strRecievedTime & "_" & strSubject & " (" & nCount & ").msg"

            strFilePath = strPath & "\" & strFilename

        End If

        objItem.SaveAs strFilePath, olMSG

        DoEvents

    Next

​

    For Each objSubFld In OutlookFolder.Folders

        ExportAnOutlookFolder objSubFld, strPath

    Next

    Set OutlookFolder = Nothing

    Set objItem = Nothing

End Sub

​

Function SelectAnExportFolder() As String

    Dim objSelFolder As Object

    Dim objShell As Object

    Set objShell = CreateObject("Shell.Application")

    Set objSelFolder = objShell.BrowseForFolder(0, "Select a folder", 0, 0)

    If Not TypeName(objSelFolder) = "Nothing" Then

        SelectAnExportFolder = objSelFolder.self.Path

    End If

    Set objSelFolder = Nothing

    Set objShell = Nothing

End Function

​

Function ReplaceInvalidCharacters(Str As String) As String

    Dim objRegEx As Object

    Set objRegEx = CreateObject("vbscript.regexp")

    objRegEx.Global = True

    objRegEx.IgnoreCase = False

    objRegEx.Pattern = "\||\/|\<|\>|""|:|\*|\\|\?"

    ReplaceInvalidCharacters = objRegEx.Replace(Str, "_")

    Set objRegEx = Nothing

End Function

​

​

.my-style-stripes table{
	border:none;
}
.my-style-stripes table tr{
	border:none;
}
.my-style-stripes table tbody tr:nth-child(odd) {
	background: #dcd7ca;
}
.my-style-stripes table thead th {
	border-top:none;
	border-right: none;
	border-left: 1px solid #6d6d6d;
	border-bottom: 2px solid #6d6d6d;
}
.my-style-stripes table tbody td{
	border-top:none;
	border-right: none;
	border-left: 1px solid  #6d6d6d;
	border-bottom: 1px solid  #6d6d6d;
}
.my-style-stripes table thead th:first-child, .my-style-stripes tbody td:first-child{
	border-left: none;
}
.my-style-stripes tbody tr:last-child td {
	border-bottom: none;
}

xxxxxxxxxx

.my-style-stripes table{

    border:none;

}

.my-style-stripes table tr{

    border:none;

}

.my-style-stripes table tbody tr:nth-child(odd) {

    background: #dcd7ca;

}

.my-style-stripes table thead th {

    border-top:none;

    border-right: none;

    border-left: 1px solid #6d6d6d;

    border-bottom: 2px solid #6d6d6d;

}

.my-style-stripes table tbody td{

    border-top:none;

    border-right: none;

    border-left: 1px solid  #6d6d6d;

    border-bottom: 1px solid  #6d6d6d;

}

.my-style-stripes table thead th:first-child, .my-style-stripes tbody td:first-child{

    border-left: none;

}

.my-style-stripes tbody tr:last-child td {

    border-bottom: none;

}

cd (Roundcubeをインストールしたフォルダ)/plugins
git clone https://github.com/y-toy/virtuserpass virtuserpass

vim ../config/config.inc.php
---
# "virtuserpass" を $config['plugins'] に追加
$config['plugins'] =  array('virtuserpass');
# もしくはファイルの一番下に以下を追加
# $config['plugins'][] =  'virtuserpass';

xxxxxxxxxx

cd (Roundcubeをインストールしたフォルダ)/plugins

git clone https://github.com/y-toy/virtuserpass virtuserpass

​

vim ../config/config.inc.php

---

# "virtuserpass" を $config['plugins'] に追加

$config['plugins'] =  array('virtuserpass');

# もしくはファイルの一番下に以下を追加

# $config['plugins'][] =  'virtuserpass';

// 主な設定
$config['virtuserpass'] = array(
	'taro'=>array('967Joe123','taro@biggy.co.jp','emailPass1234'),
	'ziro'=>array('pass1234','ziro@biggy.co.jp','emailPass5678'),
	'saburo'=>array('1234test','saburo@biggy.co.jp','emailPass7777'),
);

// オプション
$config['virtuserpass_scramble']=false;
$config['virtuserpass_email_scramble']=false;
$config['virtuserpass_allow_email_login']=true;

xxxxxxxxxx

// 主な設定

$config['virtuserpass'] = array(

    'taro'=>array('967Joe123','taro@biggy.co.jp','emailPass1234'),

    'ziro'=>array('pass1234','ziro@biggy.co.jp','emailPass5678'),

    'saburo'=>array('1234test','saburo@biggy.co.jp','emailPass7777'),

);

​

// オプション

$config['virtuserpass_scramble']=false;

$config['virtuserpass_email_scramble']=false;

$config['virtuserpass_allow_email_login']=true;

$config['virtuserpass'] = array(
	'ユーザ名' => array('パスワード', 'メールアドレス', 'メールのパスワード'),
	// いくつでも設定できます。
);

xxxxxxxxxx

$config['virtuserpass'] = array(

    'ユーザ名' => array('パスワード', 'メールアドレス', 'メールのパスワード'),

    // いくつでも設定できます。

);

php ./makeConfigFileFromCSV.php csv-file-path [1|0] [1|0] [1|0]

xxxxxxxxxx

php ./makeConfigFileFromCSV.php csv-file-path [1|0] [1|0] [1|0]

cd (Roundcubeをインストールしたフォルダ)/plugins/virtuserpass
php ./makeConfigFileFromCSV.php 作ったCSVファイルのパス 1 1 1

xxxxxxxxxx

cd (Roundcubeをインストールしたフォルダ)/plugins/virtuserpass

php ./makeConfigFileFromCSV.php 作ったCSVファイルのパス 1 1 1

C:\> sshfc sys
1) system
2) test_system
3) dev_system
SSHするホストの番号を入力してください。[c]を押すとキャンセルされます。: 3
ssh dev_system
hogehoge@192.168.1.100's password:
....

xxxxxxxxxx

C:\> sshfc sys

1) system

2) test_system

3) dev_system

SSHするホストの番号を入力してください。[c]を押すとキャンセルされます。: 3

ssh dev_system

hogehoge@192.168.1.100's password:

....

git clone https://github.com/y-toy/linux_sshfc.git
chmod +x ./linux_sshfc/sshfc
# 以下環境に合わせて実行ください。
mv ./linux_sshfc/sshfc /usr/local/bin/

xxxxxxxxxx

git clone https://github.com/y-toy/linux_sshfc.git

chmod +x ./linux_sshfc/sshfc

# 以下環境に合わせて実行ください。

mv ./linux_sshfc/sshfc /usr/local/bin/

New-Item ($HOME + "\bin") -ItemType Directory
[System.Environment]::SetEnvironmentVariable("Path", $env:Path + ";%USERPROFILE%\bin", "User")

git clone https://github.com/y-toy/windows_sshfc.git
cd windows_sshfc
Move-Item ./sshfc.ps1 ($HOME + "\bin")

xxxxxxxxxx

New-Item ($HOME + "\bin") -ItemType Directory

[System.Environment]::SetEnvironmentVariable("Path", $env:Path + ";%USERPROFILE%\bin", "User")

​

git clone https://github.com/y-toy/windows_sshfc.git

cd windows_sshfc

Move-Item ./sshfc.ps1 ($HOME + "\bin")

Set-ExecutionPolicy Unrestricted -scope CurrentUser

xxxxxxxxxx

Set-ExecutionPolicy Unrestricted -scope CurrentUser

include_once("Mail.php");
include_once("Mail/mime.php");

mb_language("uni");
mb_internal_encoding("UTF-8");

// 宛先とヘッダーとボディを作る。省略。以下mimeの例
$mime = new Mail_mime();
$mime->setHTMLBody('something<br />anything');
$body = $mime->get(array(
  'text_encoding' => '7bit',
  'text_charset' => 'UTF-8',
  'html_charset' => 'UTF-8',
  'head_charset' => 'UTF-8'));
$headers = $mime->headers(array(/*省略*/));
$recipients = array(/*省略*/);

// メール送信
$mailObject = Mail::factory("smtp", Array(/*省略*/)); 
$send = $mailObject->send($recipients, $headers, $body);
if (PEAR::isError($send)){ return 'Mail send error! ' . $send->getMessage(); }

////////////////////////////////////////////////////////////////
// IMAPフォルダに設定。

// 送信済みフォルダに設置するデータ作成
$message = '';
foreach($headers as $key => $value){
  $message .= $key . ': ' . $value . "\r\n";
}
$message .= "\r\n" . $body;
// 設置フォルダー
$folderName = '送信済み'; // 自分のIMAPの送信済みフォルダ
$encodeFolder = mb_convert_encoding($folderName, 'UTF7-IMAP', 'UTF-8'); // エンコード
// imap_openの説明を読んで。SSLならポート以降を:993/imap/ssl
$path = "{imap.hogehoge.com:143/imap/notls}INBOX." . $encodeFolder;
$imapStream = imap_open($path,'username@hogehoge.com','password');
if ($imapStream === FALSE){ die(); }
$result = imap_append($imapStream, $path, $message, "\\Seen");
if ($result === FALSE){ die(); }
imap_close($imapStream);

/* end */

xxxxxxxxxx

include_once("Mail.php");

include_once("Mail/mime.php");

​

mb_language("uni");

mb_internal_encoding("UTF-8");

​

// 宛先とヘッダーとボディを作る。省略。以下mimeの例

$mime = new Mail_mime();

$mime->setHTMLBody('something<br />anything');

$body = $mime->get(array(

  'text_encoding' => '7bit',

  'text_charset' => 'UTF-8',

  'html_charset' => 'UTF-8',

  'head_charset' => 'UTF-8'));

$headers = $mime->headers(array(/*省略*/));

$recipients = array(/*省略*/);

​

// メール送信

$mailObject = Mail::factory("smtp", Array(/*省略*/)); 

$send = $mailObject->send($recipients, $headers, $body);

if (PEAR::isError($send)){ return 'Mail send error! ' . $send->getMessage(); }

​

////////////////////////////////////////////////////////////////

// IMAPフォルダに設定。

​

// 送信済みフォルダに設置するデータ作成

$message = '';

foreach($headers as $key => $value){

  $message .= $key . ': ' . $value . "\r\n";

}

$message .= "\r\n" . $body;

// 設置フォルダー

$folderName = '送信済み'; // 自分のIMAPの送信済みフォルダ

$encodeFolder = mb_convert_encoding($folderName, 'UTF7-IMAP', 'UTF-8'); // エンコード

// imap_openの説明を読んで。SSLならポート以降を:993/imap/ssl

$path = "{imap.hogehoge.com:143/imap/notls}INBOX." . $encodeFolder;

$imapStream = imap_open($path,'username@hogehoge.com','password');

if ($imapStream === FALSE){ die(); }

$result = imap_append($imapStream, $path, $message, "\\Seen");

if ($result === FALSE){ die(); }

imap_close($imapStream);

​

/* end */