From 7dc08d0742fd98b31c68acb3d344d974a769291a Mon Sep 17 00:00:00 2001 From: "Difrex(Denis Zheleztsov)" Date: Mon, 16 Jun 2014 11:36:35 +0400 Subject: [PATCH] UI --- II/T.pm | 17 +++++++++-------- t/head.html | 16 +++++++++++++--- 2 files changed, 22 insertions(+), 11 deletions(-) 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 @@

- Получить новые сообщения или - почитать свою переписку. А еще - можно вернуться в ленту. + [лента]  + [получить сообщения]  + [моя переписка]  + [неотправленные сообщения