commit 3513e50f08c9a90230c21e4e1b2c90ab250502e6 · katproto.girlonthemoon.xyz/bin

+31

ask.php

···

       1
       1
       +
       <?php

     

       2
       2
       +
       

     

       3
       3
       +
       // quick script to work as an endpoint for caddy on demand TLS

     

       4
       4
       +
       // 

     

       5
       5
       +
       // all it does is connect with your application's DB and checks if the domain query matches a username

     

       6
       6
       +
       // 

     

       7
       7
       +
       // if it matches, script returns 200. otherwise, 404

     

       8
       8
       +
       

     

       9
       9
       +
       $query = $_GET['domain'];

     

       10
       10
       +
       

     

       11
       11
       +
       $host = getenv('MYSQL_HOST');

     

       12
       12
       +
       $db = getenv('MYSQL_DATABASE');

     

       13
       13
       +
       $user = getenv('MYSQL_USER');

     

       14
       14
       +
       $pass = getenv('MYSQL_PASSWORD');

     

       15
       15
       +
       

     

       16
       16
       +
       $conn = mysqli_connect($host, $user, $pass, $db);

     

       17
       17
       +
       

     

       18
       18
       +
       $sql = $conn->prepare("SELECT user FROM user WHERE user = ?");

     

       19
       19
       +
       $sql->bind_param('s', $query);

     

       20
       20
       +
       $sql->execute();

     

       21
       21
       +
       

     

       22
       22
       +
       $result = $sql->get_result();

     

       23
       23
       +
       

     

       24
       24
       +
       if ($final = mysqli_fetch_assoc($result)) {

     

       25
       25
       +
         $name = $final["user"];

     

       26
       26
       +
       }

     

       27
       27
       +
       else {

     

       28
       28
       +
       	header('HTTP/1.0 404 Not Found');

     

       29
       29
       +
       	die();

     

       30
       30
       +
       }

     

       31
       31
       +
       ?>

+35

list.pl

···

       1
       1
       +
       #!/usr/bin/perl

     

       2
       2
       +
       #

     

       3
       3
       +
       # newline-separated list of values from a mySQL database. used this with dreamwidth code

     

       4
       4
       +
       

     

       5
       5
       +
       use DBI;

     

       6
       6
       +
       

     

       7
       7
       +
       my $Client = HTTP::Tiny->new();

     

       8
       8
       +
       

     

       9
       9
       +
       my $db = "x";

     

       10
       10
       +
       my $host = "x";

     

       11
       11
       +
       my $port = "3306";

     

       12
       12
       +
       

     

       13
       13
       +
       my $dsn = "DBI:mysql:database=$db;host=$host;port=$port";

     

       14
       14
       +
       

     

       15
       15
       +
       my $username = "x";

     

       16
       16
       +
       my $password = "x";

     

       17
       17
       +
       

     

       18
       18
       +
       my %attr = ( PrintError=>0,  # turn off error reporting via warn()

     

       19
       19
       +
                    RaiseError=>1   # report error via die()

     

       20
       20
       +
                  );

     

       21
       21
       +
       $dbh = DBI->connect($dsn, $username, $password, \%attr)

     

       22
       22
       +
       			|| die "ERROR: $DBI::errstr";

     

       23
       23
       +
       

     

       24
       24
       +
       $query = "SELECT user FROM user;";

     

       25
       25
       +
       $sth = $dbh->prepare($query);

     

       26
       26
       +
       $sth->execute();

     

       27
       27
       +
       $data = $sth->fetchall_arrayref();

     

       28
       28
       +
       $sth->finish;

     

       29
       29
       +
       

     

       30
       30
       +
       foreach $data ( @$data) {

     

       31
       31
       +
       	($name) = @$data;

     

       32
       32
       +
       	print "$name\n";

     

       33
       33
       +
       }

     

       34
       34
       +
       

     

       35
       35
       +
       $dbh->disconnect();