- lms - lists.lms.org.pl

lms-mgc ??
by Michał Zubryk 26 Sie '04

26 Sie '04

Witam mam lms-a z seri 1.3 i czy lms-mgc jest w stanie pokazac download i upload danego user-a ? Bo jak nie to po co to jeszcze w plikach sample jest ? Pozdrawiam MichalZ

1 0

Re: Krótki flame...
by Radoslaw 'Goblin' Pieczonka 26 Sie '04

26 Sie '04

>Zasada jest taka: to co jest uniwersalne to i gównianie. W przypadku LMSa >męczenie się z kilkoma silnikami DB powoduje, że nie masz szans działać >super na którymkolwiek z nich. > generalnie siedzy w MySQL'u, ale przy LMS2 jesli bedzie import danych z bazy LMS1 z MySQL do LMS2 PGSQL chetnie zamienie troche czasu stawiajac postgresa na wydajnosc LMS'a. -- Goblin.

1 0

Re: Jakiś problem
by Marcin Król 26 Sie '04

26 Sie '04

Użytkownik Tomasz Chilinski napisał: > Btw. uważam umieszczenie w lms-cutoff zawinietkowywania usera za > redundancję. Jeśli odłączamy usera od sieci to po prostu przekierowujemy go > na winietkę z informacją, że został odłączony + jego saldo i operacje. Dobra dobra. Wyświetlenie winetki na stronie z blokadą jest imho dużo lepsze, bo równie dobrze można zablokować usera z ujemnym saldem za np. złamanie regulaminu. I skąd on biedny ma się zorientować czemu jest zablokowany? Pozatym, my sami w UI widzimy że został zablokowany za to a nie za co innego. -- _ _ _ ___ | |_ | \/ |( __| 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: Krótki flame...
by Tomasz Chilinski 26 Sie '04

26 Sie '04

On Thu, 26 Aug 2004 11:17:25 +0200, Maciej Ochalek wrote > ALEC> może to i dobry pomysł zrobić lms2 tylko na postgresie, > jeszcze dodam jeden ALEC> duży plus - pisanie funkcji w pl/pgsql > (możnaby tych funkcji zrobić naprawdę ALEC> sporo co odciążyło by > php oraz ułatwiło pisanie), no ale trzebaby się ALEC> jeszcze tego > naumieć, ja znam podstawy ale chętnie bym się w tym zagłębił. Zasada jest taka: to co jest uniwersalne to i gównianie. W przypadku LMSa męczenie się z kilkoma silnikami DB powoduje, że nie masz szans działać super na którymkolwiek z nich. Pozdrawiam Tomasz Chiliński

1 0

Re: [lms] Re: [lms] Re: [lms] Re: Krótki flame...
by lukas 26 Sie '04

26 Sie '04

MO> Polecam zatem materialy, jakie mialem na studiach na przedmiocie "Bazy MO> Danych", ktory praktycznie calosci opieral sie na PGSQL. W kilku MO> PDFach ujeta jest praktycznie cala podstawowa wiedza z uwzglednieniem MO> wszystkiego, o czym tu mowilismy. Dla mnie bomba. MO> http://rudynet.pl/~ohaleck/pg/ MO> O. big thx Ja też dorzucę swój głos na PgSQL. -------------------- Łukasz Wojciechowski

1 0

Re: Krótki flame...
by Tomasz Chilinski 26 Sie '04

26 Sie '04

On Thu, 26 Aug 2004 10:31:01 +0200, Jakub Walczak wrote > jezeli ktos nie zauwazyl, to gdyby bylo glosowanie to ja bym > glosowal za PostgreSQL'em ;-) Też jestem za postgresem! > Jaqb > p.s. ta flame war robi sie coraz dluzsza :-) Pozdrawiam Tomasz Chiliński

1 0

Re: [lms] Re: [lms] Re: Krótki flame...
by Maciej Ochalek 26 Sie '04

26 Sie '04

10:56:48 AM, A.L.E.C był(a) łaskaw(a) nastukać list o treści: ALEC> Jakub Walczak wrote: >> jezeli ktos nie zauwazyl, to gdyby bylo glosowanie to ja bym glosowal za >> PostgreSQL'em ;-) ALEC> może to i dobry pomysł zrobić lms2 tylko na postgresie, jeszcze dodam jeden ALEC> duży plus - pisanie funkcji w pl/pgsql (możnaby tych funkcji zrobić naprawdę ALEC> sporo co odciążyło by php oraz ułatwiło pisanie), no ale trzebaby się ALEC> jeszcze tego naumieć, ja znam podstawy ale chętnie bym się w tym zagłębił. Polecam zatem materialy, jakie mialem na studiach na przedmiocie "Bazy Danych", ktory praktycznie calosci opieral sie na PGSQL. W kilku PDFach ujeta jest praktycznie cala podstawowa wiedza z uwzglednieniem wszystkiego, o czym tu mowilismy. Dla mnie bomba. http://rudynet.pl/~ohaleck/pg/ O. -- Maciej O'Klap Ochałek ASK RudyNET http://www.rudynet.pl

1 0

Re: [lms] Re: Krótki flame...
by A.L.E.C 26 Sie '04

26 Sie '04

Jakub Walczak wrote: > jezeli ktos nie zauwazyl, to gdyby bylo glosowanie to ja bym glosowal za > PostgreSQL'em ;-) może to i dobry pomysł zrobić lms2 tylko na postgresie, jeszcze dodam jeden duży plus - pisanie funkcji w pl/pgsql (możnaby tych funkcji zrobić naprawdę sporo co odciążyło by php oraz ułatwiło pisanie), no ale trzebaby się jeszcze tego naumieć, ja znam podstawy ale chętnie bym się w tym zagłębił. -- Aleksander 'A.L.E.C' Machniak http://alec.pl gg-2275252 Lan Management System Developer http://lms.alec.pl

1 0

Re: Krótki flame...
by Jakub Walczak 26 Sie '04

26 Sie '04

Dnia 2004-08-25 23:54, Użytkownik Maciej Ochalek napisał: > PSG> moze i ma, ale bardzo wielu administratorow uzywa mysql takze do > PSG> innych celow i nie zainstaluje postgresa ... > > To prawda, jesli LMS ma dzialac niezaleznie od rodzaju bazy, to trzeba > rownac w dol do mysql'a, ale moze by zrobic brancha > stricte-postgresowego? To by uproscilo kod PHP, przyspieszylo > dzialanie i zepewnilo wieksza spojnosc bazy. Triggery moga odpowiadac > za pola moddate ale przy odrobinie pomyslunku rowniez za omawiane > wczoraj potwierdzenia przeladowania ALMSD. IMHO gra warta > swieczki. > O. > sam osobiscie sie dziwie, ze tak duzy projekt dziala caly czas na MySQL'u - sam tez go na poczatku uzywalem (bo byl w standardzie RH), ale jak zaczalem pisac pierwsza baze to az nie moglem uwiezyc, ze toto nie ma referencji (klucze obce), trigerow, procedur skladowanych, ... MySQL jest dobry dla webmasterow - do przechowywania news'ow - jest prosty(w sensie brak zaawansowanych mozliwosci) i szybki - zreszta do tego jest projektowany imho prawdziwa baza to postgres - z mysql mozna kozystac tylko do bardzo prostych rzeczy jako zamiennik plikow tekstowych. nie korzystanie z mozliwosci wspolczesnych baz danych to po prostu wywazanie otwartych drzwi - po kiego grzyba pisac w php cos co mozna zalatwic trigerem - z calym szacunkiem, ale piszac kod zawsze robi sie bledy (oczywiscie w sql'u tez mozna sie machnąc ;-) co do innych rzeczy na MySQL'u - ja ze wzgledu na ograniczone mozliwosci tej bazy wlasnie przechodze ze *wszystkim* na postgres'a pisalem pare duzych rzeczy bazodanowych i tam wiekszosc logiki byla w bazie - proste, przejzyste, szybkie duzym minusem jest mniejsza popularnosc PostgreSQL'a, ale przy tak łopatologicznym opisem jak go zainstalowac w dokumentacji kazdy sobie poradzi btw.: zwiekszylo by to popularnosc mojego ulubionego DBMS'a :D wybor nalezy do developerow. proponuje sie tylko kierowac dobrem userow (dobry kod - zadowolony user) i wlasna wygoda (mniej pracy przy efekt=const. - zadowolony developer :-) jezeli ktos nie zauwazyl, to gdyby bylo glosowanie to ja bym glosowal za PostgreSQL'em ;-) Jaqb p.s. ta flame war robi sie coraz dluzsza :-)

