packages: perl-Device-USB-PCSensor-HidTEMPer/perl-Device-USB-PCSensor-HidTE...

[glen]

Author: glen                         Date: Sat Aug 13 04:15:54 2011 GMT
Module: packages                      Tag: HEAD
---- Log message:
- add simple script to print out temp

---- Files affected:
packages/perl-Device-USB-PCSensor-HidTEMPer:
   perl-Device-USB-PCSensor-HidTEMPer.spec (1.3 -> 1.4) , temper_mon.pl (NONE -> 1.1)  (NEW)

---- Diffs:

================================================================
Index: packages/perl-Device-USB-PCSensor-HidTEMPer/perl-Device-USB-PCSensor-HidTEMPer.spec
diff -u packages/perl-Device-USB-PCSensor-HidTEMPer/perl-Device-USB-PCSensor-HidTEMPer.spec:1.3 packages/perl-Device-USB-PCSensor-HidTEMPer/perl-Device-USB-PCSensor-HidTEMPer.spec:1.4
--- packages/perl-Device-USB-PCSensor-HidTEMPer/perl-Device-USB-PCSensor-HidTEMPer.spec:1.3	Sat Aug 13 06:12:09 2011
+++ packages/perl-Device-USB-PCSensor-HidTEMPer/perl-Device-USB-PCSensor-HidTEMPer.spec	Sat Aug 13 06:15:49 2011
@@ -18,6 +18,8 @@
 Group:		Development/Languages/Perl
 Source0:	http://www.cpan.org/modules/by-authors/id/M/MS/MSULLAND/Device-USB-PCSensor-HidTEMPer-%{pver}.tar.gz
 # Source0-md5:	25b2f5dbb041282a7f17a66f1cd65054
+# https://wwwx.cs.unc.edu/~hays/dev/bash/temper/temper_mon.pl
+Source1:	temper_mon.pl
 URL:		http://search.cpan.org/dist/Device-USB-PCSensor-HidTEMPer/
 BuildRequires:	perl-devel >= 1:5.8.0
 BuildRequires:	rpm-perlprov >= 4.1-13
@@ -45,6 +47,9 @@
 
 %install
 rm -rf $RPM_BUILD_ROOT
+rm -rf
+install -d $RPM_BUILD_ROOT%{_bindir}
+install -p %{SOURCE1}  $RPM_BUILD_ROOT%{_bindir}/temper_mon
 %{__make} pure_install \
 	DESTDIR=$RPM_BUILD_ROOT
 
@@ -54,6 +59,7 @@
 %files
 %defattr(644,root,root,755)
 %doc Changes README
+%attr(755,root,root) %{_bindir}/temper_mon
 %dir %{perl_vendorlib}/Device/USB
 %dir %{perl_vendorlib}/Device/USB/PCSensor
 %{perl_vendorlib}/Device/USB/PCSensor/*.pm
@@ -66,6 +72,9 @@
 All persons listed below can be reached at <cvs_login>@pld-linux.org
 
 $Log$
+Revision 1.4  2011/08/13 04:15:49  glen
+- add simple script to print out temp
+
 Revision 1.3  2011/08/13 04:12:09  glen
 - up to 0.03_02, perl5.8.patch applied
 

================================================================
Index: packages/perl-Device-USB-PCSensor-HidTEMPer/temper_mon.pl
diff -u /dev/null packages/perl-Device-USB-PCSensor-HidTEMPer/temper_mon.pl:1.1
--- /dev/null	Sat Aug 13 06:15:54 2011
+++ packages/perl-Device-USB-PCSensor-HidTEMPer/temper_mon.pl	Sat Aug 13 06:15:49 2011
@@ -0,0 +1,20 @@
+#! /usr/bin/perl
+
+use 5.010;
+use strict;
+use warnings;
+use Carp;
+use Device::USB;
+use Device::USB::PCSensor::HidTEMPer::Device;
+use Device::USB::PCSensor::HidTEMPer::NTC;
+use Device::USB::PCSensor::HidTEMPer::TEMPer; 
+use lib;
+use Device::USB::PCSensor::HidTEMPer;
+
+my $pcsensor  = Device::USB::PCSensor::HidTEMPer->new();
+my @devices   = $pcsensor->list_devices();
+  
+foreach my $device ( @devices )
+   {
+   say $device->internal()->celsius();
+   }
\ No newline at end of file
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/packages/perl-Device-USB-PCSensor-HidTEMPer/perl-Device-USB-PCSensor-HidTEMPer.spec?r1=1.3&r2=1.4&f=u