Nie jesteś zalogowany.
Jeśli nie posiadasz konta, zarejestruj je już teraz! Pozwoli Ci ono w pełni korzystać z naszego serwisu. Spamerom dziękujemy!

Ogłoszenie

Prosimy o pomoc dla małej Julki — przekaż 1% podatku na Fundacji Dzieciom zdazyć z Pomocą.
Więcej informacji na dug.net.pl/pomagamy/.

#1  2009-10-27 05:02:35

  sidjestgit - Gość

sidjestgit
Gość

ten poradnik nie dziala

Ten poradnik http://dug.net.pl/tekst/79/instalacja_lstat_na_apache2
na squeeze nie dziala. (w sumie tyle)

(czy ktos weryfikuje poprawnosc tych "artykulow/textow"?)

ja moge zrobic artykul o irsssi na screnie i jesli nikt nie zweryfikuje to bedzie kicha

Kod:

apt-get install irssi
screen -r irssi
irssi

i co?

Ostatnio edytowany przez sidjestgit (2009-10-27 05:12:54)

 

#2  2009-10-27 05:39:21

  rychu - elektryk dyżurny

rychu
elektryk dyżurny
Skąd: gdańsk/kalmar
Zarejestrowany: 2004-12-28

Re: ten poradnik nie dziala

a może tylko w sidzie nie działa? albo działało, a po jakichś poprawkach przestało? nie rozumiem, dlaczego zgłaszasz takie wonty na forum. jeśli znalazłeś jakieś błędy to skontaktuj się prywatnie z autorem tego tekstu i je opisz.


linux regd. user #248790

Offline

 

#3  2009-10-27 08:02:51

  djjanek - Użytkownik

djjanek
Użytkownik
Skąd: whereis
Zarejestrowany: 2007-11-15
Serwis

Re: ten poradnik nie dziala

A może coś instalowałeś dodatkowego albo odinstalowałeś, a  squeeze nie należny do stabilnych wersji i nie musi wszystko działać.

Offline

 

#4  2009-10-27 08:04:33

  kamikaze - Administrator

kamikaze
Administrator
Zarejestrowany: 2004-04-16

Re: ten poradnik nie dziala

No i co, że nie działa, pozwij autora ;] Albo rusz głową i napisz mu co nie działa to być może poprawi. Być może, bo nie ma takiego obowiązku. Nie ma obowiązku ani pisać, ani poprawiać. A ty sobie marudź dalej.

Offline

 

#5  2009-10-27 08:39:06

  marg1 - Gentoowy Głupek

marg1
Gentoowy Głupek
Skąd: Bytom
Zarejestrowany: 2009-05-15

Re: ten poradnik nie dziala

sidjestgit napisał(-a):

Ten poradnik http://dug.net.pl/tekst/79/instalacja_lstat_na_apache2
na squeeze nie dziala. (w sumie tyle)

(czy ktos weryfikuje poprawnosc tych "artykulow/textow"?)

ja moge zrobic artykul o irsssi na screnie i jesli nikt nie zweryfikuje to bedzie kicha

Kod:

apt-get install irssi
screen -r irssi
irssi

i co?

Ja mogę zweryfikować, że jest błąd w Twoim artykule :)
Mam Sida, zainstalowałem sobie specjalnie Apache żeby sprawdzić i faktycznie ten lstat nie działa - brak pliku - kopiowanie folderu też nic nie pomogło, ale to może nie powód, żeby urządzać z tego sarkazm, bo skoro Autor napisał ten artykuł, znaczy, że u niego na pewno to działa. Może faktycznie w Sidzie nie działa.

Ostatnio edytowany przez marg1 (2009-10-27 09:52:35)


marg1@jid.dug.net.pl
Linux User Registration Number: #488674
CISCO CCNA Alumni :)

Offline

 

#6  2009-10-27 13:00:02

  sidjestgit - Gość

sidjestgit
Gość

Re: ten poradnik nie dziala

Nie mam do nikogo pretensji :)
Z wielu poradnikow na DUGu sam korzystalem, czasem linkowalem na DLPl i one po prostu dzialaly.

A ty sobie marudź dalej.

Tak - najlepiej mnie pobijcie :)

(ps.  to nie wina SIDa - probowalem na Lennym)

Ostatnio edytowany przez sidjestgit (2009-10-27 13:01:56)

 

#7  2009-10-27 13:06:47

  marg1 - Gentoowy Głupek

marg1
Gentoowy Głupek
Skąd: Bytom
Zarejestrowany: 2009-05-15

Re: ten poradnik nie dziala

Aleście są marudni!! :)
sidjestgit: weź to napraw bo se postawiłem stronę na wewnętrzynym IP i teraz będę sam sobie ją odiwedzał i potem patrzył na statystyki :D

Ostatnio edytowany przez marg1 (2009-10-27 13:08:21)


marg1@jid.dug.net.pl
Linux User Registration Number: #488674
CISCO CCNA Alumni :)

Offline

 

#8  2009-10-27 13:28:39

  sidjestgit - Gość

sidjestgit
Gość

Re: ten poradnik nie dziala

Zamknijcie ten watek.

 

#9  2009-10-27 14:04:17

  Bodzio - Ojciec Założyciel

Bodzio
Ojciec Założyciel
Skąd: Gorlice
Zarejestrowany: 2004-04-17
Serwis

Re: ten poradnik nie dziala

napisałem do giegiela na PW, ktoś pewnie też ? :)
dobra zamykam


Debian jest lepszy niż wszystkie klony
Linux register users: #359018
http://www.freebsd.org/gifs/powerlogo.gif
Beskid Niski

Offline

 

#10  2009-10-27 17:01:28

  Bodzio - Ojciec Założyciel

Bodzio
Ojciec Założyciel
Skąd: Gorlice
Zarejestrowany: 2004-04-17
Serwis

Re: ten poradnik nie dziala

widocznie zbyt szybko zamknąłem wątek - giegiel napisał, że mu działa, niech się wypowie. A autor wątku niech napisze co mu konkretnie nie śmiga.
I nie skaczcie sobie do oczu koguciki :)


Debian jest lepszy niż wszystkie klony
Linux register users: #359018
http://www.freebsd.org/gifs/powerlogo.gif
Beskid Niski

Offline

 

#11  2009-10-27 17:10:51

  giegiel - Członek DUG

giegiel
Członek DUG
Skąd: Chrzypsko Wielkie/Poznań
Zarejestrowany: 2006-04-15

Re: ten poradnik nie dziala

Właśnie ;P to można jeszcze do sieci ten topic przenieść ;P

Offline

 

#12  2009-10-27 17:37:44

  sidjestgit - Gość

sidjestgit
Gość

Re: ten poradnik nie dziala

:) nie skakalem nikomu do oczu. Troche sie tylko zasmucilem ze nie bangla.
(super ze giegiel zechciales przyjrzec sie temu blizej)
A wiec - lece zgodnie z poradnikiem - poinstalowalem to co trzeba i :

Kod:

cd lstat-2.3.2

Kod:

