• R/O
  • SSH
  • HTTPS

rec10: Commit


Commit MetaInfo

Revision947 (tree)
Time2012-08-10 09:11:05
Authorlonginus

Log Message

remove require, Time::Simple

Change Summary

Incremental Difference

--- rectool/trunk/rectool.pl (revision 946)
+++ rectool/trunk/rectool.pl (revision 947)
@@ -28,10 +28,10 @@
2828 use SVG;
2929 use Time::Piece;
3030 use Time::Seconds;
31-use Time::Simple;
3231 use Time::HiRes;
3332 use Tie::IxHash;
34-use XML::Atom;
33+use XML::Atom::Feed;
34+use XML::Atom::Entry;
3535 use XML::Generator::DBI;
3636 use XML::SAX::Writer;
3737 #%DB::packages = ( 'main' => 1 );
@@ -460,7 +460,6 @@
460460 {
461461 print "Content-Type: image/svg+xml\n\n";
462462
463- require SVG;
464463 $date = Date::Simple->new( split /-/, $date );
465464 $graph_bgn = $date->format('%Y-%m-%d');
466465 $graph_end = $date->next->format('%Y-%m-%d');
@@ -502,9 +501,8 @@
502501 $svg->rectangle( 'x' => 50, 'y' => $_ * 20 + 14, width => $width, height => 2 );
503502 }
504503 if ( $today ) {
505- require Time::Simple;
506- my $time = Time::Simple->new();
507- my $x = ( $time->hours * 60 + $time->minutes ) * 0.5 + 50;
504+ my $time = Time::Piece->localtime;
505+ my $x = ( $time->hour * 60 + $time->minute ) * 0.5 + 50;
508506 $svg->tag( 'line', x1 => $x, x2 => $x, y1 => 30, y2 => $tuner{all} * 20 + 20,
509507 style => { stroke => 'red', 'fill-opacity' => '1.0' } );
510508 }
@@ -634,9 +632,6 @@
634632 ################ mode=atom ################
635633
636634 if ( $mode eq 'atom' ) {
637- require XML::Atom::Feed;
638- require XML::Atom::Entry;
639-
640635 my $recording_count = $encoding_count = $jbk_count = 0;
641636 my $ary_ref = $dbh->selectall_arrayref(
642637 "SELECT chtxt, title, btime, etime, opt
@@ -1725,8 +1720,6 @@
17251720 ################ mode=expert ################
17261721
17271722 if ( $mode eq 'expert' ) {
1728- require List::Compare;
1729-
17301723 my $ary_ref;
17311724
17321725 $HTML =~ s/%HTML_TITLE_OPT%/ - Expert/;
@@ -1955,7 +1948,6 @@
19551948 $HTML =~ s|%REFRESH%|<meta http-equiv="refresh" content="300">|;
19561949 $HTML .= qq {<div>\n};
19571950
1958- require Data::Dumper::Concise;
19591951 $tmp = read_file( '/etc/rec10.conf' );
19601952 $tmp =~ s/\n/<br>\n/gs;
19611953 $HTML .= $tmp;
@@ -2281,8 +2273,6 @@
22812273 }
22822274
22832275 sub get_overlap {
2284- require List::Util;
2285-
22862276 my $ary_ref = $dbh->selectall_arrayref(
22872277 "SELECT btime, etime, title
22882278 FROM timeline
Show on old repository browser