1 0

Re: Wiadomości administracyjne jako reklamy w Gadu-Gadu
by Radoslaw 'Goblin' Pieczonka 26 Sie '04

26 Sie '04

aha... mala poprawka warnings.on, bo tamten kozysta z niestandardowych wpisow w configu #!/usr/bin/perl -w # # LMS version 1.3-cvs # # (C) 2001-2004 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-complex,v 1.29 2004/04/12 07:14:08 alec Exp $ use strict; use DBI; use Config::IniFiles; use Getopt::Long; use vars qw($configfile $quiet $help $version); sub mask2prefix($) { my $mask = shift @_; my @tmp = split('\.',$mask,4); my $q = sprintf("%b%b%b%b",$tmp[0],$tmp[1],$tmp[2],$tmp[3]); $q =~ s/0*$//; if ($q =~ /0/) { print " You idiot. error in mask\n"; } my $len = length($q) ; return $len; } sub matchip($$$) { my ($ip,$net,$mask) = @_; my $prefix = mask2prefix($mask); my $bmask = 2**32 <<(32-$prefix); my @net = split('\.',$net,4); my $bnet = dotquad2u32($net); if(($bnet & $bmask)!= $bnet) { print "EEediot net &mask != net\n"; return 1==0 } my $bip = dotquad2u32($ip); return (($bip&$bmask) == $bnet); } sub dotquad2u32($) { my $dq = shift||'0.0.0.0'; my @dq = split('\.',$dq,4); return ((($dq[0] << 8) + $dq[1] << 8) + $dq[2] << 8) + $dq[3]; } sub u32todotquad($) { my $p = shift @_; return sprintf "%d.%d.%d.%d", ($p>>24)&0xff,($p>>16)&0xff, ($p>>8)&0xff,$p&0xff; } sub isprivate($) { my ($ip) = @_; return matchip($ip,"192.168.0.0","255.255.0.0") || matchip($ip,"10.0.0.0","255.0.0.0") || matchip($ip,"172.16.0.0","255.240.0.0"); } sub publicmap($) { return 0; } my $_version = '1.3-cvs'; 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-complex, version $_version (C) 2001-2004 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-complex, version $_version (C) 2001-2004 LMS Developers EOF exit 0; } if(!$configfile) { $configfile = "/etc/lms/lms.ini"; } if(!$quiet) { print STDOUT "lms-warnings.on, version $_version\n"; print STDOUT "(C) 2001-2004 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; my $networks_list = $ini->val('messages', 'networks') || ''; my $forward_to_list = $ini->val('messages', 'forward_to') || ''; 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; if($dbtype eq "mysql") { $dbase = DBI->connect("DBI:mysql:database=$dbname;host=$dbhost","$dbuser","$dbpasswd", { RaiseError => 1 }); } elsif($dbtype eq "postgres") { $dbase = DBI->connect("DBI:Pg:dbname=$dbname;host=$dbhost","$dbuser","$dbpasswd", { RaiseError => 1 }); } elsif($dbtype eq "sqlite") { $dbase = DBI->connect("DBI:SQLite:dbname=$dbname;host=$dbhost","$dbuser","$dbpasswd", { RaiseError => 1 }); $dbase->func('inet_ntoa',1,'u32todotquad','create_function'); $dbase->func('inet_aton',1,'dotquad2u32','create_function'); } else { print STDERR "Fatal error: unsupported database type: $dbtype, exiting.\n"; exit 1; } my $allnetworks = ""; my $dbq = $dbase->prepare("SELECT name FROM networks"); $dbq->execute(); while (my $row = $dbq->fetchrow_hashref()) { $allnetworks = "$allnetworks $row->{'name'}"; } if(!$networks_list) { $networks_list = $allnetworks; } if(!$forward_to_list) { $forward_to_list = $allnetworks; } my @networks = split ' ',$networks_list; my @fw_networks = split ' ',$forward_to_list; foreach my $key (@networks) { my $dbq = $dbase->prepare("SELECT inet_ntoa(address) AS address, mask FROM networks WHERE name = UPPER('$key')"); $dbq->execute(); while (my $row = $dbq->fetchrow_hashref()) { my $sdbq = $dbase->prepare("SELECT inet_ntoa(ipaddr) AS ipaddr FROM nodes WHERE warning = 1 AND access = 1 ORDER BY ipaddr"); $sdbq->execute(); while(my $srow = $sdbq->fetchrow_hashref()) { if(matchip($srow->{'ipaddr'},$row->{'address'},$row->{'mask'})) { print "Generuje przekierowanie do ostrzezenia dla $srow->{'ipaddr'} \n"; system "/usr/sbin/iptables -t nat -D PREROUTING -p tcp -s $srow->{'ipaddr'} --dport 80 -j REDIRECT --to-port 81"; system "/usr/sbin/iptables -t nat -I PREROUTING -p tcp -s $srow->{'ipaddr'} --dport 80 -j REDIRECT --to-port 81"; } } } } $dbase->disconnect();

