Subversion Repositories computer_asset_manager_v1

Rev

Rev 22 | Rev 33 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 22 Rev 29
Line 1... Line 1...
1 
#! /usr/bin/perl -w
 1 
#!/usr/bin/env perl
- 
 
 2 
 
- 
 
 3 
use strict;
- 
 
 4 
use warnings;
2 
 
 5 
 
3 
#
 6 
#
4 
# v0.8.1 20160218 RWR
 7 
# v0.8.1 20160218 RWR
5 
# removed print statement to STDOUT (just commented it out)
 8 
# removed print statement to STDOUT (just commented it out)
6 
#
 9 
#
Line 37... Line 40...
37 
my $count = qq/select
40 
my $count = qq/select
38 
                  count(*) 'Count'
 41 
                  count(*) 'Count'
39 
               from sysinfo_report
 42 
               from sysinfo_report
40 
               where sysinfo_report.added_date > date_sub( now(), interval 1 day)/;
 43 
               where sysinfo_report.added_date > date_sub( now(), interval 1 day)/;
41
44
42 
#my $missing = qq/select
 - 
 
43 
#                  device_id ID,
 - 
 
44 
#                  device.name name
 - 
 
45 
#               from (
 - 
 
46 
#                  select
- 
 
47 
#                     distinct( device_id )
- 
 
48 
#                  from
- 
 
49 
#                     sysinfo_report
 - 
 
50 
#                  where
- 
 
51 
#                     datediff( current_date(),added_date) < 5
 - 
 
52 
#                  ) last_five
 - 
 
53 
#                  join device using ( device_id )
 - 
 
54 
#               where
- 
 
55 
#                  device.device_id not in (
 - 
 
56 
#                     select
- 
 
57 
#                        distinct( device_id )
- 
 
58 
#                     from
- 
 
59 
#                        sysinfo_report
- 
 
60 
#                     where
- 
 
61 
#                        datediff( current_date(),added_date) < 1)/;
 - 
 
62
- 
 
63 
my $missing = qq/select
 45 
my $missing = qq/select
64 
                  last_five.device_id ID,
 46 
                  last_five.device_id ID,
65 
                  device.name name
 47 
                  device.name name
66 
               from (
 48 
               from (
67 
                  select
49 
                  select