#!/usr/local/bin/perl
=head1 NAME
dumpequalto.pl - a script for creation of the list of the equal questions
=head1 SYNOPSIS
dumpequalto.pl
=head1 DESCRIPTION
This script will dump the table EQUALTO
to $equals.
=head1 AUTHOR
Roman Semizarov
=cut
use dbchgk;
use chgkfiles;
output_files(EQUALS);
my %h=getequalto;
my $sch=0;
foreach (keys %h)
{
if (++$sch %100==0){print "$sch...\n"}
my $first=in2out($_);
my $second=in2out($h{$_});
mywrite (EQUALS, first => $first, second => $second);
}
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>