- lms - lists.lms.org.pl

Re: [lms] lms-sendinvoices - wysyłanie przez zewnętrzny serwer SMTP
by Dawid Widyna 10 Gru '07

10 Gru '07

Dawid Widyna napisał(a): > Kiedy przepiszę "na świeżo" skrypt wyślę na grupę - może przyda się > komuś z podobnymi problemami. Witam, w załączniku znajduje się skrypcik. Wszelkie uwagi mile widziane. Zwróćcie uwagę na początek skryptu - w lms.ini należy zdefiniować kilka dodatkowych parametrów... Wersja lms: 1.8.13 (jak wreszcie mi się uda zrobić upgrejd do 1.10, na pewno przetestuję). pozdrawiam, widynek #!/usr/bin/perl # # LMS version 1.8.13 Tessa # # Copyright (C) 2001-2006 LMS Developers # # Please, see the doc/AUTHORS for more information about authors! # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License Version 2 as # published by the Free Software Foundation. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, # USA. # # $Id: lms-sendinvoices,v 1.28.2.2 2006/01/16 09:35:17 alec Exp $ use strict; use DBI; use Config::IniFiles; use Getopt::Long; use vars qw($configfile $help $version $quiet $fakedate); use POSIX qw(strftime); use LWP::UserAgent; use Time::Local; use MIME::QuotedPrint; use Text::Iconv; use Mail::SendEasy; my $_version = '1.8.13 Tessa'; my %options = ( "--config-file|C=s" => \$configfile, "--quiet|q" => \$quiet, "--help|h" => \$help, "--version|v" => \$version, "--fakedate|f=s" => \$fakedate, ); Getopt::Long::config("no_ignore_case"); GetOptions(%options); if($help) { print STDERR <<EOF; lms-sendinvoices, version $_version (C) 2001-2006 LMS Developers -C, --config-file=/etc/lms/lms.ini alternate config file (default: /etc/lms/lms.ini); -q, --quiet suppress any output, except errors; -h, --help print this help and exit; -v, --version print version info and exit; -f, --fakedate=YYYY/MM/DD override system date; EOF exit 0; } if($version) { print STDERR <<EOF; lms-sendinvoices, version $_version (C) 2001-2006 LMS Developers EOF exit 0; } if(!$configfile) { $configfile = "/etc/lms/lms.ini"; } if(! -r $configfile) { print STDERR "Fatal error: Unable to read configuration file $configfile, exiting.\n"; exit 1; } if(!$quiet) { print STDOUT "lms-sendinvoices, version $_version\n"; print STDOUT "(C) 2001-2006 LMS Developers\n"; print STDOUT "Using file $configfile as config.\n"; } my $ini = new Config::IniFiles -file => $configfile; print @Config::IniFiles::errors; my $dbtype = $ini->val('database', 'type') || 'mysql'; my $dbhost = $ini->val('database', 'host') || 'localhost'; my $dbuser = $ini->val('database', 'user') || 'root'; my $dbpasswd = $ini->val('database', 'password') || ''; my $dbname = $ini->val('database', 'database') || 'lms'; my $dbencoding = $ini->val('database', 'server_encoding') || 'UTF-8'; my $filetype = $ini->val('invoices', 'type') || ''; my $lms_url = $ini->val('sendinvoices', 'lms_url') || 'http://localhost/lms/'; my $lms_user = $ini->val('sendinvoices', 'lms_user') || ''; my $lms_password = $ini->val('sendinvoices', 'lms_password') || ''; my $debug_email = $ini->val('sendinvoices', 'debug_email') || ''; my $sender_name = $ini->val('sendinvoices', 'sender_name') || ''; my $sender_email = $ini->val('sendinvoices', 'sender_email') || ''; my $mail_subject = $ini->val('sendinvoices', 'mail_subject') || 'Invoice No. %invoice'; my $smtp_user = $ini->val('sendinvoices', 'smtp_user') || ''; my $smtp_pass = $ini->val('sendinvoices', 'smtp_pass') || ''; my $smtp_host = $ini->val('sendinvoices', 'smtp_host') || ''; #my $mail_body = $ini->val('sendinvoices', 'mail_body') || 'Attached file with Invoice No. %invoice'; my $dst_file = '/tmp/tmp/faktura.pdf'; if(!$sender_name) { print STDERR "Fatal error: sender_name unset! Can't continue, exiting.\n"; exit 1; } if(!$sender_email) { print STDERR "Fatal error: sender_email unset! Can't continue, exiting.\n"; exit 1; } if(!$smtp_host || !$smtp_user || !$smtp_pass) { print STDERR "Fatal error: I need params for SMTP connection! Can't continue, exiting.\n"; exit 1; } my $dbase; my $utsfmt; if($dbtype eq "mysql") { $dbase = DBI->connect("DBI:mysql:database=$dbname;host=$dbhost","$dbuser","$dbpasswd", { RaiseError => 1 }); $utsfmt = "UNIX_TIMESTAMP()"; } elsif($dbtype eq "postgres") { $dbase = DBI->connect("DBI:Pg:dbname=$dbname;host=$dbhost","$dbuser","$dbpasswd", { RaiseError => 1 }); $utsfmt = "EXTRACT(EPOCH FROM CURRENT_TIMESTAMP(0))"; } else { print STDERR "Fatal error: unsupported database type: $dbtype, exiting.\n"; exit 1; } #przestawiamy format faktur w bazie na PDF - w biurze uzywamy HTML'a my $dbq = $dbase->prepare("UPDATE uiconfig SET value='standard' WHERE section='invoices' AND var='template_file'"); $dbq->execute(); $dbq = $dbase->prepare("UPDATE uiconfig SET value='pdf' WHERE section='invoices' AND var='type'"); $dbq->execute(); $dbq = $dbase->prepare("SELECT value FROM uiconfig WHERE section='invoices' AND var='type' AND disabled=0"); $dbq->execute(); if(my $row = $dbq->fetchrow_hashref()) { $filetype = $row->{'value'}; } my $fencoding = 'quoted-printable'; my $ftype = 'text/html'; my $fext = 'html'; if($filetype eq 'pdf') { my $ftype = 'application/octetstream'; my $fencoding = ''; my $fext = 'pdf'; } sub localtime2() { if($fakedate) { my @fakedate = split(/\//, $fakedate); return localtime(timelocal(0,0,0,$fakedate[2],$fakedate[1]-1,$fakedate[0])); } else { return localtime(); } } my $converter = Text::Iconv->new($dbencoding, "UTF-8"); $sender_name = '=?UTF-8?Q?'.encode_qp($sender_name, '').'?='; my $month = sprintf("%d",strftime("%m",localtime2())); my $day = strftime("%e",localtime2()); my $year = strftime("%Y",localtime2()); my $daystart = strftime("%s", 0, 0, 0, $day, $month - 1, $year - 1900); my $dayend = strftime("%s", 59, 59, 23, $day, $month - 1, $year - 1900); $dbq = $dbase->prepare('SELECT documents.id AS id, number, cdate, email, documents.name AS name, customerid, template FROM documents LEFT JOIN customers ON customers.id = customerid LEFT JOIN numberplans ON numberplanid = numberplans.id WHERE deleted = 0 AND type = 1 AND email != \'\' AND cdate >= '.$daystart.' AND cdate <= '.$dayend); $dbq->execute(); while(my $row = $dbq->fetchrow_hashref()) { my $ua = LWP::UserAgent->new; $ua->timeout(240); my $response = $ua->get($lms_url.'/?m=invoice&fetchsingle=1&override=1&id='.$row->{'id'}.'&loginform[login]='.$lms_user.'&loginform[pwd]='.$lms_password); my $custemail = $debug_email || $row->{'email'}; my $invoice_number = $row->{'template'} || '%N/LMS/%Y'; $invoice_number =~ s/%(\d*)N/sprintf"%0${1}d",$row->{'number'}/e; $invoice_number = strftime($invoice_number, localtime($row->{'cdate'})); my $subject = $mail_subject; $subject =~ s/%invoice/$invoice_number/g; my $msgid = $row->{'id'}; #zapisujemy fakturkê do pliku open(DSTFILE, ">$dst_file") or die("nie udalo sie otworzyc pliku $dst_file do zapisu"); print DSTFILE $response->content; close (DSTFILE); chown 0,0, $dst_file; chmod 0700, $dst_file; my $status = Mail::SendEasy::send( smtp => $smtp_host , user => $smtp_user , pass => $smtp_pass , from => $sender_email , from_title => $sender_name , reply => $sender_email , error => $sender_email , to => $custemail , subject => '=?UTF-8?Q?'.encode_qp($subject, '').'?=', anex => $dst_file , msg => "Dzieñ dobry,\n\nw za³±czniku do tej wiadomo¶ci znajduje siê elektroniczny obraz faktury VAT.\n\nDo obejrzenia faktury konieczny jest czytnik PDF - np. program Foxit Reader lub Adobe Acrobat Reader.\n\nZ góry dziêkujemy za terminowe uregulowanie p³atno¶ci.\n\n--\npozdrawiamy,\nMy-wielcy ISP ;)" , # html => "<b>Tutaj mo¿na wkleiæ co¶ w HTML'u</b>" , msgid => $msgid , ) ; if ($status) { print STDOUT "Wyslano mail do $custemail\n"; } if (!$status) { Mail::SendEasy::error ;} } ##ustawiamy format faktur z powrotem na HTML $dbq = $dbase->prepare("UPDATE uiconfig SET value='html' WHERE section='invoices' AND var='type'"); $dbq->execute(); $dbq = $dbase->prepare("UPDATE uiconfig SET value='invoice.html' WHERE section='invoices' AND var='template_file'"); $dbq->execute(); $dbq->finish(); $dbase->disconnect(); _______________________________________________ lms mailing list lms(a)lists.lms.org.pl http://lists.lms.org.pl/mailman/listinfo/lms