user@serw1:~/lstat-2.3.2$ ./configure --iso-8859-2 --with-httpdconf=/etc/apache2/apache2.conf --with-wwwuser=www-data --with-wwwgroup=www-data
INFO: Using www-data and www-data as WWW Server user and group
user@serw1:~/lstat-2.3.2$

pojawia sie takie info.
(w poradniku nie ma o tym mowy - w google tez nic nie znalazlem)
(w lennym i squeeze pojawia sie ten sam info)

 

#13  2009-10-27 17:41:23

  giegiel - Członek DUG

giegiel
Członek DUG
Skąd: Chrzypsko Wielkie/Poznań
Zarejestrowany: 2006-04-15

Re: ten poradnik nie dziala

A robiłeś dalej? Bo jak tak robi to znaczy że jest wsio ok. Nie ma słowa WARNING ani ERROR :) ale dopiszę że powinno się takie coś pojawić :P


Edit: dopiszę jeszcze że trzeba się odzywać jak coś nie działa :P tak na wszelki wypadek :)

Ostatnio edytowany przez giegiel (2009-10-27 17:42:14)

Offline

 

#14  2009-10-27 17:45:23

  marg1 - Gentoowy Głupek

marg1
Gentoowy Głupek
Skąd: Bytom
Zarejestrowany: 2009-05-15

Re: ten poradnik nie dziala

Mi zadziałało, ale chyba nie tak jak powinno:
usunąłem apache2.2-common, a co za tym idzie cały apache2 przez:

Kod:

sudo aptitude purge --purge apache2.2-common

zainstalowałem jeszcze raz apache2 i pod adresem http://mój_lokalny_adres/lstat/lstat.cgi widzę taki plik:

Kod:

#!/usr/bin/perl -w
use strict;
#use lib qw ( @@ LIBDIR@@ );
use lib qw ( /usr/local/lstat/lib/ );
# my $kas=/"/";

use RRDs;
use CGI qw (:standard);
use CGI::Carp qw (fatalsToBrowser croak );
use Plugins;
use Misc;
use Misc qw ( OpenUserConfig SaveUserConfig SetLang Initialize_configs );

use Sys::Hostname;
use POSIX qw( mktime strftime );
$ENV{'PATH'} = '/bin:/usr/bin:/sbin:/usr/sbin';

Initialize_configs () if (exists ($ENV{'MOD_PERL'})); #check and reinitialize config files for mod_perl

#limit size data form
$CGI::POST_MAX = 2000;
$CGI::DISABLE_UPLOADS = 1;

#use Misc qw ( %config $int_collected );
use vars qw ( %Tags );  #table ob tags

my $DefaultTemplate = "main.html";
my $charset = $dict {'CHARSET'}; #use correct charset

my $Page = "system";
#names of periods
my %perioddesc = ('1h',$dict{'LASTHOUR'},
        '6h',$dict{'LAST6HOUR'},
        '1d',$dict{'LASTDAY'},
        '1w',$dict{'LASTWEEK'},
        '1m',$dict{'LASTMONTH'});

$Tags {'PNG_URL'} = $sysconfig  {'PNG_URL'};
$Tags {'PNG_DIR'} = $sysconfig {'PNG_DIR'};
$Tags {'ICONS'} = $sysconfig {'ICONS'};
$Tags {'IMG'} = $tempconfig {'IMG'};
$Tags {'LANG_IMG'} = $tempconfig {'LANG_IMG'};
$Tags {'EDIT_URL'} = $sysconfig {'EDIT_URL'};
$Tags {'DOC_URL'} = $tempconfig {'DOC'};
$Tags {'DOC_ROOT'} = $sysconfig {'DOC_URL'};

#detect hostname
if (defined ($sysconfig {'HOSTNAME'})) {
 $Tags {'HOSTNAME'} =$sysconfig {'HOSTNAME'};
} else {
 $Tags {'HOSTNAME'} = hostname ();
}

#test if live is locked
my $live_locked = $userconfig {'LOCK_LIVE'};
$live_locked = 0 if (! defined ($live_locked));
$tempconfig {'LIVE_LOCKED' } = $live_locked;

#test if more info is locked
my $more_info = $userconfig {'MORE_INFO'};
$more_info = 0 if (! defined ($more_info));
$tempconfig {'SHOW_MORE_INFO' } = $more_info;


$tempconfig {'SCRIPT_URL' } = "./".url (-relative=>1);   #save script URL

$Tags {'SCRIPT_URL' } = $tempconfig {'SCRIPT_URL' };
my $scripturl2 = self_url ();
$Tags {'SELF_URL'} =$scripturl2;
$tempconfig {'SELF_URL'} =$scripturl2;

#clean old image files
  if (int (rand 50) == 1) {
  use File::stat;
   my $PNGDir=$sysconfig{'STAT_PNG_DIR'};
   if (opendir (DIR, "$PNGDir")) {
   my @files = grep {/\.png$/} readdir DIR;
   closedir DIR;
   foreach my $f (@files) {
   $f = $PNGDir.$f;
  my $mtime = stat ($f) ->mtime if ( -e $f);
  if ( defined ($mtime)) {
  my $diff = time -$mtime;
  unlink ($f) if ($diff > 180); # 3 min
  }
  }
 }
}

#default presentation period
my $from="1d";
my $to='now';
#read data form
if (url_param ('from')) {
$from =url_param ('from');
};
if (url_param ('to')) {
$to =url_param ('to');
};

if (param ('page')) {
$Page =param ('page');
croak "Invalid page name: $Page" if (!($Page =~ /^\w+$/));
};




if (param ('RESULT')) {
 if (param ('RESULT') eq 'OK_DATE') {
 #process data form form change period
 $from = mktime (0,0,0, param ('from_day'), param ('from_month') -1 , param ('from_year') -1900);
 $to = mktime (59,59,23, param ('to_day'), param ('to_month') -1 , param ('to_year') -1900);
 if ($from > $to ) {
   $Tags {'ERROR'} = 'Invalid date: TO_DATE must be greater or equal to FROM_DATE.';
  print header(-expires=>'now',-charset=>$charset);
  Gen (\%Tags,'error.html',1);
  exit;
  }
 }

 #select language
 if (param ('SET_LANG')) {
  if (! defined ($userconfig{'LANG'})) {
   my $lang = param ('RESULT');
   #test lang string
   croak "Invalid language name: $lang, contact with system administrator!\n"    if ( ($lang =~ /\W/i) || (length ($lang) > 6));
   $userconfig{'LANG'} = $lang;
   my %userconfig2;
   OpenUserConfig (\%userconfig2); #open user config
    if (IF_DEMO ()) {
    $DefaultTemplate = 'demo.html';
   } else {
   $userconfig2{'LANG'} = $lang;

  #save LANG info
     SaveUserConfig (\%userconfig2);
     print header(-Refresh=>"0; URL=$tempconfig{'SCRIPT_URL'}",-expires=>'now',-charset=>$charset);
     print start_html(''),
         end_html;
     exit;

  } #end NO demo
  }
 }
}

