~beaky/wacs/trunk

« back to all changes in this revision

Viewing changes to tools/wacsupdinfo

  • Committer: beaky
  • Date: 2023-10-24 18:29:30 UTC
  • Revision ID: svn-v4:4196e993-711f-0410-950c-c89e1d26c723:trunk:3025
Updates to make A=All Girl, D=BDSM set types work better.

Show diffs side-by-side

added added

removed removed

Lines of Context:
397
397
                        # it's (most likely) a regular file
398
398
                        $_ = $pifile;
399
399
                        # sanity checks first
400
 
                        # FIXME: do this better or remove
401
 
                        #        Commented out - haven't seen index files in
402
 
                        #        years, maybe a decade.
403
 
                        #if( /index/ )
404
 
                        #{
405
 
                        #       $indexcount++;
406
 
                        #       return;
407
 
                        #}
408
 
                        #if( /Index/ )
409
 
                        #{
410
 
                        #       $indexcount++;
411
 
                        #       return;
412
 
                        #}
413
 
                        #if( /IDX/ )
414
 
                        #{
415
 
                        #       $indexcount++;
416
 
                        #       return;
417
 
                        #}
418
400
                        $imagecount++;
419
401
 
420
402
                        # check the sizes for each file, not just the first.
1246
1228
                        {
1247
1229
                                $catinfo .= " lesbian ";
1248
1230
                        }
 
1231
                        if( $chkrec[19] eq "A" )
 
1232
                        {
 
1233
                                # All girl is lesbian and (at least) fff
 
1234
                                $catinfo .= " lesbian fff ";
 
1235
                        }
1249
1236
                        if( $chkrec[19] eq "T" )
1250
1237
                        {
1251
1238
                                $catinfo .= " dildo ";
1368
1355
        # since solo is the default, and toys is a subset of solo
1369
1356
        # we just do a quick recheck that a toys keyword has not
1370
1357
        # been added
 
1358
        # FIXME: Do this better now we have several toy keywords
1371
1359
        if( $chkrec[19] eq "S" && $catinfo =~ /dildo/ )
1372
1360
        {
1373
1361
                # WARNING: this will cause a keyword reset
1376
1364
                $changes = $changes . " attributes";
1377
1365
                $updflag++;
1378
1366
        }
 
1367
        if( $chkrec[19] eq "S" && $catinfo =~ /vibrator/ )
 
1368
        {
 
1369
                # WARNING: this will cause a keyword reset
 
1370
                $chkcatflag = guessflag( $catinfo, $chkrec[0] );
 
1371
                $updcmd .= "scatflag = '".$chkcatflag."', ";
 
1372
                $changes = $changes . " attributes";
 
1373
                $updflag++;
 
1374
        }
 
1375
        if( $chkrec[19] eq "S" && $catinfo =~ /massager/ )
 
1376
        {
 
1377
                # WARNING: this will cause a keyword reset
 
1378
                $chkcatflag = guessflag( $catinfo, $chkrec[0] );
 
1379
                $updcmd .= "scatflag = '".$chkcatflag."', ";
 
1380
                $changes = $changes . " attributes";
 
1381
                $updflag++;
 
1382
        }
1379
1383
        if( $chkrec[10] eq "" || $force == 1 )
1380
1384
        {
1381
1385
                $namestem = find_namestem( $curdir );
1827
1831
                        }
1828
1832
                        else
1829
1833
                        {
1830
 
                                $flagout = "L";
 
1834
                                if( $curcatinfo =~ /fff/ )
 
1835
                                {
 
1836
                                        # three or more girls
 
1837
                                        $flagout = "A";
 
1838
                                }
 
1839
                                else
 
1840
                                {
 
1841
                                        # two girls - lesbian
 
1842
                                        $flagout = "L";
 
1843
                                }
1831
1844
                        }
1832
1845
                }
1833
1846
                elsif( $curcatinfo =~ /fuck/ )
1850
1863
                        # if nothing else but includes toys, toy set
1851
1864
                        $flagout = "T";
1852
1865
                }
 
1866
                elsif( $curcatinfo =~ /vibrator/ )
 
1867
                {
 
1868
                        # if nothing else but includes toys, toy set (2)
 
1869
                        $flagout = "T";
 
1870
                }
 
1871
                elsif( $curcatinfo =~ /massager/ )
 
1872
                {
 
1873
                        # if nothing else but includes toys, toy set (3)
 
1874
                        $flagout = "T";
 
1875
                }
1853
1876
                else
1854
1877
                {
1855
1878
                        # everything else solo