1 0

Re: Wiadomości administracyjne jako reklamy w Gadu-Gadu
by Radoslaw 'Goblin' Pieczonka 26 Sie '04

26 Sie '04

>Zamiast warnings.on można użyć lms-makewarnings (buduje przekierowania na >bazie salda użytkownika) bądź lms-makemessages (buduje przekierowania na >bazie ostrzeżenia ustawianego hostom). > Zapewne masz racje :) w zalacznikach zestawik plikow od mojego rozwiazania index.php - osobiscie trzymam go w lms/pages/warning/ do czego config apache ma vhosta na port 81 warning.on, warning.off - to poprostu pliki z regulka iptables warning.check - narazie baardzo brzydko, ale mozna sprawdzic kto ma przeczytane a kto nie (grepuje iptables -t nat -nL) warnings.on - na bazie ktoregos lms-* generuje regolki dla wszystkich kompow z ostrzezeniem -- Goblin /usr/sbin/iptables -t nat -D PREROUTING -p tcp -s $1 --dport 80 -j REDIRECT --to-port 81 /usr/sbin/iptables -t nat -I PREROUTING -p tcp -s $1 --dport 80 -j REDIRECT --to-port 81 #!/usr/bin/perl -w # # LMS version 1.3-cvs # # (C) 2001-2004 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-complex,v 1.29 2004/04/12 07:14:08 alec Exp $ use strict; use DBI; use Config::IniFiles; use Getopt::Long; use vars qw($configfile $quiet $help $version); sub mask2prefix($) { my $mask = shift @_; my @tmp = split('\.',$mask,4); my $q = sprintf("%b%b%b%b",$tmp[0],$tmp[1],$tmp[2],$tmp[3]); $q =~ s/0*$//; if ($q =~ /0/) { print " You idiot. error in mask\n"; } my $len = length($q) ; return $len; } sub matchip($$$) { my ($ip,$net,$mask) = @_; my $prefix = mask2prefix($mask); my $bmask = 2**32 <<(32-$prefix); my @net = split('\.',$net,4); my $bnet = dotquad2u32($net); if(($bnet & $bmask)!= $bnet) { print "EEediot net &mask != net\n"; return 1==0 } my $bip = dotquad2u32($ip); return (($bip&$bmask) == $bnet); } sub dotquad2u32($) { my $dq = shift||'0.0.0.0'; my @dq = split('\.',$dq,4); return ((($dq[0] << 8) + $dq[1] << 8) + $dq[2] << 8) + $dq[3]; } sub u32todotquad($) { my $p = shift @_; return sprintf "%d.%d.%d.%d", ($p>>24)&0xff,($p>>16)&0xff, ($p>>8)&0xff,$p&0xff; } sub isprivate($) { my ($ip) = @_; return matchip($ip,"192.168.0.0","255.255.0.0") || matchip($ip,"10.0.0.0","255.0.0.0") || matchip($ip,"172.16.0.0","255.240.0.0"); } sub publicmap($) { return 0; } my $_version = '1.3-cvs'; 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-complex, version $_version (C) 2001-2004 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-complex, version $_version (C) 2001-2004 LMS Developers EOF exit 0; } if(!$configfile) { $configfile = "/etc/lms/lms.ini"; } if(!$quiet) { print STDOUT "lms-warnings.on, version $_version\n"; print STDOUT "(C) 2001-2004 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; my $networks_list = $ini->val('complex', 'networks') || ''; my $forward_to_list = $ini->val('complex', 'forward_to') || ''; my $cfile = $ini->val('complex', 'script_file') || '/etc/rc.d/rc.lms.complex'; my $cuid = $ini->val('complex', 'script_owneruid') || '0'; my $cgid = $ini->val('complex', 'script_ownergid') || '0'; my $cperm = $ini->val('complex', 'script_permission') || '700'; my $tcbin = $ini->val('complex', 'tc_binary') || '/sbin/tc'; my $ipbin = $ini->val('complex', 'iptables_binary') || '/usr/sbin/iptables'; my $snataddr = $ini->val('complex', 'snat_address') || ''; my $prescript = $ini->val('complex', 'prescript') || ''; my $postscript = $ini->val('complex', 'postscript') || ''; 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; if($dbtype eq "mysql") { $dbase = DBI->connect("DBI:mysql:database=$dbname;host=$dbhost","$dbuser","$dbpasswd", { RaiseError => 1 }); } elsif($dbtype eq "postgres") { $dbase = DBI->connect("DBI:Pg:dbname=$dbname;host=$dbhost","$dbuser","$dbpasswd", { RaiseError => 1 }); } elsif($dbtype eq "sqlite") { $dbase = DBI->connect("DBI:SQLite:dbname=$dbname;host=$dbhost","$dbuser","$dbpasswd", { RaiseError => 1 }); $dbase->func('inet_ntoa',1,'u32todotquad','create_function'); $dbase->func('inet_aton',1,'dotquad2u32','create_function'); } else { print STDERR "Fatal error: unsupported database type: $dbtype, exiting.\n"; exit 1; } my $allnetworks = ""; my $dbq = $dbase->prepare("SELECT name FROM networks"); $dbq->execute(); while (my $row = $dbq->fetchrow_hashref()) { $allnetworks = "$allnetworks $row->{'name'}"; } if(!$networks_list) { $networks_list = $allnetworks; } if(!$forward_to_list) { $forward_to_list = $allnetworks; } my @networks = split ' ',$networks_list; my @fw_networks = split ' ',$forward_to_list; foreach my $key (@networks) { my $dbq = $dbase->prepare("SELECT inet_ntoa(address) AS address, mask FROM networks WHERE name = UPPER('$key')"); $dbq->execute(); while (my $row = $dbq->fetchrow_hashref()) { my $sdbq = $dbase->prepare("SELECT inet_ntoa(ipaddr) AS ipaddr FROM nodes WHERE warning = 1 AND access = 1 ORDER BY ipaddr"); $sdbq->execute(); while(my $srow = $sdbq->fetchrow_hashref()) { if(matchip($srow->{'ipaddr'},$row->{'address'},$row->{'mask'})) { print "$srow->{'ipaddr'} : "; system "/usr/sbin/iptables -t nat -nL | grep $srow->{'ipaddr'} | grep REDIR"; print "\n"; } } } } $dbase->disconnect(); chown $cuid, $cgid, $cfile or print "Warning! Unable to set owner of $cfile to $cuid.$cgid.\n"; chmod oct($cperm), $cfile or print "Warning! Unable to set permission $cperm to $cfile.\n"; #!/usr/bin/perl -w # # LMS version 1.3-cvs # # (C) 2001-2004 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-complex,v 1.29 2004/04/12 07:14:08 alec Exp $ use strict; use DBI; use Config::IniFiles; use Getopt::Long; use vars qw($configfile $quiet $help $version); sub mask2prefix($) { my $mask = shift @_; my @tmp = split('\.',$mask,4); my $q = sprintf("%b%b%b%b",$tmp[0],$tmp[1],$tmp[2],$tmp[3]); $q =~ s/0*$//; if ($q =~ /0/) { print " You idiot. error in mask\n"; } my $len = length($q) ; return $len; } sub matchip($$$) { my ($ip,$net,$mask) = @_; my $prefix = mask2prefix($mask); my $bmask = 2**32 <<(32-$prefix); my @net = split('\.',$net,4); my $bnet = dotquad2u32($net); if(($bnet & $bmask)!= $bnet) { print "EEediot net &mask != net\n"; return 1==0 } my $bip = dotquad2u32($ip); return (($bip&$bmask) == $bnet); } sub dotquad2u32($) { my $dq = shift||'0.0.0.0'; my @dq = split('\.',$dq,4); return ((($dq[0] << 8) + $dq[1] << 8) + $dq[2] << 8) + $dq[3]; } sub u32todotquad($) { my $p = shift @_; return sprintf "%d.%d.%d.%d", ($p>>24)&0xff,($p>>16)&0xff, ($p>>8)&0xff,$p&0xff; } sub isprivate($) { my ($ip) = @_; return matchip($ip,"192.168.0.0","255.255.0.0") || matchip($ip,"10.0.0.0","255.0.0.0") || matchip($ip,"172.16.0.0","255.240.0.0"); } sub publicmap($) { return 0; } my $_version = '1.3-cvs'; 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-complex, version $_version (C) 2001-2004 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-complex, version $_version (C) 2001-2004 LMS Developers EOF exit 0; } if(!$configfile) { $configfile = "/etc/lms/lms.ini"; } if(!$quiet) { print STDOUT "lms-warnings.on, version $_version\n"; print STDOUT "(C) 2001-2004 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; my $networks_list = $ini->val('messages', 'networks') || ''; my $forward_to_list = $ini->val('messages', 'forward_to') || ''; 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; if($dbtype eq "mysql") { $dbase = DBI->connect("DBI:mysql:database=$dbname;host=$dbhost","$dbuser","$dbpasswd", { RaiseError => 1 }); } elsif($dbtype eq "postgres") { $dbase = DBI->connect("DBI:Pg:dbname=$dbname;host=$dbhost","$dbuser","$dbpasswd", { RaiseError => 1 }); } elsif($dbtype eq "sqlite") { $dbase = DBI->connect("DBI:SQLite:dbname=$dbname;host=$dbhost","$dbuser","$dbpasswd", { RaiseError => 1 }); $dbase->func('inet_ntoa',1,'u32todotquad','create_function'); $dbase->func('inet_aton',1,'dotquad2u32','create_function'); } else { print STDERR "Fatal error: unsupported database type: $dbtype, exiting.\n"; exit 1; } my $allnetworks = ""; my $dbq = $dbase->prepare("SELECT name FROM networks"); $dbq->execute(); while (my $row = $dbq->fetchrow_hashref()) { $allnetworks = "$allnetworks $row->{'name'}"; } if(!$networks_list) { $networks_list = $allnetworks; } if(!$forward_to_list) { $forward_to_list = $allnetworks; } my @networks = split ' ',$networks_list; my @fw_networks = split ' ',$forward_to_list; foreach my $key (@networks) { my $dbq = $dbase->prepare("SELECT inet_ntoa(address) AS address, mask FROM networks WHERE name = UPPER('$key')"); $dbq->execute(); while (my $row = $dbq->fetchrow_hashref()) { my $sdbq = $dbase->prepare("SELECT inet_ntoa(ipaddr) AS ipaddr FROM nodes WHERE warning = 1 AND access = 1 ORDER BY ipaddr"); $sdbq->execute(); while(my $srow = $sdbq->fetchrow_hashref()) { if(matchip($srow->{'ipaddr'},$row->{'address'},$row->{'mask'})) { print "Generuje przekierowanie do ostrzezenia dla $srow->{'ipaddr'} \n"; system "/usr/sbin/iptables -t nat -D PREROUTING -p tcp -s $srow->{'ipaddr'} --dport 80 -j REDIRECT --to-port 81"; system "/usr/sbin/iptables -t nat -I PREROUTING -p tcp -s $srow->{'ipaddr'} --dport 80 -j REDIRECT --to-port 81"; } } } } $dbase->disconnect();

