diff --git a/II/Get.pm b/II/Get.pm index 4f57ba8..1dd3d78 100644 --- a/II/Get.pm +++ b/II/Get.pm @@ -65,7 +65,7 @@ sub get_echo { my @msg_list = split /\n/, $msgs; # Begin transaction - print "Writing messages\n"; + print localtime().": writing messages\n"; $db->begin(); while (<@msg_list>) { my $mes_hash = $_; @@ -111,7 +111,7 @@ sub get_echo { } # Commit transaction $db->commit(); - print "Messages writed to DB!\n"; + print localtime().": messages writed to DB!\n"; } return $msgs; } diff --git a/II/Send.pm b/II/Send.pm index 4e4319c..6b8e6ea 100644 --- a/II/Send.pm +++ b/II/Send.pm @@ -30,7 +30,6 @@ sub send { $host .= "u/point"; my $ua = LWP::UserAgent->new(); my $response = $ua->post( $host, { 'pauth' => $auth, 'tmsg' => $base64 } ); - print Dumper($response); my $db = II::DB->new(); if ($response->{_rc} == 200) { diff --git a/II/T.pm b/II/T.pm index e72c5af..3b03928 100644 --- a/II/T.pm +++ b/II/T.pm @@ -164,12 +164,12 @@ sub pre { while (<$fh>) { my $line = $_; if ( ( $line =~ /^====/ ) and ( $pre == 0 ) ) { - $txt .= $_; - $line =~ s/====/
/g;
+            # $txt .= $_;
+            $line =~ s/====/
/g;
             $pre = 1;
         }
         elsif ( ( $line =~ /^====/ ) and ( $pre == 1 ) ) {
-            $line =~ s/====/<\/pre>\n====/g;
+            $line =~ s/====/<\/pre>\n/g;
             $pre = 0;
         }
         $txt .= $line;
diff --git a/t/head.html b/t/head.html
index c9c446c..fefb3db 100644
--- a/t/head.html
+++ b/t/head.html
@@ -22,7 +22,8 @@
    			border-color: #999;
         color: #222;
    			border-radius: 5px;
-   			padding-left: 10px;
+   			padding-left: 0.5em;
+        padding-bottom: 0.15em;
    			margin-right: 10px;
    			margin-top: 0.5em;
    			margin-bottom: 0px;
@@ -73,6 +74,7 @@
       .headall p {
         margin-top: -1.5em;
         text-align: center;
+        padding-bottom: 0.2em;
       }
       .headall a {
         color: #222;
@@ -120,16 +122,24 @@
       }
       .new_mes {
         position: relative;
+      }
+      .pre {
+        display: block;
+        border-style: dotted;
+        border-width: 1px;
+        border-color: #666;
+        background-color: #C9C9C9;
+        margin-right: 5%;
       }
  	
     
 

   

   

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