- lms - lists.lms.org.pl

Faktura VAT Nr....
by JacekK 09 Sty '06

09 Sty '06

Gdzie mozna zmienic w LMS-ie naglowek faktury. Obecnie drukowany jest naglowek w postaci "Faktura Nr xxxxxxx". A zgodnie z przepisami, w przypadku faktury VAT nazwa powinna zaczynac sie od "Faktura VAT " Pozdrawiam Jacek -- List przeskanowano programem ArcaMail, ArcaVir 2006 przeskanowano 2006-01-09 16:24:29, silnik: 2005.12.01 12:00:00, bazy: 2006.01.04 19:45:59 This message has been scanned by ArcaMail, ArcaVir 2006 scanned 2006-01-09 16:24:29, engine: 2005.12.01 12:00:00, base: 2006.01.04 19:45:59 http://www.arcabit.com email:mail@arcabit.com

1 0

Re: Jeden login, jeden password do LMS, samba, forum, jak?
by konrad rzentarzewski 09 Sty '06

09 Sty '06

02/01/06, messie from [ Radek Krupa ] ... > To inaczej, chce zintegrowac/zsynchronizowac loginy/hasla do Active Directory na > w2k3 oraz lms userpanel a przy okazji loginy do dwoch webowych > aplikacji,mldonkey i cms/forum). > Novel eDirectory/Identity Manager 2, wzglednie LDAP, wzglednie Kerberos załatwia > sprawe (w pewnym sensie). > Teraz jak to sprzegnac z LMSem? Novel obsluguje MySQLa gdyby ktos pytał. > Jakies sugestie jak to ugryzc? ew. ile $? jeśli chodzi o AD, to: winbindd+pam+mod_auth_pam jeśli chodzi o ldap/mysqla, to też masz odpowiednie wtyczki do pama, ew. biblioteki do NSSa (kiepski pomysł). -- :|[ kondi.net ]|:::::::::::::::::::::::::::::::::::|[ 2:480/133@fidonet.org ]|:

1 0

Re: Jeden login, jeden password do LMS, samba, forum, jak?
by Radek Krupa 09 Sty '06

09 Sty '06

> > > Witam, > chciałbym wdrazajac LMSa i dajac kazdemu userowi login i passełko do > userpanela > jednoczesnie wykorzystac to do logiwania sie na forum na stronie sieci, do > mldonkeya poprzez interfejs www, do servera plikow i ew. innych uslug. > Czy ktos zna jakies rozwizanie pozwalajace tego dokonac? > Kiedys chyba novell mial cos takiego pod linuxa, ale nie pamietam co to bylo > dokladnie. > > pozdr > > Radek > > To inaczej, chce zintegrowac/zsynchronizowac loginy/hasla do Active Directory na w2k3 oraz lms userpanel a przy okazji loginy do dwoch webowych aplikacji,mldonkey i cms/forum). Novel eDirectory/Identity Manager 2, wzglednie LDAP, wzglednie Kerberos załatwia sprawe (w pewnym sensie). Teraz jak to sprzegnac z LMSem? Novel obsluguje MySQLa gdyby ktos pytał. Jakies sugestie jak to ugryzc? ew. ile $? RaD ---------------------------------------------------------------- This message was sent using IMP, the Internet Messaging Program.

1 0

nadwrażliwość cutoff i makewarnings
by tombog 09 Sty '06

09 Sty '06

Witam. Nie wiem czy problem nie jest sztuczny, ale przyszło mi do głowy, że gdy naliczymy klientowi różnych opłat, typu instalacja, aktywacja, abonament, to dostanie on sporą sumkę do zapłacenia. Na jego koncie powstanie zadłużenie przekraczające limit ustalony w cutoff i makewarnings. Jeśli dobrze rozumuję, to zostanie on natychmiast odcięty i powiadomiony o zadłużeniu, choć do terminu płatności zostało mu przynajmniej 2 tygodnie. To samo może się zdarzyć, gdy obciążymy go opłatami serwisowymi. Jest jakiś sposób na taką sytuację ? Pozdrawiam Tombog