#detect language
if (! defined ($userconfig{'LANG'})) {
 $DefaultTemplate = "sellang.html";
 print header(-expires=>'now',-charset=>$charset);
 #generate HTML page from template
 Gen (\%Tags,$DefaultTemplate,1);
 exit
}

#test lock
if ( -e $sysconfig {'LSTAT_LCK'}) {
 $Tags{'LOCK_FILE'} = $sysconfig {'LSTAT_LCK'};
 $DefaultTemplate = "locked.html";
 print header(-expires=>'now',-charset=>$charset);
 #generate HTML page from template
 Gen (\%Tags,$DefaultTemplate,1);
 exit
}

#sub for pageprocess
if ($from eq  "any") {
 #generate page for choice period
$Tags {'PG'} = sub  {
  my $TagsRef = shift;
  my $today = time;
#  my $yesterday = $today - (24*60*60);

 # my @mytime = localtime $yesterday;
  my @mytime = localtime $today;   
  my @mytime2= localtime $today;

 $TagsRef ->{'FROM_DATE1'} =  [popup_menu (-name=>'from_year',-values=>[$mytime[5]+1900-2..$mytime[5]+1900],-default=>$mytime[5]+1900) ];
 $TagsRef ->{'FROM_DATE2'} = [popup_menu (-name=>'from_month',-values=>[1..12],-default=>$mytime[4]+1)];
 $TagsRef ->{'FROM_DATE3'} = [popup_menu (-name=>'from_day',-values=>[1..31],-default=>$mytime[3])];
 $TagsRef ->{'TO_DATE1'} = [popup_menu (-name=>'to_year',-values=>[$mytime2[5]+1900-2..$mytime2[5]+1900],-default=>$mytime2[5]+1900)];
 $TagsRef ->{'TO_DATE2'} = [popup_menu (-name=>'to_month',-values=>[1..12],-default=>$mytime2[4]+1)];
 $TagsRef ->{'TO_DATE3'} = [popup_menu (-name=>'to_day',-values=>[1..31],-default=>$mytime2[3])];
  $TagsRef ->{'page'} = $Page;
        Gen ($TagsRef, "anyperiod.html",1);
                }    ;

}
else {
#default for all pages
$Tags {'PG'} = sub  {
                         my $TagsRef = shift;
        Gen ($TagsRef, $Page);
                }    ;
}

#set periodinfo
if ($from =~ /^\d+$/) {
 #only numeric
 my $dateformat = $userconfig {'DATEF'}; #date format
 my $periodinfo = $dict{'FROM'}." ";
 $periodinfo .= strftime ($dateformat, localtime($from));
 $periodinfo .= " $dict{'TO'} ";
 if ( $to eq "now" ) {
  $periodinfo .= strftime ($dateformat, localtime);
   } else {
  $periodinfo .=  strftime ($dateformat, localtime($to));
  }
 $Tags {'PERIOD_INFO'} = $periodinfo;
} else {
 if (defined ($perioddesc {$from})) {
  $Tags {'PERIOD_INFO'} = $perioddesc {$from};
  } else {$Tags {'PERIOD_INFO'} = ''}
}

$Tags {'TIME'} = strftime ($userconfig{'DATETF'}, localtime); #store date and time of generating page

if (url_param ('template')) {
$DefaultTemplate =url_param ('template');
};

my $refresh = 1;
if (param ('refresh')) {
$refresh =param ('refresh');
};

$Tags {'PAGE'} = $Page;
$Tags {'FROM'} = $from;
$Tags {'TO'} = $to;


my $Privobjname;
my $objid;
my $up = $userconfig {'LIVE_PERIOD'};

if (param ('obj')) {
#stats only for one objects
$Privobjname = param ('obj');
$Tags {'OBJ_NAME'} = $Privobjname;
}

if (param ('format')) {
 #change language
 if (param ('LANG')) {
  my $lang=param ('LANG');
  SetLang ($lang);
 }
 #new format of data
 my $format=param ('format');
 #get all params
 my @ParamNames = param();
 my $paramline ='';
 foreach my $key (@ParamNames) {
  my $value = param ($key);
  $paramline .= "\&".$key.'='.$value;
 }

      my $objname = $1;
     my $obj;
      $obj = LoadObjectByName ($Privobjname); # load object to memory
      if (! defined ($obj)) { croak "Can't load object: $Privobjname \n" }
     $obj->Draw ($from, $to,$format,$paramline); #draw obj graph
     undef $obj;
     exit;

}

if (param ('la')) {

 #live action, after start or stop
 $_ = param ('la');
 $refresh = 1 if (/start/);  # start automatic refresh
 $refresh = 0 if (/stop/);  # stop automatic refresh
 if (/close/) {
  SendMsg (1, param ('id')) ; #destroy object;
  print header(), start_html (-title=>'Close This Window',-onLoad=>'javascript: void window.close()'), end_html();
  #$DefaultTemplate ="closelive.html";
  exit;
  }

 }

my $action='';
$action = param ('action') if (defined (param ('action')));

if ($action eq 'info') { #additional info
    print header(-expires=>'now',-charset=>$charset);
    $Tags {'OBJ_INFO'} = sub {
       #show data in table
      my $obj;
      if (defined ($Privobjname)) {
        #stadard object
        $obj = LoadObjectByName ($Privobjname); # load object to memory
       } else {
        #tempolary object
        $obj = LoadObjectByName ($objid);
       }

      if (! defined ($obj)) { croak "Can't load object: $Privobjname \n" }
     if (($obj->{'HAS_INFO'}) and $more_info) {
      $obj->Info (); #show addtional info
     }
   undef $obj;
 };

    Gen (\%Tags,"objinfo.html",1);
    exit;
 } #end info

 else
 {
 if ($action eq 'live') {
 #test if LIVE are locked
 if ( $live_locked) {
  croak ("LIVE graphs are locked.");
 } else {
 #start new object for live
 my $obj = LoadObjectByName ($Privobjname); # load object to memory
 if (! defined ($obj)) { croak "Can't load object: $Privobjname \n" }
 #find name for temp object
 my $newname;
 do {
  $objid = int (rand 100000);
  $newname = $sysconfig {'OBJ_DIR' }.$objid.'.obj';
   } while (-e $newname );
 $obj->name ($objid); #set newname
 $obj->UpdatePeriod ($up); #set new update period
 $obj->SaveToFile ($newname); #copy object
 undef $obj;
 my $err;
 if (! ($err = SendMsg (0, $objid)) ) { #send message fo daemon to create rrd file;
 #param (-name=>'id', -value=>$objid);
 $DefaultTemplate ="live.html";

 #refresh to new template
 my $scripturl3=$tempconfig {'SCRIPT_URL' };
 $refresh = $userconfig {'LIVE_REFRESH' }; #if start automatic refresh
 } else {
  #problems with SendMsg
  $Tags {'ERROR'} = $err;
  $DefaultTemplate ="error.html";
 }
}
} #end live


#print HTML header
if (url_param ('id') || ($action eq 'live')) {
  $objid = url_param ('id') if ($action ne 'live');
  my $scripturl3=$tempconfig {'SCRIPT_URL' };
  #filtered url without la param
  my $liveurl = "$scripturl3?id=$objid&from=-600&template=live.html&refresh=$refresh";
  $Tags {'LIVE_URL'} = $liveurl;
  $Tags {'LIVETABLE_URL'} = "$scripturl3?id=$objid&from=-600&template=table.html"; #for show table for live object
  $Tags {'OBJ_NAME'} = $objid;

  #sub for show live data in table
  $Tags {'ID'} = sub {
#     $objid = url_param ('id'); #get object id
#     $objid = param ('id'); #get object id
#     my $objfile = $config {'TEMP_DIR' }.$objid.'.obj';
     my $obj = LoadObjectByName ($objid);
      if (! defined ($obj)) { croak "Can't load object: $objid\n" }
      $obj->Draw ($from, $to, "nomenu"); #draw obj data
      undef $obj;
  };


 if ($refresh && ($DefaultTemplate eq 'live.html')) { #refresh only for Live objects
  print header(-Refresh=>"$up; URL=$liveurl",-expires=>'now',-charset=>$charset);
  } else {
  #header without automatic refresh
  print header(-expires=>'now',-charset=>$charset);
  }
} else
{ #print header(-Refresh=>"300; URL=$scripturl2",-expires=>'+20s');
 print header (-charset=>$charset,-expires=>'now');
 }
} #end live process

 #save this code to tags
