diff --git a/II/T.pm b/II/T.pm index c6688f5..e72c5af 100644 --- a/II/T.pm +++ b/II/T.pm @@ -20,11 +20,11 @@ sub head { } sub echo { - my ($self, $echo) = @_; + my ( $self, $echo ) = @_; - my $e = HTML::Template->new(filename => 't/echo.html'); + my $e = HTML::Template->new( filename => 't/echo.html' ); - $e->param(ECHO => $echo); + $e->param( ECHO => $echo ); return $e->output(); } @@ -103,7 +103,7 @@ sub post { } $p->param( SUBG => $data->{subg} ); - $p->param( CUT => $cut ); + $p->param( CUT => $cut ); $p->param( TIME => "$time" ); $p->param( FROM => $data->{from} ); $p->param( TO => $data->{to} ); @@ -115,10 +115,10 @@ sub post { } sub new_mes { - my ($self, $echo) = @_; + my ( $self, $echo ) = @_; - my $n = HTML::Template->new(filename => 't/new.html'); - $n->param(ECHO => $echo); + my $n = HTML::Template->new( filename => 't/new.html' ); + $n->param( ECHO => $echo ); return $n->output(); } @@ -155,7 +155,8 @@ sub pre { $post =~ s/(.?)\n/$1\n/g; $post =~ s/(https?:\/\/.+\.(jpg|png|gif))/<\/a>/g; - + $post + =~ s/(https?:\/\/.+\.(JPG|PNG|GIF))/<\/a>/g; # Not are regexp parsing my $pre = 0; my $txt; diff --git a/t/head.html b/t/head.html index 9bcf037..741dadd 100644 --- a/t/head.html +++ b/t/head.html @@ -27,6 +27,9 @@ margin-top: 0.5em; margin-bottom: 0px; } + .post a { + text-decoration: none; + } .post img { display: inline-block; border-radius: 10px; @@ -74,6 +77,12 @@ margin-top: -1.5em; text-align: center; } + .headall a { + color: #222; + } + .headall a:hover { + color: #666; + } .echo { display: block; background-color: #C7BA6C; @@ -120,9 +129,10 @@ - Получить новые сообщения или - почитать свою переписку. А еще - можно вернуться в ленту. + [лента]  + [получить сообщения]  + [моя переписка]  + [неотправленные сообщения] 
- Получить новые сообщения или - почитать свою переписку. А еще - можно вернуться в ленту. + [лента]  + [получить сообщения]  + [моя переписка]  + [неотправленные сообщения]