RE: Schoolday

classic Classic list List threaded Threaded
10 messages Options
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

RE: Schoolday

Chris Barrett-2
I unfortunately got side tracked and never managed to complete this.  I did
however develop a working proof-of-concept test bed so I'm hoping that
someone can workout how to integrate it into MH.

<QUOTE>
#!/bin/perl -w

use Date::Range;
use Date::Simple (':all');

my $school_terms = "2/3-17/05,7/6-18/09,21/10-21/12";
#my $school_terms = ""; # This causes all dates to be treated as a vacation


my $date_format = "ddmmyy";  # $config_parm{date_format}

my %terms;

sub Convert_To_ISO8601_Date {
  my $date = shift;


  my ($y,$m,$d);
  my ($yyyy,$mm,$dd);

  if ($date_format =~ /ddmm/) {
    ($d,$m,$y) = split("/",$date);
  } else {
    ($m,$d,$y) = split("/",$date);
  }

  if (length($m) == 1) {
    $mm = "0".$m;
  } else {
    $mm = $m;
  }

  if (length($d) == 1) {
    $dd = "0".$d;
  } else {
    $dd = $d;
  }

  if (!defined $y) {
    my $today = today();
    $yyyy = $today->year;
  } else {
    $yyyy = $y if length($y) == 4;
    $yyyy = "20".$y if length($y) == 2;     # This will *only* work until
2099.
  }

  return "$yyyy-$mm-$dd";
}

sub LoadTerms {
  my $i = 1;
  my $range;

  foreach $term (split(",",$school_terms)) {
    my($start,$finish);
    my($d,$m,$y);
    print "Term $i\n";

    ($start,$finish) = split("-",$term);

    $start = Convert_To_ISO8601_Date($start);
    print " - Start  $start\n";
    $start = Date::Simple->new($start) || die;

    $finish = Convert_To_ISO8601_Date($finish);
    print " - Finish $finish\n";
    $finish = Date::Simple->new($finish) || die;

    $range = Date::Range->new($start,$finish) || die;
    $terms{$i} = $range;
    $i++;
  }
}

sub IsSchoolDay {
  my $date = shift;
  my $testdate = Date::Simple->new($date);

#  return 0 if ($Weekend || $Holiday);

  my $range;

  for my $term (keys %terms) {
    $range = $terms{$term};
    return 1 if $range->includes($testdate);
  }

  return 0;
}

sub IsSchoolNight {
  my $date = shift;
  my $testdate = Date::Simple->new($date);
  my $tomorrow = $testdate->next; # the next day
  return IsSchoolDay($tomorrow);
}




LoadTerms;

if (IsSchoolDay("2006-04-01")) {
  print "School Day\n";
} else {
  print "Vacation!\n";
}

if (IsSchoolDay("2006-10-01")) {
  print "School Day\n";
} else {
  print "Vacation!\n";
}

if (IsSchoolNight("2006-10-01")) {
  print "School Tomorrow\n";
} else {
  print "No School Tomorrow\n";
}

if (IsSchoolNight("2006-10-20")) {
  print "School Tomorrow\n";
} else {
  print "No School Tomorrow\n";
}
</QUOTE>



