debian/0000755000000000000000000000000012250613472007170 5ustar debian/rules0000755000000000000000000000003612250613472010247 0ustar #!/usr/bin/make -f %: dh $@ debian/control0000644000000000000000000000147612250613472010603 0ustar Source: libreligion-islam-prayertimes-perl Section: perl Priority: optional Maintainer: Debian Perl Group Uploaders: Xavier Guimard Build-Depends: debhelper (>= 8) Build-Depends-Indep: perl Standards-Version: 3.9.5 Vcs-Browser: http://anonscm.debian.org/gitweb/?p=pkg-perl/packages/libreligion-islam-prayertimes-perl.git Vcs-Git: git://anonscm.debian.org/pkg-perl/packages/libreligion-islam-prayertimes-perl.git Homepage: https://metacpan.org/release/Religion-Islam-PrayerTimes Package: libreligion-islam-prayertimes-perl Architecture: all Depends: ${misc:Depends}, ${perl:Depends} Description: Perl module that calculates Muslim Prayers Times and Sunrise Religion::Islam::PrayerTimes calculates Muslim prayers times and sunrise for any location on the earth. debian/source/0000755000000000000000000000000012250613472010470 5ustar debian/source/format0000644000000000000000000000001412250613472011676 0ustar 3.0 (quilt) debian/changelog0000644000000000000000000000026212250613472011042 0ustar libreligion-islam-prayertimes-perl (1.02-1) unstable; urgency=low * Initial Release (Closes: #731083) -- Xavier Guimard Sat, 07 Dec 2013 10:03:33 +0100 debian/compat0000644000000000000000000000000212250613472010366 0ustar 8 debian/patches/0000755000000000000000000000000012250613472010617 5ustar debian/patches/change-bad-comment-format.patch0000644000000000000000000004061012250613472016540 0ustar Description: Corrects bad comment format Author: Xavier Guimard Bug: https://rt.cpan.org/Ticket/Display.html?id=91096 Forwarded: https://rt.cpan.org/Ticket/Display.html?id=91096 Last-Update: 2013-12-01 --- libreligion-islam-prayertimes-perl-1.02.orig/lib/Religion/Islam/PrayerTimes.pm +++ libreligion-islam-prayertimes-perl-1.02/lib/Religion/Islam/PrayerTimes.pm @@ -1080,15 +1080,15 @@ my ($IshRt, $FajrRt); return ($IshRt, $FajrRt); } #========================================================== -=BH2GA -Name: BH2GA -Type: Procedure -Purpose: Finds Gdate(year,month,day) for Hdate(year,month,day=1) -Arguments: -Input: Hijrah date: year:yh, month:mh -Output: Gregorian date: year:yg, month:mg, day:dg , day of week:dayweek - and returns flag found:1 not found:0 -=cut +#=BH2GA +#Name: BH2GA +#Type: Procedure +#Purpose: Finds Gdate(year,month,day) for Hdate(year,month,day=1) +#Arguments: +#Input: Hijrah date: year:yh, month:mh +#Output: Gregorian date: year:yg, month:mg, day:dg , day of week:dayweek +# and returns flag found:1 not found:0 +#=cut # ($yg1, $mg1, $dg1, $dw2) = &BH2GA($yh2,$mh2); sub BH2GA{ my ($self, $yh, $mh) = @_; @@ -1111,14 +1111,14 @@ my ($yg, $mg, $dg, $dayweek); return ($flag, $yg, $mg, $dg, $dayweek); } #========================================================== -=HCalendarToJDA -Name: HCalendarToJDA -Type: Function -Purpose: convert Hdate(year,month,day) to Exact Julian Day -Arguments: -Input : Hijrah date: year:yh, month:mh, day:dh -Output: The Exact Julian Day: JD -=cut +#=HCalendarToJDA +#Name: HCalendarToJDA +#Type: Function +#Purpose: convert Hdate(year,month,day) to Exact Julian Day +#Arguments: +#Input : Hijrah date: year:yh, month:mh, day:dh +#Output: The Exact Julian Day: JD +#=cut # $GJD= &HCalendarToJDA($yh,$mh,1); sub HCalendarToJDA{ my ($self, $yh, $mh, $dh) = @_; @@ -1143,15 +1143,15 @@ my ($self, $yh, $mh, $dh) = @_; return $GJD; } #========================================================== -=HMonthLength -Name: HMonthLength -Type: Function -Purpose: Obtains the month length -Arguments: -Input : Hijrah date: year:yh, month:mh -Output: Month Length -int HMonthLength(int yh,int mh) -=cut +#=HMonthLength +#Name: HMonthLength +#Type: Function +#Purpose: Obtains the month length +#Arguments: +#Input : Hijrah date: year:yh, month:mh +#Output: Month Length +#int HMonthLength(int yh,int mh) +#=cut sub HMonthLength{ my ($self, $yh, $mh) = @_; @@ -1177,15 +1177,15 @@ my ($self, $yh, $mh) = @_; return $Dy; } #========================================================== -=DayInYear -Name: DayInYear -Type: Function -Purpose: Obtains the day number in the yea -Arguments: -Input : Hijrah date: year:yh, month:mh day:dh -Output: Day number in the Year -int DayinYear(int yh,int mh,int dh) -=cut +#=DayInYear +#Name: DayInYear +#Type: Function +#Purpose: Obtains the day number in the yea +#Arguments: +#Input : Hijrah date: year:yh, month:mh day:dh +#Output: Day number in the Year +#int DayinYear(int yh,int mh,int dh) +#=cut sub DayinYear{ my ($self, $yh, $mh, $dh) = @_; @@ -1214,15 +1214,15 @@ my ($self, $yh, $mh, $dh) = @_; return $DL; } #========================================================== -=HYearLength -Name: HYearLength -Type: Function -Purpose: Obtains the year length -Arguments: -Input : Hijrah date: year:yh -Output: Year Length -int HYearLength(int yh) -=cut +#=HYearLength +#Name: HYearLength +#Type: Function +#Purpose: Obtains the year length +#Arguments: +#Input : Hijrah date: year:yh +#Output: Year Length +#int HYearLength(int yh) +#=cut sub HYearLength{ my ($self, $yh) = @_; @@ -1252,16 +1252,16 @@ my ($self, $yh) = @_; } #========================================================== -=G2HA -Name: G2HA -Type: Procedure -Purpose: convert Gdate(year,month,day) to Hdate(year,month,day) -Arguments: -Input: Gregorian date: year:yg, month:mg, day:dg -Output: Hijrah date: year:yh, month:mh, day:dh, day of week:dayweek - and returns flag found:1 not found:0 -int G2HA(int yg,int mg, int dg,int *yh,int *mh,int *dh,int *dayweek) -=cut +#=G2HA +#Name: G2HA +#Type: Procedure +#Purpose: convert Gdate(year,month,day) to Hdate(year,month,day) +#Arguments: +#Input: Gregorian date: year:yg, month:mg, day:dg +#Output: Hijrah date: year:yh, month:mh, day:dh, day of week:dayweek +# and returns flag found:1 not found:0 +#int G2HA(int yg,int mg, int dg,int *yh,int *mh,int *dh,int *dayweek) +#=cut sub G2HA{ my ($self, $yg, $mg, $dg) = @_; my ($yh, $mh, $dh, $dayweek); @@ -1306,17 +1306,17 @@ my ($yh, $mh, $dh, $dayweek); return ($flag, $yh, $mh, $dh, $dayweek); } #========================================================== -=H2GA -Name: H2GA -Type: Procedure -Purpose: convert Hdate(year,month,day) to Gdate(year,month,day) -Arguments: -Input/Ouput: Hijrah date: year:yh, month:mh, day:dh -Output: Gregorian date: year:yg, month:mg, day:dg , day of week:dayweek - and returns flag found:1 not found:0 -Note: The function will correct Hdate if day=30 and the month is 29 only -int H2GA(int *yh,int *mh,int *dh, int *yg,int *mg, int *dg,int *dayweek) -=cut +#=H2GA +#Name: H2GA +#Type: Procedure +#Purpose: convert Hdate(year,month,day) to Gdate(year,month,day) +#Arguments: +#Input/Ouput: Hijrah date: year:yh, month:mh, day:dh +#Output: Gregorian date: year:yg, month:mg, day:dg , day of week:dayweek +# and returns flag found:1 not found:0 +#Note: The function will correct Hdate if day=30 and the month is 29 only +#int H2GA(int *yh,int *mh,int *dh, int *yg,int *mg, int *dg,int *dayweek) +#=cut sub H2GA{ my ($self, $yh, $mh, $dh, $yg, $mg, $dg, $dayweek) = @_; @@ -1349,15 +1349,15 @@ my ($self, $yh, $mh, $dh, $yg, $mg, $dg, return ($found, $yg, $mg, $dg, $dayweek); } #========================================================== -=JDToGCalendar -Name: JDToGCalendar -Type: Procedure -Purpose: convert Julian Day to Gdate(year,month,day) -Arguments: -Input: The Julian Day: JD -Output: Gregorian date: year:yy, month:mm, day:dd -double JDToGCalendar(double JD, int *yy,int *mm, int *dd) -=cut +#=JDToGCalendar +#Name: JDToGCalendar +#Type: Procedure +#Purpose: convert Julian Day to Gdate(year,month,day) +#Arguments: +#Input: The Julian Day: JD +#Output: Gregorian date: year:yy, month:mm, day:dd +#double JDToGCalendar(double JD, int *yy,int *mm, int *dd) +#=cut # (undef, $yg, $mg, $dg) = &JDToGCalendar($GJD); sub JDToGCalendar{ my ($self, $JD) = @_; @@ -1392,15 +1392,15 @@ my ($D, $Z); return ($F, $yy, $mm, $dd); } #========================================================== -=GCalendarToJD -Name: GCalendarToJD -Type: Function -Purpose: convert Gdate(year,month,day) to Julian Day -Arguments: -Input : Gregorian date: year:yy, month:mm, day:dd -Output: The Julian Day: JD -double GCalendarToJD(int yy,int mm, double dd) -=cut +#=GCalendarToJD +#Name: GCalendarToJD +#Type: Function +#Purpose: convert Gdate(year,month,day) to Julian Day +#Arguments: +#Input : Gregorian date: year:yy, month:mm, day:dd +#Output: The Julian Day: JD +#double GCalendarToJD(int yy,int mm, double dd) +#=cut sub GCalendarToJD{ my ($self, $yy, $mm, $dd) = @_; @@ -1425,15 +1425,15 @@ my ($T1, $T2, $Tr); return (int $Tr); } #========================================================== -=GLeapYear -Name: GLeapYear -Type: Function -Purpose: Determines if Gdate(year) is leap or not -Arguments: -Input : Gregorian date: year -Output: 0:year not leap 1:year is leap -int GLeapYear(int year) -=cut +#=GLeapYear +#Name: GLeapYear +#Type: Function +#Purpose: Determines if Gdate(year) is leap or not +#Arguments: +#Input : Gregorian date: year +#Output: 0:year not leap 1:year is leap +#int GLeapYear(int year) +#=cut sub GLeapYear{ my ($self, $year) = @_; my ($T); @@ -1448,16 +1448,16 @@ my ($T); return ($T); } #========================================================== -=GDateAjust -Name: GDateAjust -Type: Procedure -Purpose: Adjust the G Dates by making sure that the month lengths - are correct if not so take the extra days to next month or year -Arguments: -Input: Gregorian date: year:yg, month:mg, day:dg -Output: corrected Gregorian date: year:yg, month:mg, day:dg -void GDateAjust(int *yg,int *mg,int *dg) -=cut +#=GDateAjust +#Name: GDateAjust +#Type: Procedure +#Purpose: Adjust the G Dates by making sure that the month lengths +# are correct if not so take the extra days to next month or year +#Arguments: +#Input: Gregorian date: year:yg, month:mg, day:dg +#Output: corrected Gregorian date: year:yg, month:mg, day:dg +#void GDateAjust(int *yg,int *mg,int *dg) +#=cut sub GDateAjust{ my ($self, $yg, $mg, $dg) = @_; my ($dys); @@ -1519,15 +1519,15 @@ my ($dys); return ($yg, $mg, $dg); } #========================================================== -=DayWeek - The day of the week is obtained as - Dy=(Julian+1)%7 - Dy=0 Sunday - Dy=1 Monday - ... - Dy=6 Saturday -int DayWeek(long JulianD) -=cut +#=DayWeek +# The day of the week is obtained as +# Dy=(Julian+1)%7 +# Dy=0 Sunday +# Dy=1 Monday +# ... +# Dy=6 Saturday +#int DayWeek(long JulianD) +#=cut sub DayWeek{ my ($self, $JulianD) = @_; my ($Dy); @@ -1535,15 +1535,15 @@ my ($Dy); return ($Dy); } #========================================================== -=HCalendarToJD -Name: HCalendarToJD -Type: Function -Purpose: convert Hdate(year,month,day) to estimated Julian Day -Arguments: -Input : Hijrah date: year:yh, month:mh, day:dh -Output: The Estimated Julian Day: JD -double HCalendarToJD(int yh,int mh,int dh) -=cut +#=HCalendarToJD +#Name: HCalendarToJD +#Type: Function +#Purpose: convert Hdate(year,month,day) to estimated Julian Day +#Arguments: +#Input : Hijrah date: year:yh, month:mh, day:dh +#Output: The Estimated Julian Day: JD +#double HCalendarToJD(int yh,int mh,int dh) +#=cut sub HCalendarToJD{ my ($self, $yh, $mh, $dh) = @_; my ($md, $yd); @@ -1556,15 +1556,15 @@ my ($self, $yh, $mh, $dh) = @_; return $yd; } #========================================================== -=JDToHCalendar -Name: JDToHCalendar -Type: Procedure -Purpose: convert Julian Day to estimated Hdate(year,month,day) -Arguments: -Input: The Julian Day: JD -Output : Hijrah date: year:yh, month:mh, day:dh -void JDToHCalendar(double JD,int *yh,int *mh,int *dh) -=cut +#=JDToHCalendar +#Name: JDToHCalendar +#Type: Procedure +#Purpose: convert Julian Day to estimated Hdate(year,month,day) +#Arguments: +#Input: The Julian Day: JD +#Output : Hijrah date: year:yh, month:mh, day:dh +#void JDToHCalendar(double JD,int *yh,int *mh,int *dh) +#=cut #Estimating the hijrah date from JD sub JDToHCalendar{ my ($self, $JD) = @_; @@ -1582,15 +1582,15 @@ my ($md, $yd); return ($yh, $mh, $dh); } #========================================================== -=JDToHACalendar -Name: JDToHACalendar -Type: Procedure -Purpose: convert Julian Day to Hdate(year,month,day) -Arguments: -Input: The Julian Day: JD -Output : Hijrah date: year:yh, month:mh, day:dh -void JDToHACalendar(double JD,int *yh,int *mh,int *dh) -=cut +#=JDToHACalendar +#Name: JDToHACalendar +#Type: Procedure +#Purpose: convert Julian Day to Hdate(year,month,day) +#Arguments: +#Input: The Julian Day: JD +#Output : Hijrah date: year:yh, month:mh, day:dh +#void JDToHACalendar(double JD,int *yh,int *mh,int *dh) +#=cut sub JDToHACalendar{ my ($self, $JD) = @_; my ($yh, $mh, $dh); debian/patches/series0000644000000000000000000000004012250613472012026 0ustar change-bad-comment-format.patch debian/copyright0000644000000000000000000000231512250613472011124 0ustar Format: http://www.debian.org/doc/packaging-manuals/copyright-format/1.0/ Source: https://metacpan.org/release/Religion-Islam-PrayerTimes Upstream-Contact: Ahmed Amin Elsheshtawy Upstream-Name: Religion-Islam-PrayerTimes Files: * Copyright: 2006, Ahmed Amin Elsheshtawy 2006, IslamWare License: Artistic or GPL-1+ Comment: Original c++ source code version Copyright by Fayez Alhargan, 2001 Files: debian/* Copyright: 2013, Xavier Guimard License: Artistic or GPL-1+ License: Artistic This program is free software; you can redistribute it and/or modify it under the terms of the Artistic License, which comes with Perl. . On Debian systems, the complete text of the Artistic License can be found in `/usr/share/common-licenses/Artistic'. License: GPL-1+ This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version. . On Debian systems, the complete text of version 1 of the GNU General Public License can be found in `/usr/share/common-licenses/GPL-1'. debian/watch0000644000000000000000000000022112250613472010214 0ustar version=3 https://metacpan.org/release/Religion-Islam-PrayerTimes .*/Religion-Islam-PrayerTimes-v?(\d[\d.-]*)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)$