1 0

Re: dwa etapy cutoff
by Marcin Król 09 Sty '06

09 Sty '06

Tomasz Chilinski napisał(a): [...] > Niech mi ktoś odpowie dlaczego tak uczepił się tego squida? ;-) Bo jest wygodnie, szybko i elegancko? -- _ _ _ ___ | |_ | \/ |( __| http://www.|___)|_||_||___).rulez.pl Marcin 'Lexx' Król LMS Developer lexx(a)polarnet.gliwice.pl GG: 652506 Nie odpisuje na listy pisane w HTML.

1 0

Re: dwa etapy cutoff
by Piotr Hołyński 09 Sty '06

09 Sty '06

>> Co i gdzie nalezy wpisac aby dzilalo to na skryptach w procentach, a >> nie tylko kwotowo? > > U mnie w lms.ini: > [warnings] > ... > limit = 200% > ... > > Skrypt lms-makewarnings obsługuje "oprotcentowanie" ;-) > Poprobuje, dzieki.

1 0

Re: dwa etapy cutoff
by Tomasz Chilinski 09 Sty '06

09 Sty '06

On Mon, 9 Jan 2006 12:18:19 +0100, Piotr Hołyński wrote > Witam. > > > Po co dodatkowe pole? Można na bazie istniejących skryptów zrobić > > coś takiego: > > 1) Sprawdzamy saldo i jeśli jest np. 200% zaległości to generujemy regułki > > przypominające o zaległościach - przekierowujące ruch www na winietę > > z informacją (użytkownik może wyłączyć sam winietę lub nie - to > > zależy od naszej polityki). > > 2) Jeśli saldo osiągnie 300% zaległości ustawiamy w tabeli nodes pole > > disabled na true (czy jak tam ono nazywa się) i znowu przekierowujemy > > na winietę z saldem, która nie zawiera tym razem linku pozwalającego > > zamknąć > > winietę. > > Już o tym pisałem. > > Niech mi ktoś odpowie dlaczego tak uczepił się tego squida? ;-) > > Co i gdzie nalezy wpisac aby dzilalo to na skryptach w procentach, a > nie tylko kwotowo? U mnie w lms.ini: [warnings] ... limit = 200% ... Skrypt lms-makewarnings obsługuje "oprotcentowanie" ;-) > Z wyrazami szacunku > Piotr Hołyński Pozdrawiam, Tomek.

1 0

Re: dwa etapy cutoff
by Piotr Hołyński 09 Sty '06

09 Sty '06

Witam. > Po co dodatkowe pole? Można na bazie istniejących skryptów zrobić > coś takiego: > 1) Sprawdzamy saldo i jeśli jest np. 200% zaległości to generujemy regułki > przypominające o zaległościach - przekierowujące ruch www na winietę > z informacją (użytkownik może wyłączyć sam winietę lub nie - to > zależy od naszej polityki). > 2) Jeśli saldo osiągnie 300% zaległości ustawiamy w tabeli nodes pole > disabled na true (czy jak tam ono nazywa się) i znowu przekierowujemy > na winietę z saldem, która nie zawiera tym razem linku pozwalającego > zamknąć > winietę. > Już o tym pisałem. > Niech mi ktoś odpowie dlaczego tak uczepił się tego squida? ;-) Co i gdzie nalezy wpisac aby dzilalo to na skryptach w procentach, a nie tylko kwotowo? Z wyrazami szacunku Piotr Hołyński Almar Electronics sp. z o.o. 47-400 Racibórz ul. Opawska 3 0-32 415-08-01 wew. 24 lub 601 410 840 www.almar.net.pl www.almarnet.pl

1 0

Re: dwa etapy cutoff
by Łukasz Klejnberg 09 Sty '06

09 Sty '06