> -----Original Message-----
> From: [hidden email] [mailto:misterhouse-
> [hidden email]] On Behalf Of AndrewB
> Sent: Tuesday, 10 January 2006 2:01 AM
> To: [hidden email]
> Subject: Re: [mh] Schoolday
>
> Hi Chris,
>
> Sound good. The multiple school thing is a bit of an issue. I have the
> same
> problem with the wakeup.pl. I need different alarm times for different
> rooms/people in the house.
>
> In the UK we also have 'inset days', these are days when the teacher are
> in
> school but the kids aren't, they are set by the individual schools. So
> although the Autumn (or Summer for you I guess) term may be 1.09.06-
> 22.10.06
> and 30.10.06-17.12.06, there could be a number of "Inset" days defined
> within these periods. I guess I could just reuse the current holiday list
> to
> over-ride the schoolday for inset days.
>
> Look forward to your code, I had looked at the CPAN datetime stuff but I'm
> new to perl and I didn't quite understand how it all fits together.
>
> Best regards,
> AndrewB
>
>
>
> "Chris Barrett" <[hidden email]> wrote in message
> news:000001c61320$5d331d70$[hidden email]...
> > I'm going to have a play with this.  My plan is to allow a parameter
> > within
> > mh.ini called school_terms which would look something like:
> >
> > school_terms=01/02/06-30/04/06,15/04/06-30/06/06,15/07/06-
> 30/10/06,15/11/06-
> > 21/12/06
> >
> > Note: being from Australia, the fictional dates in the above example are
> > in
> > dd/mm/yy format but I'll make sure it'll handle mm/dd/yy too.
> >
> > My plan is to add some code into ./bin/mh which once a day will check to
> > see
> > if today is within one of the term ranges and if so set $School_Day to
> > true
> > (1).  It would also check to see if today is a $Weekend or a $Holiday
> and
> > if
> > so $School_Day would be overridden and set to false.
> >
> > I'm going to try and include $School_Night too which will be true if
> > tomorrow is a school day.
> >
> > I haven't found any code in mh that handles date ranges so I expect to
> > have
> > to use Date::Range and Date::Simple from the CPAN.
> >
> > AndrewB - regarding the problem of the different school terms for your
> > children, I'm not sure how to handle this.  I think that the easiest
> thing
> > would be to set the school_terms ranges to the superset i.e. if it's a
> > school day for one or more of the children then School_Day will be true.
> > It'll mean false positives occasionally for some of your kids.
> >
> > Cheers,
> > Chris
> >
> >> -----Original Message-----
> >> From: [hidden email]
> [mailto:misterhouse-
> >> [hidden email]] On Behalf Of AndrewB
> >> Sent: Friday, 6 January 2006 7:10 PM
> >> To: [hidden email]
> >> Subject: Re: [mh] Schoolday
> >>
> >> Hi Tim,
> >>
> >> I had considered your idea, but with Holiday you cannot specify a range
> >> of
> >> dates, so I would have to add each schoolday individually :-(
> >>
> >> I also need to set different holidays for different schools/children.
> >>
> >> How do I check if $today is within a predefined pair of sates?
> >>
> >> AndrewB
> >>
> >>
> >>
> >> >This makes Sun-Thu school nights. You could do something like
> >> >if (($Wday < 5) and (!$Holiday))
> >> >to make it despect the holidays listed in the mh.ini file.
> >> >Tim
> >



-------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc. Do you grep through log files
for problems?  Stop!  Download the new AJAX search engine that makes
searching your log files as easy as surfing the  web.  DOWNLOAD SPLUNK!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=103432&bid=230486&dat=121642
________________________________________________________
To unsubscribe from this list, go to: http://sourceforge.net/mail/?group_id=1365

Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: Schoolday

AndrewB-2
Hi Chris,

Thank-you, I'll have a play with this :-)

AndrewB



"Chris Barrett" <[hidden email]> wrote in message
news:003701c621aa$af686850$[hidden email]...

>I unfortunately got side tracked and never managed to complete this.  I did
> however develop a working proof-of-concept test bed so I'm hoping that
> someone can workout how to integrate it into MH.
>
> <QUOTE>
> #!/bin/perl -w
>
> use Date::Range;
> use Date::Simple (':all');
>
> my $school_terms = "2/3-17/05,7/6-18/09,21/10-21/12";
> #my $school_terms = ""; # This causes all dates to be treated as a
> vacation
>
>
> my $date_format = "ddmmyy";  # $config_parm{date_format}
>
> my %terms;
>
> sub Convert_To_ISO8601_Date {
>  my $date = shift;
>
>
>  my ($y,$m,$d);
>  my ($yyyy,$mm,$dd);
>
>  if ($date_format =~ /ddmm/) {
>    ($d,$m,$y) = split("/",$date);
>  } else {
>    ($m,$d,$y) = split("/",$date);
>  }
>
>  if (length($m) == 1) {
>    $mm = "0".$m;
>  } else {
>    $mm = $m;
>  }
>
>  if (length($d) == 1) {
>    $dd = "0".$d;
>  } else {
>    $dd = $d;
>  }
>
>  if (!defined $y) {
>    my $today = today();
>    $yyyy = $today->year;
>  } else {
>    $yyyy = $y if length($y) == 4;
>    $yyyy = "20".$y if length($y) == 2;     # This will *only* work until
> 2099.
>  }
>
>  return "$yyyy-$mm-$dd";
> }
>
> sub LoadTerms {
>  my $i = 1;
>  my $range;
>
>  foreach $term (split(",",$school_terms)) {
>    my($start,$finish);
>    my($d,$m,$y);
>    print "Term $i\n";
>
>    ($start,$finish) = split("-",$term);
>
>    $start = Convert_To_ISO8601_Date($start);
>    print " - Start  $start\n";
>    $start = Date::Simple->new($start) || die;
>
>    $finish = Convert_To_ISO8601_Date($finish);
>    print " - Finish $finish\n";
>    $finish = Date::Simple->new($finish) || die;
>
>    $range = Date::Range->new($start,$finish) || die;
>    $terms{$i} = $range;
>    $i++;
>  }
> }
>
> sub IsSchoolDay {
>  my $date = shift;
>  my $testdate = Date::Simple->new($date);
>
> #  return 0 if ($Weekend || $Holiday);
>
>  my $range;
>
>  for my $term (keys %terms) {
>    $range = $terms{$term};
>    return 1 if $range->includes($testdate);
>  }
>
>  return 0;
> }
>
> sub IsSchoolNight {
>  my $date = shift;
>  my $testdate = Date::Simple->new($date);
>  my $tomorrow = $testdate->next; # the next day
>  return IsSchoolDay($tomorrow);
> }
>
>
>
>
> LoadTerms;
>
> if (IsSchoolDay("2006-04-01")) {
>  print "School Day\n";
> } else {
>  print "Vacation!\n";
> }
>
> if (IsSchoolDay("2006-10-01")) {
>  print "School Day\n";
> } else {
>  print "Vacation!\n";
> }
>
> if (IsSchoolNight("2006-10-01")) {
>  print "School Tomorrow\n";
> } else {
>  print "No School Tomorrow\n";
> }
>
> if (IsSchoolNight("2006-10-20")) {
>  print "School Tomorrow\n";
> } else {
>  print "No School Tomorrow\n";
> }
> </QUOTE>
>
>
>
>> -----Original Message-----
>> From: [hidden email] [mailto:misterhouse-
>> [hidden email]] On Behalf Of AndrewB
>> Sent: Tuesday, 10 January 2006 2:01 AM
>> To: [hidden email]
>> Subject: Re: [mh] Schoolday
>>
>> Hi Chris,
>>
>> Sound good. The multiple school thing is a bit of an issue. I have the
>> same
>> problem with the wakeup.pl. I need different alarm times for different
>> rooms/people in the house.
>>
>> In the UK we also have 'inset days', these are days when the teacher are
>> in
>> school but the kids aren't, they are set by the individual schools. So
>> although the Autumn (or Summer for you I guess) term may be 1.09.06-
>> 22.10.06
>> and 30.10.06-17.12.06, there could be a number of "Inset" days defined
>> within these periods. I guess I could just reuse the current holiday list
>> to
>> over-ride the schoolday for inset days.
>>
>> Look forward to your code, I had looked at the CPAN datetime stuff but
>> I'm
>> new to perl and I didn't quite understand how it all fits together.
>>
>> Best regards,
>> AndrewB
>>
>>
>>
>> "Chris Barrett" <[hidden email]> wrote in message
>> news:000001c61320$5d331d70$[hidden email]...
>> > I'm going to have a play with this.  My plan is to allow a parameter
>> > within
>> > mh.ini called school_terms which would look something like:
>> >
>> > school_terms=01/02/06-30/04/06,15/04/06-30/06/06,15/07/06-
>> 30/10/06,15/11/06-
>> > 21/12/06
>> >
>> > Note: being from Australia, the fictional dates in the above example
>> > are
>> > in
>> > dd/mm/yy format but I'll make sure it'll handle mm/dd/yy too.
>> >
>> > My plan is to add some code into ./bin/mh which once a day will check
>> > to
>> > see
>> > if today is within one of the term ranges and if so set $School_Day to
>> > true
>> > (1).  It would also check to see if today is a $Weekend or a $Holiday
>> and
>> > if
>> > so $School_Day would be overridden and set to false.
>> >
>> > I'm going to try and include $School_Night too which will be true if
>> > tomorrow is a school day.
>> >
>> > I haven't found any code in mh that handles date ranges so I expect to
>> > have
>> > to use Date::Range and Date::Simple from the CPAN.
>> >
>> > AndrewB - regarding the problem of the different school terms for your
>> > children, I'm not sure how to handle this.  I think that the easiest
>> thing
>> > would be to set the school_terms ranges to the superset i.e. if it's a
>> > school day for one or more of the children then School_Day will be
>> > true.
>> > It'll mean false positives occasionally for some of your kids.
>> >
>> > Cheers,
>> > Chris
>> >
>> >> -----Original Message-----
>> >> From: [hidden email]
>> [mailto:misterhouse-
>> >> [hidden email]] On Behalf Of AndrewB
>> >> Sent: Friday, 6 January 2006 7:10 PM
>> >> To: [hidden email]
>> >> Subject: Re: [mh] Schoolday
>> >>
>> >> Hi Tim,
>> >>
>> >> I had considered your idea, but with Holiday you cannot specify a
>> >> range
>> >> of
>> >> dates, so I would have to add each schoolday individually :-(
>> >>
>> >> I also need to set different holidays for different schools/children.
>> >>
>> >> How do I check if $today is within a predefined pair of sates?
>> >>
>> >> AndrewB
>> >>
>> >>
>> >>
>> >> >This makes Sun-Thu school nights. You could do something like
>> >> >if (($Wday < 5) and (!$Holiday))
>> >> >to make it despect the holidays listed in the mh.ini file.
>> >> >Tim
>> >
>
>
>
> -------------------------------------------------------
> This SF.net email is sponsored by: Splunk Inc. Do you grep through log
> files
> for problems?  Stop!  Download the new AJAX search engine that makes
> searching your log files as easy as surfing the  web.  DOWNLOAD SPLUNK!
> http://sel.as-us.falkag.net/sel?cmd=lnk&kid=103432&bid=230486&dat=121642
> ________________________________________________________
> To unsubscribe from this list, go to:
> http://sourceforge.net/mail/?group_id=1365
>
>





-------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc. Do you grep through log files
for problems?  Stop!  Download the new AJAX search engine that makes
searching your log files as easy as surfing the  web.  DOWNLOAD SPLUNK!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=103432&bid=230486&dat=121642
________________________________________________________
To unsubscribe from this list, go to: http://sourceforge.net/mail/?group_id=1365

Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: Schoolday

AndrewB-2
Hi All,

I am no perl expert, in fact I only just qualify as a beginner...

Date:Simple failed compilation for ActiveState 5.8 and is not in my Windows
release, so I can't run this script.

Are my assumptions correct or am I missing something?

AndrewB






-------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc. Do you grep through log files
for problems?  Stop!  Download the new AJAX search engine that makes
searching your log files as easy as surfing the  web.  DOWNLOAD SPLUNK!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=103432&bid=230486&dat=121642
________________________________________________________
To unsubscribe from this list, go to: http://sourceforge.net/mail/?group_id=1365

Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: Schoolday

Neil Cherry
AndrewB wrote:
> Hi All,
>
> I am no perl expert, in fact I only just qualify as a beginner...
>
> Date:Simple failed compilation for ActiveState 5.8 and is not in my Windows
> release, so I can't run this script.
>
> Are my assumptions correct or am I missing something?

Your missing Date::Simple (really). I think under Windows you use
ppm:

http://aspn.activestate.com/ASPN/Products/ActivePerl-5.6/faq/ActivePerl-faq2.html

Under Unix it's cpan (install Date::Simple). I don't know if you
can use cpan under Windows.

--
Linux Home Automation         Neil Cherry       [hidden email]
http://www.linuxha.com/                         Main site
http://linuxha.blogspot.com/                    My HA Blog
http://home.comcast.net/~ncherry/               Backup site


-------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc. Do you grep through log files
for problems?  Stop!  Download the new AJAX search engine that makes
searching your log files as easy as surfing the  web.  DOWNLOAD SPLUNK!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=103432&bid=230486&dat=121642
________________________________________________________
To unsubscribe from this list, go to: http://sourceforge.net/mail/?group_id=1365

Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: Schoolday

AndrewB-2
Hi Neil,

But I'm running Activestate 5.8 and it says that this module fails for 5.8,
is this not a problem?

I install Dae:Simple and Date:Range but now I get an error " Can't call
method "isa" on an undefined value at C:/Perl/lib/Date/Range.pm line 121"

Regards,
Andrew

Here is my MH version:


# Category = Time

#@
#@ Checks if today is a school day or night.
#@

use Date::Range;
use Date::Simple (':all');

my $school_terms = "2/3-17/05,7/6-18/09,21/10-21/12";
#my $school_terms = ""; # This causes all dates to be treated as a vacation


my $date_format = "ddmmyy";  # $config_parm{date_format}

my %terms;

# I could combine these two
#$v_is_school_daynight = new Voice_Cmd( 'Is today a school [day|night]');
#
$v_is_school_day = new Voice_Cmd( 'Is today a school day');
$v_is_school_night = new Voice_Cmd( 'Is tonight a school night');

sub Convert_To_ISO8601_Date {
  my $date = shift;


  my ($y,$m,$d);
  my ($yyyy,$mm,$dd);

  if ($date_format =~ /ddmm/) {
    ($d,$m,$y) = split("/",$date);
  } else {
    ($m,$d,$y) = split("/",$date);
  }

  if (length($m) == 1) {
    $mm = "0".$m;
  } else {
    $mm = $m;
  }

  if (length($d) == 1) {
    $dd = "0".$d;
  } else {
    $dd = $d;
  }

  if (!defined $y) {
    my $today = today();
    $yyyy = $today->year;
  } else {
    $yyyy = $y if length($y) == 4;
    $yyyy = "20".$y if length($y) == 2;     # This will *only* work until
2099.
  }

  return "$yyyy-$mm-$dd";
}

if ($Reload) {
  my $i = 1;
  my $range;
  my $term;

  foreach $term (split(",",$school_terms)) {
    my($start,$finish);
    my($d,$m,$y);
    print "Term $i\n";

    ($start,$finish) = split("-",$term);

    $start = Convert_To_ISO8601_Date($start);
    print " - Start  $start\n";
    $start = Date::Simple->new($start) || die;

    $finish = Convert_To_ISO8601_Date($finish);
    print " - Finish $finish\n";
    $finish = Date::Simple->new($finish) || die;

    $range = Date::Range->new($start,$finish) || die;
    $terms{$i} = $range;
    $i++;
  }
}

sub IsSchoolDay{
  my $date = shift;
  my $testdate = Date::Simple->new($date);

#  return 0 if ($Weekend || $Holiday);

  my $range;

  for my $term (keys %terms) {
    $range = $terms{$term};
    return 1 if $range->includes($testdate);
  }

  return 0;
}

if (said $v_is_school_night){
   my $testdate = Date::Simple->new($Date_Now);
   my $tomorrow = $testdate->next; # the next day

   if ( IsSchoolDay($tomorrow)) {
      speak "Its a school night"
   } else {
      speak "Its not a school night"
   }
}

if (said $v_is_school_day){

   if ( IsSchoolDay($Date_Now)) {
      speak "Its a school day"
   } else {
      speak "Its not a school day"
   }
}








-------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc. Do you grep through log files
for problems?  Stop!  Download the new AJAX search engine that makes
searching your log files as easy as surfing the  web.  DOWNLOAD SPLUNK!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=103432&bid=230486&dat=121642
________________________________________________________
To unsubscribe from this list, go to: http://sourceforge.net/mail/?group_id=1365

Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

RE: Schoolday

Clive Freedman
I haven't been following this, and have not looked to see exactly what you
want to achieve.  But no doubt what you want to achieve could be done
without Date::Simple.

If I want to find whether a date falls between two other dates you can use
Time::local (if that is installed) to convert the three dates to epoch
seconds ie numbers, and then see whether C > A and < B.

If you let me know what you want to code, I will see if I can help.

From Perl Cookbook:
Use the timelocal or timegm functions in the standard Time::Local module,
depending on whether the date and time is in the current time zone or in
UTC.
use Time::Local;
$TIME = timelocal($sec, $min, $hours, $mday, $mon, $year);
$TIME = timegm($sec, $min, $hours, $mday, $mon, $year);

Clive



You wrote:

But I'm running Activestate 5.8 and it says that this module fails for 5.8,
is this not a problem?

I install Dae:Simple and Date:Range but now I get an error " Can't call
method "isa" on an undefined value at C:/Perl/lib/Date/Range.pm line 121"

Regards,
Andrew




-------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc. Do you grep through log files
for problems?  Stop!  Download the new AJAX search engine that makes
searching your log files as easy as surfing the  web.  DOWNLOAD SPLUNK!
<a href="http://sel.as-us.falkag.net/sel?cmd=lnk&kid3432&bid#0486&dat1642">http://sel.as-us.falkag.net/sel?cmd=lnk&kid3432&bid#0486&dat1642
________________________________________________________
To unsubscribe from this list, go to: <a href="http://sourceforge.net/mail/?group_id65">http://sourceforge.net/mail/?group_id65

Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: Schoolday

AndrewB-2
Hi Clive,

Yes that's basically it. I wanted to work out if today was a school day,
i.e. it falls within 3 pairs of dates, one for each term.

Andrew



"Clive Freedman" <[hidden email]> wrote in message
news:000e01c6225e$b2676ab0$1700a8c0@clive64...
I haven't been following this, and have not looked to see exactly what you
want to achieve.  But no doubt what you want to achieve could be done
without Date::Simple.

If I want to find whether a date falls between two other dates you can use
Time::local (if that is installed) to convert the three dates to epoch
seconds ie numbers, and then see whether C > A and < B.

If you let me know what you want to code, I will see if I can help.

From Perl Cookbook:
Use the timelocal or timegm functions in the standard Time::Local module,
depending on whether the date and time is in the current time zone or in
UTC.
use Time::Local;
$TIME = timelocal($sec, $min, $hours, $mday, $mon, $year);
$TIME = timegm($sec, $min, $hours, $mday, $mon, $year);

Clive



You wrote:

But I'm running Activestate 5.8 and it says that this module fails for 5.8,
is this not a problem?

I install Dae:Simple and Date:Range but now I get an error " Can't call
method "isa" on an undefined value at C:/Perl/lib/Date/Range.pm line 121"

Regards,
Andrew




-------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc. Do you grep through log files
for problems?  Stop!  Download the new AJAX search engine that makes
searching your log files as easy as surfing the  web.  DOWNLOAD SPLUNK!
<a href="http://sel.as-us.falkag.net/sel?cmd=k&kid3432&bid#0486&dat1642">http://sel.as-us.falkag.net/sel?cmd=k&kid3432&bid#0486&dat1642
________________________________________________________
To unsubscribe from this list, go to:
<a href="http://sourceforge.net/mail/?group_id65">http://sourceforge.net/mail/?group_id65






-------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc. Do you grep through log files
for problems?  Stop!  Download the new AJAX search engine that makes
searching your log files as easy as surfing the  web.  DOWNLOAD SPLUNK!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=103432&bid=230486&dat=121642
________________________________________________________
To unsubscribe from this list, go to: http://sourceforge.net/mail/?group_id=1365

Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: Schoolday

AndrewB-2
Hi All,


Well this code seems to work, but you will now see the limits of my perl
coding ability :-(

I couldn't get multi-dimensional arrys to work for [start,finish]
I couldn't get $#{array} to work to tell me how many items are in an array
I couldnt get number values for day month and year from MH variables.

Other than that it kind of works. Just need to add if ($Week_Day) and add
some code for those odd days off.

If anyone else wants to play, PLEASE feel free.

Thanks Clive for the insperation....

Now I really must get and do some WORK!!!!


AndrewB




# Category = Time

#@
#@ Checks if today is a school day or night.
#@


my $school_terms = "1/1-25/01, 7/6-18/09, 21/10-21/12";
#my $school_terms = ""; # This causes all dates to be treated as a vacation


my $date_format = "ddmmyy";  # $config_parm{date_format}

my @term_start = ();
my @term_end = ();


$v_is_school_day = new Voice_Cmd( 'Is today a school day');
$v_is_school_night = new Voice_Cmd( 'Is tonight a school night');

sub Convert_To_ISO8601_Date {
  my $date = shift;


  my ($y,$m,$d);
  my ($yyyy,$mm,$dd);

  if ($date_format =~ /ddmm/) {
    ($d,$m,$y) = split("/",$date);
  } else {
    ($m,$d,$y) = split("/",$date);
  }

  if (length($m) == 1) {
    $mm = "0".$m;
  } else {
    $mm = $m;
  }

  if (length($d) == 1) {
    $dd = "0".$d;
  } else {
    $dd = $d;
  }

  if (!defined $y) {
    my $today = today();
    $yyyy = $Year;
  } else {
    $yyyy = $y if length($y) == 4;
    $yyyy = "20".$y if length($y) == 2;     # This will *only* work until
2099.
  }

  #return "$yyyy-$mm-$dd";
  # 1 Hour into the day
  print "Convert out = $dd/$mm/$yyyy\n";
  return timelocal(0, 0, 1, $dd, $mm-1, $yyyy);

}

if ($Reload) {
  my $i = 0;
  my $range;
  my $term;

  foreach $term (split(",",$school_terms)) {
    my($start,$finish);
    my($d,$m,$y);
    #print "Term $i\n";

    ($start,$finish) = split("-",$term);

    $start = Convert_To_ISO8601_Date($start);
    #print " - Start  $start\n";
    #$terms[$i][0]{'start'}=$start;
    $term_start[$i]=$start;

    $finish = Convert_To_ISO8601_Date($finish);
    #print " - Finish $finish\n";
    #$terms[$i][1]{'finish'}=$finish;
    $term_end[$i]=$finish;

    #$terms[$i][0]] = ['start'=> $start]

    $i++;
  }
}

sub IsSchoolDay {
   my $date = shift;
   my $testdate = Convert_To_ISO8601_Date($date);
   #print "Test Date = $testdate\n";

#  return 0 if ($Weekend || $Holiday);

#  my $range;
#   my $term;
   my $j;

#   for $j ( 0 .. $#{$terms[0]} ) {
   for ($j=0; $j<3; $j++ ) {
      #print "$j $term_start[$j] $term_end[$j]\n";
      if (($testdate >= $term_start[$j]) and ($testdate <= $term_end[$j])) {
         return 1;
      }
   }

   return 0;
}

#if (said $v_is_school_night){
#   my $testdate = Date::Simple->new($Date_Now);
#   my $tomorrow = $testdate->next; # the next day
#
#   if ( IsSchoolDay($tomorrow)) {
#      speak "Its a school night";
#   } else {
#      speak "Its not a school night";
#   }
#}


if (said $v_is_school_day) {
#  if ( IsSchoolDay($Date_Now)) {

   my ($day, $month, $num) = split(/\s+/,$Date_Now);
   #print "$Date_Now, $day, $month, $num\n";
   #print "Day=$num Month=$Month Year=$Year\n";

   my $my_iso_date = $num."/".$Month."/".$Year;
   #print "My ISO = $my_iso_date\n";

   if ( IsSchoolDay($my_iso_date) ) {
      speak "Its a school day";
   } else {
      speak "Its not a school day";
   }
}






-------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc. Do you grep through log files
for problems?  Stop!  Download the new AJAX search engine that makes
searching your log files as easy as surfing the  web.  DOWNLOAD SPLUNK!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=103432&bid=230486&dat=121642
________________________________________________________
To unsubscribe from this list, go to: http://sourceforge.net/mail/?group_id=1365

Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: Schoolday

AndrewB-2
Hi All,

OK, this is more like it!

After browsing lots of perl tutorials on the web, I have come to appreciate
hash arrays :-)

This script now handles multiple schools.

How can I populate my $v_is_school_day voice command with the schools in the
main array?

I just need to sort out the 'inset' and holidays and I should be there :-)
The inset days will just be a list of non-schooldays in the array. I'd like
holidays to read the main MH parameter. It's a shame there isn't an MH
function you can call to ask if a specified day is a holiday.

Regards
Andrew


begin 666 schoolday.pl
M(R!#871E9V]R>2 ](%1I;64-"@T*(T -"B- ($-H96-K<R!I9B!T;V1A>2!I
M<R!A('-C:&]O;"!D87D@;W(@;FEG:'0N#0HC0 T*#0H-"B-M>2 D8VAU<G-T
M;VX@/2 B8VAU<G-T;VXB.PT*#0IM>2 E<V-H;V]L7W1E<FUS(" ]("@-"B @
M(" @($-H=7)S=&]N(#T^("(Q+S$M,C<O,#$L(#<O-BTQ."\P.2P@,C$O,3 M
M,C$O,3(B+ T*(" @(" @0VAE<W1N=70@/3X@(C$O,BTR-R\P,BP@-R\W+3$X
M+S$P+" R,2\Q,2TR,2\Q,B(-"B @("D[#0IM>2 E=&5R;7,[#0H-"FUY("1D
M871E7V9O<FUA=" ](")D9&UM>7DB.R @(R D8V]N9FEG7W!A<FU[9&%T95]F
M;W)M871]#0H-"@T*)'9?:7-?<V-H;V]L7V1A>2 ](&YE=R!6;VEC95]#;60H
M("=)<R!T;V1A>2!A('-C:&]O;"!D87D@6T-H=7)S=&]N+$-H97-T;G5T72<I
M.PT*)'9?:7-?<V-H;V]L7VYI9VAT(#T@;F5W(%9O:6-E7T-M9"@@)TES('1O
M;FEG:'0@82!S8VAO;VP@;FEG:'0@6T-H=7)S=&]N+$-H97-T;G5T72<I.PT*
M#0H-"G-U8B!#;VYV97)T7U1O7TE33S@V,#%?1&%T92![#0H@(&UY("1D871E
M(#T@<VAI9G0[#0H-"@T*("!M>2 H)'DL)&TL)&0I.PT*("!M>2 H)'EY>7DL
M)&UM+"1D9"D[#0H-"B @:68@*"1D871E7V9O<FUA=" ]?B O9&1M;2\I('L-
M"B @(" H)&0L)&TL)'DI(#T@<W!L:70H(B\B+"1D871E*3L-"B @?2!E;'-E
M('L-"B @(" H)&TL)&0L)'DI(#T@<W!L:70H(B\B+"1D871E*3L-"B @?0T*
M#0H@(&EF("AL96YG=&@H)&TI(#T](#$I('L-"B @(" D;6T@/2 B,"(N)&T[
M#0H@('T@96QS92![#0H@(" @)&UM(#T@)&T[#0H@('T-"@T*("!I9B H;&5N
M9W1H*"1D*2 ]/2 Q*2![#0H@(" @)&1D(#T@(C B+B1D.PT*("!](&5L<V4@
M>PT*(" @("1D9" ]("1D.PT*("!]#0H-"B @:68@*"%D969I;F5D("1Y*2![
M#0H@(" @;7D@)'1O9&%Y(#T@=&]D87DH*3L-"B @(" D>7EY>2 ]("1996%R
M.PT*("!](&5L<V4@>PT*(" @("1Y>7EY(#T@)'D@:68@;&5N9W1H*"1Y*2 ]
M/2 T.PT*(" @("1Y>7EY(#T@(C(P(BXD>2!I9B!L96YG=&@H)'DI(#T](#([
M(" @(" C(%1H:7,@=VEL;" J;VYL>2H@=V]R:R!U;G1I; T*,C Y.2X-"B @
M?0T*#0H@("-R971U<FX@(B1Y>7EY+21M;2TD9&0B.PT*(" C(#$@2&]U<B!I
M;G1O('1H92!D87D-"B @<')I;G0@(D-O;G9E<G0@;W5T(#T@)&1D+R1M;2\D
M>7EY>5QN(CL-"B @<F5T=7)N('1I;65L;V-A;"@P+" P+" Q+" D9&0L("1M
M;2TQ+" D>7EY>2D[#0H-"GT-"@T*<W5B($QO86138VAO;VP@>PT*(" @;7D@
M)'-C:&]O;" ]('-H:69T.PT*(" @;7D@)'-C:&]O;%]T97)M<R ]('-H:69T
M.PT*(" @#0H@("!M>2 D:2 ](# [#0H@("!M>2 D=&5R;3L-"B @#0H@(" -
M"B @(&9O<F5A8V@@)'1E<FT@*'-P;&ET*"(L(BPD<V-H;V]L7W1E<FUS*2D@
M>PT*(" @(" @;7DH)'-T87)T+"1F:6YI<[hidden email]*(" @(" @;7DH)&0L)&TL
M)'DI.PT*#0H@(" @(" H)'-T87)T+"1F:6YI<V@I(#T@<W!L:70H(BTB+"1T
M97)M*3L-"B @(" @("1S=&%R=" ]($-O;G9E<G1?5&]?25-/.#8P,5]$871E
M*"1S=&%R="D[#0H@(" @(" D9FEN:7-H(#T@0V]N=F5R=%]4;U])4T\X-C Q
M7T1A=&4H)&9I;FES:"D[#0H-"B @(" @("1T97)M<WLD<V-H;V]L?5LD:5U;
M,%T@/2 D<W1A<G0[#0H@(" @(" D=&5R;7-[)'-C:&]O;'U;)&E=6S%=(#T@
M)&9I;FES:#L-"@T*(" @(" @)&DK*SL-"B @('T-"B @( T*?0T*#0H-"FEF
M("@D4F5L;V%D*2![#0H@("!M>2 D<V-H;V]L.PT*(" @#0H@("!F;W(@)'-C
M:&]O;" H:V5Y<R E<V-H;V]L7W1E<FUS*2![#0H@(" @("!,;V%D4V-H;V]L
M*" D<V-H;V]L+" D<V-H;V]L7W1E<FUS>R1S8VAO;VQ]("D[(" @#0H@("!]
M( T*(" @#0I]#0H-"@T*<W5B($ES4V-H;V]L1&%Y('L-"B @(&UY("1T97-T
M9&%T92 ]('-H:69T.PT*(" @;7D@)'-C:&]O;" ]('-H:69T.PT*#0H@(" C
M(%=E(&-A;B!A8V-E<'0@9&0O;6TO>7D@;W(@86X@97!O8V@@;G5M8F5R(" @
M#0H@("!I9B H)'1E<W1D871E(#U^("]<+R\I('L-"B @(" @("1T97-T9&%T
M92 ]($-O;G9E<G1?5&]?25-/.#8P,5]$871E*"1T97-T9&%T92D[#0H@("!]
M#0H@(" C<')I;G0@(E1E<W0@1&%T92 ]("1T97-T9&%T95QN(CL-"@T*(" @
M(R!!:"$@5&AI<R!W:6QL('=O<FL@9F]R('1O9&%Y+"!B=70@;F]T('1O;6]R
M<F]W(#HM* T*(" @(R!7965K96YD('-H;W5L9"!B92!E87-Y(&5N;W5G:"P@
M8G5T(&AO=R!A8F]U="!(;VQI9&%Y('1O;6]R<F]W/PT*(" @(W)E='5R;B P
M(&EF("@D5V5E:V5N9"!\?" D2&]L:61A>2D[#0H-"B @(&UY("1J.PT*#0H@
M("!F;W(@)&H@*" P("XN("0C>R D=&5R;7-[)'-C:&]O;'U]("D@>PT*(" @
M(" @(W!R:6YT("(D:B D=&5R;7-[)'-C:&]O;'U;)&I=6S!=72 D=&5R;7-[
M)'-C:&]O;'U;)&I=6S%=7&XB.PT*(" @(" @:68@*"@D=&5S=&1A=&4@/CT@
M)'1E<FUS>R1S8VAO;VQ]6R1J75LP72D@86YD("@D=&5S=&1A=&4@/#T@)'1E
M<FUS>R1S8VAO;VQ]6R1J75LQ72DI('L-"B @(" @(" @(')E='5R;B Q.PT*
M(" @(" @?0T*(" @?0T*#0H@("!R971U<FX@,#L-"GT-"@T*#0II9B H)'-T
M871E(#T@<W1A=&5?;F]W(" D=E]I<U]S8VAO;VQ?;FEG:'0I>PT*#0H@("!M
M>2 D:7-O7V1A=&4@/2 D361A>2XB+R(N)$UO;G1H+B(O(BXD665A<CL-"B @
M(&UY("1E<&]C:%]D871E(#T@0V]N=F5R=%]4;U])4T\X-C Q7T1A=&4H)&ES
M;U]D871E*3L-"B @(",@061D(#(T(&AO=7)S('1O(&=E="!T;VUO<G)O=PT*
M(" @;7D@)&5P;V-H7V1A=&5?=&]M;W)R;W<@*ST@.#8T,# [#0H@(" -"B @
M(&EF("@@27-38VAO;VQ$87DH)&5P;V-H7V1A=&5?=&]M;W)R;W<I+" D<W1A
M=&4I('L-"B @(" @('-P96%K("))=',@82 D<W1A=&4@<V-H;V]L(&YI9VAT
M(CL-"B @('T@96QS92![#0H@(" @("!S<&5A:R B271S(&YO="!A("1S=&%T
M92!S8VAO;VP@;FEG:'0B.PT*(" @?0T*?0T*#0H-"B -"FEF("@D<W1A=&4@
M/2!S=&%T95]N;W<@)'9?:7-?<V-H;V]L7V1A>2D@>PT*( T*(" @;7D@)&ES
M;U]D871E(#T@)$UD87DN(B\B+B1-;VYT:"XB+R(N)%EE87([#0H@("!M>2 D
M97!O8VA?9&%T92 ]($-O;G9E<G1?5&]?25-/.#8P,5]$871E*"1I<V]?9&%T
M92D[#0H@(" -"B @(&EF("@@27-38VAO;VQ$87DH)&5P;V-H7V1A=&4L("1S
M=&%T92D@*2![#0H@(" @("!S<&5A:R B271S(&$@)'-T871E('-C:&]O;"!D
M87DB.PT*(" @?2!E;'-E('L-"B @(" @('-P96%K("))=',@;F]T(&$@)'-T
=871E('-C:&]O;"!D87DB.PT*(" @?0T*?0T*#0H`
`
end




-------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc. Do you grep through log files
for problems?  Stop!  Download the new AJAX search engine that makes
searching your log files as easy as surfing the  web.  DOWNLOAD SPLUNK!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=103432&bid=230486&dat=121642
________________________________________________________
To unsubscribe from this list, go to: http://sourceforge.net/mail/?group_id=1365

Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: Schoolday

AndrewB-2

OK, last post before the weekend.

This one deals with weekends.

All I need to do now is:
1. Read dates from ini file,
2. Correctly populate menu with defined schools,
3. Sort out how to deal with $Holiday


Thanks Clive for pointing me in the right direction.


Andrew B


--------------------------------------------------------------------------------


>
>
>
>
> -------------------------------------------------------
> This SF.net email is sponsored by: Splunk Inc. Do you grep through log
> files
> for problems?  Stop!  Download the new AJAX search engine that makes
> searching your log files as easy as surfing the  web.  DOWNLOAD SPLUNK!
> http://sel.as-us.falkag.net/sel?cmd=lnk&kid=103432&bid=230486&dat=121642
> ________________________________________________________
> To unsubscribe from this list, go to:
> http://sourceforge.net/mail/?group_id=1365
>
>


begin 666 schoolday.pl
M(R!#871E9V]R>2 ](%1I;64-"@T*(T -"B- (%1H97-E(&9U;F-T:6]N('=I
M;&P@8V%L8W5L871E(&EF(%1O9&%Y(&]R(%1O;6]R<F]W(&%R92 -"B- ('-C
M:&]O;&1A>7,N($UU;'1I<&QE('-C:&]O;',@87)E('-U<'!O<G1E9"X@#0HC
M0"!!(&QI<W0@;V8@=&5R;2!D871E<R!A;F0@86X@;W!T:6]N86P@;&ES="!O
M9B!M:60M=&5R;0T*(T @:&]L:61A>7,@87)E(')E<75I<F5D(&9O<B!E86-H
M('-C:&]O;"X-"@T*(R R,# V+3 Q+3(W($%N9')E=R!#($)A:V5R(&%N9')E
M=T!R96MA8G5K+F-O+G5K#0H-"@T*(R @(" @<VAO;VQN86UE(#T^(%LB<W1A
M<G0P+65N9# L('-T87)T,2UE;F0Q+" N+BXB+" B9&%Y,"QD87DQ(ET-"FUY
M("5S8VAO;VQ?=&5R;7,@(#T@* T*(" @(" @0VAU<G-T;VX@/3X@6R(Q+S$M
M,C@O,#$L(#<O-BTQ."\P.2P@,C$O,3 M,C$O,3(B+" B-2\V+#,O-"PR-R\P
M,2)=+ T*(" @(" @0VAE<W1N=70@/3X@6R(Q+S$M,C<O,#(L(#<O-RTQ."\Q
M,"P@,C$O,3$M,C$O,3(B+" B(ET-"B @("D[#0H@(" -"B,@4')O8V5S<V5D
M('1E<FT@9&%T97,@(" -"FUY("5T97)M<SL-"@T*;7D@)&1A=&5?9F]R;6%T
M(#T@(F1D;6UY>2([(V-O;F9I9U]P87)M<WMD871E7V9O<FUA='T[#0H-"@T*
M)'9?:7-?<V-H;V]L7V1A>2 ](&YE=R!6;VEC95]#;60H("=)<R!T;V1A>2!A
M('-C:&]O;"!D87D@6T-H=7)S=&]N+$-H97-T;G5T72<I.PT*)'9?:7-?<V-H
M;V]L7VYI9VAT(#T@;F5W(%9O:6-E7T-M9"@@)TES('1O;FEG:'0@82!S8VAO
M;VP@;FEG:'0@6T-H=7)S=&]N+$-H97-T;G5T72<I.PT*#0H-"B,M+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2T-"G-U8B!#
M;VYV97)T7U1O7TE33S@V,#%?1&%T92![#0H@(&UY("1D871E(#T@<VAI9G0[
M#0H-"@T*("!M>2 H)'DL)&TL)&0I.PT*("!M>2 H)'EY>7DL)&UM+"1D9"D[
M#0H-"B @:68@*"1D871E7V9O<FUA=" ]?B O9&1M;2\I('L-"B @(" H)&0L
M)&TL)'DI(#T@<W!L:70H(B\B+"1D871E*3L-"B @?2!E;'-E('L-"B @(" H
M)&TL)&0L)'DI(#T@<W!L:70H(B\B+"1D871E*3L-"B @?0T*#0H@(&EF("AL
M96YG=&@H)&TI(#T](#$I('L-"B @(" D;6T@/2 B,"(N)&T[#0H@('T@96QS
M92![#0H@(" @)&UM(#T@)&T[#0H@('T-"@T*("!I9B H;&5N9W1H*"1D*2 ]
M/2 Q*2![#0H@(" @)&1D(#T@(C B+B1D.PT*("!](&5L<V4@>PT*(" @("1D
M9" ]("1D.PT*("!]#0H-"B @:68@*"%D969I;F5D("1Y*2![#0H@(" @;7D@
M)'1O9&%Y(#T@=&]D87DH*3L-"B @(" D>7EY>2 ]("1996%R.PT*("!](&5L
M<V4@>PT*(" @("1Y>7EY(#T@)'D@:68@;&5N9W1H*"1Y*2 ]/2 T.PT*(" @
M("1Y>7EY(#T@(C(P(BXD>2!I9B!L96YG=&@H)'DI(#T](#([(" @(" C(%1H
M:7,@=VEL;" J;VYL>2H@=V]R:R!U;G1I; T*,C Y.2X-"B @?0T*#0H@(",@
M,2!(;W5R(&EN=&\@=&AE(&1A>0T*(" C<')I;G0@(D-O;G9E<G0@;W5T(#T@
M)&1D+R1M;2\D>7EY>5QN(CL-"B @(TUO;G1H<R!A<F4@,"XN,3$-"B @<F5T
M=7)N('1I;65L;V-A;"@P+" P+" Q+" D9&0L("1M;2TQ+" D>7EY>2D[#0H-
M"GT-"@T*#0HC+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM#0IS=6(@3&]A9%-C:&]O;"![#0H@("!M>2 D<V-H;V]L(#T@
M<VAI9G0[#0H@("!M>2 D<V-H;V]L7W1E<FUS(#T@<VAI9G0[#0H@("!M>2 D
M<V-H;V]L7VEN<V5T(#T@<VAI9G0[#0H@(" -"B @(&UY("1I.PT*(" -"B @
M(",@3&]A9"!497)M(&1A=&5S#0H@(" D:2 ](# [#0H@("!M>2 D=&5R;3L-
M"B @(&9O<F5A8V@@)'1E<FT@*'-P;&ET*"(L(BPD<V-H;V]L7W1E<FUS*2D@
M>PT*(" @(" @;7DH)'-T87)T+"1F:6YI<[hidden email]*(" @(" @;7DH)&0L)&TL
M)'DI.PT*#0H@(" @(" H)'-T87)T+"1F:6YI<V@I(#T@<W!L:70H(BTB+"1T
M97)M*3L-"B @(" @("1S=&%R=" ]($-O;G9E<G1?5&]?25-/.#8P,5]$871E
M*"1S=&%R="D[#0H@(" @(" D9FEN:7-H(#T@0V]N=F5R=%]4;U])4T\X-C Q
M7T1A=&4H)&9I;FES:"D[#0H-"B @(" @("1T97)M<WLD<V-H;V]L?7MT97)M
M<WU;)&E=6S!=(#T@)'-T87)T.PT*(" @(" @)'1E<FUS>R1S8VAO;VQ]>W1E
M<FUS?5LD:5U;,5T@/2 D9FEN:7-H.PT*#0H@(" @(" C<')I;G0H(E-C:&]O
M;#TD<V-H;V]L+"!497)M/21I+"!3=&%R=#TD=&5R;7-[)'-C:&]O;'U[=&5R
M;7-]6R1I75LP72P@1FEN:7-H/21T97)M<WLD<V-H;V]L?7MT97)M<WU;)&E=
M6S%=7&XB*3L-"B @(" @("1I*RL[#0H@("!]#0H@(" -"B @(",@3&]A9"!I
M;G-E="!D871E<PT*(" @)&D@/2 P.PT*(" @;7D@)&EN<V5T.PT*(" @9F]R
M96%C:" D:6YS970@*'-P;&ET*"(L(BPD<V-H;V]L7VEN<V5T*2D@>PT*(" @
M(" @;7D@)&EN<V5T7V1A>3L-"B @(" @("1I;G-E=%]D87D@/2!#;VYV97)T
M7U1O7TE33S@V,#%?1&%T92@D:6YS970I.PT*#0H@(" @(" D=&5R;7-[)'-C
M:&]O;'U[:6YS971S?5LD:5T@/2 D:6YS971?9&%Y.PT*(" @(" @(W!R:6YT
M*")38VAO;VP])'-C:&]O;"P@26YS970])&DL($1A=&4])'1E<FUS>R1S8VAO
M;VQ]>VEN<V5T<WU;)&E=7&XB*3L-"@T*(" @(" @)&DK*SL-"B @('T-"B @
M( T*?0T*#0H-"@T*(RTM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+0T*:68@*"1296QO860I('L-"B @(&UY("1S8VAO;VP[
M#0H@(" -"B @(&9O<B D<V-H;V]L("AK97ES("5S8VAO;VQ?=&5R;7,I('L-
M"B @(" @($QO86138VAO;VPH("1S8VAO;VPL("1S8VAO;VQ?=&5R;7-[)'-C
M:&]O;'U;,%TL("1S8VAO;VQ?=&5R;7-[)'-C:&]O;'U;,5T@*3L@(" -"B @
M('T@#0H@#0I]#0H-"B,M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2T-"B,@27,@=&AE('-U<'!L:65D(&1A>2!A('-C:&]O
M;"!D87D-"G-U8B!)<U-C:&]O;$1A>2![#0H@("!M>2 D=&5S=&1A=&4@/2!S
M:&EF=#L-"B @(&UY("1S8VAO;VP@/2!S:&EF=#L-"@T*(" @(R!792!C86X@
M86-C97!T(&1D+VUM+WEY(&]R(&%N(&5P;V-H(&YU;6)E<B @( T*(" @:68@
M*"1T97-T9&%T92 ]?B O7"\O*2![#0H@(" @(" D=&5S=&1A=&4@/2!#;VYV
M97)T7U1O7TE33S@V,#%?1&%T92@D=&5S=&1A=&4I.PT*(" @?0T*(" @(W!R
M:6YT(")497-T($1A=&4@*$1A>2D@/2 D=&5S=&1A=&5<;B([#0H-"B @(",@
M3F\@<V-H;V]L(&%T('1H92!W965K96YD#0H@("!M>2 H)'-E8RPD;6EN+"1H
M;W5R+"1M9&%Y+"1M;VXL)'EE87(L)'=D87DL)'ED87DL)&ES9'-T*2 ](&QO
M8V%L=&EM92@D=&5S=&1A=&4I.PT*(" @:68@*"@D=V1A>2 ]/2 V*2!\?" H
M)'=D87D@/3T@,"DI('L-"B @(" @(')E='5R;B P.PT*(" @?0T*(" @(" @
M#0H@(" C0VAE8VL@=&5R;2!D871E<PT*(" @;7D@*"1J+" D:RD[#0H@("!P
M<FEN=" B)"-[("1T97)M<WLD<V-H;V]L?7MT97)M<WU]7&XB.PT*#0H@("!F
M;W(@)&H@*" P("XN("0C>R D=&5R;7-[)'-C:&]O;'U[=&5R;7-]?2 I('L-
M"B @(" @('!R:6YT("(D:B D=&5R;7-[)'-C:&]O;'U[=&5R;7-]6R1J75LP
M75T@)'1E<FUS>R1S8VAO;VQ]>W1E<FUS?5LD:EU;,5U<;B([#0H@(" @("!I
M9B H*"1T97-T9&%T92 ^/2 D=&5R;7-[)'-C:&]O;'U[=&5R;7-]6R1J75LP
M72D@86YD("@D=&5S=&1A=&4@/#T@)'1E<FUS>R1S8VAO;VQ]>W1E<FUS?5LD
M:EU;,5TI*2![#0H@(" @(" @(" C($YO=R!C:&5C:R!I9B!I="=S(&%N(&EN
M<V5T(&1A>0T*(" @(" @(" @9F]R("1K("@@," N+B D(WL@)'1E<FUS>R1S
M8VAO;VQ]>VEN<V5T<WU]("D@>PT*(" @(" @(" @(" @:68@*"1T97-T9&%T
M92 ]/2 D=&5R;7-[)'-C:&]O;'U[:6YS971S?5LD:UTI('L-"B @(" @(" @
M(" @(" @('!R:6YT7VQO9R B26YS970@9&%Y("1S8VAO;VPB.PT*(" @(" @
M(" @(" @(" @<F5T=7)N(# [#0H@(" @(" @(" @("!]#0H@(" @(" @("!]
M#0H@(" @(" @(" C3F5E9"!T;R!C:&5C:R!F;W(@:&]L:61A>7,-"B @(" @
M(" @("-F;W(@*"D@>PT*(" @(" @(" @(R @:68@2&]L:61A>2![#0H@(" @
M(" @(" C(" @("!R971U<FX@, T*(" @(" @(" @(WT-"B @(" @(" @("-]
M#0H@(" @(" @("!R971U<FX@,3L-"B @(" @('T-"B @('T-"@T*(" @<F5T
M=7)N(# [#0I]#0H-"B,M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2T-"B,@27,@=&AE('-U<'!L:65D(&1A>2!A('-C:&]O
M;"!N:6=H= T*<W5B($ES4V-H;V]L3FEG:'0@>PT*(" @;7D@)'1E<W1D871E
M(#T@<VAI9G0[#0H@("!M>2 D<V-H;V]L(#T@<VAI9G0[#0H@(" -"B @(&UY
M("1T97-T9&%T95]T;VUO<G)O=SL-"B @( T*(" @(R!792!C86X@86-C97!T
M(&1D+VUM+WEY(&]R(&%N(&5P;V-H(&YU;6)E<B @( T*(" @:68@*"1T97-T
M9&%T92 ]?B O7"\O*2![#0H@(" @(" D=&5S=&1A=&4@/2!#;VYV97)T7U1O
M7TE33S@V,#%?1&%T92@D=&5S=&1A=&4I.PT*(" @?0T*(" @#0H@(" C1V5T
M('1O;6]R<F]W<R!D871E#0H@(" D=&5S=&1A=&4@*ST@.#8T,# [#0H@(" C
M<')I;G0@(E1E<W0@1&%T92 H3FEG:'0I(#T@)'1E<W1D871E7&XB.PT*#0H@
M(" C($ES('1O;6]R<F]W(&$@<V-H;V]L7V1A>3\-"B @(')E='5R;B!)<U-C
M:&]O;$1A>2@@)'-C:&]O;"P@)'1E<W1D871E*3L-"GT-"@T*#0HC+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM#0HC($ES
M('1O9&%Y(&$@<V-H;V]L(&1A>3\-"G-U8B!)<U-C:&]O;%1O9&%Y('L-"B @
M(&UY("1S8VAO;VP@/2!S:&EF=#L-"@T*(" @<F5T=7)N(# @:68@*"1(;VQI
M9&%Y*3L-"B @( T*(" @;7D@)&ES;U]D871E(#T@)$UD87DN(B\B+B1-;VYT
M:"XB+R(N)%EE87([#0H@("!M>2 D97!O8VA?9&%T92 ]($-O;G9E<G1?5&]?
M25-/.#8P,5]$871E*"1I<V]?9&%T92D[#0H@(" -"B @(')E='5R;B!)<U-C
M:&]O;$1A>2@D97!O8VA?9&%T92P@)'-C:&]O;"D[#0I]#0H-"B,M+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2T-"B-)<R!T
M;VUO<G)O=R!A('-C:&]O;"!D87D_#0IS=6(@27-38VAO;VQ4;VUO<G)O=R![
M#0H@("!M>2 D<V-H;V]L(#T@<VAI9G0[#0H-"B @(&UY("1I<V]?9&%T92 ]
M("1-9&%Y+B(O(BXD36]N=&@N(B\B+B1996%R.PT*(" @;7D@)&5P;V-H7V1A
M=&4@/2!#;VYV97)T7U1O7TE33S@V,#%?1&%T92@D:7-O7V1A=&4I.PT*(" @
M#0H@("!R971U<FX@27-38VAO;VQ.:6=H="@D97!O8VA?9&%T92P@)'-C:&]O
M;"D[#0I]#0H-"@T*(RTM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+0T*:68@*"1S=&%T92 ]('-T871E7VYO=R D=E]I<U]S
M8VAO;VQ?9&%Y*2![#0H@(" -"B @(&EF("@@27-38VAO;VQ4;V1A>2@@)'-T
M871E*2 I('L-"B @(" @('-P96%K("))=',@82 D<W1A=&4@<V-H;V]L(&1A
M>2([#0H@("!](&5L<V4@>PT*(" @(" @<W!E86L@(DET<R!N;W0@82 D<W1A
M=&4@<V-H;V]L(&1A>2([#0H@("!]#0I]#0H-"@T*(RTM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+0T*:68@*"1S=&%T92 ]
M('-T871E7VYO=R @)'9?:7-?<V-H;V]L7VYI9VAT*2![#0H-"B @(&EF("@@
M27-38VAO;VQ4;VUO<G)O=R@@)'-T871E*2D@>PT*(" @(" @<W!E86L@(DET
M<R!A("1S=&%T92!S8VAO;VP@;FEG:'0B.PT*(" @?2!E;'-E('L-"B @(" @
M('-P96%K("))=',@;F]T(&$@)'-T871E('-C:&]O;"!N:6=H="([#0H@("!]
.#0I]#0H-"@T*( T*#0H`
`
end




-------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc. Do you grep through log files
for problems?  Stop!  Download the new AJAX search engine that makes
searching your log files as easy as surfing the  web.  DOWNLOAD SPLUNK!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=103432&bid=230486&dat=121642
________________________________________________________
To unsubscribe from this list, go to: http://sourceforge.net/mail/?group_id=1365

Loading...