Return to wpqsmtp.pm CVS log

Up to [local] / wpscripts / wpquotas

Annotation of wpscripts/wpquotas/wpqsmtp.pm, Revision 1.1

1.1     ! yason       1: package wpqsmtp;
        !             2:
        !             3: use wpqio;
        !             4: use Net::SMTP;
        !             5:
        !             6: our $SERVER    = "192.168.21.221";
        !             7: our $HELLO     = "192.168.21.221";
        !             8: #our $SENDER   = 'it_support@reklamy.ru';
        !             9: our $SENDER    = 'wplimits@mail.reklamy.ru';
        !            10: our $FROM      = "it_support";
        !            11: our $SUBJECT   = "бЮЬ ЙЮРЮКНЦ МЮ wideprint/managers ОЕПЕОНКМЕМ!";
        !            12:
        !            13:
        !            14: sub email($$)
        !            15: {
        !            16:     my $user = shift;
        !            17:     my $amount = shift;
        !            18:     my $sv = new Net::SMTP( "$SERVER", Hello => "$HELLO", Debug => 1) or warn("Can't create SMTP object");
        !            19:     my $message = generate_msg($user, $amount);
        !            20:
        !            21:     $sv->mail("$SENDER");
        !            22:     $sv->to($user . '@reklamy.ru');
        !            23:
        !            24:     $sv->data();
        !            25:     $sv->datasend("From: $FROM\n");
        !            26: #    $sv->datasend("To: $user\n");
        !            27:     $sv->datasend("Subject: $SUBJECT\n\n");
        !            28:     $sv->datasend("Feedback message from " . $ENV{'REMOTE_ADDR'} . ":\n\n $text\n");
        !            29:     $sv->dataend();
        !            30:
        !            31:     print "From: $FROM\n";
        !            32:     print "To: $user\n";
        !            33:     print "Subject: $SUBJECT\n\n";
        !            34:     print "$message\n";
        !            35:
        !            36:     $sv->quit();
        !            37:
        !            38: }
        !            39:
        !            40:
        !            41: sub email_cio($)
        !            42: {
        !            43:     my $blacklisted_ref = shift;
        !            44:     my @blacklisted = @$blacklisted_ref;
        !            45:     my $line;
        !            46:     my $user;
        !            47:     my $amount;
        !            48:
        !            49:     my $sv = new Net::SMTP( "$SERVER", Hello => "$HELLO", Debug => 1) or warn("Can't create SMTP object");
        !            50:
        !            51:     $sv->mail("$SENDER");
        !            52:     $sv->to('cio@reklamy.ru');
        !            53:     $sv->cc('root@reklamy.ru');
        !            54:     $sv->cc('yason@reklamy.ru');
        !            55:
        !            56:     $sv->data();
        !            57:     $sv->datasend("From: $FROM\n");
        !            58:     $sv->datasend("To: cio\n");
        !            59:     $sv->datasend("Subject: мЮПСЬХРЕКХ КХЛХРЮ ЛЕЯРЮ fileserver/managers\n\n");
        !            60:
        !            61:     $sv->datasend("Свои квоты переполнили (текущая квота 15360 МБайт):\n");
        !            62:
        !            63:     foreach $line (@blacklisted)
        !            64:     {
        !            65:        ($user, $amount) = split(/ /, $line);
        !            66:
        !            67:        $sv->datasend("$user - каталог $amount Мбайт\n");
        !            68:     }
        !            69:     $sv->datasend("\n");
        !            70:     $sv->datasend(`df -h`);
        !            71:
        !            72:     $sv->dataend();
        !            73:
        !            74:     $sv->quit();
        !            75:
        !            76:
        !            77: }
        !            78:
        !            79: sub generate_msg($$)
        !            80: {
        !            81:     my $user = shift;
        !            82:     my $amount = shift;
        !            83:     my $needfree = $amount - 15360;
        !            84:
        !            85:     return "- ЭТО АВТОМАТИЧЕСКИ СГЕНЕРИРОВАННОЕ СООБЩЕНИЕ -\n\n
        !            86:     Уважаемый пользователь '$user'!
        !            87:     Ваш каталог fileserver/managers/$user исчерпал лимит дискового пространства.
        !            88:     Пожалуйста, удалите или заархивируйте старые/ненужные файлы.
        !            89:     Если место не будет освобождено, в ближайшее время автоматическая система блокировки заблокирует право на запись в каталог.
        !            90:
        !            91:     Текущий лимит на каталог: 15 ГБайт
        !            92:     Освободите по крайней мере $needfree МБайт.";
        !            93:
        !            94: }
        !            95:
        !            96:
        !            97: return 1;
        !            98:
        !            99: # бЮЬ ЙЮРЮКНЦ МЮ wideprint/managers ОЕПЕОНКМЕМ!
        !           100: # мЮПСЬХРЕКХ КХЛХРЮ ЛЕЯРЮ fileserver/managers