gmarco/petar.company
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Initial commit

Browse source
This commit is contained in:
Charlie Root 2025-03-01 00:58:18 +01:00
commit 529efd53a1
140 changed files with 10310 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

54
tools/system2petar/.old/mail-sys-import.pl Executable file
View file

@ -0,0 +1,54 @@
#!/usr/bin/perl
# SQL STATEMENT:
# create table MAILUSER (id integer autoincrement primary key,login varchar (20), pwd varchar(50), uid integer autoincrement, gid varchar(6), email varchar(50), home varchar(30), shell varchar(20), domain varchar(50));
# cat import-email.sql | sqlite consiag.db
if (@ARGV[0] eq ""){
print "Usage: ";\
print "$0 masterpwd_db_file\n";
exit 5 ;
}
$defgid = "2000";
$defshell = "/sbin/nologin";
print "\n";
print "Ready to generate sql file for : @ARGV[0] \n";
print "\n";
print "\n";
print "Domain name []: ";
$domain_name = <STDIN>;
chomp($domain_name);
if ($domain_name eq "") { die "Domain name is mandatory ! Exiting ... \n";}
print "Default min uid ? [1001]\n";
print "Default user group ? [2000]\n";
print "Default user shell ? [/sbin/nologin]\n";
print "\n";
print "Press any key to continue or Ctrl+C to abort: [Return]";
$key = getc(STDIN);
print "\n";
open (IN, "<@ARGV[0]") or die "Error opening @ARGV[0]" ;
open (OUT, ">import-email-$domain_name.sql");
print OUT "drop table mailuser;\n";
print OUT "create table mailuser (uid integer autoincrement primary key,login varchar(20), pwd varchar(50), gid varchar(6), email varchar(50), home varchar(30), shell varchar(20), domain varchar(50));\n";
print OUT "insert into mailuser (uid,login) values (\'1999',\'removeme\');\n";
while ($line = <IN>){
chomp $line;
($login,$pwd,$uid,$gid,$dummy1,$dummy2,$dummy3,$email,$home,$shell) = split (":",$line);
if ( ($uid >= "1002" && $uid <= "65533") && substr($line,0,1) == "#" ){
($part1,$domain) = split ("@",$email);
print "converting $uid:$login:$email\n";
print OUT "insert into mailuser (login,pwd,gid,email,home,shell,domain) VALUES ".
"(\'$login\',\'$pwd\',\'$defgid\',\'$login\@$domain_name\',\'$home\',\'$shell\',\'$domain_name\');\n";
}
}
print OUT "delete from mailuser where uid = '1999';\n";
print "\n";
print "The file: import-email-$domain_name.sql is ready to be imported or edited.";

25
tools/system2petar/.old/radius-convert-old-fmt.pl Executable file
View file

@ -0,0 +1,25 @@
#!/usr/bin/perl
if (@ARGV[1] eq ""){
print "Usage: ";\
print "$0 old_format_db_file vendor_name\n";
exit 5 ;
}
print "\n";
print "Ready to generate sql file for : @ARGV[0] \n";
print "This hosts belong to vendor : @ARGV[1] \n";
print "\n";
print "Press any key to continue or Ctrl+C to abort";
$key = getc(STDIN);
print "\n";
open (IN, "<@ARGV[0]") or die "Error opening @ARGV[0]" ;
open (OUT, ">import.sql");
while ($line = <IN>){
chomp $line;
($ip,$netmask,$pwd,$login,$opt1) = split ("\t",$line);
print OUT "INSERT INTO RADIUSUSER (ip,netmask,login,pwd,vendor,opt1,opt2) VALUES (\'$ip\',\'$netmask\',\'$login\',\'$pwd\',\'@ARGV[1]\',\'$opt1\',\'$opt2\');\n";
}

38
tools/system2petar/.old/virt-sys-import.pl Executable file
View file

@ -0,0 +1,38 @@
#!/usr/bin/perl
# SQL STATEMENT:
# create table FWDUSER (email varchar(100) primary key, fwdaddr varchar(100), domain varchar(100));
# cat import-email.sql | sqlite3 petar.db3
if (@ARGV[0] eq ""){
print "Usage: ";\
print "$0 virtusertable\n";
exit 5 ;
}
open (IN, "<@ARGV[0]") or die "Error opening @ARGV[0]" ;
open (OUT, ">import-virtusertable.sql");
print OUT "drop table FWDUSER;\n";
print OUT "create table FWDUSER (email varchar(100) primary key, fwdaddr varchar(100), domain varchar(100));\n";
while ($line = <IN>){
chomp $line;
if ($line =~ ( /^\s*$/ ) || $line =~ (/^#.*$/)) {
print "- Ignoring .... linea bianca o commento\n";
} else {
print "+ Processing .. ".$line."\n";
($email,$fwdaddr) = split (" ",$line);
($login,$domain) = split ("@",$email);
$email = lc($email);
$fwdaddr = lc($fwdaddr);
$domain = lc($domain);
print OUT "insert into FWDUSER (email,fwdaddr,domain) VALUES (\'$email\',\'$fwdaddr\',\'$domain\');\n";
}
}