1 0

Re: [lms] jeden gość - kilka kompów
by Tomasz Chilinski 26 Sie '04

26 Sie '04

On Thu, 26 Aug 2004 07:54:46 +0200, A.L.E.C wrote > Repalf wrote: > > > będzie miał włączony tylko jeden komp to będzie mi piszczał że ma > > tylko 1/3 tego za co płaci > > można zmarkować pakiety wszystkich trzech kompów jednym markiem i > wrzucić do jednej klasy htb, patrz moduł tc demona almsd. Ewentualnie użyć skryptu lms-traffic-htbusers, którego sobie skleciłem na bazie lms-traffic-iptables :). Używam IPMARK więc wszystkie markowania wyleciały u mnie, a poza tym robię taką sztuczkę o której pisze Alec, tyle, że nie ze znakowaniem a z klasyfikacją pakietów za pomocą tc filter (każdy user ma jedną klasę ruchu do której może być klasyfikowanych wiele strumieni z wielu adresów IP jemu przypisanych). > Aleksander 'A.L.E.C' Machniak http://alec.pl gg-2275252 > Lan Management System Developer http://lms.alec.pl Pozdrawiam Tomasz Chiliński

1 0

Re: poprawki do lms-makeopenbsdpf
by A.L.E.C 26 Sie '04

