#! /usr/bin/perl

# Script som henter ut filnavn på baser fra tekstfil og attacher
# disse på dbserveren. (I teorien). Krever Perl (ActivePerl anbefales)
# med modulene DBI, ODBC

# Enabler DBI modulen i Perl
#use DBI;

# Linja under på redigeres med riktig driver og servername
#$dbs = "dbi:ODBC:DRIVER={SQL Server};SERVER={ServerName}";

# Brukernavn og passord til DBserver
$username = "";
$password = "";

# Oppretter tilkoblingen
#$dbh = DBI->connect($dbs,$username,$password);

# Hvis tilkoblingen funka så gjør den dette
if(defined($dbh))
{
        # Skriv inn filnavn på filen med basenenavnene her
        open (FILE, "dbnavn.txt");

        while ($line = <FILE>) {
                $query = "sql spørring her";
                #linje her som kjører spørring med $line som attri
                print $line;
        }

close (FILE);
}
else {
        print "Kunne ikke koble til database\n";
}