--- db/prgsrc/db.cgi	2000/10/15 22:22:26	1.2
+++ db/prgsrc/db.cgi	2000/10/17 12:17:15	1.3
@@ -8,14 +8,17 @@ use POSIX qw(locale_h);
 
 my ($PWD) = `pwd`;
 chomp $PWD;
-my ($SRCPATH) = "/home/stepanov/baza";
+my ($SRCPATH) = "$PWD/../dimrub/src";
 my ($ZIP) = "/usr/bin/zip";
 my ($SENDMAIL) = "/usr/sbin/sendmail";
 my ($TMSECS) = 30*24*60*60;
 my (%RevMonths) = 
 	('Jan', '0', 'Feb', '1', 'Mar', '2', 'Apr', '3', 'May', '4', 'Jun', '5',
 	'Jul', '6', 'Aug', '7', 'Sep', '8', 'Oct', '9', 'Nov', '10',
-	'Dec', '11');
+	'Dec', '11',
+	 'Янв', '0', 'Фев', 1, 'Мар', 2, 'Апр', 3, 'Май', '4',
+	 'Июн', '5', 'Июл', 6, 'Авг', '7', 'Сен', '8', 
+	 'Окт', '9', 'Ноя', '19', 'Дек', '11');
 
 # Determine whether the given time is within 2 months from now.
 sub NewEnough {