#!/usr/local/bin/perl5


$CURRENT_DB_FILE_NAME = shift @ARGV;

$CURRENT_EXT = ".db";

$CURRENT_DIALOG_NAME;
$CURRENT_DIALOG_FILE;

open (input, $CURRENT_DB_FILE_NAME);



sub AddToFile {
 
    my $line = shift @_;
    my $file = shift @_;

    my $name;


    $line =~ m/(^[^\.]+)/;
    $name = $1;
    if ($CURRENT_DIALOG_NAME eq $name) {1;} 
    else { close (output);
           $CURRENT_DIALOG_NAME = $name;
           $CURRENT_DIALOG_FILE = ($CURRENT_DIALOG_NAME . $CURRENT_EXT);
           if (-e $CURRENT_DIALOG_FILE)
           open (output, ">>$CURRENT_DIALOG_FILE");

    
    open (output, ">>$CURRENT_DIALOG_FILE");

    print output ($line);
}


# MyListMember ("item", @LIST);



sub MyListMember {

    my @list;
    my $item = shift @_;
    @list = @_;
    my $res = 0;

    while (@list && (! ($res))) {
	my $cur = shift (@list);
	#print ("$cur, $item\n");
	if ($cur eq $item) {
	    $res = 1;
        
	}
    }
    return $res;
}