26 Sie '04

Repalf wrote: > 48c48 > < my $bmask = 2**32 <<(32-$prefix); > --- > > my $bmask = ((2**32-1) <<(32-$prefix)); > a co było źle: > 1) maska podsieci obliczana od wartości 1.0.0.0.0 a nie od > 255.255.255.255 ale w czym jest problem? Pytam bo nie wiem o co chodzi, a w innych skryptach też jest ta funkacja i może trzebaby wszędzie poprawić. Dzięki. -- Aleksander 'A.L.E.C' Machniak http://alec.pl gg-2275252 Lan Management System Developer http://lms.alec.pl

1 0

Re: [lms] jeden gość - kilka kompów
by A.L.E.C 26 Sie '04

26 Sie '04

Repalf wrote: > będzie miał włączony tylko jeden komp to będzie mi piszczał że ma > tylko 1/3 tego za co płaci można zmarkować pakiety wszystkich trzech kompów jednym markiem i wrzucić do jednej klasy htb, patrz moduł tc demona almsd. -- Aleksander 'A.L.E.C' Machniak http://alec.pl gg-2275252 Lan Management System Developer http://lms.alec.pl

1 0

Re: [lms] Re: [lms] Jakiś problem
by A.L.E.C 26 Sie '04

26 Sie '04