$Tags {'TABLE'} = sub {
      #show data in table
      my $obj;
      if (defined ($Privobjname)) {
        #stadard object
        $obj = LoadObjectByName ($Privobjname); # load object to memory
       } else {
        #tempolary object
        $obj = LoadObjectByName ($objid);
       }

      if (! defined ($obj)) { croak "Can't load object: $Privobjname \n" }
      $obj->ShowData ($from, $to); #show table with data
      undef $obj;
};

$Tags {'DRAW'} = sub {
     my $paramline = shift;
     $paramline =~ s/^(\w+)//; #extract objname
     my $objname = $1;
     my $obj;
      $obj = LoadObjectByName ($objname); # load object to memory
      if (! defined ($obj)) { croak "Can't load object: $objname \n" }
      $obj->Draw ($from, $to,'',$paramline); #draw obj graph
      undef $obj;
};

$Tags {'CUSTOM_MENU'} = sub {
 my %pages;
 my @custompages;
 get_page_index (\%pages); #load all pages names
 foreach my $pagename (keys %pages) {
  push (@custompages, $pagename) if ($pagename =~ /^page\d+$/); #find all custom pages
 }
 if (@custompages) {
  foreach my $pagename (@custompages) {
   print ("<A HREF=\"",$Tags {'SCRIPT_URL' },"\?from=$from\&to=$to\&page=$pagename\">\n");
   print ("<IMG SRC=\"$Tags{'ICONS'}\/right.gif\" BORDER=0>$pages{$pagename}</A><BR>\n");
  }
 }
};

$Tags {'PAGE_NAME'} = sub {
 my %pages;
 get_page_index (\%pages); #load all pages names
 if (defined ($pages {$Page})) {
 print $pages {$Page}  #print current page name
 }
};


#generate HTML page from template
Gen (\%Tags,$DefaultTemplate,1);

Nie mam innej możliwości, więc sobie postawiłem apache na lokalnym adresie, ale to chyba nie przeszkadza, bo stronę przez niego widzę -tzn to co ma być na stronie:)

Ostatnio edytowany przez marg1 (2009-10-27 17:48:16)


marg1@jid.dug.net.pl
Linux User Registration Number: #488674
CISCO CCNA Alumni :)

Offline

 

#15  2009-10-27 17:47:45

  giegiel - Członek DUG

giegiel
Członek DUG
Skąd: Chrzypsko Wielkie/Poznań
Zarejestrowany: 2006-04-15

Re: ten poradnik nie dziala

Masz zainstalowane php5, php5-cgi i libapache2-mod-php5 ? Tak się dzieje jak nie ma cgi zainstalowanego

Offline

 

#16  2009-10-27 17:49:04

  sidjestgit - Gość

sidjestgit
Gość

Re: ten poradnik nie dziala

Ok - dalej

Kod:

