[ CnUnix ] in KIDS
글 쓴 이(By): cookie ()
날 짜 (Date): 2002년 9월 27일 금요일 오전 01시 10분 39초
제 목(Title): perl script 하나만 부탁


이거 shell로 된 프로그램인데 perl로 다시 번역 해주실분 부탁 합니다.

즉 각 사용자의 홈 디렉터리를 scan 해서 .gotmail이란 파일 있으면 

읽어서 다른 건 다 무시하고 username과 password를 추출해서 

외부 프로 그램 (이것도 펄 스크립트) 를 실행하는 겁니다.

#!/bin/sh
SHELL=/bin/sh
GOTMAIL="/usr/local/bin/gotmail --silent --only-new --mark-read"
# 
LIST=`cut -d: -f1,6 /etc/passwd | grep :/home/`
for usr in $LIST
do
        set `echo $usr | sed 's/:/ /'`
        if [ -f $2/.gotmail ] ; then
                args=" -f $1 `sed -n \
                -e 's/^username *= *\([A-Za-z0-9]*\)/-u \1/ip' \
                -e 's/^password *= *\([^        ]*\)/-p \1/ip' $2/.gotmail`"
                $GOTMAIL  $args
        fi
done


[ CnUnix ] in KIDS
글 쓴 이(By): terzeron (microkid)
날 짜 (Date): 2002년 9월 27일 금요일 오전 10시 26분 08초
제 목(Title): Re: perl script 하나만 부탁


.gotmail이 다음과 같은 형식으로 되어 있습니까?
username = terzeron
password = 12
그리고 /usr/local/bin/gotmail --silent --only-new --mark-read -u terzeron -p 12
이런 식으로 실행되어야 하는 거죠?


#!/usr/bin/perl

$EXE = "/usr/local/bin/gotmail --silent --only-new --mark-read";

open(PASS, "/etc/passwd") or die "can't open passwd file";

# 패스워드 파일을 순차적으로 읽어서
while ($line = <PASS>) { 
    # :을 delimiter로 하여 필드를 잘라내어 아이디와 홈디렉토리 저장
    @field_list = split ":", $line;
    $username = $field_list[0];
    $home = $field_list[5];

    if ($home =~ /^\/home/ && -r "$home/.gotmail") {
        # 홈디렉토리가 /home으로 시작하고 .gotmail을 읽을 수 있으면 열어서
        open(GOTMAIL, "$home/.gotmail") or die "can't open .gotmail file";

        while (<GOTMAIL>) {
            # 해당 패턴을 검사
            $arg1 = "-u $1" if /^username\s*=\s*([A-Za-z0-9]+)/;
            $arg2 = "-p $1" if /^password\s*=\s*(\S+)/;
        }
        # 실행
        exec("$EXE $arg1 $arg2") if ($arg1 && $arg2);
    }
}


[ CnUnix ] in KIDS
글 쓴 이(By): cookie ()
날 짜 (Date): 2002년 9월 28일 토요일 오전 01시 55분 24초
제 목(Title): Re: perl script 하나만 부탁

오 감사합니다.. 해보니 아주 잘되네요..

이걸루 이제 우리회사 사람들이 hotmail 에 로긴 안하고도  hotmail에 도착한 편지를 

Unix mail 계정으루 퍼서 POP3/OE-Express 로 볼수 있군요..

위의 스크립트를 /etc/cron.hourly 디렉터리에 갖다 놓으면 됩니다.

다만  -f <forward-mail-addr> 이 빠졌네요. 

exec("$EXE $arg1 $arg2") if ($arg1 && $arg2);

==> exec("$EXE -f $username $arg1 $arg2") if ($arg1 && $arg2);