Użytkownik tombog napisał: >*This message was transferred with a trial version of CommuniGate(tm) Pro* >Chętnie bym się przyjrzał zmianom. Może coś by wniosły do pomysłu. > > > W pliku opisane jest co i jak. Rozwiazanie dziala, ale nie jestem specem od zapytan do baz danych wiec jezeli ktos sie tym zainteresuje to mozna byloby to poprawic. Mozna rowniez umiescic w lms.ini date od kiedy ma byc powiadamianie i ktorego dnia ma zablokowac dostep do internetu. Jako ze nie uzywamy squida wiec przerobilem sobie lms-squid i na samym koncu petli while dodalem sobie: if ($row->{'warning'}==0) { system("sudo iptables ... regulka usuwajaca przekierowanie na proxy"); } Oczywiscie uzytkownik proxy musi miec dostep do iptables wiec nalezy go dodac do sudo. Pozniej gdy lms-warningson-cutoff po ktoryms odswierzeniu (np co 30 minut) natrafi na flage warning=1(czyli uzytkownik nie odczytal wiadomosci) wtedy generuje regulke usuwajaca a dopiero pozniej regulke dolaczajaca. Pozdrawiam :) Lukasz #!/usr/bin/perl -Tw # # LMS version 1.6.5 Druhin # # (C) 2001-2005 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-warningson-cutoff,v 1.00.0.0 2006/01/05 17:38:40 alec Exp $ use strict; use DBI; use Config::IniFiles; use Getopt::Long; use vars qw($configfile $quiet $help $version); use POSIX qw(strftime); sub u32todotquad($) { my $p = shift @_; return sprintf "%d.%d.%d.%d",($p>>24)&0xff,($p>>16)&0xff,($p>>8)&0xff,$p&0xff; } my $_version = '1.6.5 Druhin'; my %options = ( "--config-file|C=s" => \$configfile, "--quiet|q" => \$quiet, "--help|h" => \$help, "--version|v" => \$version, ); Getopt::Long::config("no_ignore_case"); GetOptions(%options); if($help) { print STDERR <<EOF; lms-warningson-cutoff, version $_version (C) 2001-2005 LMS Developers -C, --config-file=/etc/lms/lms.ini alternate config file (default: /etc/lms/lms.ini); -h, --help print this help and exit; -v, --version print version info and exit; -q, --quiet suppress any output, except errors; EOF exit 0; } if($version) { print STDERR <<EOF; lms-warnigson-cutoff, version $_version (C) 2001-2005 LMS Developers EOF exit 0; } if(!$configfile) { $configfile = "/etc/lms/lms.ini"; } if(!$quiet) { print STDOUT "lms-warningson-cutoff, version $_version\n"; print STDOUT "(C) 2001-2005 LMS Developers\n"; print STDOUT "Using file $configfile as config.\n"; } if(! -r $configfile) { print STDERR "Fatal error: Unable to read configuration file $configfile, exiting.\n"; exit 1; } 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 $dbase; my $utsfmt; open(WARNFILE,">/home/kleju/warningson-proxy") or die("Sorry nie mozna utworzyc pliku"); 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))"; } elsif($dbtype eq "sqlite") { $dbase = DBI->connect("DBI:SQLite:dbname=$dbname;host=$dbhost","$dbuser","$dbpasswd", { RaiseError => 1 }); $utsfmt = "strftime('%s','now')"; } else { print STDERR "Fatal error: unsupported database type: $dbtype, exiting.\n"; exit 1; } my $dbq = $dbase->prepare("SELECT time, userid AS id FROM cash WHERE adminid = '0'"); $dbq->execute(); while (my $row = $dbq->fetchrow_hashref()) { # $days pobiera aktualny dzien, $payments_day zawiera rok i miesiac naliczenia faktury + zmienna $days # $nowa_date zawiera aktualna date z dniem 11 # $date_warningson zawiera liczbe po ktorej pozniej bedzie ustawiana flaga warning my $days = strftime "%d", localtime; my $payments_date = strftime "%Y%m$days", localtime($row->{'time'}); my $now_date = strftime "%Y%m11", localtime; my $date_warningson = $now_date-$payments_date; if ($date_warningson <= 0 && $date_warningson > -1) { # zapisywanie do pliku tych ktorzy maja warning=1 ale reguly usuwajacej proxy # w przypadku gdy dana osob nie odczyta ostrzezenia czyli zmodyfikowana wersja lms-squid nie usunie # regulki proxy my $sdbq2 = $dbase->prepare("SELECT mac FROM nodes WHERE ownerid='$row->{'id'}' AND warning='1'"); $sdbq2->execute(); while(my $row2b = $sdbq2->fetchrow_hashref()) { print WARNFILE "/sbin/iptables -t nat -D PREROUTING -m mac --mac-source $row2b->{'mac'} -p tcp --dport 80 -j REDIRECT --to-port 8080\n\n"; } my $sdbq = $dbase->prepare("UPDATE nodes SET warning=1 WHERE ownerid='$row->{'id'}'"); $sdbq->execute(); if(!$quiet) { my $tdbq = $dbase->prepare("SELECT lastname, name FROM users WHERE id='$row->{'id'}'"); $tdbq->execute(); while (my $row2 = $tdbq->fetchrow_hashref()) { print STDOUT "Ostrzezenie dla $row2->{'lastname'} $row2->{'name'} id: $row->{'id'}\n"; } } } # $date_cutoff jest data odciecia, $date_now jest data pobierana w danej chwili # obydwie zmienne sa porownywane ze soba, jezeli sie zgadzaja to nastepuje zmiana # flagi access na 0 my $date_cutoff = strftime "%Y%m28", localtime; my $date_now = strftime "%Y%m%d", localtime; if ($date_cutoff == $date_now) { my $fdbq = $dbase->prepare("UPDATE nodes SET warning=0, access=0 WHERE ownerid='$row->{'id'}'"); $fdbq->execute(); my $fidpq = $dbase->prepare("SELECT lastname, name FROM users WHERE id='$row->{'id'}'"); $fidpq->execute(); while (my $row3 = $fidpq->fetchrow_hashref()) { print STDOUT "Blokada dla $row3->{'lastname'} $row3->{'name'} id: $row->{'id'}\n"; } } # zapisywanie do pliku, tych ktorzy maja oznaczenie na warning=1 my $sdbq3 = $dbase->prepare("SELECT mac FROM nodes WHERE ownerid='$row->{'id'}' AND warning='1'"); $sdbq3->execute(); while(my $row3b = $sdbq3->fetchrow_hashref()) { print WARNFILE "/sbin/iptables -t nat -A PREROUTING -m mac --mac-source $row3b->{'mac'} -p tcp --dport 80 -j REDIRECT --to-port 8080\n\n"; } } $dbase->disconnect(); close(WARNFILE);