user:/home/user/lstat-2.3.2# cp /usr/local/lstat/bin/lstatd.rc /etc/init.d/lstat
cp: nie można wykonać stat na `/usr/local/lstat/bin/lstatd.rc': Nie ma takiego pliku ani katalogu
user:/home/user/lstat-2.3.2#

jakis katalog trzeba zrobic?

Kod:

user:/usr/local# ls -a > usrlocalpliki.txt

usrlocalpliki.txt

Kod:

.
..
bin
etc
games
include
lib
man
sbin
share
src

Ostatnio edytowany przez sidjestgit (2009-10-27 17:55:45)

 

#17  2009-10-27 18:00:53

  marg1 - Gentoowy Głupek

marg1
Gentoowy Głupek
Skąd: Bytom
Zarejestrowany: 2009-05-15

Re: ten poradnik nie dziala

giegiel napisał(-a):

Masz zainstalowane php5, php5-cgi i libapache2-mod-php5 ? Tak się dzieje jak nie ma cgi zainstalowanego

Zainstalowałem je, ale otrzymałem konflikt i taki komunikat:

Kod:

marg1@siduxbox:/etc$ sudo aptitude install  php5 php5-cgi  libapache2-mod-php5 
Czytanie list pakietów... Gotowe                                               
Budowanie drzewa zależności                                                    
Odczyt informacji o stanie... Gotowe                                           
Odczyt dodatkowych informacji o stanie... Gotowe                               
Inicjalizacja stanów pakietów... Gotowe                                        
Następujące pakiety mają NIESPEŁNIONE zależności:                              
  apache2-mpm-prefork apache2-mpm-worker                                       
Następujące NOWE pakiety zostaną zainstalowane:                                
  libapache2-mod-php5 php5 php5-cgi php5-common{a}                             
Następujące pakiety POLECANE przez inne NIE zostaną zainstalowane:             
  php5-suhosin                                                                 
0 pakietów aktualizowanych, 5 instalowanych, 0 do usunięcia i 0 nie aktualizowanych.
Do pobrania 2620kB/8145kB archiwów. Zajęte po rozpakowaniu: 18,5MB.                 
Następujące pakiety mają niespełnione zależności:                                   
  apache2-mpm-worker: Jest w konflikcie z: apache2-mpm który jest pakietem wirtualnym.
  apache2-mpm-prefork: Jest w konflikcie z: apache2-mpm który jest pakietem wirtualnym.
Następujące działania rozwiążą problemy z zależnościami:                               

Zatrzymanie bieżących wersji następujących pakietów:
apache2-mpm-prefork [nie zainstalowany]             
libapache2-mod-php5 [nie zainstalowany]             

Tier: Safe actions (10000)

Zaakceptować rozwiązanie? [T/n/q/?] 
Następujące NOWE pakiety zostaną zainstalowane:
  php5 php5-cgi php5-common{a}                 
Następujące pakiety POLECANE przez inne NIE zostaną zainstalowane:
  php5-suhosin                                                    
0 pakietów aktualizowanych, 3 instalowanych, 0 do usunięcia i 0 nie aktualizowanych.
Do pobrania 0B/5525kB archiwów. Zajęte po rozpakowaniu: 12,2MB.                     
Kontynuować? [T/n/?]                                                                
Zapisywanie dodatkowych informacji o stanie... Gotowe                               
Zaznaczenie poprzednio niezaznaczonego pakietu php5-common.                         
(Odczytywanie bazy danych ... 154807 plików i katalogów obecnie zainstalowanych.)   
Rozpakowanie php5-common (z .../php5-common_5.2.11.dfsg.1-1_amd64.deb) ...          
Zaznaczenie poprzednio niezaznaczonego pakietu php5-cgi.                            
Rozpakowanie php5-cgi (z .../php5-cgi_5.2.11.dfsg.1-1_amd64.deb) ...                
Zaznaczenie poprzednio niezaznaczonego pakietu php5.                                
Rozpakowanie php5 (z .../php5_5.2.11.dfsg.1-1_all.deb) ...                          
Przetwarzanie wyzwalaczy dla man-db...                                              
Konfigurowanie php5-common (5.2.11.dfsg.1-1) ...                                    
Konfigurowanie php5-cgi (5.2.11.dfsg.1-1) ...

Creating config file /etc/php5/cgi/php.ini with new version
update-alternatives: using /usr/bin/php5-cgi to provide /usr/bin/php-cgi (php-cgi) in auto mode.
update-alternatives: using /usr/lib/cgi-bin/php5 to provide /usr/lib/cgi-bin/php (php-cgi-bin) in auto mode.
Konfigurowanie php5 (5.2.11.dfsg.1-1) ...
Czytanie list pakietów... Gotowe
Budowanie drzewa zależności
Odczyt informacji o stanie... Gotowe
Odczyt dodatkowych informacji o stanie... Gotowe
Inicjalizacja stanów pakietów... Gotowe
Zapisywanie dodatkowych informacji o stanie... Gotowe

Przeładowałem apache i lstat i dalej ten sam plik mam pod adresem:)
Nie wiem teraz, które pakiety mam odinstalować, żeby czegoś nie spieprzyć?

Ostatnio edytowany przez marg1 (2009-10-27 18:04:23)


marg1@jid.dug.net.pl
Linux User Registration Number: #488674
CISCO CCNA Alumni :)

Offline

 

#18  2009-10-27 18:09:07

  giegiel - Członek DUG

giegiel
Członek DUG
Skąd: Chrzypsko Wielkie/Poznań
Zarejestrowany: 2006-04-15

Re: ten poradnik nie dziala

hemm to zrób może chmod -R 777 /var/www/lstat/*  Wiem że tak sie nie powinno robić ale trudno ;p


u mnie na squeeze banglało bez stęknięcia nawet ;P

Ostatnio edytowany przez giegiel (2009-10-27 18:12:01)

Offline

 

#19  2009-10-27 18:11:41

  marg1 - Gentoowy Głupek

marg1
Gentoowy Głupek
Skąd: Bytom
Zarejestrowany: 2009-05-15

Re: ten poradnik nie dziala

Jak się nie zgodziłem na zatrzymanie, podpowiedział takie rozwiązanie:

Kod:

Usunięcie następujących pakietów:
apache2-mpm-worker               

Tier: Remove packages (30000)

Zaakceptować rozwiązanie? [T/n/q/?] 
Następujące NOWE pakiety zostaną zainstalowane:
  apache2-mpm-prefork{a} libapache2-mod-php5   
Następujące pakiety zostaną USUNIĘTE:          
  apache2-mpm-worker{a}                        
0 pakietów aktualizowanych, 2 instalowanych, 1 do usunięcia i 0 nie aktualizowanych.
Do pobrania 2620kB archiwów. Zajęte po rozpakowaniu: 6267kB.                        
Kontynuować? [T/n/?]                                                                
Zapisywanie dodatkowych informacji o stanie... Gotowe                               
Pobieranie:1 http://ftp.pl.debian.org unstable/main apache2-mpm-prefork 2.2.14-1 [2314B]
Pobieranie:2 http://ftp.pl.debian.org unstable/main libapache2-mod-php5 5.2.11.dfsg.1-1 [2618kB]
Pobrano 2620kB w 9s (265kB/s)                                                                          
dpkg: apache2-mpm-worker: problemy z zależnościami, usuwanie według żądania:                           
 apache2 zależy od apache2-mpm-worker (= 2.2.14-1) | apache2-mpm-prefork (= 2.2.14-1) | apache2-mpm-event (= 2.2.14-1) | apache2-mpm-itk (= 2.2.14-1); jednakże:                                              
  Pakiet apache2-mpm-worker jest przeznaczony do usunięcia.                                            
  Pakiet apache2-mpm-prefork nie jest zainstalowany.                                                   
  Pakiet apache2-mpm-event nie jest zainstalowany.                                                     
  Pakiet apache2-mpm-itk nie jest zainstalowany.
(Odczytywanie bazy danych ... 154850 plików i katalogów obecnie zainstalowanych.)
Usuwanie apache2-mpm-worker ...
Zaznaczenie poprzednio niezaznaczonego pakietu apache2-mpm-prefork.
(Odczytywanie bazy danych ... 154844 plików i katalogów obecnie zainstalowanych.)
Rozpakowanie apache2-mpm-prefork (z .../apache2-mpm-prefork_2.2.14-1_amd64.deb) ...
Zaznaczenie poprzednio niezaznaczonego pakietu libapache2-mod-php5.
Rozpakowanie libapache2-mod-php5 (z .../libapache2-mod-php5_5.2.11.dfsg.1-1_amd64.deb) ...
Konfigurowanie apache2-mpm-prefork (2.2.14-1) ...
Konfigurowanie libapache2-mod-php5 (5.2.11.dfsg.1-1) ...

Creating config file /etc/php5/apache2/php.ini with new version
Czytanie list pakietów... Gotowe
Budowanie drzewa zależności
Odczyt informacji o stanie... Gotowe
Odczyt dodatkowych informacji o stanie... Gotowe
Inicjalizacja stanów pakietów... Gotowe
Zapisywanie dodatkowych informacji o stanie... Gotowe

Nie wpłynęło to na działanie apacha. To co zrobić? zmienić upranienia?
Zmieniłem, przeładowałem oba i nadal ten sam plik :)

Ostatnio edytowany przez marg1 (2009-10-27 18:15:43)


marg1@jid.dug.net.pl
Linux User Registration Number: #488674
CISCO CCNA Alumni :)

Offline

 

#20  2009-10-27 18:16:09

  djjanek - Użytkownik

djjanek
Użytkownik
Skąd: whereis
Zarejestrowany: 2007-11-15
Serwis

Re: ten poradnik nie dziala

Albo ja mam coś z oczami albo cos kolega niedoczytał.

Po conofigure dajemy make i make install :P a nie zaraz kopiowanie :P

Edit:
Ostatni instalowąłem na 2 maszynkach lenny i jedynie czego brakuje tutaj i sam musiałem wymyślać to configuracja aliasu na apachu.


Zweryfikowałem poradnik i na lenny działa.

Ostatnio edytowany przez djjanek (2009-10-27 18:18:29)

Offline

 

#21  2009-10-27 18:20:16

  giegiel - Członek DUG

giegiel
Członek DUG
Skąd: Chrzypsko Wielkie/Poznań
Zarejestrowany: 2006-04-15

Re: ten poradnik nie dziala

sidjestgit napisał(-a):

Ok - dalej

Kod:

user:/home/user/lstat-2.3.2# cp /usr/local/lstat/bin/lstatd.rc /etc/init.d/lstat
cp: nie można wykonać stat na `/usr/local/lstat/bin/lstatd.rc': Nie ma takiego pliku ani katalogu
user:/home/user/lstat-2.3.2#