Tomasz Chilinski wrote: > Mogę dostosować naszego pingera do użytku z lms-fping - fping używa icmp > echo request więc nie wykrywa hostów, które mają włączone blokowanie > icmp. Czy na wejściu programu podawać adres sieci IP, która ma być > arpingowana? Czy na wyjściu program ma zwracać ciąg adresów IP, których > aktywność wykryto? Nasz program arpinguje 3x masowo hosty w sieci więc > w ciągu kilku sekund jest już wynik. fping też ma możliwość podania sieci (-g) ale uznałem, że jak ktoś ustawił małą maskę, to może to i tak za długo potrwać, więc pobieram z bazy listę hostów i zapisuję ją do pliku, aby następnie podać fpingowi z opcją -f (chociaż można było skorzystać z -g). Fping zwraca listę hostów włączonych (-a). Natomiast uważam, że jak ma być coś pisane w c, to niech już działa bez pomocy perla. Trzeba coś sklecić z twojego pingera i almsd. > Btw. uważam umieszczenie w lms-cutoff zawinietkowywania usera za > redundancję. Jeśli odłączamy usera od sieci to po prostu > przekierowujemy go na winietkę z informacją, że został odłączony + jego > saldo i operacje. też się nad tym zastanawiam -- Aleksander 'A.L.E.C' Machniak http://alec.pl gg-2275252 Lan Management System Developer http://lms.alec.pl

1 0

Re: [lms] Re: [lms] Re: [lms] Re: [lms] Re: [lms] Re: [lms] Krótki flame...
by Przemek SAKO Galczewski 26 Sie '04

26 Sie '04

Hello Maciej, Wednesday, August 25, 2004, 11:54:09 PM, you wrote: MO> To prawda, jesli LMS ma dzialac niezaleznie od rodzaju bazy, to trzeba MO> rownac w dol do mysql'a, ale moze by zrobic brancha MO> stricte-postgresowego? To by uproscilo kod PHP, przyspieszylo a imho szkoda czasu na rozbijanie na dwa branche :) -- Best regards, Przemek mailto:sako@infinity.waw.pl

1 0

jeden gość - kilka kompów
by Repalf 26 Sie '04

26 Sie '04

