--- db/prgsrc/checkPBS.pl	2001/10/31 03:00:07	1.1
+++ db/prgsrc/checkPBS.pl	2001/10/31 03:07:18	1.2
@@ -1,34 +1,34 @@
-
-=head1 NAME
-
-checkPBS.pl - скрипт, проставляющий поле ProcessedBySearch на основании 
-информации из word2question
-
-
-=head1 SYNOPSIS
-
-checkPBS.pl
-
-=head1 AUTHOR
-
-Роман Семизаров
-
-
-=cut
-
-
-use dbchgk;
-
-mydo ("UPDATE Questions SET ProcessedBySearch=NULL");
-
-getword2question;
-
-while (($word,$blob)=getrow,$word)
-{
-  print "$sch...\n" unless (++$sch%100);
-  $is{unpack("S",$_)}=1 foreach $blob=~/.(..)./sg;
-}
-
-mydo ("UPDATE Questions SET ProcessedBySearch=1 where QuestionId=$_")
- foreach keys %is;
-
+#!/usr/bin/perl
+=head1 NAME
+
+checkPBS.pl - скрипт, проставляющий поле ProcessedBySearch на основании 
+информации из word2question
+
+
+=head1 SYNOPSIS
+
+checkPBS.pl
+
+=head1 AUTHOR
+
+Роман Семизаров
+
+
+=cut
+
+
+use dbchgk;
+
+mydo ("UPDATE Questions SET ProcessedBySearch=NULL");
+
+getword2question;
+
+while (($word,$blob)=getrow,$word)
+{
+  print "$sch...\n" unless (++$sch%100);
+  $is{unpack("S",$_)}=1 foreach $blob=~/.(..)./sg;
+}
+
+mydo ("UPDATE Questions SET ProcessedBySearch=1 where QuestionId=$_")
+ foreach keys %is;
+