jakis katalog trzeba zrobic?

Kod:

user:/usr/local# ls -a > usrlocalpliki.txt

usrlocalpliki.txt

Kod:

.
..
bin
etc
games
include
lib
man
sbin
share
src

Wszystko wiadomo ;) nie wina poradnika tylko usera.... Co nie doczytuje do końca...

make i sudo make install...


Ja się załamie psychicznie zaraz :P

Offline

 

#22  2009-10-27 18:26:43

  marg1 - Gentoowy Głupek

marg1
Gentoowy Głupek
Skąd: Bytom
Zarejestrowany: 2009-05-15

Re: ten poradnik nie dziala

Tu znalazłem rozwiązanie problemu z niezinterpretowanym plikiem, bo miałem to samo co sidjestgit niżej :):
http://forum.dug.net.pl/viewtopic.php?id=10117
Dopisałem w pliku /etc/apache2/httpd.conf:

Kod:

Include /etc/apache2/lstat.conf

ale przy przładowaniu apacha wyskoczył komunikat:

Kod:

apache2: Syntax error on line 207 of /etc/apache2/apache2.conf: Syntax error on line 1 of /etc/apache2/httpd.conf: Could not open configuration file /etc/apache2/lstat.conf: No such file or directory
 failed!

Zauważyłem, że ten plik lstat.conf jest w folderze:

Kod:

/etc/apache

więc go skopiowałem do

Kod:

/etc/apache2

udało mi się po tym poprawnie przeładować apache2, ale teraz pod adresem statystyk mam:

Software error:
Cant open configfile /usr/local/lstat/etc/pages/user.config : Permission denied
at /usr/local/lstat/lib//Misc.pm line 220
BEGIN failed--compilation aborted at /usr/local/lstat/lib//Misc.pm line 220.
Compilation failed in require at /usr/local/lstat/lib//Std_obj.pm line 2.
BEGIN failed--compilation aborted at /usr/local/lstat/lib//Std_obj.pm line 2.
Compilation failed in require at /usr/local/lstat/lib//Plugins.pm line 4.
BEGIN failed--compilation aborted at /usr/local/lstat/lib//Plugins.pm line 4.
Compilation failed in require at /usr/local/lstat/www/lstat.cgi line 10.
BEGIN failed--compilation aborted at /usr/local/lstat/www/lstat.cgi line 10.

For help, please send mail to the webmaster (webmaster@localhost), giving this error message and the time and date of the error.

Już nie wiem, który to ma być lstat.conf w /etc/apache2?:)
Niech mnie ktoś przytulil...

Ostatnio edytowany przez marg1 (2009-10-27 19:07:37)


marg1@jid.dug.net.pl
Linux User Registration Number: #488674
CISCO CCNA Alumni :)

Offline

 

#23  2009-10-27 18:45:02

  sidjestgit - Gość

sidjestgit
Gość

Re: ten poradnik nie dziala

http://mojapacz.com/lstat/lstat.cgi
:D

Kod:

#!/usr/bin/perl -w
use strict;
#use lib qw ( @@ LIBDIR@@ );
use lib qw ( /usr/local/lstat/lib/ );
# my $kas=/"/";

use RRDs;
use CGI qw (:standard);
use CGI::Carp qw (fatalsToBrowser croak );
use Plugins;
use Misc;
use Misc qw ( OpenUserConfig SaveUserConfig SetLang Initialize_configs );

use Sys::Hostname;
use POSIX qw( mktime strftime );
$ENV{'PATH'} = '/bin:/usr/bin:/sbin:/usr/sbin';

Initialize_configs () if (exists ($ENV{'MOD_PERL'})); #check and reinitialize config files for mod_perl

#limit size data form
$CGI::POST_MAX = 2000;
$CGI::DISABLE_UPLOADS = 1;

#use Misc qw ( %config $int_collected );
use vars qw ( %Tags );  #table ob tags

my $DefaultTemplate = "main.html";
my $charset = $dict {'CHARSET'}; #use correct charset

my $Page = "system";
#names of periods
my %perioddesc = ('1h',$dict{'LASTHOUR'},
        '6h',$dict{'LAST6HOUR'},
        '1d',$dict{'LASTDAY'},
        '1w',$dict{'LASTWEEK'},
        '1m',$dict{'LASTMONTH'});

$Tags {'PNG_URL'} = $sysconfig  {'PNG_URL'};
$Tags {'PNG_DIR'} = $sysconfig {'PNG_DIR'};
$Tags {'ICONS'} = $sysconfig {'ICONS'};
$Tags {'IMG'} = $tempconfig {'IMG'};
$Tags {'LANG_IMG'} = $tempconfig {'LANG_IMG'};
$Tags {'EDIT_URL'} = $sysconfig {'EDIT_URL'};
$Tags {'DOC_URL'} = $tempconfig {'DOC'};
$Tags {'DOC_ROOT'} = $sysconfig {'DOC_URL'};

#detect hostname
if (defined ($sysconfig {'HOSTNAME'})) {
 $Tags {'HOSTNAME'} =$sysconfig {'HOSTNAME'};
} else {
 $Tags {'HOSTNAME'} = hostname ();
}

#test if live is locked
my $live_locked = $userconfig {'LOCK_LIVE'};
$live_locked = 0 if (! defined ($live_locked));
$tempconfig {'LIVE_LOCKED' } = $live_locked;

#test if more info is locked
my $more_info = $userconfig {'MORE_INFO'};
$more_info = 0 if (! defined ($more_info));
$tempconfig {'SHOW_MORE_INFO' } = $more_info;


$tempconfig {'SCRIPT_URL' } = "./".url (-relative=>1);   #save script URL

$Tags {'SCRIPT_URL' } = $tempconfig {'SCRIPT_URL' };
my $scripturl2 = self_url ();
$Tags {'SELF_URL'} =$scripturl2;
$tempconfig {'SELF_URL'} =$scripturl2;