Jak rozwiązujecie taki przypadek: jest klient, który ma 3 komputery w domu. wykupił łącze 256kbps do siebie za 70 zł + za każdy komputer ma dodatkowo liczone 10 zł czyli łącznie płaci 90 zł/mc. wg nomenklatury lms powinienem: 1) dodać użytkownika, 2) przydzielić mu 3 kompy, 3) ustalić taryfe 256 z parametrami upload i download w cenie 70 zł/mc 4) jako taryfę dodać mu 'dodatkowy komputer' w cenie 10zł/mc - dwukrotnie problem jednak w tym, że skoro upload i download są zdefiniowane tylko przy taryfie 256 to jakie wartości przydzielić dla wpisów wg IP? - jeśli założę że dla każdego IP ma 256 downloadu to dla 3 kompów już mam 3/4Mbps! - jeśli założę że będę dzielił pasmo które mu dałem na ilość zgłoszonych kompów, to jak będzie miał włączony tylko jeden komp to będzie mi piszczał że ma tylko 1/3 tego za co płaci - jeśli miałbym kontrolować ile ma kompów włączonych i odpowiednio dzielić jego prędkość na 1, 2 albo 3 to jak to wykonać? Jak sprawdzić czy dane kompy są włączone - pingać je ? Co Wy byście poradzili... A jak podobne sytuacje rozwiązujecie we własnych sieciach? Repalf

1 0

Re: [lms] Re: [lms] Re: [lms] Re: [lms] Re: [lms] Krótki flame...
by Maciej Ochalek 25 Sie '04

25 Sie '04

PSG> moze i ma, ale bardzo wielu administratorow uzywa mysql takze do PSG> innych celow i nie zainstaluje postgresa ... To prawda, jesli LMS ma dzialac niezaleznie od rodzaju bazy, to trzeba rownac w dol do mysql'a, ale moze by zrobic brancha stricte-postgresowego? To by uproscilo kod PHP, przyspieszylo dzialanie i zepewnilo wieksza spojnosc bazy. Triggery moga odpowiadac za pola moddate ale przy odrobinie pomyslunku rowniez za omawiane wczoraj potwierdzenia przeladowania ALMSD. IMHO gra warta swieczki. O. -- Maciej O'Klap Ochałek ASK RudyNET http://www.rudynet.pl

1 0

Re: [lms] Re: [lms] Jakiś problem
by Krzysiek 25 Sie '04

25 Sie '04

>czy w opcji fping_binary ustawiłeś prawidłową ścieżkę >do programu fping? >patrz także linia 31 skryptu. Tak, fping jest w /usr/local/sbin czyli tak jak w pliku KL

1 0

Re: Wiadomości administracyjne jako reklamy w Gadu-Gadu
by Tomasz Chilinski 25 Sie '04

25 Sie '04

On Wed, 25 Aug 2004 23:26:38 +0200, Robert CyberM wrote > Dnia środa, 25 sierpnia 2004 23:19, Radoslaw 'Goblin' Pieczonka napisał: > > warnings.on - do crona co 3h przeladowuje regolki tak by posiadajacy > > ostrzezenie > > otrzymali regolke iptables redirectujaca wszystko co idzie na port 80 na > > 81 serwera. > > > > tam rezyduje php wyswietlajacy stronke z ostrzezeniem i buttonem > > "Przywroc dostep > > do internetu" po kliknieciu ktorego strona sie przeladowuje i php wywoluje > > 'sudo warning.off ip_klienta'. Jedyny problem jaki mam to to iz > > przegladarka uparcie > > kiedy mozna spodziewac sie publikacji ? ;) > Robert CyberM Zamiast warnings.on można użyć lms-makewarnings (buduje przekierowania na bazie salda użytkownika) bądź lms-makemessages (buduje przekierowania na bazie ostrzeżenia ustawianego hostom). > Sarocom Network (http://www.sarocom.net) > Debian Project (http://www.debian.org) Pozdrawiam Tomasz Chiliński

1 0

Re: [lms] Jakiś problem
by Tomasz Chilinski 25 Sie '04

25 Sie '04

On Wed, 25 Aug 2004 23:09:22 +0200, A.L.E.C wrote > > lms-fping - właśnie go pobrałem ale niestety nie działa. > > > > Insecure $ENV{BASH_ENV} while running with -T switch at > > /usr/sbin/lms-fping line 172. > > > > komenda wydana z ręki: > > fping -ar1 -f /tmp/fping_hosts > > działa bez problemu > > czy w opcji fping_binary ustawiłeś prawidłową ścieżkę do programu fping? > patrz także linia 31 skryptu. Mogę dostosować naszego pingera do użytku z lms-fping - fping używa icmp echo request więc nie wykrywa hostów, które mają włączone blokowanie icmp. Czy na wejściu programu podawać adres sieci IP, która ma być arpingowana? Czy na wyjściu program ma zwracać ciąg adresów IP, których aktywność wykryto? Nasz program arpinguje 3x masowo hosty w sieci więc w ciągu kilku sekund jest już wynik. Btw. uważam umieszczenie w lms-cutoff zawinietkowywania usera za redundancję. Jeśli odłączamy usera od sieci to po prostu przekierowujemy go na winietkę z informacją, że został odłączony + jego saldo i operacje. > Aleksander 'A.L.E.C' Machniak http://alec.pl gg-2275252 > Lan Management System Developer http://lms.alec.pl Pozdrawiam Tomasz Chiliński

1 0

Re: [lms] Re: [lms] Re: [lms] Re: [lms] Krótki flame...
by Przemek SAKO Galczewski 25 Sie '04

25 Sie '04

Hello A.L.E.C, Wednesday, August 25, 2004, 11:03:55 PM, you wrote: ALEC> postgres też ma i ma lepszy support w PHP, nie mówiąc już o jego składni sql ALEC> i w ogóle nie lubię firebirda :) moze i ma, ale bardzo wielu administratorow uzywa mysql takze do innych celow i nie zainstaluje postgresa ... -- Best regards, Przemek mailto:sako@infinity.waw.pl