1 0

Re: dwa etapy cutoff
by Tomasz Chilinski 09 Sty '06

09 Sty '06

> Już ten - zbliżony temat poruszałem ale nie było na niego zapotrzebowania. > Ja myślałem raczej o nie wprowadzaniu kolejnego pola do bazy tylko > o wykorzystaniu pola access oraz warning oba są typu tinyint(1). > więc np: Wartość 2 to może być przypadek twój jako ograniczony > dla access. Wartość 2 to warning ciągły z własnym interwałem > dla warning chodzi o systematyczne wyświetlanie komunikatu co > okreslony czas. mam tak u siebie zrobione ze przeczytanie komunikatu > nie odznacza go w bazie Po co dodatkowe pole? Można na bazie istniejących skryptów zrobić coś takiego: 1) Sprawdzamy saldo i jeśli jest np. 200% zaległości to generujemy regułki przypominające o zaległościach - przekierowujące ruch www na winietę z informacją (użytkownik może wyłączyć sam winietę lub nie - to zależy od naszej polityki). 2) Jeśli saldo osiągnie 300% zaległości ustawiamy w tabeli nodes pole disabled na true (czy jak tam ono nazywa się) i znowu przekierowujemy na winietę z saldem, która nie zawiera tym razem linku pozwalającego zamknąć winietę. Już o tym pisałem. Niech mi ktoś odpowie dlaczego tak uczepił się tego squida? ;-) > -- > ReYu Pozdrawiam, Tomek.

1 0