Help-Site Computer Manuals
Software
Hardware
Programming
Networking
  Algorithms & Data Structures   Programming Languages   Revision Control
  Protocols
  Cameras   Computers   Displays   Keyboards & Mice   Motherboards   Networking   Printers & Scanners   Storage
  Windows   Linux & Unix   Mac

Religion::Islam::PrayerTimes
Calculates Muslim Prayers Times and Sunrise

Religion::Islam::PrayerTimes - Calculates Muslim Prayers Times and Sunrise


NAME

Religion::Islam::PrayerTimes - Calculates Muslim Prayers Times and Sunrise


SYNOPSIS


        use Religion::Islam::PrayerTimes;

        #create new object with default options

        my $prayer = Religion::Islam::PrayerTimes->new();

        

        #Juristic Methods:

        # 1 = Standard (Imams Shafii, Hanbali, and Maliki),

        #2  = Hanafi

        #The difference is in the Aser time only

        $prayer->JuristicMethod(1);

        

        # Calculation Method 

        #1:     Umm Al-Qura Committee

        #2:     Muslim World League

        #3:     Egyptian General Authority of Survey

        #4:     University Of Islamic Sciences, Karachi

        #5:     ISNA, Islamic Society of North America

        $prayer->CalculationMethod(3);

        

        # Q. What is daylight saving? Ans. Many countries try to adopt their work time by subtracting

        # from their clocks one hour in the Fall and Winter seasons. 

        $prayer->DaylightSaving(1);

        #print "DaylightSaving: ". $prayer->DaylightSaving() ."\n";

        

        # set the location to clculate prayer times for.

        # for Cairo, Egypt:

        # http://heavens-above.com/countries.asp

        $prayer->PrayerLocation(

                                                                        Latitude => 30.050,

                                                                        Longitude => 31.250,

                                                                        Altitude => 24,

                                                                        TimeZone => 2

                                                                );

        

        my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

        $mon++;         $year += 1900;

        #Adjust the Gregorian Dates by making sure that the month lengths  

        #are correct if not so take the extra days to next month or year.

        my ($yg0, $mg0, $dg0) = $prayer->GDateAjust($year, $mon, $mday);

        # Now calculate the prayer times. Times returns in hours decimal format

        #%result = $prayer->PrayerTimes($year, $mon, $mday);

        %result = $prayer->PrayerTimes($yg0, $mg0, $dg0);

        

        #print "Fajr: " . $result{Fajr} . "\n";

        #print "Sunrise: " . $result{Sunrise} . "\n";

        #print "Zohar: " . $result{Zohar} . "\n";

        #print "Aser: " . $result{Aser} . "\n";

        #print "Maghrib: " . $result{Maghrib} . "\n";

        #print "Isha: " . $result{Isha} . "\n";

        #print "Fajir Rabita: " . $result{FajirRabita} . "\n";   #Fajer using exact Rabita method for places >48

        #print "Isha Rabita: " . $result{IshaRabita} . "\n";    #Ash using exact Rabita method for places >48

        #print "Eid Prayer Time: " . $result{Eid} . "\n";        #Eid Prayer Time

        #print "\n";

        

        # set time mode for 12 or 24 hour for FormatTime function.

        $prayer->TimeMode(1);

        #print time formated

        #print "TimeMode: "  . $prayer->TimeMode() ."\n";

        my ($h, $m, $ap);

        ($h, $m, $ap) = $prayer->FormatTime($result{Fajr});

        print "Fajr: $h:$m $ap\n";

        ($h, $m, $ap) = $prayer->FormatTime($result{Sunrise});

        print "Sunrise: $h:$m $ap\n";

        ($h, $m, $ap) = $prayer->FormatTime($result{Zohar});

        print "Zohar: $h:$m $ap\n";

        ($h, $m, $ap) = $prayer->FormatTime($result{Aser});

        print "Aser: $h:$m $ap\n";

        ($h, $m, $ap) = $prayer->FormatTime($result{Maghrib});

        print "Maghrib: $h:$m $ap\n";

        ($h, $m, $ap) = $prayer->FormatTime($result{Isha});

        print "Isha: $h:$m $ap\n";

        

        #($h, $m, $ap) = $prayer->FormatTime($result{FajirRabita});

        #print "Fajir Rabita: $h:$m $ap\n";      #Fajer using exact Rabita method for places >48

        #($h, $m, $ap) = $prayer->FormatTime($result{IshaRabita});

        #print "Isha Rabita: $h:$m $ap\n";      #Ash using exact Rabita method for places >48

        #($h, $m, $ap) = $prayer->FormatTime($result{Eid});

        #print "Eid Prayer Time: $h:$m $ap\n";   #Eid Prayer Time


DESCRIPTION

This module calculates Muslim prayers times and sunrise for any location on the earth.


SEE ALSO

the Religion::Islam::Qibla manpage the Religion::Islam::Quran manpage


AUTHOR

Ahmed Amin Elsheshtawy, <support@islamware.com Website: http://www.islamware.com


COPYRIGHT AND LICENSE

Copyright (C) 2006 by Ahmed Amin Elsheshtawy support@islamware.com, http://www.islamware.com

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Programminig
Wy
Wy
yW
Wy
Programming
Wy
Wy
Wy
Wy