1 0

kopia kp
by exe_2 10 Gru '07

10 Gru '07

Witam , czy usunięte dokumenty kp są gdzieś przechowywane ? czy można do nich jakoś dotrzeć ? Piotr _______________________________________________ lms mailing list lms(a)lists.lms.org.pl http://lists.lms.org.pl/mailman/listinfo/lms

1 0

Re: [lms] ewx-stm problem
by Dariusz Kowalczyk 10 Gru '07

10 Gru '07

On Mon, 10 Dec 2007 20:20:10 +0100, -=ReYu=- wrote > A.L.E.C pisze: > > -=ReYu=- wrote: > >> google nie zna odpowiedzi na te błędy :( > >> może ktoś ma pomysł na to ? > >> > >> > > Tak jak ci powiedziano, weź ewx-stm z cvsu, bo wcześniejsze wersje mogą > > źle działać. Po drugie usuń wpisy z urządzenia i z tabel ewx_* w bazie > > LMSa. To jest ważne, nie możesz dodawać klientów ręcznie na urządzeniu, > > wszystkim musi zarządzać LMS, bo synchronizacja jest robiona > > "jednokierunkowo". Po trzecie MIBy etherwerxa nie są potrzebne modułowi > > do działania, więc błędy które zacytowałeś, chyba nie są istotne. > > > Zrobiłem tak i niestety nie działa :( > dodają się tylko kanały a node zawsze wyskakuje commitFailed > > _______________________________________________ > lms mailing list > lms(a)lists.lms.org.pl > http://lists.lms.org.pl/mailman/listinfo/lms na 100% nie masz najnowszej wersji z cvs, bo własnie takie błedy sie sypia jak masz stary kod, zatrzymaj działajacy w tle moduł lmsd (czesto ludzie popełniaja własnie ten bład :-)) skasuj katalog ze zrodłami demona sciagnij z cvs-u nowy na to miejsce skompiluj demona najlepiej z opcjami debug zadziała bez problemow, korzystam z wszystkich możliwosci jakie daje moduł ewx-stm np dummy_mac_network, dummy_ip_networks, sprawdzanie Mac-a, ważne abys sensownie zdefiniował taryfy (wartosc minimalna/gwarantowa predkosci zsumowanych komputerow nie moze przekraczac wielkosci path podobnie poszczególne wartosć maksymalnej predkosci z taryf) najlepiej zrob sobie testowa siec do której dodaj pare koputerow, zdefiniuj tez pare klientow przypisujac im po komputerze z tej sieci a komputery oczywiscie dopisz do taryfy i tylko ta siec wpisz w parametr networks instancji ewx-stm w ten sposob sprawdzisz czy masz poprawnie skonfiugurowane moduł (ja mam ewx-stm przypisany do osobnego hosta o adresie ip etherwerxa w ten sposób moge przeładowywac tylko tego hosta a wiec tylko moduł ewx-stm), oczywiscie zadbaj przed tym o całkowiste wyzerowanie (usuniecie kanałow! i komputerow!) z stm-a oraz tabel ewx_stm_nodes i ewx_stm_channels Dariusz Kowalczyk _______________________________________________ lms mailing list lms(a)lists.lms.org.pl http://lists.lms.org.pl/mailman/listinfo/lms

1 0

Re: [lms] ewx-stm problem
by -=ReYu=- 10 Gru '07

10 Gru '07

A.L.E.C pisze: > -=ReYu=- wrote: >> google nie zna odpowiedzi na te błędy :( >> może ktoś ma pomysł na to ? >> >> > Tak jak ci powiedziano, weź ewx-stm z cvsu, bo wcześniejsze wersje mogą > źle działać. Po drugie usuń wpisy z urządzenia i z tabel ewx_* w bazie > LMSa. To jest ważne, nie możesz dodawać klientów ręcznie na urządzeniu, > wszystkim musi zarządzać LMS, bo synchronizacja jest robiona > "jednokierunkowo". Po trzecie MIBy etherwerxa nie są potrzebne modułowi > do działania, więc błędy które zacytowałeś, chyba nie są istotne. > Zrobiłem tak i niestety nie działa :( dodają się tylko kanały a node zawsze wyskakuje commitFailed _______________________________________________ lms mailing list lms(a)lists.lms.org.pl http://lists.lms.org.pl/mailman/listinfo/lms

1 0

Re: [lms] kolejna proba upgradeu z wersji 1,8 do 1,10
by jacekowski 10 Gru '07

10 Gru '07

uaktualnic mysql do mysql5 potem mysql_update_db albo podobnie (musi sie stworzyc tabela mysql.proc), a potem.. zreszta to juz bylo na grupie i chyba nawet ja sie produkowalem na temat rozwiazania tego problemu _______________________________________________ lms mailing list lms(a)lists.lms.org.pl http://lists.lms.org.pl/mailman/listinfo/lms

1 0

Re: [lms] lms-sendinvoices - wysyłanie przez zewnętrzny serwer SMTP
by Dawid Widyna 10 Gru '07

10 Gru '07

witam ponownie, chyba oleję problem z uwierzytelnianiem przez Net::SMTP i zamiast tego będę tworzył każdorazowo fakturę pdf i wysyłał ją jako załącznik przez SendEasy. fakturę zapisuję do pliku w ten sposób: print DSTFILE $response->content; Zdaję sobie sprawę, że sposób lekko trąci, ale na chwilę obecną nic innego nie przychodzi mi do łba, a potrzebuję działające rozwiązanie. Kiedy przepiszę "na świeżo" skrypt wyślę na grupę - może przyda się komuś z podobnymi problemami. pozdrawiam, widynek _______________________________________________ lms mailing list lms(a)lists.lms.org.pl http://lists.lms.org.pl/mailman/listinfo/lms

1 0

Re: [lms] ewx-stm problem
by A.L.E.C 10 Gru '07

10 Gru '07

-=ReYu=- wrote: > google nie zna odpowiedzi na te błędy :( > może ktoś ma pomysł na to ? > > Tak jak ci powiedziano, weź ewx-stm z cvsu, bo wcześniejsze wersje mogą źle działać. Po drugie usuń wpisy z urządzenia i z tabel ewx_* w bazie LMSa. To jest ważne, nie możesz dodawać klientów ręcznie na urządzeniu, wszystkim musi zarządzać LMS, bo synchronizacja jest robiona "jednokierunkowo". Po trzecie MIBy etherwerxa nie są potrzebne modułowi do działania, więc błędy które zacytowałeś, chyba nie są istotne. -- Aleksander 'A.L.E.C' Machniak http://alec.pl gg:2275252 LAN Management System Developer http://lms.org.pl _______________________________________________ lms mailing list lms(a)lists.lms.org.pl http://lists.lms.org.pl/mailman/listinfo/lms

1 0

Re: [lms] lms-sendinvoices - wysyłanie przez zewnętrzny serwer SMTP
by Dawid Widyna 10 Gru '07

10 Gru '07

Dawid Widyna napisał(a): > Waldemar Dymkiewicz napisał(a): >>> Próbowałem różnych form - ta forma jest polecana. >>> >>> Generalnie analizuję źródła SendEasy.pm (tamten skrypt autoryzuje się >>> popawnie) i jestem już prawie pewien, że problem leży nie w czym innym, >>> a w uwierzytelnianiu się na serwerze SMTP... Kiedy próbowałem odpalić >>> skrypt na poczta.o2.pl, wywaliło komunikat o konieczności autoryzacji.. >>> >> yyy uzywasz tego SendEasy.pm teraz? > > Nie, używam Net::SMTP.... > > Wcześniej robiłem podchody z SendEasy.pm - uwierzytelnia się i wysyła, > ale nie ma tam opcji załączenia treści wiadomości wziętej ze zmiennej > $mail (lms-sendinvoices). Konieczne byłoby przerobienie kodu źródłowego, > a ja perla znam ... raczej słabo :) > > Czy ktoś z was używa może Net::SMTP i udało mu się uwierzytelnić ? > > pozdrawiam, > widynek > Możliwe, że potrzebuję tego: http://search.cpan.org/~awestholm/Net-SMTP-TLS-0.12/lib/Net/SMTP/TLS.pm , tyle, że jak zwykle mój magiczny -MCPAN install mówi, że czegoś mu brakuje, znajduje to, a na końcu mówi, że jednak lipa :D Boję się myśleć, jaki jest u mnie bajzel w modułach po tych wszystkich zabiegach... _______________________________________________ lms mailing list lms(a)lists.lms.org.pl http://lists.lms.org.pl/mailman/listinfo/lms

1 0

Re: [lms] lms-sendinvoices - wysyłanie przez zewnętrzny serwer SMTP
by Dawid Widyna 09 Gru '07

09 Gru '07

Waldemar Dymkiewicz napisał(a): >> Próbowałem różnych form - ta forma jest polecana. >> >> Generalnie analizuję źródła SendEasy.pm (tamten skrypt autoryzuje się >> popawnie) i jestem już prawie pewien, że problem leży nie w czym innym, >> a w uwierzytelnianiu się na serwerze SMTP... Kiedy próbowałem odpalić >> skrypt na poczta.o2.pl, wywaliło komunikat o konieczności autoryzacji.. >> > > yyy uzywasz tego SendEasy.pm teraz? Nie, używam Net::SMTP.... Wcześniej robiłem podchody z SendEasy.pm - uwierzytelnia się i wysyła, ale nie ma tam opcji załączenia treści wiadomości wziętej ze zmiennej $mail (lms-sendinvoices). Konieczne byłoby przerobienie kodu źródłowego, a ja perla znam ... raczej słabo :) Czy ktoś z was używa może Net::SMTP i udało mu się uwierzytelnić ? pozdrawiam, widynek _______________________________________________ lms mailing list lms(a)lists.lms.org.pl http://lists.lms.org.pl/mailman/listinfo/lms

1 0

Re: [lms] lms-sendinvoices - wysyłanie przez zewnętrzny serwer SMTP
by Waldemar Dymkiewicz 09 Gru '07

09 Gru '07

> Próbowałem różnych form - ta forma jest polecana. > > Generalnie analizuję źródła SendEasy.pm (tamten skrypt autoryzuje się > popawnie) i jestem już prawie pewien, że problem leży nie w czym innym, > a w uwierzytelnianiu się na serwerze SMTP... Kiedy próbowałem odpalić > skrypt na poczta.o2.pl, wywaliło komunikat o konieczności autoryzacji.. > yyy uzywasz tego SendEasy.pm teraz? _______________________________________________ lms mailing list lms(a)lists.lms.org.pl http://lists.lms.org.pl/mailman/listinfo/lms

1 0