#clean old image files
  if (int (rand 50) == 1) {
  use File::stat;
   my $PNGDir=$sysconfig{'STAT_PNG_DIR'};
   if (opendir (DIR, "$PNGDir")) {
   my @files = grep {/\.png$/} readdir DIR;
   closedir DIR;
   foreach my $f (@files) {
   $f = $PNGDir.$f;
  my $mtime = stat ($f) ->mtime if ( -e $f);
  if ( defined ($mtime)) {
  my $diff = time -$mtime;
  unlink ($f) if ($diff > 180); # 3 min
  }
  }
 }
}

#default presentation period
my $from="1d";
my $to='now';
#read data form
if (url_param ('from')) {
$from =url_param ('from');
};
if (url_param ('to')) {
$to =url_param ('to');
};

if (param ('page')) {
$Page =param ('page');
croak "Invalid page name: $Page" if (!($Page =~ /^\w+$/));
};




if (param ('RESULT')) {
 if (param ('RESULT') eq 'OK_DATE') {
 #process data form form change period
 $from = mktime (0,0,0, param ('from_day'), param ('from_month') -1 , param ('from_year') -1900);
 $to = mktime (59,59,23, param ('to_day'), param ('to_month') -1 , param ('to_year') -1900);
 if ($from > $to ) {
   $Tags {'ERROR'} = 'Invalid date: TO_DATE must be greater or equal to FROM_DATE.';
  print header(-expires=>'now',-charset=>$charset);
  Gen (\%Tags,'error.html',1);
  exit;
  }
 }

 #select language
 if (param ('SET_LANG')) {
  if (! defined ($userconfig{'LANG'})) {
   my $lang = param ('RESULT');
   #test lang string
   croak "Invalid language name: $lang, contact with system administrator!\n"    if ( ($lang =~ /\W/i) || (length ($lang) > 6));
   $userconfig{'LANG'} = $lang;
   my %userconfig2;
   OpenUserConfig (\%userconfig2); #open user config
    if (IF_DEMO ()) {
    $DefaultTemplate = 'demo.html';
   } else {
   $userconfig2{'LANG'} = $lang;

  #save LANG info
     SaveUserConfig (\%userconfig2);
     print header(-Refresh=>"0; URL=$tempconfig{'SCRIPT_URL'}",-expires=>'now',-charset=>$charset);
     print start_html(''),
         end_html;
     exit;

  } #end NO demo
  }
 }
}

#detect language
if (! defined ($userconfig{'LANG'})) {
 $DefaultTemplate = "sellang.html";
 print header(-expires=>'now',-charset=>$charset);
 #generate HTML page from template
 Gen (\%Tags,$DefaultTemplate,1);
 exit
}

#test lock
if ( -e $sysconfig {'LSTAT_LCK'}) {
 $Tags{'LOCK_FILE'} = $sysconfig {'LSTAT_LCK'};
 $DefaultTemplate = "locked.html";
 print header(-expires=>'now',-charset=>$charset);
 #generate HTML page from template
 Gen (\%Tags,$DefaultTemplate,1);
 exit
}

#sub for pageprocess
if ($from eq  "any") {
 #generate page for choice period
$Tags {'PG'} = sub  {
  my $TagsRef = shift;
  my $today = time;
#  my $yesterday = $today - (24*60*60);

 # my @mytime = localtime $yesterday;
  my @mytime = localtime $today;   
  my @mytime2= localtime $today;

 $TagsRef ->{'FROM_DATE1'} =  [popup_menu (-name=>'from_year',-values=>[$mytime[5]+1900-2..$mytime[5]+1900],-default=>$mytime[5]+1900) ];
 $TagsRef ->{'FROM_DATE2'} = [popup_menu (-name=>'from_month',-values=>[1..12],-default=>$mytime[4]+1)];
 $TagsRef ->{'FROM_DATE3'} = [popup_menu (-name=>'from_day',-values=>[1..31],-default=>$mytime[3])];
 $TagsRef ->{'TO_DATE1'} = [popup_menu (-name=>'to_year',-values=>[$mytime2[5]+1900-2..$mytime2[5]+1900],-default=>$mytime2[5]+1900)];
 $TagsRef ->{'TO_DATE2'} = [popup_menu (-name=>'to_month',-values=>[1..12],-default=>$mytime2[4]+1)];
 $TagsRef ->{'TO_DATE3'} = [popup_menu (-name=>'to_day',-values=>[1..31],-default=>$mytime2[3])];
  $TagsRef ->{'page'} = $Page;
        Gen ($TagsRef, "anyperiod.html",1);
                }    ;

}
else {
#default for all pages
$Tags {'PG'} = sub  {
                         my $TagsRef = shift;
        Gen ($TagsRef, $Page);
                }    ;
}

#set periodinfo
if ($from =~ /^\d+$/) {
 #only numeric
 my $dateformat = $userconfig {'DATEF'}; #date format
 my $periodinfo = $dict{'FROM'}." ";
 $periodinfo .= strftime ($dateformat, localtime($from));
 $periodinfo .= " $dict{'TO'} ";
 if ( $to eq "now" ) {
  $periodinfo .= strftime ($dateformat, localtime);
   } else {
  $periodinfo .=  strftime ($dateformat, localtime($to));
  }
 $Tags {'PERIOD_INFO'} = $periodinfo;
} else {
 if (defined ($perioddesc {$from})) {
  $Tags {'PERIOD_INFO'} = $perioddesc {$from};
  } else {$Tags {'PERIOD_INFO'} = ''}
}

$Tags {'TIME'} = strftime ($userconfig{'DATETF'}, localtime); #store date and time of generating page

if (url_param ('template')) {
$DefaultTemplate =url_param ('template');
};

my $refresh = 1;
if (param ('refresh')) {
$refresh =param ('refresh');
};

$Tags {'PAGE'} = $Page;
$Tags {'FROM'} = $from;
$Tags {'TO'} = $to;


my $Privobjname;
my $objid;
my $up = $userconfig {'LIVE_PERIOD'};

if (param ('obj')) {
#stats only for one objects
$Privobjname = param ('obj');
$Tags {'OBJ_NAME'} = $Privobjname;
}

if (param ('format')) {
 #change language
 if (param ('LANG')) {
  my $lang=param ('LANG');
  SetLang ($lang);
 }
 #new format of data
 my $format=param ('format');
 #get all params
 my @ParamNames = param();
 my $paramline ='';
 foreach my $key (@ParamNames) {
  my $value = param ($key);
  $paramline .= "\&".$key.'='.$value;
 }

      my $objname = $1;
     my $obj;
      $obj = LoadObjectByName ($Privobjname); # load object to memory
      if (! defined ($obj)) { croak "Can't load object: $Privobjname \n" }
     $obj->Draw ($from, $to,$format,$paramline); #draw obj graph
     undef $obj;
     exit;

}

