1.1 --- a/l3-cgi-lite	Tue Jul 22 00:16:20 2008 +0300
     1.2 +++ b/l3-cgi-lite	Wed Jul 23 00:41:26 2008 +0300
     1.3 @@ -38,7 +38,19 @@
     1.4  my $frontend_css = $l3config::Config{"frontend_css"} ;
     1.5  
     1.6  my $filter=$ENV{QUERY_STRING};
     1.7 -if ($filter !~ /filter=/) {
     1.8 +if ($filter =~ /page=([^&]*)/ ) {
     1.9 +    open(PAGE_NAME, "grep $1 $real_path/sessions-index | tail -1 | sed 's^-<.*^^; s^/[^/]*\$^^'| ");
    1.10 +    my $page_name;
    1.11 +    $page_name=<PAGE_NAME>;
    1.12 +    chomp $page_name;
    1.13 +    my $id="";
    1.14 +    if ($filter =~ /id=([^&]*)/) {
    1.15 +        $id="#$1";
    1.16 +    }
    1.17 +    print "Status: 302 Moved\nLocation: http://xgu.ru/l3/$page_name$id\n\n";
    1.18 +    exit(0);
    1.19 +}
    1.20 +elsif ($filter !~ /filter=/) {
    1.21  #    $filter="";
    1.22  }
    1.23  else {

     2.1 --- a/l3pre.php	Tue Jul 22 00:16:20 2008 +0300
     2.2 +++ b/l3pre.php	Wed Jul 23 00:41:26 2008 +0300
     2.3 @@ -7,9 +7,21 @@
     2.4  }
     2.5  
     2.6  function renderLiLaLoPRE( $input ) {
     2.7 -    $input = preg_replace('/[^\n]*l3: local_session_id[^\n]*[\n]/', '', $input);
     2.8 -    $input = preg_replace('/((..:..:...)(#[^\n]*))/', '$2<b><a href="http://xgu.ru/">$3</a></b>', $input);
     2.9 -    return "<pre>$input</pre>";
    2.10 +    preg_match('/[^\n]*l3: local_session_id=([0-9-]*)[^\n]*[\n]/', $input, $matches);
    2.11 +    $session_id=$matches[1];
    2.12 +    preg_match('/([0-9]*)-([0-9]*)/', $session_id, $matches);
    2.13 +    $session_start_time = intval($matches[2]);
    2.14 +    $hour=intval(date('G', $session_start_time));
    2.15 +    $min=intval(date('i', $session_start_time));
    2.16 +    $sec=intval(date('s', $session_start_time));
    2.17 +    $input = preg_replace('/[^\n]*l3: local_session_id=([0-9-]*)[^\n]*[\n]/', '', $input);
    2.18 +    $input = preg_replace('/((..):(..):(...)(#[^\n]*))/e', 
    2.19 +                          '\'$2:$3:$4<b><a href="http://xgu.ru/l3?page='.$session_id.'&id='
    2.20 +                             .'\'.strval($session_start_time+3600*(intval("$2")-$hour)+60*(intval("$3")-$min)+1*(intval("$4")-$sec)).\''
    2.21 +                             .'">$5</a></b>\'', 
    2.22 +                          $input);
    2.23 +#                             .strval($session_start_time+3600*(intval($2)-$hour)+60*(intval($3)-$min)+(intval($4)-$sec))
    2.24 +    return "<pre>$hour:$min:$sec $input</pre>";
    2.25  }
    2.26  
    2.27  ?>