1 0

Re: Wiadomości administracyjne jako reklamy w Gadu-Gadu
by Robert CyberM 25 Sie '04

25 Sie '04

Dnia środa, 25 sierpnia 2004 23:19, Radoslaw 'Goblin' Pieczonka napisał: > Hejka, > > troche czasu mnie tu nie bylo, wiec nie kojaze na jakim etapie jest backend > do warningow... osobiscie dopisalem sobie do tego wlasny skrypt ktory > dziala tak: > > warnings.on - do crona co 3h przeladowuje regolki tak by posiadajacy > ostrzezenie > otrzymali regolke iptables redirectujaca wszystko co idzie na port 80 na > 81 serwera. > > tam rezyduje php wyswietlajacy stronke z ostrzezeniem i buttonem > "Przywroc dostep > do internetu" po kliknieciu ktorego strona sie przeladowuje i php wywoluje > 'sudo warning.off ip_klienta'. Jedyny problem jaki mam to to iz > przegladarka uparcie > trzyma to przez okolo minute w cache'u co daje efekt taki: > - wklepuje www.wp.pl > - wyswietla sie warning > - klikam przywroc... > - strona sie przeladowuje > - i tu chcialbym redirectowac na pierwotnie wywolywana strone, ale > przegladarka ma > w cacheu warninga przez co choc internet smiga i inne strony wchodza to > przez okolo > minute www.wp.pl pokazuje nie aktywnego juz warninga. > > ale patent generalnie sie sprawdza :) > musze jeszcze rawrite'a regolki w apachu dla portu 81 skonfigurowac kiedy mozna spodziewac sie publikacji ? ;) Robert CyberM -- Sarocom Network (http://www.sarocom.net) Debian Project (http://www.debian.org)

1 0

poprawki do lms-makeopenbsdpf
by Repalf 25 Sie '04

25 Sie '04

analizowałem wersję # $Id: lms-makeopenbsdpf,v 1.25 2004/04/02 18:06:30 alec Exp $ i oto co poprawiłem: diff poniżej: 48c48 < my $bmask = 2**32 <<(32-$prefix); --- > my $bmask = ((2**32-1) <<(32-$prefix)); 211c212 < my $sdbq = $dbase->prepare("SELECT inet_address(address) AS address, mask FROM networks WHERE name = U --- > my $sdbq = $dbase->prepare("SELECT inet_ntoa(address) AS address, mask FROM networks WHERE name = UPPE 227c228 < my $sdbq = $dbase->prepare("SELECT ipaddr FROM nodes WHERE access = 1"); --- > my $sdbq = $dbase->prepare("SELECT inet_ntoa(ipaddr) AS ipaddr FROM nodes WHERE access = 1"); a co było źle: 1) maska podsieci obliczana od wartości 1.0.0.0.0 a nie od 255.255.255.255 2) nie ma polecenia w mysql o treści 'inet_address' 3) powinniśmy pobrać adres node'a w postaci '0.0.0.0' a nie zbita liczba, bo występuje błąd przy konwersji w procedurze matchip Testowane na FreeBSD4.10.

1 0

Re: Wiadomości administracyjne jako reklamy w Gadu-Gadu
by Radoslaw 'Goblin' Pieczonka 25 Sie '04

25 Sie '04

Hejka, troche czasu mnie tu nie bylo, wiec nie kojaze na jakim etapie jest backend do warningow... osobiscie dopisalem sobie do tego wlasny skrypt ktory dziala tak: warnings.on - do crona co 3h przeladowuje regolki tak by posiadajacy ostrzezenie otrzymali regolke iptables redirectujaca wszystko co idzie na port 80 na 81 serwera. tam rezyduje php wyswietlajacy stronke z ostrzezeniem i buttonem "Przywroc dostep do internetu" po kliknieciu ktorego strona sie przeladowuje i php wywoluje 'sudo warning.off ip_klienta'. Jedyny problem jaki mam to to iz przegladarka uparcie trzyma to przez okolo minute w cache'u co daje efekt taki: - wklepuje www.wp.pl - wyswietla sie warning - klikam przywroc... - strona sie przeladowuje - i tu chcialbym redirectowac na pierwotnie wywolywana strone, ale przegladarka ma w cacheu warninga przez co choc internet smiga i inne strony wchodza to przez okolo minute www.wp.pl pokazuje nie aktywnego juz warninga. ale patent generalnie sie sprawdza :) musze jeszcze rawrite'a regolki w apachu dla portu 81 skonfigurowac -- Goblin

1 0