if (param ('la')) {

 #live action, after start or stop
 $_ = param ('la');
 $refresh = 1 if (/start/);  # start automatic refresh
 $refresh = 0 if (/stop/);  # stop automatic refresh
 if (/close/) {
  SendMsg (1, param ('id')) ; #destroy object;
  print header(), start_html (-title=>'Close This Window',-onLoad=>'javascript: void window.close()'), end_html();
  #$DefaultTemplate ="closelive.html";
  exit;
  }

 }

my $action='';
$action = param ('action') if (defined (param ('action')));

if ($action eq 'info') { #additional info
    print header(-expires=>'now',-charset=>$charset);
    $Tags {'OBJ_INFO'} = sub {
       #show data in table
      my $obj;
      if (defined ($Privobjname)) {
        #stadard object
        $obj = LoadObjectByName ($Privobjname); # load object to memory
       } else {
        #tempolary object
        $obj = LoadObjectByName ($objid);
       }

      if (! defined ($obj)) { croak "Can't load object: $Privobjname \n" }
     if (($obj->{'HAS_INFO'}) and $more_info) {
      $obj->Info (); #show addtional info
     }
   undef $obj;
 };

    Gen (\%Tags,"objinfo.html",1);
    exit;
 } #end info

 else
 {
 if ($action eq 'live') {
 #test if LIVE are locked
 if ( $live_locked) {
  croak ("LIVE graphs are locked.");
 } else {
 #start new object for live
 my $obj = LoadObjectByName ($Privobjname); # load object to memory
 if (! defined ($obj)) { croak "Can't load object: $Privobjname \n" }
 #find name for temp object
 my $newname;
 do {
  $objid = int (rand 100000);
  $newname = $sysconfig {'OBJ_DIR' }.$objid.'.obj';
   } while (-e $newname );
 $obj->name ($objid); #set newname
 $obj->UpdatePeriod ($up); #set new update period
 $obj->SaveToFile ($newname); #copy object
 undef $obj;
 my $err;
 if (! ($err = SendMsg (0, $objid)) ) { #send message fo daemon to create rrd file;
 #param (-name=>'id', -value=>$objid);
 $DefaultTemplate ="live.html";

 #refresh to new template
 my $scripturl3=$tempconfig {'SCRIPT_URL' };
 $refresh = $userconfig {'LIVE_REFRESH' }; #if start automatic refresh
 } else {
  #problems with SendMsg
  $Tags {'ERROR'} = $err;
  $DefaultTemplate ="error.html";
 }
}
} #end live


#print HTML header
if (url_param ('id') || ($action eq 'live')) {
  $objid = url_param ('id') if ($action ne 'live');
  my $scripturl3=$tempconfig {'SCRIPT_URL' };
  #filtered url without la param
  my $liveurl = "$scripturl3?id=$objid&from=-600&template=live.html&refresh=$refresh";
  $Tags {'LIVE_URL'} = $liveurl;
  $Tags {'LIVETABLE_URL'} = "$scripturl3?id=$objid&from=-600&template=table.html"; #for show table for live object
  $Tags {'OBJ_NAME'} = $objid;

  #sub for show live data in table
  $Tags {'ID'} = sub {
#     $objid = url_param ('id'); #get object id
#     $objid = param ('id'); #get object id
#     my $objfile = $config {'TEMP_DIR' }.$objid.'.obj';
     my $obj = LoadObjectByName ($objid);
      if (! defined ($obj)) { croak "Can't load object: $objid\n" }
      $obj->Draw ($from, $to, "nomenu"); #draw obj data
      undef $obj;
  };


 if ($refresh && ($DefaultTemplate eq 'live.html')) { #refresh only for Live objects
  print header(-Refresh=>"$up; URL=$liveurl",-expires=>'now',-charset=>$charset);
  } else {
  #header without automatic refresh
  print header(-expires=>'now',-charset=>$charset);
  }
} else
{ #print header(-Refresh=>"300; URL=$scripturl2",-expires=>'+20s');
 print header (-charset=>$charset,-expires=>'now');
 }
} #end live process

 #save this code to tags
$Tags {'TABLE'} = sub {
      #show data in table
      my $obj;
      if (defined ($Privobjname)) {
        #stadard object
        $obj = LoadObjectByName ($Privobjname); # load object to memory
       } else {
        #tempolary object
        $obj = LoadObjectByName ($objid);
       }

      if (! defined ($obj)) { croak "Can't load object: $Privobjname \n" }
      $obj->ShowData ($from, $to); #show table with data
      undef $obj;
};

$Tags {'DRAW'} = sub {
     my $paramline = shift;
     $paramline =~ s/^(\w+)//; #extract objname
     my $objname = $1;
     my $obj;
      $obj = LoadObjectByName ($objname); # load object to memory
      if (! defined ($obj)) { croak "Can't load object: $objname \n" }
      $obj->Draw ($from, $to,'',$paramline); #draw obj graph
      undef $obj;
};

$Tags {'CUSTOM_MENU'} = sub {
 my %pages;
 my @custompages;
 get_page_index (\%pages); #load all pages names
 foreach my $pagename (keys %pages) {
  push (@custompages, $pagename) if ($pagename =~ /^page\d+$/); #find all custom pages
 }
 if (@custompages) {
  foreach my $pagename (@custompages) {
   print ("<A HREF=\"",$Tags {'SCRIPT_URL' },"\?from=$from\&to=$to\&page=$pagename\">\n");
   print ("<IMG SRC=\"$Tags{'ICONS'}\/right.gif\" BORDER=0>$pages{$pagename}</A><BR>\n");
  }
 }
};

$Tags {'PAGE_NAME'} = sub {
 my %pages;
 get_page_index (\%pages); #load all pages names
 if (defined ($pages {$Page})) {
 print $pages {$Page}  #print current page name
 }
};


#generate HTML page from template
Gen (\%Tags,$DefaultTemplate,1);
 

#24  2009-10-27 19:26:28

  marg1 - Gentoowy Głupek

marg1
Gentoowy Głupek
Skąd: Bytom
Zarejestrowany: 2009-05-15

Re: ten poradnik nie dziala

Patrz 2 posty wyżej :) Wina jak zwykle leży po środku - ja się poddaje :D
Tak właśnie wygląda zemsta za pozamykanie Indian w rezerwatach :)
sidjestgit: pod tym adresem, co podałeś w ogóle nic się nie wyświetla :)

Ostatnio edytowany przez marg1 (2009-10-27 19:37:38)


marg1@jid.dug.net.pl
Linux User Registration Number: #488674
CISCO CCNA Alumni :)

Offline

 

#25  2009-10-27 19:52:13

  sidjestgit - Gość

sidjestgit
Gość

Re: ten poradnik nie dziala

Robie to na kompie domowym.
Jak dojde jak to uruchomic to zainstaluje to na serwerze.
Jak narazie to wyswietla mi sie tak jak wyzej plik lstat.cgi - nie ma statystyk itd.
Jutro sobie poczytam w necie jakies info.

 

Stopka forum

Powered by PunBB
© Copyright 2002–2005 Rickard Andersson
To nie jest tylko forum, to nasza mała ojczyzna ;-)